MODULE module_scalar_tables USE module_driver_constants USE module_state_description USE module_domain_type, ONLY : streamrec INTEGER, TARGET :: moist_index_table( param_num_moist, max_domains ) INTEGER, TARGET :: moist_num_table( max_domains ) TYPE(streamrec), TARGET :: moist_streams_table( max_domains, param_num_moist ) LOGICAL, TARGET :: moist_boundary_table( max_domains, param_num_moist ) CHARACTER*256, TARGET :: moist_dname_table( max_domains, param_num_moist ) CHARACTER*256, TARGET :: moist_desc_table( max_domains, param_num_moist ) CHARACTER*256, TARGET :: moist_units_table( max_domains, param_num_moist ) INTEGER, TARGET :: dfi_moist_index_table( param_num_dfi_moist, max_domains ) INTEGER, TARGET :: dfi_moist_num_table( max_domains ) TYPE(streamrec), TARGET :: dfi_moist_streams_table( max_domains, param_num_dfi_moist ) LOGICAL, TARGET :: dfi_moist_boundary_table( max_domains, param_num_dfi_moist ) CHARACTER*256, TARGET :: dfi_moist_dname_table( max_domains, param_num_dfi_moist ) CHARACTER*256, TARGET :: dfi_moist_desc_table( max_domains, param_num_dfi_moist ) CHARACTER*256, TARGET :: dfi_moist_units_table( max_domains, param_num_dfi_moist ) INTEGER, TARGET :: scalar_index_table( param_num_scalar, max_domains ) INTEGER, TARGET :: scalar_num_table( max_domains ) TYPE(streamrec), TARGET :: scalar_streams_table( max_domains, param_num_scalar ) LOGICAL, TARGET :: scalar_boundary_table( max_domains, param_num_scalar ) CHARACTER*256, TARGET :: scalar_dname_table( max_domains, param_num_scalar ) CHARACTER*256, TARGET :: scalar_desc_table( max_domains, param_num_scalar ) CHARACTER*256, TARGET :: scalar_units_table( max_domains, param_num_scalar ) INTEGER, TARGET :: dfi_scalar_index_table( param_num_dfi_scalar, max_domains ) INTEGER, TARGET :: dfi_scalar_num_table( max_domains ) TYPE(streamrec), TARGET :: dfi_scalar_streams_table( max_domains, param_num_dfi_scalar ) LOGICAL, TARGET :: dfi_scalar_boundary_table( max_domains, param_num_dfi_scalar ) CHARACTER*256, TARGET :: dfi_scalar_dname_table( max_domains, param_num_dfi_scalar ) CHARACTER*256, TARGET :: dfi_scalar_desc_table( max_domains, param_num_dfi_scalar ) CHARACTER*256, TARGET :: dfi_scalar_units_table( max_domains, param_num_dfi_scalar ) INTEGER, TARGET :: aerod_index_table( param_num_aerod, max_domains ) INTEGER, TARGET :: aerod_num_table( max_domains ) TYPE(streamrec), TARGET :: aerod_streams_table( max_domains, param_num_aerod ) LOGICAL, TARGET :: aerod_boundary_table( max_domains, param_num_aerod ) CHARACTER*256, TARGET :: aerod_dname_table( max_domains, param_num_aerod ) CHARACTER*256, TARGET :: aerod_desc_table( max_domains, param_num_aerod ) CHARACTER*256, TARGET :: aerod_units_table( max_domains, param_num_aerod ) INTEGER, TARGET :: ozmixm_index_table( param_num_ozmixm, max_domains ) INTEGER, TARGET :: ozmixm_num_table( max_domains ) TYPE(streamrec), TARGET :: ozmixm_streams_table( max_domains, param_num_ozmixm ) LOGICAL, TARGET :: ozmixm_boundary_table( max_domains, param_num_ozmixm ) CHARACTER*256, TARGET :: ozmixm_dname_table( max_domains, param_num_ozmixm ) CHARACTER*256, TARGET :: ozmixm_desc_table( max_domains, param_num_ozmixm ) CHARACTER*256, TARGET :: ozmixm_units_table( max_domains, param_num_ozmixm ) INTEGER, TARGET :: aerosolc_index_table( param_num_aerosolc, max_domains ) INTEGER, TARGET :: aerosolc_num_table( max_domains ) TYPE(streamrec), TARGET :: aerosolc_streams_table( max_domains, param_num_aerosolc ) LOGICAL, TARGET :: aerosolc_boundary_table( max_domains, param_num_aerosolc ) CHARACTER*256, TARGET :: aerosolc_dname_table( max_domains, param_num_aerosolc ) CHARACTER*256, TARGET :: aerosolc_desc_table( max_domains, param_num_aerosolc ) CHARACTER*256, TARGET :: aerosolc_units_table( max_domains, param_num_aerosolc ) INTEGER, TARGET :: fdda3d_index_table( param_num_fdda3d, max_domains ) INTEGER, TARGET :: fdda3d_num_table( max_domains ) TYPE(streamrec), TARGET :: fdda3d_streams_table( max_domains, param_num_fdda3d ) LOGICAL, TARGET :: fdda3d_boundary_table( max_domains, param_num_fdda3d ) CHARACTER*256, TARGET :: fdda3d_dname_table( max_domains, param_num_fdda3d ) CHARACTER*256, TARGET :: fdda3d_desc_table( max_domains, param_num_fdda3d ) CHARACTER*256, TARGET :: fdda3d_units_table( max_domains, param_num_fdda3d ) INTEGER, TARGET :: fdda2d_index_table( param_num_fdda2d, max_domains ) INTEGER, TARGET :: fdda2d_num_table( max_domains ) TYPE(streamrec), TARGET :: fdda2d_streams_table( max_domains, param_num_fdda2d ) LOGICAL, TARGET :: fdda2d_boundary_table( max_domains, param_num_fdda2d ) CHARACTER*256, TARGET :: fdda2d_dname_table( max_domains, param_num_fdda2d ) CHARACTER*256, TARGET :: fdda2d_desc_table( max_domains, param_num_fdda2d ) CHARACTER*256, TARGET :: fdda2d_units_table( max_domains, param_num_fdda2d ) INTEGER, TARGET :: advh_t_index_table( param_num_advh_t, max_domains ) INTEGER, TARGET :: advh_t_num_table( max_domains ) TYPE(streamrec), TARGET :: advh_t_streams_table( max_domains, param_num_advh_t ) LOGICAL, TARGET :: advh_t_boundary_table( max_domains, param_num_advh_t ) CHARACTER*256, TARGET :: advh_t_dname_table( max_domains, param_num_advh_t ) CHARACTER*256, TARGET :: advh_t_desc_table( max_domains, param_num_advh_t ) CHARACTER*256, TARGET :: advh_t_units_table( max_domains, param_num_advh_t ) INTEGER, TARGET :: advz_t_index_table( param_num_advz_t, max_domains ) INTEGER, TARGET :: advz_t_num_table( max_domains ) TYPE(streamrec), TARGET :: advz_t_streams_table( max_domains, param_num_advz_t ) LOGICAL, TARGET :: advz_t_boundary_table( max_domains, param_num_advz_t ) CHARACTER*256, TARGET :: advz_t_dname_table( max_domains, param_num_advz_t ) CHARACTER*256, TARGET :: advz_t_desc_table( max_domains, param_num_advz_t ) CHARACTER*256, TARGET :: advz_t_units_table( max_domains, param_num_advz_t ) INTEGER, TARGET :: emis_ant_index_table( param_num_emis_ant, max_domains ) INTEGER, TARGET :: emis_ant_num_table( max_domains ) TYPE(streamrec), TARGET :: emis_ant_streams_table( max_domains, param_num_emis_ant ) LOGICAL, TARGET :: emis_ant_boundary_table( max_domains, param_num_emis_ant ) CHARACTER*256, TARGET :: emis_ant_dname_table( max_domains, param_num_emis_ant ) CHARACTER*256, TARGET :: emis_ant_desc_table( max_domains, param_num_emis_ant ) CHARACTER*256, TARGET :: emis_ant_units_table( max_domains, param_num_emis_ant ) INTEGER, TARGET :: eghg_bio_index_table( param_num_eghg_bio, max_domains ) INTEGER, TARGET :: eghg_bio_num_table( max_domains ) TYPE(streamrec), TARGET :: eghg_bio_streams_table( max_domains, param_num_eghg_bio ) LOGICAL, TARGET :: eghg_bio_boundary_table( max_domains, param_num_eghg_bio ) CHARACTER*256, TARGET :: eghg_bio_dname_table( max_domains, param_num_eghg_bio ) CHARACTER*256, TARGET :: eghg_bio_desc_table( max_domains, param_num_eghg_bio ) CHARACTER*256, TARGET :: eghg_bio_units_table( max_domains, param_num_eghg_bio ) INTEGER, TARGET :: emis_dust_index_table( param_num_emis_dust, max_domains ) INTEGER, TARGET :: emis_dust_num_table( max_domains ) TYPE(streamrec), TARGET :: emis_dust_streams_table( max_domains, param_num_emis_dust ) LOGICAL, TARGET :: emis_dust_boundary_table( max_domains, param_num_emis_dust ) CHARACTER*256, TARGET :: emis_dust_dname_table( max_domains, param_num_emis_dust ) CHARACTER*256, TARGET :: emis_dust_desc_table( max_domains, param_num_emis_dust ) CHARACTER*256, TARGET :: emis_dust_units_table( max_domains, param_num_emis_dust ) INTEGER, TARGET :: emis_seas_index_table( param_num_emis_seas, max_domains ) INTEGER, TARGET :: emis_seas_num_table( max_domains ) TYPE(streamrec), TARGET :: emis_seas_streams_table( max_domains, param_num_emis_seas ) LOGICAL, TARGET :: emis_seas_boundary_table( max_domains, param_num_emis_seas ) CHARACTER*256, TARGET :: emis_seas_dname_table( max_domains, param_num_emis_seas ) CHARACTER*256, TARGET :: emis_seas_desc_table( max_domains, param_num_emis_seas ) CHARACTER*256, TARGET :: emis_seas_units_table( max_domains, param_num_emis_seas ) INTEGER, TARGET :: emis_seas2_index_table( param_num_emis_seas2, max_domains ) INTEGER, TARGET :: emis_seas2_num_table( max_domains ) TYPE(streamrec), TARGET :: emis_seas2_streams_table( max_domains, param_num_emis_seas2 ) LOGICAL, TARGET :: emis_seas2_boundary_table( max_domains, param_num_emis_seas2 ) CHARACTER*256, TARGET :: emis_seas2_dname_table( max_domains, param_num_emis_seas2 ) CHARACTER*256, TARGET :: emis_seas2_desc_table( max_domains, param_num_emis_seas2 ) CHARACTER*256, TARGET :: emis_seas2_units_table( max_domains, param_num_emis_seas2 ) INTEGER, TARGET :: emis_vol_index_table( param_num_emis_vol, max_domains ) INTEGER, TARGET :: emis_vol_num_table( max_domains ) TYPE(streamrec), TARGET :: emis_vol_streams_table( max_domains, param_num_emis_vol ) LOGICAL, TARGET :: emis_vol_boundary_table( max_domains, param_num_emis_vol ) CHARACTER*256, TARGET :: emis_vol_dname_table( max_domains, param_num_emis_vol ) CHARACTER*256, TARGET :: emis_vol_desc_table( max_domains, param_num_emis_vol ) CHARACTER*256, TARGET :: emis_vol_units_table( max_domains, param_num_emis_vol ) INTEGER, TARGET :: ebu_index_table( param_num_ebu, max_domains ) INTEGER, TARGET :: ebu_num_table( max_domains ) TYPE(streamrec), TARGET :: ebu_streams_table( max_domains, param_num_ebu ) LOGICAL, TARGET :: ebu_boundary_table( max_domains, param_num_ebu ) CHARACTER*256, TARGET :: ebu_dname_table( max_domains, param_num_ebu ) CHARACTER*256, TARGET :: ebu_desc_table( max_domains, param_num_ebu ) CHARACTER*256, TARGET :: ebu_units_table( max_domains, param_num_ebu ) INTEGER, TARGET :: ebu_in_index_table( param_num_ebu_in, max_domains ) INTEGER, TARGET :: ebu_in_num_table( max_domains ) TYPE(streamrec), TARGET :: ebu_in_streams_table( max_domains, param_num_ebu_in ) LOGICAL, TARGET :: ebu_in_boundary_table( max_domains, param_num_ebu_in ) CHARACTER*256, TARGET :: ebu_in_dname_table( max_domains, param_num_ebu_in ) CHARACTER*256, TARGET :: ebu_in_desc_table( max_domains, param_num_ebu_in ) CHARACTER*256, TARGET :: ebu_in_units_table( max_domains, param_num_ebu_in ) INTEGER, TARGET :: emis_aircraft_index_table( param_num_emis_aircraft, max_domains ) INTEGER, TARGET :: emis_aircraft_num_table( max_domains ) TYPE(streamrec), TARGET :: emis_aircraft_streams_table( max_domains, param_num_emis_aircraft ) LOGICAL, TARGET :: emis_aircraft_boundary_table( max_domains, param_num_emis_aircraft ) CHARACTER*256, TARGET :: emis_aircraft_dname_table( max_domains, param_num_emis_aircraft ) CHARACTER*256, TARGET :: emis_aircraft_desc_table( max_domains, param_num_emis_aircraft ) CHARACTER*256, TARGET :: emis_aircraft_units_table( max_domains, param_num_emis_aircraft ) INTEGER, TARGET :: ext_coef_index_table( param_num_ext_coef, max_domains ) INTEGER, TARGET :: ext_coef_num_table( max_domains ) TYPE(streamrec), TARGET :: ext_coef_streams_table( max_domains, param_num_ext_coef ) LOGICAL, TARGET :: ext_coef_boundary_table( max_domains, param_num_ext_coef ) CHARACTER*256, TARGET :: ext_coef_dname_table( max_domains, param_num_ext_coef ) CHARACTER*256, TARGET :: ext_coef_desc_table( max_domains, param_num_ext_coef ) CHARACTER*256, TARGET :: ext_coef_units_table( max_domains, param_num_ext_coef ) INTEGER, TARGET :: bscat_coef_index_table( param_num_bscat_coef, max_domains ) INTEGER, TARGET :: bscat_coef_num_table( max_domains ) TYPE(streamrec), TARGET :: bscat_coef_streams_table( max_domains, param_num_bscat_coef ) LOGICAL, TARGET :: bscat_coef_boundary_table( max_domains, param_num_bscat_coef ) CHARACTER*256, TARGET :: bscat_coef_dname_table( max_domains, param_num_bscat_coef ) CHARACTER*256, TARGET :: bscat_coef_desc_table( max_domains, param_num_bscat_coef ) CHARACTER*256, TARGET :: bscat_coef_units_table( max_domains, param_num_bscat_coef ) INTEGER, TARGET :: asym_par_index_table( param_num_asym_par, max_domains ) INTEGER, TARGET :: asym_par_num_table( max_domains ) TYPE(streamrec), TARGET :: asym_par_streams_table( max_domains, param_num_asym_par ) LOGICAL, TARGET :: asym_par_boundary_table( max_domains, param_num_asym_par ) CHARACTER*256, TARGET :: asym_par_dname_table( max_domains, param_num_asym_par ) CHARACTER*256, TARGET :: asym_par_desc_table( max_domains, param_num_asym_par ) CHARACTER*256, TARGET :: asym_par_units_table( max_domains, param_num_asym_par ) INTEGER, TARGET :: conv_ct_index_table( param_num_conv_ct, max_domains ) INTEGER, TARGET :: conv_ct_num_table( max_domains ) TYPE(streamrec), TARGET :: conv_ct_streams_table( max_domains, param_num_conv_ct ) LOGICAL, TARGET :: conv_ct_boundary_table( max_domains, param_num_conv_ct ) CHARACTER*256, TARGET :: conv_ct_dname_table( max_domains, param_num_conv_ct ) CHARACTER*256, TARGET :: conv_ct_desc_table( max_domains, param_num_conv_ct ) CHARACTER*256, TARGET :: conv_ct_units_table( max_domains, param_num_conv_ct ) INTEGER, TARGET :: chem_ct_index_table( param_num_chem_ct, max_domains ) INTEGER, TARGET :: chem_ct_num_table( max_domains ) TYPE(streamrec), TARGET :: chem_ct_streams_table( max_domains, param_num_chem_ct ) LOGICAL, TARGET :: chem_ct_boundary_table( max_domains, param_num_chem_ct ) CHARACTER*256, TARGET :: chem_ct_dname_table( max_domains, param_num_chem_ct ) CHARACTER*256, TARGET :: chem_ct_desc_table( max_domains, param_num_chem_ct ) CHARACTER*256, TARGET :: chem_ct_units_table( max_domains, param_num_chem_ct ) INTEGER, TARGET :: vmix_ct_index_table( param_num_vmix_ct, max_domains ) INTEGER, TARGET :: vmix_ct_num_table( max_domains ) TYPE(streamrec), TARGET :: vmix_ct_streams_table( max_domains, param_num_vmix_ct ) LOGICAL, TARGET :: vmix_ct_boundary_table( max_domains, param_num_vmix_ct ) CHARACTER*256, TARGET :: vmix_ct_dname_table( max_domains, param_num_vmix_ct ) CHARACTER*256, TARGET :: vmix_ct_desc_table( max_domains, param_num_vmix_ct ) CHARACTER*256, TARGET :: vmix_ct_units_table( max_domains, param_num_vmix_ct ) INTEGER, TARGET :: advh_ct_index_table( param_num_advh_ct, max_domains ) INTEGER, TARGET :: advh_ct_num_table( max_domains ) TYPE(streamrec), TARGET :: advh_ct_streams_table( max_domains, param_num_advh_ct ) LOGICAL, TARGET :: advh_ct_boundary_table( max_domains, param_num_advh_ct ) CHARACTER*256, TARGET :: advh_ct_dname_table( max_domains, param_num_advh_ct ) CHARACTER*256, TARGET :: advh_ct_desc_table( max_domains, param_num_advh_ct ) CHARACTER*256, TARGET :: advh_ct_units_table( max_domains, param_num_advh_ct ) INTEGER, TARGET :: advz_ct_index_table( param_num_advz_ct, max_domains ) INTEGER, TARGET :: advz_ct_num_table( max_domains ) TYPE(streamrec), TARGET :: advz_ct_streams_table( max_domains, param_num_advz_ct ) LOGICAL, TARGET :: advz_ct_boundary_table( max_domains, param_num_advz_ct ) CHARACTER*256, TARGET :: advz_ct_dname_table( max_domains, param_num_advz_ct ) CHARACTER*256, TARGET :: advz_ct_desc_table( max_domains, param_num_advz_ct ) CHARACTER*256, TARGET :: advz_ct_units_table( max_domains, param_num_advz_ct ) INTEGER, TARGET :: dvel_index_table( param_num_dvel, max_domains ) INTEGER, TARGET :: dvel_num_table( max_domains ) TYPE(streamrec), TARGET :: dvel_streams_table( max_domains, param_num_dvel ) LOGICAL, TARGET :: dvel_boundary_table( max_domains, param_num_dvel ) CHARACTER*256, TARGET :: dvel_dname_table( max_domains, param_num_dvel ) CHARACTER*256, TARGET :: dvel_desc_table( max_domains, param_num_dvel ) CHARACTER*256, TARGET :: dvel_units_table( max_domains, param_num_dvel ) INTEGER, TARGET :: vprm_in_index_table( param_num_vprm_in, max_domains ) INTEGER, TARGET :: vprm_in_num_table( max_domains ) TYPE(streamrec), TARGET :: vprm_in_streams_table( max_domains, param_num_vprm_in ) LOGICAL, TARGET :: vprm_in_boundary_table( max_domains, param_num_vprm_in ) CHARACTER*256, TARGET :: vprm_in_dname_table( max_domains, param_num_vprm_in ) CHARACTER*256, TARGET :: vprm_in_desc_table( max_domains, param_num_vprm_in ) CHARACTER*256, TARGET :: vprm_in_units_table( max_domains, param_num_vprm_in ) INTEGER, TARGET :: wet_in_index_table( param_num_wet_in, max_domains ) INTEGER, TARGET :: wet_in_num_table( max_domains ) TYPE(streamrec), TARGET :: wet_in_streams_table( max_domains, param_num_wet_in ) LOGICAL, TARGET :: wet_in_boundary_table( max_domains, param_num_wet_in ) CHARACTER*256, TARGET :: wet_in_dname_table( max_domains, param_num_wet_in ) CHARACTER*256, TARGET :: wet_in_desc_table( max_domains, param_num_wet_in ) CHARACTER*256, TARGET :: wet_in_units_table( max_domains, param_num_wet_in ) INTEGER, TARGET :: chem_index_table( param_num_chem, max_domains ) INTEGER, TARGET :: chem_num_table( max_domains ) TYPE(streamrec), TARGET :: chem_streams_table( max_domains, param_num_chem ) LOGICAL, TARGET :: chem_boundary_table( max_domains, param_num_chem ) CHARACTER*256, TARGET :: chem_dname_table( max_domains, param_num_chem ) CHARACTER*256, TARGET :: chem_desc_table( max_domains, param_num_chem ) CHARACTER*256, TARGET :: chem_units_table( max_domains, param_num_chem ) INTEGER, TARGET :: tracer_index_table( param_num_tracer, max_domains ) INTEGER, TARGET :: tracer_num_table( max_domains ) TYPE(streamrec), TARGET :: tracer_streams_table( max_domains, param_num_tracer ) LOGICAL, TARGET :: tracer_boundary_table( max_domains, param_num_tracer ) CHARACTER*256, TARGET :: tracer_dname_table( max_domains, param_num_tracer ) CHARACTER*256, TARGET :: tracer_desc_table( max_domains, param_num_tracer ) CHARACTER*256, TARGET :: tracer_units_table( max_domains, param_num_tracer ) INTEGER, TARGET :: nba_mij_index_table( param_num_nba_mij, max_domains ) INTEGER, TARGET :: nba_mij_num_table( max_domains ) TYPE(streamrec), TARGET :: nba_mij_streams_table( max_domains, param_num_nba_mij ) LOGICAL, TARGET :: nba_mij_boundary_table( max_domains, param_num_nba_mij ) CHARACTER*256, TARGET :: nba_mij_dname_table( max_domains, param_num_nba_mij ) CHARACTER*256, TARGET :: nba_mij_desc_table( max_domains, param_num_nba_mij ) CHARACTER*256, TARGET :: nba_mij_units_table( max_domains, param_num_nba_mij ) INTEGER, TARGET :: nba_rij_index_table( param_num_nba_rij, max_domains ) INTEGER, TARGET :: nba_rij_num_table( max_domains ) TYPE(streamrec), TARGET :: nba_rij_streams_table( max_domains, param_num_nba_rij ) LOGICAL, TARGET :: nba_rij_boundary_table( max_domains, param_num_nba_rij ) CHARACTER*256, TARGET :: nba_rij_dname_table( max_domains, param_num_nba_rij ) CHARACTER*256, TARGET :: nba_rij_desc_table( max_domains, param_num_nba_rij ) CHARACTER*256, TARGET :: nba_rij_units_table( max_domains, param_num_nba_rij ) INTEGER, TARGET :: irr_diag_mozcart_index_table( param_num_irr_diag_mozcart, max_domains ) INTEGER, TARGET :: irr_diag_mozcart_num_table( max_domains ) TYPE(streamrec), TARGET :: irr_diag_mozcart_streams_table( max_domains, param_num_irr_diag_mozcart ) LOGICAL, TARGET :: irr_diag_mozcart_boundary_table( max_domains, param_num_irr_diag_mozcart ) CHARACTER*256, TARGET :: irr_diag_mozcart_dname_table( max_domains, param_num_irr_diag_mozcart ) CHARACTER*256, TARGET :: irr_diag_mozcart_desc_table( max_domains, param_num_irr_diag_mozcart ) CHARACTER*256, TARGET :: irr_diag_mozcart_units_table( max_domains, param_num_irr_diag_mozcart ) INTEGER, TARGET :: irr_diag_mozart_mosaic_4bin_index_table( param_num_irr_diag_mozart_mosaic_4bin, max_domains ) INTEGER, TARGET :: irr_diag_mozart_mosaic_4bin_num_table( max_domains ) TYPE(streamrec), TARGET :: irr_diag_mozart_mosaic_4bin_streams_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin ) LOGICAL, TARGET :: irr_diag_mozart_mosaic_4bin_boundary_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin ) CHARACTER*256, TARGET :: irr_diag_mozart_mosaic_4bin_dname_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin ) CHARACTER*256, TARGET :: irr_diag_mozart_mosaic_4bin_desc_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin ) CHARACTER*256, TARGET :: irr_diag_mozart_mosaic_4bin_units_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin ) INTEGER, TARGET :: irr_diag_mozart_mosaic_4bin_aq_index_table( param_num_irr_diag_mozart_mosaic_4bin_aq, max_domains ) INTEGER, TARGET :: irr_diag_mozart_mosaic_4bin_aq_num_table( max_domains ) TYPE(streamrec), TARGET :: irr_diag_mozart_mosaic_4bin_aq_streams_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin_aq ) LOGICAL, TARGET :: irr_diag_mozart_mosaic_4bin_aq_boundary_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin_aq ) CHARACTER*256, TARGET :: irr_diag_mozart_mosaic_4bin_aq_dname_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin_aq ) CHARACTER*256, TARGET :: irr_diag_mozart_mosaic_4bin_aq_desc_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin_aq ) CHARACTER*256, TARGET :: irr_diag_mozart_mosaic_4bin_aq_units_table( max_domains, param_num_irr_diag_mozart_mosaic_4bin_aq ) CONTAINS SUBROUTINE init_module_scalar_tables INTEGER i , j DO j = 1, max_domains moist_num_table( j ) = 1 dfi_moist_num_table( j ) = 1 scalar_num_table( j ) = 1 dfi_scalar_num_table( j ) = 1 aerod_num_table( j ) = 1 ozmixm_num_table( j ) = 1 aerosolc_num_table( j ) = 1 fdda3d_num_table( j ) = 1 fdda2d_num_table( j ) = 1 advh_t_num_table( j ) = 1 advz_t_num_table( j ) = 1 emis_ant_num_table( j ) = 1 eghg_bio_num_table( j ) = 1 emis_dust_num_table( j ) = 1 emis_seas_num_table( j ) = 1 emis_seas2_num_table( j ) = 1 emis_vol_num_table( j ) = 1 ebu_num_table( j ) = 1 ebu_in_num_table( j ) = 1 emis_aircraft_num_table( j ) = 1 ext_coef_num_table( j ) = 1 bscat_coef_num_table( j ) = 1 asym_par_num_table( j ) = 1 conv_ct_num_table( j ) = 1 chem_ct_num_table( j ) = 1 vmix_ct_num_table( j ) = 1 advh_ct_num_table( j ) = 1 advz_ct_num_table( j ) = 1 dvel_num_table( j ) = 1 vprm_in_num_table( j ) = 1 wet_in_num_table( j ) = 1 chem_num_table( j ) = 1 tracer_num_table( j ) = 1 nba_mij_num_table( j ) = 1 nba_rij_num_table( j ) = 1 irr_diag_mozcart_num_table( j ) = 1 irr_diag_mozart_mosaic_4bin_num_table( j ) = 1 irr_diag_mozart_mosaic_4bin_aq_num_table( j ) = 1 END DO END SUBROUTINE init_module_scalar_tables END MODULE module_scalar_tables MODULE module_configure USE module_driver_constants USE module_state_description USE module_wrf_error TYPE model_config_rec_type SEQUENCE integer :: first_item_in_struct integer :: run_days integer :: run_hours integer :: run_minutes integer :: run_seconds integer , DIMENSION(max_domains) :: start_year integer , DIMENSION(max_domains) :: start_month integer , DIMENSION(max_domains) :: start_day integer , DIMENSION(max_domains) :: start_hour integer , DIMENSION(max_domains) :: start_minute integer , DIMENSION(max_domains) :: start_second integer , DIMENSION(max_domains) :: end_year integer , DIMENSION(max_domains) :: end_month integer , DIMENSION(max_domains) :: end_day integer , DIMENSION(max_domains) :: end_hour integer , DIMENSION(max_domains) :: end_minute integer , DIMENSION(max_domains) :: end_second integer :: interval_seconds logical , DIMENSION(max_domains) :: input_from_file integer , DIMENSION(max_domains) :: fine_input_stream logical , DIMENSION(max_domains) :: input_from_hires character*256 :: rsmas_data_path logical :: all_ic_times integer , DIMENSION(max_domains) :: julyr integer , DIMENSION(max_domains) :: julday real , DIMENSION(max_domains) :: gmt character*256 :: input_inname character*256 :: input_outname character*256 :: bdy_inname character*256 :: bdy_outname character*256 :: rst_inname character*256 :: rst_outname logical :: write_input logical :: write_restart_at_0h logical :: write_hist_at_0h_rst logical :: adjust_output_times logical :: adjust_input_times integer :: diag_print logical :: nocolons logical :: cycling integer :: output_diagnostics integer :: nwp_diagnostics logical :: output_ready_flag logical :: usepio integer :: pioprocs integer :: piostart integer :: piostride integer :: pioshift integer :: dfi_opt integer :: dfi_savehydmeteors integer :: dfi_nfilter logical :: dfi_write_filtered_input logical :: dfi_write_dfi_history integer :: dfi_cutoff_seconds integer :: dfi_time_dim integer :: dfi_fwdstop_year integer :: dfi_fwdstop_month integer :: dfi_fwdstop_day integer :: dfi_fwdstop_hour integer :: dfi_fwdstop_minute integer :: dfi_fwdstop_second integer :: dfi_bckstop_year integer :: dfi_bckstop_month integer :: dfi_bckstop_day integer :: dfi_bckstop_hour integer :: dfi_bckstop_minute integer :: dfi_bckstop_second integer :: time_step integer :: time_step_fract_num integer :: time_step_fract_den integer :: time_step_dfi integer , DIMENSION(max_domains) :: min_time_step integer , DIMENSION(max_domains) :: min_time_step_den integer , DIMENSION(max_domains) :: max_time_step integer , DIMENSION(max_domains) :: max_time_step_den real , DIMENSION(max_domains) :: target_cfl real , DIMENSION(max_domains) :: target_hcfl integer , DIMENSION(max_domains) :: max_step_increase_pct integer , DIMENSION(max_domains) :: starting_time_step integer , DIMENSION(max_domains) :: starting_time_step_den logical :: step_to_output_time integer :: adaptation_domain logical :: use_adaptive_time_step logical :: use_adaptive_time_step_dfi integer :: max_dom integer :: lats_to_mic integer , DIMENSION(max_domains) :: s_we integer , DIMENSION(max_domains) :: e_we integer , DIMENSION(max_domains) :: s_sn integer , DIMENSION(max_domains) :: e_sn integer , DIMENSION(max_domains) :: s_vert integer , DIMENSION(max_domains) :: e_vert integer :: num_metgrid_levels integer :: num_metgrid_soil_levels real :: p_top_requested logical :: interp_theta integer :: interp_type integer :: rebalance integer , DIMENSION(max_domains) :: vert_refine_method integer :: vert_refine_fact integer :: extrap_type integer :: t_extrap_type integer :: hypsometric_opt logical :: lowest_lev_from_sfc logical :: use_levels_below_ground logical :: use_tavg_for_tsk logical :: use_surface integer :: lagrange_order integer :: force_sfc_in_vinterp real :: zap_close_levels real :: maxw_horiz_pres_diff real :: trop_horiz_pres_diff real :: maxw_above_this_level integer :: use_maxw_level integer :: use_trop_level logical :: sfcp_to_sfcp logical :: adjust_heights logical :: smooth_cg_topo integer :: nest_interp_coord integer :: interp_method_type logical :: aggregate_lu logical :: rh2qv_wrt_liquid integer :: rh2qv_method real :: qv_max_p_safe real :: qv_max_flag real :: qv_max_value real :: qv_min_p_safe real :: qv_min_flag real :: qv_min_value integer :: ideal_init_method real , DIMENSION(max_domains) :: dx real , DIMENSION(max_domains) :: dy integer , DIMENSION(max_domains) :: grid_id logical , DIMENSION(max_domains) :: grid_allowed integer , DIMENSION(max_domains) :: parent_id integer , DIMENSION(max_domains) :: i_parent_start integer , DIMENSION(max_domains) :: j_parent_start integer , DIMENSION(max_domains) :: parent_grid_ratio integer , DIMENSION(max_domains) :: parent_time_step_ratio integer :: feedback integer :: smooth_option integer :: blend_width real , DIMENSION(max_domains) :: ztop integer , DIMENSION(max_domains) :: moad_grid_ratio integer , DIMENSION(max_domains) :: moad_time_step_ratio integer , DIMENSION(max_domains) :: shw integer :: tile_sz_x integer :: tile_sz_y integer :: numtiles integer :: numtiles_inc integer :: numtiles_x integer :: numtiles_y integer :: tile_strategy integer :: nproc_x integer :: nproc_y integer :: irand real , DIMENSION(max_domains) :: dt integer :: fft_used integer :: cu_used integer :: shcu_used integer :: cam_used integer :: alloc_qndropsource integer :: num_moves integer :: ts_buf_size integer :: max_ts_locs integer , DIMENSION(max_domains) :: vortex_interval integer , DIMENSION(max_domains) :: max_vortex_speed integer , DIMENSION(max_domains) :: corral_dist integer :: track_level real , DIMENSION(max_domains) :: time_to_move integer , DIMENSION(max_moves) :: move_id integer , DIMENSION(max_moves) :: move_interval integer , DIMENSION(max_moves) :: move_cd_x integer , DIMENSION(max_moves) :: move_cd_y logical , DIMENSION(max_domains) :: swap_x logical , DIMENSION(max_domains) :: swap_y logical , DIMENSION(max_domains) :: cycle_x logical , DIMENSION(max_domains) :: cycle_y logical :: reorder_mesh logical :: perturb_input real , DIMENSION(max_eta) :: eta_levels real :: max_dz integer :: ocean_levels real , DIMENSION(max_ocean) :: ocean_z real , DIMENSION(max_ocean) :: ocean_t real , DIMENSION(max_ocean) :: ocean_s integer :: num_traj integer :: max_ts_level integer :: track_loc_in integer :: num_ext_model_couple_dom logical :: insert_bogus_storm logical :: remove_storm integer :: num_storm real , DIMENSION(max_bogus) :: latc_loc real , DIMENSION(max_bogus) :: lonc_loc real , DIMENSION(max_bogus) :: vmax_meters_per_second real , DIMENSION(max_bogus) :: rmax real , DIMENSION(max_bogus) :: vmax_ratio real :: rankine_lid character*256 :: physics_suite logical :: force_read_thompson logical :: write_thompson_tables integer , DIMENSION(max_domains) :: mp_physics real , DIMENSION(max_domains) :: nssl_cccn real , DIMENSION(max_domains) :: nssl_alphah real , DIMENSION(max_domains) :: nssl_alphahl real , DIMENSION(max_domains) :: nssl_cnoh real , DIMENSION(max_domains) :: nssl_cnohl real , DIMENSION(max_domains) :: nssl_cnor real , DIMENSION(max_domains) :: nssl_cnos real , DIMENSION(max_domains) :: nssl_rho_qh real , DIMENSION(max_domains) :: nssl_rho_qhl real , DIMENSION(max_domains) :: nssl_rho_qs integer , DIMENSION(max_domains) :: nudge_lightning integer , DIMENSION(max_domains) :: nudge_light_times integer , DIMENSION(max_domains) :: nudge_light_timee integer , DIMENSION(max_domains) :: nudge_light_int character*256 :: path_to_files integer :: gsfcgce_hail integer :: gsfcgce_2ice integer , DIMENSION(max_domains) :: progn real :: accum_mode real :: aitken_mode real :: coarse_mode integer :: do_radar_ref integer :: compute_radar_ref integer , DIMENSION(max_domains) :: ra_lw_physics integer , DIMENSION(max_domains) :: ra_sw_physics real , DIMENSION(max_domains) :: radt real , DIMENSION(max_domains) :: naer integer , DIMENSION(max_domains) :: sf_sfclay_physics integer , DIMENSION(max_domains) :: sf_surface_physics integer , DIMENSION(max_domains) :: bl_pbl_physics integer , DIMENSION(max_domains) :: bl_mynn_tkebudget integer :: ysu_topdown_pblmix integer , DIMENSION(max_domains) :: shinhong_tke_diag logical , DIMENSION(max_domains) :: bl_mynn_tkeadvect integer :: bl_mynn_cloudpdf integer :: bl_mynn_mixlength integer , DIMENSION(max_domains) :: bl_mynn_edmf integer , DIMENSION(max_domains) :: bl_mynn_edmf_mom integer , DIMENSION(max_domains) :: bl_mynn_edmf_tke integer , DIMENSION(max_domains) :: bl_mynn_edmf_part integer , DIMENSION(max_domains) :: bl_mynn_cloudmix integer , DIMENSION(max_domains) :: bl_mynn_mixqt integer :: icloud_bl integer , DIMENSION(max_domains) :: mfshconv integer , DIMENSION(max_domains) :: sf_urban_physics real , DIMENSION(max_domains) :: bldt integer , DIMENSION(max_domains) :: cu_physics integer , DIMENSION(max_domains) :: shcu_physics integer , DIMENSION(max_domains) :: cu_diag integer , DIMENSION(max_domains) :: kf_edrates integer :: kfeta_trigger integer :: nsas_dx_factor real , DIMENSION(max_domains) :: cudt real , DIMENSION(max_domains) :: gsmdt integer :: isfflx integer :: ifsnow integer :: icloud integer :: ideal_xland real :: swrad_scat integer :: surface_input_source integer :: num_soil_layers integer :: maxpatch integer :: num_snow_layers integer :: num_snso_layers integer :: num_urban_layers integer :: num_urban_hi integer :: num_months integer :: sf_surface_mosaic integer :: mosaic_cat integer :: mosaic_cat_soil integer :: mosaic_lu integer :: mosaic_soil integer :: maxiens integer :: maxens integer :: maxens2 integer :: maxens3 integer :: ensdim integer :: cugd_avedx integer :: clos_choice integer :: imomentum integer :: ishallow real :: convtrans_avglen_m integer :: num_land_cat integer :: num_soil_cat integer :: mp_zero_out real :: mp_zero_out_thresh real :: seaice_threshold integer :: sst_update integer :: sst_skin integer :: tmn_update logical :: usemonalb logical :: rdmaxalb logical :: rdlai2d logical :: ua_phys integer :: opt_thcnd integer :: co2tf integer :: ra_call_offset real :: cam_abs_freq_s integer :: levsiz integer :: paerlev integer :: cam_abs_dim1 integer :: cam_abs_dim2 integer :: lagday integer :: no_src_types integer :: alevsiz integer :: o3input integer :: aer_opt integer :: swint_opt integer , DIMENSION(max_domains) :: aer_type integer , DIMENSION(max_domains) :: aer_aod550_opt integer , DIMENSION(max_domains) :: aer_angexp_opt integer , DIMENSION(max_domains) :: aer_ssa_opt integer , DIMENSION(max_domains) :: aer_asy_opt real , DIMENSION(max_domains) :: aer_aod550_val real , DIMENSION(max_domains) :: aer_angexp_val real , DIMENSION(max_domains) :: aer_ssa_val real , DIMENSION(max_domains) :: aer_asy_val logical , DIMENSION(max_domains) :: cu_rad_feedback logical , DIMENSION(max_domains) :: shallowcu_forced_ra integer , DIMENSION(max_domains) :: numbins real , DIMENSION(max_domains) :: thbinsize real , DIMENSION(max_domains) :: rbinsize real , DIMENSION(max_domains) :: mindeepfreq real , DIMENSION(max_domains) :: minshallowfreq integer , DIMENSION(max_domains) :: shcu_aerosols_opt integer , DIMENSION(max_domains) :: icloud_cu integer , DIMENSION(max_domains) :: pxlsm_smois_init integer :: omlcall integer :: sf_ocean_physics integer :: traj_opt logical , DIMENSION(max_domains) :: dm_has_traj integer :: tracercall real :: omdt real :: oml_hml0 real :: oml_gamma real :: oml_relaxation_time integer :: isftcflx integer :: iz0tlnd real :: shadlen integer , DIMENSION(max_domains) :: slope_rad integer , DIMENSION(max_domains) :: topo_shading integer , DIMENSION(max_domains) :: topo_wind integer :: no_mp_heating integer :: fractional_seaice integer :: seaice_snowdepth_opt real :: seaice_snowdepth_max real :: seaice_snowdepth_min integer :: seaice_albedo_opt real :: seaice_albedo_default integer :: seaice_thickness_opt real :: seaice_thickness_default logical :: tice2tsk_if2cold real :: bucket_mm real :: bucket_j real :: mp_tend_lim real , DIMENSION(max_domains) :: prec_acc_dt integer :: prec_acc_opt integer :: bucketr_opt integer :: bucketf_opt integer :: process_time_series integer , DIMENSION(max_domains) :: grav_settling real , DIMENSION(max_domains) :: sas_pgcon integer , DIMENSION(max_domains) :: scalar_pblmix integer , DIMENSION(max_domains) :: tracer_pblmix logical :: use_aero_icbc logical :: use_rap_aero_icbc integer :: use_mp_re real :: ccn_conc integer :: hail_opt integer :: dveg integer :: opt_crs integer :: opt_btr integer :: opt_run integer :: opt_sfc integer :: opt_frz integer :: opt_inf integer :: opt_rad integer :: opt_alb integer :: opt_snf integer :: opt_tbot integer :: opt_stc integer :: opt_gla integer :: opt_rsf real , DIMENSION(max_domains) :: wtddt integer :: wrf_hydro real , DIMENSION(max_domains) :: fgdt integer , DIMENSION(max_domains) :: fgdtzero integer , DIMENSION(max_domains) :: grid_fdda integer , DIMENSION(max_domains) :: grid_sfdda integer , DIMENSION(max_domains) :: if_no_pbl_nudging_uv integer , DIMENSION(max_domains) :: if_no_pbl_nudging_t integer , DIMENSION(max_domains) :: if_no_pbl_nudging_ph integer , DIMENSION(max_domains) :: if_no_pbl_nudging_q integer , DIMENSION(max_domains) :: if_zfac_uv integer , DIMENSION(max_domains) :: k_zfac_uv integer , DIMENSION(max_domains) :: if_zfac_t integer , DIMENSION(max_domains) :: k_zfac_t integer , DIMENSION(max_domains) :: if_zfac_ph integer , DIMENSION(max_domains) :: k_zfac_ph integer , DIMENSION(max_domains) :: if_zfac_q integer , DIMENSION(max_domains) :: k_zfac_q integer , DIMENSION(max_domains) :: dk_zfac_uv integer , DIMENSION(max_domains) :: dk_zfac_t integer , DIMENSION(max_domains) :: dk_zfac_ph real , DIMENSION(max_domains) :: guv real , DIMENSION(max_domains) :: guv_sfc real , DIMENSION(max_domains) :: gt real , DIMENSION(max_domains) :: gt_sfc real , DIMENSION(max_domains) :: gq real , DIMENSION(max_domains) :: gq_sfc real , DIMENSION(max_domains) :: gph real :: dtramp_min integer :: if_ramping real , DIMENSION(max_domains) :: rinblw integer , DIMENSION(max_domains) :: xwavenum integer , DIMENSION(max_domains) :: ywavenum integer , DIMENSION(max_domains) :: pxlsm_soil_nudge integer , DIMENSION(max_domains) :: fasdas integer , DIMENSION(max_domains) :: obs_nudge_opt integer :: max_obs real , DIMENSION(max_domains) :: fdda_start real , DIMENSION(max_domains) :: fdda_end integer , DIMENSION(max_domains) :: obs_nudge_wind real , DIMENSION(max_domains) :: obs_coef_wind integer , DIMENSION(max_domains) :: obs_nudge_temp real , DIMENSION(max_domains) :: obs_coef_temp integer , DIMENSION(max_domains) :: obs_nudge_mois real , DIMENSION(max_domains) :: obs_coef_mois integer , DIMENSION(max_domains) :: obs_nudge_pstr real , DIMENSION(max_domains) :: obs_coef_pstr integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_uv integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_t integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_q integer :: obs_sfc_scheme_horiz integer :: obs_sfc_scheme_vert real :: obs_max_sndng_gap real :: obs_nudgezfullr1_uv real :: obs_nudgezrampr1_uv real :: obs_nudgezfullr2_uv real :: obs_nudgezrampr2_uv real :: obs_nudgezfullr4_uv real :: obs_nudgezrampr4_uv real :: obs_nudgezfullr1_t real :: obs_nudgezrampr1_t real :: obs_nudgezfullr2_t real :: obs_nudgezrampr2_t real :: obs_nudgezfullr4_t real :: obs_nudgezrampr4_t real :: obs_nudgezfullr1_q real :: obs_nudgezrampr1_q real :: obs_nudgezfullr2_q real :: obs_nudgezrampr2_q real :: obs_nudgezfullr4_q real :: obs_nudgezrampr4_q real :: obs_nudgezfullmin real :: obs_nudgezrampmin real :: obs_nudgezmax real :: obs_sfcfact real :: obs_sfcfacr real :: obs_dpsmx real , DIMENSION(max_domains) :: obs_rinxy real :: obs_rinsig real , DIMENSION(max_domains) :: obs_twindo integer :: obs_npfi integer , DIMENSION(max_domains) :: obs_ionf integer :: obs_idynin real :: obs_dtramp integer :: obs_prt_max integer , DIMENSION(max_domains) :: obs_prt_freq logical :: obs_ipf_in4dob logical :: obs_ipf_errob logical :: obs_ipf_nudob logical :: obs_ipf_init integer :: obs_scl_neg_qv_innov integer :: scm_force real :: scm_force_dx integer :: num_force_layers integer :: scm_lu_index integer :: scm_isltyp real :: scm_vegfra real :: scm_canwat real :: scm_lat real :: scm_lon logical :: scm_th_t_tend logical :: scm_qv_t_tend logical :: scm_th_adv logical :: scm_wind_adv logical :: scm_qv_adv logical :: scm_ql_adv logical :: scm_vert_adv integer :: num_force_soil_layers logical :: scm_soilt_force logical :: scm_soilq_force logical :: scm_force_th_largescale logical :: scm_force_qv_largescale logical :: scm_force_ql_largescale logical :: scm_force_wind_largescale integer :: scm_force_skintemp integer :: scm_force_flux integer :: dyn_opt integer :: rk_ord integer :: w_damping integer , DIMENSION(max_domains) :: diff_opt integer , DIMENSION(max_domains) :: diff_opt_dfi integer , DIMENSION(max_domains) :: km_opt integer , DIMENSION(max_domains) :: km_opt_dfi integer :: damp_opt integer :: rad_nudge integer :: gwd_opt real , DIMENSION(max_domains) :: zdamp real , DIMENSION(max_domains) :: dampcoef real , DIMENSION(max_domains) :: khdif real , DIMENSION(max_domains) :: kvdif real , DIMENSION(max_domains) :: diff_6th_factor integer , DIMENSION(max_domains) :: diff_6th_opt integer :: use_theta_m integer :: use_q_diabatic real , DIMENSION(max_domains) :: c_s real , DIMENSION(max_domains) :: c_k real , DIMENSION(max_domains) :: smdiv real , DIMENSION(max_domains) :: emdiv real , DIMENSION(max_domains) :: epssm logical , DIMENSION(max_domains) :: non_hydrostatic logical :: use_input_w integer , DIMENSION(max_domains) :: time_step_sound integer , DIMENSION(max_domains) :: h_mom_adv_order integer , DIMENSION(max_domains) :: v_mom_adv_order integer , DIMENSION(max_domains) :: h_sca_adv_order integer , DIMENSION(max_domains) :: v_sca_adv_order integer , DIMENSION(max_domains) :: momentum_adv_opt integer , DIMENSION(max_domains) :: moist_adv_opt integer , DIMENSION(max_domains) :: moist_adv_dfi_opt integer , DIMENSION(max_domains) :: chem_adv_opt integer , DIMENSION(max_domains) :: tracer_adv_opt integer , DIMENSION(max_domains) :: scalar_adv_opt integer , DIMENSION(max_domains) :: tke_adv_opt logical , DIMENSION(max_domains) :: top_radiation integer , DIMENSION(max_domains) :: mix_isotropic real , DIMENSION(max_domains) :: mix_upper_bound logical , DIMENSION(max_domains) :: top_lid real , DIMENSION(max_domains) :: tke_upper_bound real , DIMENSION(max_domains) :: tke_drag_coefficient real , DIMENSION(max_domains) :: tke_heat_flux logical , DIMENSION(max_domains) :: pert_coriolis logical , DIMENSION(max_domains) :: coriolis2d logical , DIMENSION(max_domains) :: mix_full_fields real :: base_pres real :: base_temp real :: base_lapse real :: iso_temp real :: base_pres_strat real :: base_lapse_strat logical :: use_baseparam_fr_nml real :: fft_filter_lat logical :: coupled_filtering logical :: pos_def logical :: swap_pole_with_next_j logical :: actual_distance_average logical :: rotated_pole logical , DIMENSION(max_domains) :: do_coriolis logical , DIMENSION(max_domains) :: do_curvature logical , DIMENSION(max_domains) :: do_gradp integer , DIMENSION(max_domains) :: tracer_opt integer , DIMENSION(max_domains) :: tenddiag integer :: spec_bdy_width integer :: spec_zone integer :: relax_zone logical , DIMENSION(max_domains) :: specified logical :: constant_bc logical , DIMENSION(max_domains) :: periodic_x logical , DIMENSION(max_domains) :: symmetric_xs logical , DIMENSION(max_domains) :: symmetric_xe logical , DIMENSION(max_domains) :: open_xs logical , DIMENSION(max_domains) :: open_xe logical , DIMENSION(max_domains) :: periodic_y logical , DIMENSION(max_domains) :: symmetric_ys logical , DIMENSION(max_domains) :: symmetric_ye logical , DIMENSION(max_domains) :: open_ys logical , DIMENSION(max_domains) :: open_ye logical , DIMENSION(max_domains) :: polar logical , DIMENSION(max_domains) :: nested real :: spec_exp integer :: spec_bdy_final_mu integer :: real_data_init_type logical , DIMENSION(max_domains) :: have_bcs_moist logical , DIMENSION(max_domains) :: have_bcs_scalar integer :: background_proc_id integer :: forecast_proc_id integer :: production_status integer :: compression integer :: nobs_ndg_vars integer :: nobs_err_flds real , DIMENSION(max_domains) :: cen_lat real , DIMENSION(max_domains) :: cen_lon real , DIMENSION(max_domains) :: truelat1 real , DIMENSION(max_domains) :: truelat2 real , DIMENSION(max_domains) :: moad_cen_lat real , DIMENSION(max_domains) :: stand_lon real , DIMENSION(max_domains) :: pole_lat real , DIMENSION(max_domains) :: pole_lon integer :: flag_metgrid integer :: flag_snow integer :: flag_psfc integer :: flag_sm000010 integer :: flag_sm010040 integer :: flag_sm040100 integer :: flag_sm100200 integer :: flag_st000010 integer :: flag_st010040 integer :: flag_st040100 integer :: flag_st100200 integer :: flag_soil_layers integer :: flag_slp integer :: flag_soilhgt integer :: flag_mf_xy integer :: flag_um_soil real , DIMENSION(max_domains) :: bdyfrq character*256 , DIMENSION(max_domains) :: mminlu integer , DIMENSION(max_domains) :: iswater integer , DIMENSION(max_domains) :: islake integer , DIMENSION(max_domains) :: isice integer , DIMENSION(max_domains) :: isurban integer , DIMENSION(max_domains) :: isoilwater integer , DIMENSION(max_domains) :: map_proj integer :: use_wps_input integer , DIMENSION(max_domains) :: dfi_stage integer , DIMENSION(max_domains) :: mp_physics_dfi integer , DIMENSION(max_domains) :: bl_pbl_physics_dfi integer , DIMENSION(max_domains) :: windfarm_opt integer :: windfarm_ij integer , DIMENSION(max_domains) :: hailcast_opt integer , DIMENSION(max_domains) :: lightning_option real , DIMENSION(max_domains) :: lightning_dt real , DIMENSION(max_domains) :: lightning_start_seconds real , DIMENSION(max_domains) :: flashrate_factor integer , DIMENSION(max_domains) :: iccg_method real , DIMENSION(max_domains) :: iccg_prescribed_num real , DIMENSION(max_domains) :: iccg_prescribed_den integer , DIMENSION(max_domains) :: cellcount_method real , DIMENSION(max_domains) :: cldtop_adjustment integer , DIMENSION(max_domains) :: sf_lake_physics character*256 :: auxinput1_inname integer :: io_form_auxinput1 logical :: override_restart_timers character*256 :: auxhist1_inname character*256 :: auxhist1_outname integer , DIMENSION(max_domains) :: auxhist1_interval_y integer , DIMENSION(max_domains) :: auxhist1_interval_d integer , DIMENSION(max_domains) :: auxhist1_interval_h integer , DIMENSION(max_domains) :: auxhist1_interval_m integer , DIMENSION(max_domains) :: auxhist1_interval_s integer , DIMENSION(max_domains) :: auxhist1_interval integer , DIMENSION(max_domains) :: auxhist1_begin_y integer , DIMENSION(max_domains) :: auxhist1_begin_d integer , DIMENSION(max_domains) :: auxhist1_begin_h integer , DIMENSION(max_domains) :: auxhist1_begin_m integer , DIMENSION(max_domains) :: auxhist1_begin_s integer , DIMENSION(max_domains) :: auxhist1_begin integer , DIMENSION(max_domains) :: auxhist1_end_y integer , DIMENSION(max_domains) :: auxhist1_end_d integer , DIMENSION(max_domains) :: auxhist1_end_h integer , DIMENSION(max_domains) :: auxhist1_end_m integer , DIMENSION(max_domains) :: auxhist1_end_s integer , DIMENSION(max_domains) :: auxhist1_end integer :: io_form_auxhist1 integer , DIMENSION(max_domains) :: frames_per_auxhist1 character*256 :: auxhist2_inname character*256 :: auxhist2_outname integer , DIMENSION(max_domains) :: auxhist2_interval_y integer , DIMENSION(max_domains) :: auxhist2_interval_d integer , DIMENSION(max_domains) :: auxhist2_interval_h integer , DIMENSION(max_domains) :: auxhist2_interval_m integer , DIMENSION(max_domains) :: auxhist2_interval_s integer , DIMENSION(max_domains) :: auxhist2_interval integer , DIMENSION(max_domains) :: auxhist2_begin_y integer , DIMENSION(max_domains) :: auxhist2_begin_d integer , DIMENSION(max_domains) :: auxhist2_begin_h integer , DIMENSION(max_domains) :: auxhist2_begin_m integer , DIMENSION(max_domains) :: auxhist2_begin_s integer , DIMENSION(max_domains) :: auxhist2_begin integer , DIMENSION(max_domains) :: auxhist2_end_y integer , DIMENSION(max_domains) :: auxhist2_end_d integer , DIMENSION(max_domains) :: auxhist2_end_h integer , DIMENSION(max_domains) :: auxhist2_end_m integer , DIMENSION(max_domains) :: auxhist2_end_s integer , DIMENSION(max_domains) :: auxhist2_end integer :: io_form_auxhist2 integer , DIMENSION(max_domains) :: frames_per_auxhist2 character*256 :: auxhist3_inname character*256 :: auxhist3_outname integer , DIMENSION(max_domains) :: auxhist3_interval_y integer , DIMENSION(max_domains) :: auxhist3_interval_d integer , DIMENSION(max_domains) :: auxhist3_interval_h integer , DIMENSION(max_domains) :: auxhist3_interval_m integer , DIMENSION(max_domains) :: auxhist3_interval_s integer , DIMENSION(max_domains) :: auxhist3_interval integer , DIMENSION(max_domains) :: auxhist3_begin_y integer , DIMENSION(max_domains) :: auxhist3_begin_d integer , DIMENSION(max_domains) :: auxhist3_begin_h integer , DIMENSION(max_domains) :: auxhist3_begin_m integer , DIMENSION(max_domains) :: auxhist3_begin_s integer , DIMENSION(max_domains) :: auxhist3_begin integer , DIMENSION(max_domains) :: auxhist3_end_y integer , DIMENSION(max_domains) :: auxhist3_end_d integer , DIMENSION(max_domains) :: auxhist3_end_h integer , DIMENSION(max_domains) :: auxhist3_end_m integer , DIMENSION(max_domains) :: auxhist3_end_s integer , DIMENSION(max_domains) :: auxhist3_end integer :: io_form_auxhist3 integer , DIMENSION(max_domains) :: frames_per_auxhist3 character*256 :: auxhist4_inname character*256 :: auxhist4_outname integer , DIMENSION(max_domains) :: auxhist4_interval_y integer , DIMENSION(max_domains) :: auxhist4_interval_d integer , DIMENSION(max_domains) :: auxhist4_interval_h integer , DIMENSION(max_domains) :: auxhist4_interval_m integer , DIMENSION(max_domains) :: auxhist4_interval_s integer , DIMENSION(max_domains) :: auxhist4_interval integer , DIMENSION(max_domains) :: auxhist4_begin_y integer , DIMENSION(max_domains) :: auxhist4_begin_d integer , DIMENSION(max_domains) :: auxhist4_begin_h integer , DIMENSION(max_domains) :: auxhist4_begin_m integer , DIMENSION(max_domains) :: auxhist4_begin_s integer , DIMENSION(max_domains) :: auxhist4_begin integer , DIMENSION(max_domains) :: auxhist4_end_y integer , DIMENSION(max_domains) :: auxhist4_end_d integer , DIMENSION(max_domains) :: auxhist4_end_h integer , DIMENSION(max_domains) :: auxhist4_end_m integer , DIMENSION(max_domains) :: auxhist4_end_s integer , DIMENSION(max_domains) :: auxhist4_end integer :: io_form_auxhist4 integer , DIMENSION(max_domains) :: frames_per_auxhist4 character*256 :: auxhist5_inname character*256 :: auxhist5_outname integer , DIMENSION(max_domains) :: auxhist5_interval_y integer , DIMENSION(max_domains) :: auxhist5_interval_d integer , DIMENSION(max_domains) :: auxhist5_interval_h integer , DIMENSION(max_domains) :: auxhist5_interval_m integer , DIMENSION(max_domains) :: auxhist5_interval_s integer , DIMENSION(max_domains) :: auxhist5_interval integer , DIMENSION(max_domains) :: auxhist5_begin_y integer , DIMENSION(max_domains) :: auxhist5_begin_d integer , DIMENSION(max_domains) :: auxhist5_begin_h integer , DIMENSION(max_domains) :: auxhist5_begin_m integer , DIMENSION(max_domains) :: auxhist5_begin_s integer , DIMENSION(max_domains) :: auxhist5_begin integer , DIMENSION(max_domains) :: auxhist5_end_y integer , DIMENSION(max_domains) :: auxhist5_end_d integer , DIMENSION(max_domains) :: auxhist5_end_h integer , DIMENSION(max_domains) :: auxhist5_end_m integer , DIMENSION(max_domains) :: auxhist5_end_s integer , DIMENSION(max_domains) :: auxhist5_end integer :: io_form_auxhist5 integer , DIMENSION(max_domains) :: frames_per_auxhist5 character*256 :: auxhist6_inname character*256 :: auxhist6_outname integer , DIMENSION(max_domains) :: auxhist6_interval_y integer , DIMENSION(max_domains) :: auxhist6_interval_d integer , DIMENSION(max_domains) :: auxhist6_interval_h integer , DIMENSION(max_domains) :: auxhist6_interval_m integer , DIMENSION(max_domains) :: auxhist6_interval_s integer , DIMENSION(max_domains) :: auxhist6_interval integer , DIMENSION(max_domains) :: auxhist6_begin_y integer , DIMENSION(max_domains) :: auxhist6_begin_d integer , DIMENSION(max_domains) :: auxhist6_begin_h integer , DIMENSION(max_domains) :: auxhist6_begin_m integer , DIMENSION(max_domains) :: auxhist6_begin_s integer , DIMENSION(max_domains) :: auxhist6_begin integer , DIMENSION(max_domains) :: auxhist6_end_y integer , DIMENSION(max_domains) :: auxhist6_end_d integer , DIMENSION(max_domains) :: auxhist6_end_h integer , DIMENSION(max_domains) :: auxhist6_end_m integer , DIMENSION(max_domains) :: auxhist6_end_s integer , DIMENSION(max_domains) :: auxhist6_end integer :: io_form_auxhist6 integer , DIMENSION(max_domains) :: frames_per_auxhist6 character*256 :: auxhist7_inname character*256 :: auxhist7_outname integer , DIMENSION(max_domains) :: auxhist7_interval_y integer , DIMENSION(max_domains) :: auxhist7_interval_d integer , DIMENSION(max_domains) :: auxhist7_interval_h integer , DIMENSION(max_domains) :: auxhist7_interval_m integer , DIMENSION(max_domains) :: auxhist7_interval_s integer , DIMENSION(max_domains) :: auxhist7_interval integer , DIMENSION(max_domains) :: auxhist7_begin_y integer , DIMENSION(max_domains) :: auxhist7_begin_d integer , DIMENSION(max_domains) :: auxhist7_begin_h integer , DIMENSION(max_domains) :: auxhist7_begin_m integer , DIMENSION(max_domains) :: auxhist7_begin_s integer , DIMENSION(max_domains) :: auxhist7_begin integer , DIMENSION(max_domains) :: auxhist7_end_y integer , DIMENSION(max_domains) :: auxhist7_end_d integer , DIMENSION(max_domains) :: auxhist7_end_h integer , DIMENSION(max_domains) :: auxhist7_end_m integer , DIMENSION(max_domains) :: auxhist7_end_s integer , DIMENSION(max_domains) :: auxhist7_end integer :: io_form_auxhist7 integer , DIMENSION(max_domains) :: frames_per_auxhist7 character*256 :: auxhist8_inname character*256 :: auxhist8_outname integer , DIMENSION(max_domains) :: auxhist8_interval_y integer , DIMENSION(max_domains) :: auxhist8_interval_d integer , DIMENSION(max_domains) :: auxhist8_interval_h integer , DIMENSION(max_domains) :: auxhist8_interval_m integer , DIMENSION(max_domains) :: auxhist8_interval_s integer , DIMENSION(max_domains) :: auxhist8_interval integer , DIMENSION(max_domains) :: auxhist8_begin_y integer , DIMENSION(max_domains) :: auxhist8_begin_d integer , DIMENSION(max_domains) :: auxhist8_begin_h integer , DIMENSION(max_domains) :: auxhist8_begin_m integer , DIMENSION(max_domains) :: auxhist8_begin_s integer , DIMENSION(max_domains) :: auxhist8_begin integer , DIMENSION(max_domains) :: auxhist8_end_y integer , DIMENSION(max_domains) :: auxhist8_end_d integer , DIMENSION(max_domains) :: auxhist8_end_h integer , DIMENSION(max_domains) :: auxhist8_end_m integer , DIMENSION(max_domains) :: auxhist8_end_s integer , DIMENSION(max_domains) :: auxhist8_end integer :: io_form_auxhist8 integer , DIMENSION(max_domains) :: frames_per_auxhist8 character*256 :: auxhist9_inname character*256 :: auxhist9_outname integer , DIMENSION(max_domains) :: auxhist9_interval_y integer , DIMENSION(max_domains) :: auxhist9_interval_d integer , DIMENSION(max_domains) :: auxhist9_interval_h integer , DIMENSION(max_domains) :: auxhist9_interval_m integer , DIMENSION(max_domains) :: auxhist9_interval_s integer , DIMENSION(max_domains) :: auxhist9_interval integer , DIMENSION(max_domains) :: auxhist9_begin_y integer , DIMENSION(max_domains) :: auxhist9_begin_d integer , DIMENSION(max_domains) :: auxhist9_begin_h integer , DIMENSION(max_domains) :: auxhist9_begin_m integer , DIMENSION(max_domains) :: auxhist9_begin_s integer , DIMENSION(max_domains) :: auxhist9_begin integer , DIMENSION(max_domains) :: auxhist9_end_y integer , DIMENSION(max_domains) :: auxhist9_end_d integer , DIMENSION(max_domains) :: auxhist9_end_h integer , DIMENSION(max_domains) :: auxhist9_end_m integer , DIMENSION(max_domains) :: auxhist9_end_s integer , DIMENSION(max_domains) :: auxhist9_end integer :: io_form_auxhist9 integer , DIMENSION(max_domains) :: frames_per_auxhist9 character*256 :: auxhist10_inname character*256 :: auxhist10_outname integer , DIMENSION(max_domains) :: auxhist10_interval_y integer , DIMENSION(max_domains) :: auxhist10_interval_d integer , DIMENSION(max_domains) :: auxhist10_interval_h integer , DIMENSION(max_domains) :: auxhist10_interval_m integer , DIMENSION(max_domains) :: auxhist10_interval_s integer , DIMENSION(max_domains) :: auxhist10_interval integer , DIMENSION(max_domains) :: auxhist10_begin_y integer , DIMENSION(max_domains) :: auxhist10_begin_d integer , DIMENSION(max_domains) :: auxhist10_begin_h integer , DIMENSION(max_domains) :: auxhist10_begin_m integer , DIMENSION(max_domains) :: auxhist10_begin_s integer , DIMENSION(max_domains) :: auxhist10_begin integer , DIMENSION(max_domains) :: auxhist10_end_y integer , DIMENSION(max_domains) :: auxhist10_end_d integer , DIMENSION(max_domains) :: auxhist10_end_h integer , DIMENSION(max_domains) :: auxhist10_end_m integer , DIMENSION(max_domains) :: auxhist10_end_s integer , DIMENSION(max_domains) :: auxhist10_end integer :: io_form_auxhist10 integer , DIMENSION(max_domains) :: frames_per_auxhist10 character*256 :: auxhist11_inname character*256 :: auxhist11_outname integer , DIMENSION(max_domains) :: auxhist11_interval_y integer , DIMENSION(max_domains) :: auxhist11_interval_d integer , DIMENSION(max_domains) :: auxhist11_interval_h integer , DIMENSION(max_domains) :: auxhist11_interval_m integer , DIMENSION(max_domains) :: auxhist11_interval_s integer , DIMENSION(max_domains) :: auxhist11_interval integer , DIMENSION(max_domains) :: auxhist11_begin_y integer , DIMENSION(max_domains) :: auxhist11_begin_d integer , DIMENSION(max_domains) :: auxhist11_begin_h integer , DIMENSION(max_domains) :: auxhist11_begin_m integer , DIMENSION(max_domains) :: auxhist11_begin_s integer , DIMENSION(max_domains) :: auxhist11_begin integer , DIMENSION(max_domains) :: auxhist11_end_y integer , DIMENSION(max_domains) :: auxhist11_end_d integer , DIMENSION(max_domains) :: auxhist11_end_h integer , DIMENSION(max_domains) :: auxhist11_end_m integer , DIMENSION(max_domains) :: auxhist11_end_s integer , DIMENSION(max_domains) :: auxhist11_end integer :: io_form_auxhist11 integer , DIMENSION(max_domains) :: frames_per_auxhist11 character*256 :: auxhist12_inname character*256 :: auxhist12_outname integer , DIMENSION(max_domains) :: auxhist12_interval_y integer , DIMENSION(max_domains) :: auxhist12_interval_d integer , DIMENSION(max_domains) :: auxhist12_interval_h integer , DIMENSION(max_domains) :: auxhist12_interval_m integer , DIMENSION(max_domains) :: auxhist12_interval_s integer , DIMENSION(max_domains) :: auxhist12_interval integer , DIMENSION(max_domains) :: auxhist12_begin_y integer , DIMENSION(max_domains) :: auxhist12_begin_d integer , DIMENSION(max_domains) :: auxhist12_begin_h integer , DIMENSION(max_domains) :: auxhist12_begin_m integer , DIMENSION(max_domains) :: auxhist12_begin_s integer , DIMENSION(max_domains) :: auxhist12_begin integer , DIMENSION(max_domains) :: auxhist12_end_y integer , DIMENSION(max_domains) :: auxhist12_end_d integer , DIMENSION(max_domains) :: auxhist12_end_h integer , DIMENSION(max_domains) :: auxhist12_end_m integer , DIMENSION(max_domains) :: auxhist12_end_s integer , DIMENSION(max_domains) :: auxhist12_end integer :: io_form_auxhist12 integer , DIMENSION(max_domains) :: frames_per_auxhist12 character*256 :: auxhist13_inname character*256 :: auxhist13_outname integer , DIMENSION(max_domains) :: auxhist13_interval_y integer , DIMENSION(max_domains) :: auxhist13_interval_d integer , DIMENSION(max_domains) :: auxhist13_interval_h integer , DIMENSION(max_domains) :: auxhist13_interval_m integer , DIMENSION(max_domains) :: auxhist13_interval_s integer , DIMENSION(max_domains) :: auxhist13_interval integer , DIMENSION(max_domains) :: auxhist13_begin_y integer , DIMENSION(max_domains) :: auxhist13_begin_d integer , DIMENSION(max_domains) :: auxhist13_begin_h integer , DIMENSION(max_domains) :: auxhist13_begin_m integer , DIMENSION(max_domains) :: auxhist13_begin_s integer , DIMENSION(max_domains) :: auxhist13_begin integer , DIMENSION(max_domains) :: auxhist13_end_y integer , DIMENSION(max_domains) :: auxhist13_end_d integer , DIMENSION(max_domains) :: auxhist13_end_h integer , DIMENSION(max_domains) :: auxhist13_end_m integer , DIMENSION(max_domains) :: auxhist13_end_s integer , DIMENSION(max_domains) :: auxhist13_end integer :: io_form_auxhist13 integer , DIMENSION(max_domains) :: frames_per_auxhist13 character*256 :: auxhist14_inname character*256 :: auxhist14_outname integer , DIMENSION(max_domains) :: auxhist14_interval_y integer , DIMENSION(max_domains) :: auxhist14_interval_d integer , DIMENSION(max_domains) :: auxhist14_interval_h integer , DIMENSION(max_domains) :: auxhist14_interval_m integer , DIMENSION(max_domains) :: auxhist14_interval_s integer , DIMENSION(max_domains) :: auxhist14_interval integer , DIMENSION(max_domains) :: auxhist14_begin_y integer , DIMENSION(max_domains) :: auxhist14_begin_d integer , DIMENSION(max_domains) :: auxhist14_begin_h integer , DIMENSION(max_domains) :: auxhist14_begin_m integer , DIMENSION(max_domains) :: auxhist14_begin_s integer , DIMENSION(max_domains) :: auxhist14_begin integer , DIMENSION(max_domains) :: auxhist14_end_y integer , DIMENSION(max_domains) :: auxhist14_end_d integer , DIMENSION(max_domains) :: auxhist14_end_h integer , DIMENSION(max_domains) :: auxhist14_end_m integer , DIMENSION(max_domains) :: auxhist14_end_s integer , DIMENSION(max_domains) :: auxhist14_end integer :: io_form_auxhist14 integer , DIMENSION(max_domains) :: frames_per_auxhist14 character*256 :: auxhist15_inname character*256 :: auxhist15_outname integer , DIMENSION(max_domains) :: auxhist15_interval_y integer , DIMENSION(max_domains) :: auxhist15_interval_d integer , DIMENSION(max_domains) :: auxhist15_interval_h integer , DIMENSION(max_domains) :: auxhist15_interval_m integer , DIMENSION(max_domains) :: auxhist15_interval_s integer , DIMENSION(max_domains) :: auxhist15_interval integer , DIMENSION(max_domains) :: auxhist15_begin_y integer , DIMENSION(max_domains) :: auxhist15_begin_d integer , DIMENSION(max_domains) :: auxhist15_begin_h integer , DIMENSION(max_domains) :: auxhist15_begin_m integer , DIMENSION(max_domains) :: auxhist15_begin_s integer , DIMENSION(max_domains) :: auxhist15_begin integer , DIMENSION(max_domains) :: auxhist15_end_y integer , DIMENSION(max_domains) :: auxhist15_end_d integer , DIMENSION(max_domains) :: auxhist15_end_h integer , DIMENSION(max_domains) :: auxhist15_end_m integer , DIMENSION(max_domains) :: auxhist15_end_s integer , DIMENSION(max_domains) :: auxhist15_end integer :: io_form_auxhist15 integer , DIMENSION(max_domains) :: frames_per_auxhist15 character*256 :: auxhist16_inname character*256 :: auxhist16_outname integer , DIMENSION(max_domains) :: auxhist16_interval_y integer , DIMENSION(max_domains) :: auxhist16_interval_d integer , DIMENSION(max_domains) :: auxhist16_interval_h integer , DIMENSION(max_domains) :: auxhist16_interval_m integer , DIMENSION(max_domains) :: auxhist16_interval_s integer , DIMENSION(max_domains) :: auxhist16_interval integer , DIMENSION(max_domains) :: auxhist16_begin_y integer , DIMENSION(max_domains) :: auxhist16_begin_d integer , DIMENSION(max_domains) :: auxhist16_begin_h integer , DIMENSION(max_domains) :: auxhist16_begin_m integer , DIMENSION(max_domains) :: auxhist16_begin_s integer , DIMENSION(max_domains) :: auxhist16_begin integer , DIMENSION(max_domains) :: auxhist16_end_y integer , DIMENSION(max_domains) :: auxhist16_end_d integer , DIMENSION(max_domains) :: auxhist16_end_h integer , DIMENSION(max_domains) :: auxhist16_end_m integer , DIMENSION(max_domains) :: auxhist16_end_s integer , DIMENSION(max_domains) :: auxhist16_end integer :: io_form_auxhist16 integer , DIMENSION(max_domains) :: frames_per_auxhist16 character*256 :: auxhist17_inname character*256 :: auxhist17_outname integer , DIMENSION(max_domains) :: auxhist17_interval_y integer , DIMENSION(max_domains) :: auxhist17_interval_d integer , DIMENSION(max_domains) :: auxhist17_interval_h integer , DIMENSION(max_domains) :: auxhist17_interval_m integer , DIMENSION(max_domains) :: auxhist17_interval_s integer , DIMENSION(max_domains) :: auxhist17_interval integer , DIMENSION(max_domains) :: auxhist17_begin_y integer , DIMENSION(max_domains) :: auxhist17_begin_d integer , DIMENSION(max_domains) :: auxhist17_begin_h integer , DIMENSION(max_domains) :: auxhist17_begin_m integer , DIMENSION(max_domains) :: auxhist17_begin_s integer , DIMENSION(max_domains) :: auxhist17_begin integer , DIMENSION(max_domains) :: auxhist17_end_y integer , DIMENSION(max_domains) :: auxhist17_end_d integer , DIMENSION(max_domains) :: auxhist17_end_h integer , DIMENSION(max_domains) :: auxhist17_end_m integer , DIMENSION(max_domains) :: auxhist17_end_s integer , DIMENSION(max_domains) :: auxhist17_end integer :: io_form_auxhist17 integer , DIMENSION(max_domains) :: frames_per_auxhist17 character*256 :: auxhist18_inname character*256 :: auxhist18_outname integer , DIMENSION(max_domains) :: auxhist18_interval_y integer , DIMENSION(max_domains) :: auxhist18_interval_d integer , DIMENSION(max_domains) :: auxhist18_interval_h integer , DIMENSION(max_domains) :: auxhist18_interval_m integer , DIMENSION(max_domains) :: auxhist18_interval_s integer , DIMENSION(max_domains) :: auxhist18_interval integer , DIMENSION(max_domains) :: auxhist18_begin_y integer , DIMENSION(max_domains) :: auxhist18_begin_d integer , DIMENSION(max_domains) :: auxhist18_begin_h integer , DIMENSION(max_domains) :: auxhist18_begin_m integer , DIMENSION(max_domains) :: auxhist18_begin_s integer , DIMENSION(max_domains) :: auxhist18_begin integer , DIMENSION(max_domains) :: auxhist18_end_y integer , DIMENSION(max_domains) :: auxhist18_end_d integer , DIMENSION(max_domains) :: auxhist18_end_h integer , DIMENSION(max_domains) :: auxhist18_end_m integer , DIMENSION(max_domains) :: auxhist18_end_s integer , DIMENSION(max_domains) :: auxhist18_end integer :: io_form_auxhist18 integer , DIMENSION(max_domains) :: frames_per_auxhist18 character*256 :: auxhist19_inname character*256 :: auxhist19_outname integer , DIMENSION(max_domains) :: auxhist19_interval_y integer , DIMENSION(max_domains) :: auxhist19_interval_d integer , DIMENSION(max_domains) :: auxhist19_interval_h integer , DIMENSION(max_domains) :: auxhist19_interval_m integer , DIMENSION(max_domains) :: auxhist19_interval_s integer , DIMENSION(max_domains) :: auxhist19_interval integer , DIMENSION(max_domains) :: auxhist19_begin_y integer , DIMENSION(max_domains) :: auxhist19_begin_d integer , DIMENSION(max_domains) :: auxhist19_begin_h integer , DIMENSION(max_domains) :: auxhist19_begin_m integer , DIMENSION(max_domains) :: auxhist19_begin_s integer , DIMENSION(max_domains) :: auxhist19_begin integer , DIMENSION(max_domains) :: auxhist19_end_y integer , DIMENSION(max_domains) :: auxhist19_end_d integer , DIMENSION(max_domains) :: auxhist19_end_h integer , DIMENSION(max_domains) :: auxhist19_end_m integer , DIMENSION(max_domains) :: auxhist19_end_s integer , DIMENSION(max_domains) :: auxhist19_end integer :: io_form_auxhist19 integer , DIMENSION(max_domains) :: frames_per_auxhist19 character*256 :: auxhist20_inname character*256 :: auxhist20_outname integer , DIMENSION(max_domains) :: auxhist20_interval_y integer , DIMENSION(max_domains) :: auxhist20_interval_d integer , DIMENSION(max_domains) :: auxhist20_interval_h integer , DIMENSION(max_domains) :: auxhist20_interval_m integer , DIMENSION(max_domains) :: auxhist20_interval_s integer , DIMENSION(max_domains) :: auxhist20_interval integer , DIMENSION(max_domains) :: auxhist20_begin_y integer , DIMENSION(max_domains) :: auxhist20_begin_d integer , DIMENSION(max_domains) :: auxhist20_begin_h integer , DIMENSION(max_domains) :: auxhist20_begin_m integer , DIMENSION(max_domains) :: auxhist20_begin_s integer , DIMENSION(max_domains) :: auxhist20_begin integer , DIMENSION(max_domains) :: auxhist20_end_y integer , DIMENSION(max_domains) :: auxhist20_end_d integer , DIMENSION(max_domains) :: auxhist20_end_h integer , DIMENSION(max_domains) :: auxhist20_end_m integer , DIMENSION(max_domains) :: auxhist20_end_s integer , DIMENSION(max_domains) :: auxhist20_end integer :: io_form_auxhist20 integer , DIMENSION(max_domains) :: frames_per_auxhist20 character*256 :: auxhist21_inname character*256 :: auxhist21_outname integer , DIMENSION(max_domains) :: auxhist21_interval_y integer , DIMENSION(max_domains) :: auxhist21_interval_d integer , DIMENSION(max_domains) :: auxhist21_interval_h integer , DIMENSION(max_domains) :: auxhist21_interval_m integer , DIMENSION(max_domains) :: auxhist21_interval_s integer , DIMENSION(max_domains) :: auxhist21_interval integer , DIMENSION(max_domains) :: auxhist21_begin_y integer , DIMENSION(max_domains) :: auxhist21_begin_d integer , DIMENSION(max_domains) :: auxhist21_begin_h integer , DIMENSION(max_domains) :: auxhist21_begin_m integer , DIMENSION(max_domains) :: auxhist21_begin_s integer , DIMENSION(max_domains) :: auxhist21_begin integer , DIMENSION(max_domains) :: auxhist21_end_y integer , DIMENSION(max_domains) :: auxhist21_end_d integer , DIMENSION(max_domains) :: auxhist21_end_h integer , DIMENSION(max_domains) :: auxhist21_end_m integer , DIMENSION(max_domains) :: auxhist21_end_s integer , DIMENSION(max_domains) :: auxhist21_end integer :: io_form_auxhist21 integer , DIMENSION(max_domains) :: frames_per_auxhist21 character*256 :: auxhist22_inname character*256 :: auxhist22_outname integer , DIMENSION(max_domains) :: auxhist22_interval_y integer , DIMENSION(max_domains) :: auxhist22_interval_d integer , DIMENSION(max_domains) :: auxhist22_interval_h integer , DIMENSION(max_domains) :: auxhist22_interval_m integer , DIMENSION(max_domains) :: auxhist22_interval_s integer , DIMENSION(max_domains) :: auxhist22_interval integer , DIMENSION(max_domains) :: auxhist22_begin_y integer , DIMENSION(max_domains) :: auxhist22_begin_d integer , DIMENSION(max_domains) :: auxhist22_begin_h integer , DIMENSION(max_domains) :: auxhist22_begin_m integer , DIMENSION(max_domains) :: auxhist22_begin_s integer , DIMENSION(max_domains) :: auxhist22_begin integer , DIMENSION(max_domains) :: auxhist22_end_y integer , DIMENSION(max_domains) :: auxhist22_end_d integer , DIMENSION(max_domains) :: auxhist22_end_h integer , DIMENSION(max_domains) :: auxhist22_end_m integer , DIMENSION(max_domains) :: auxhist22_end_s integer , DIMENSION(max_domains) :: auxhist22_end integer :: io_form_auxhist22 integer , DIMENSION(max_domains) :: frames_per_auxhist22 character*256 :: auxhist23_inname character*256 :: auxhist23_outname integer , DIMENSION(max_domains) :: auxhist23_interval_y integer , DIMENSION(max_domains) :: auxhist23_interval_d integer , DIMENSION(max_domains) :: auxhist23_interval_h integer , DIMENSION(max_domains) :: auxhist23_interval_m integer , DIMENSION(max_domains) :: auxhist23_interval_s integer , DIMENSION(max_domains) :: auxhist23_interval integer , DIMENSION(max_domains) :: auxhist23_begin_y integer , DIMENSION(max_domains) :: auxhist23_begin_d integer , DIMENSION(max_domains) :: auxhist23_begin_h integer , DIMENSION(max_domains) :: auxhist23_begin_m integer , DIMENSION(max_domains) :: auxhist23_begin_s integer , DIMENSION(max_domains) :: auxhist23_begin integer , DIMENSION(max_domains) :: auxhist23_end_y integer , DIMENSION(max_domains) :: auxhist23_end_d integer , DIMENSION(max_domains) :: auxhist23_end_h integer , DIMENSION(max_domains) :: auxhist23_end_m integer , DIMENSION(max_domains) :: auxhist23_end_s integer , DIMENSION(max_domains) :: auxhist23_end integer :: io_form_auxhist23 integer , DIMENSION(max_domains) :: frames_per_auxhist23 character*256 :: auxhist24_inname character*256 :: auxhist24_outname integer , DIMENSION(max_domains) :: auxhist24_interval_y integer , DIMENSION(max_domains) :: auxhist24_interval_d integer , DIMENSION(max_domains) :: auxhist24_interval_h integer , DIMENSION(max_domains) :: auxhist24_interval_m integer , DIMENSION(max_domains) :: auxhist24_interval_s integer , DIMENSION(max_domains) :: auxhist24_interval integer , DIMENSION(max_domains) :: auxhist24_begin_y integer , DIMENSION(max_domains) :: auxhist24_begin_d integer , DIMENSION(max_domains) :: auxhist24_begin_h integer , DIMENSION(max_domains) :: auxhist24_begin_m integer , DIMENSION(max_domains) :: auxhist24_begin_s integer , DIMENSION(max_domains) :: auxhist24_begin integer , DIMENSION(max_domains) :: auxhist24_end_y integer , DIMENSION(max_domains) :: auxhist24_end_d integer , DIMENSION(max_domains) :: auxhist24_end_h integer , DIMENSION(max_domains) :: auxhist24_end_m integer , DIMENSION(max_domains) :: auxhist24_end_s integer , DIMENSION(max_domains) :: auxhist24_end integer :: io_form_auxhist24 integer , DIMENSION(max_domains) :: frames_per_auxhist24 character*256 :: auxinput1_outname integer , DIMENSION(max_domains) :: auxinput1_interval_y integer , DIMENSION(max_domains) :: auxinput1_interval_d integer , DIMENSION(max_domains) :: auxinput1_interval_h integer , DIMENSION(max_domains) :: auxinput1_interval_m integer , DIMENSION(max_domains) :: auxinput1_interval_s integer , DIMENSION(max_domains) :: auxinput1_interval integer , DIMENSION(max_domains) :: auxinput1_begin_y integer , DIMENSION(max_domains) :: auxinput1_begin_d integer , DIMENSION(max_domains) :: auxinput1_begin_h integer , DIMENSION(max_domains) :: auxinput1_begin_m integer , DIMENSION(max_domains) :: auxinput1_begin_s integer , DIMENSION(max_domains) :: auxinput1_begin integer , DIMENSION(max_domains) :: auxinput1_end_y integer , DIMENSION(max_domains) :: auxinput1_end_d integer , DIMENSION(max_domains) :: auxinput1_end_h integer , DIMENSION(max_domains) :: auxinput1_end_m integer , DIMENSION(max_domains) :: auxinput1_end_s integer , DIMENSION(max_domains) :: auxinput1_end integer , DIMENSION(max_domains) :: frames_per_auxinput1 character*256 :: auxinput2_inname character*256 :: auxinput2_outname integer , DIMENSION(max_domains) :: auxinput2_interval_y integer , DIMENSION(max_domains) :: auxinput2_interval_d integer , DIMENSION(max_domains) :: auxinput2_interval_h integer , DIMENSION(max_domains) :: auxinput2_interval_m integer , DIMENSION(max_domains) :: auxinput2_interval_s integer , DIMENSION(max_domains) :: auxinput2_interval integer , DIMENSION(max_domains) :: auxinput2_begin_y integer , DIMENSION(max_domains) :: auxinput2_begin_d integer , DIMENSION(max_domains) :: auxinput2_begin_h integer , DIMENSION(max_domains) :: auxinput2_begin_m integer , DIMENSION(max_domains) :: auxinput2_begin_s integer , DIMENSION(max_domains) :: auxinput2_begin integer , DIMENSION(max_domains) :: auxinput2_end_y integer , DIMENSION(max_domains) :: auxinput2_end_d integer , DIMENSION(max_domains) :: auxinput2_end_h integer , DIMENSION(max_domains) :: auxinput2_end_m integer , DIMENSION(max_domains) :: auxinput2_end_s integer , DIMENSION(max_domains) :: auxinput2_end integer :: io_form_auxinput2 integer , DIMENSION(max_domains) :: frames_per_auxinput2 character*256 :: auxinput3_inname character*256 :: auxinput3_outname integer , DIMENSION(max_domains) :: auxinput3_interval_y integer , DIMENSION(max_domains) :: auxinput3_interval_d integer , DIMENSION(max_domains) :: auxinput3_interval_h integer , DIMENSION(max_domains) :: auxinput3_interval_m integer , DIMENSION(max_domains) :: auxinput3_interval_s integer , DIMENSION(max_domains) :: auxinput3_interval integer , DIMENSION(max_domains) :: auxinput3_begin_y integer , DIMENSION(max_domains) :: auxinput3_begin_d integer , DIMENSION(max_domains) :: auxinput3_begin_h integer , DIMENSION(max_domains) :: auxinput3_begin_m integer , DIMENSION(max_domains) :: auxinput3_begin_s integer , DIMENSION(max_domains) :: auxinput3_begin integer , DIMENSION(max_domains) :: auxinput3_end_y integer , DIMENSION(max_domains) :: auxinput3_end_d integer , DIMENSION(max_domains) :: auxinput3_end_h integer , DIMENSION(max_domains) :: auxinput3_end_m integer , DIMENSION(max_domains) :: auxinput3_end_s integer , DIMENSION(max_domains) :: auxinput3_end integer :: io_form_auxinput3 integer , DIMENSION(max_domains) :: frames_per_auxinput3 character*256 :: auxinput4_inname character*256 :: auxinput4_outname integer , DIMENSION(max_domains) :: auxinput4_interval_y integer , DIMENSION(max_domains) :: auxinput4_interval_d integer , DIMENSION(max_domains) :: auxinput4_interval_h integer , DIMENSION(max_domains) :: auxinput4_interval_m integer , DIMENSION(max_domains) :: auxinput4_interval_s integer , DIMENSION(max_domains) :: auxinput4_interval integer , DIMENSION(max_domains) :: auxinput4_begin_y integer , DIMENSION(max_domains) :: auxinput4_begin_d integer , DIMENSION(max_domains) :: auxinput4_begin_h integer , DIMENSION(max_domains) :: auxinput4_begin_m integer , DIMENSION(max_domains) :: auxinput4_begin_s integer , DIMENSION(max_domains) :: auxinput4_begin integer , DIMENSION(max_domains) :: auxinput4_end_y integer , DIMENSION(max_domains) :: auxinput4_end_d integer , DIMENSION(max_domains) :: auxinput4_end_h integer , DIMENSION(max_domains) :: auxinput4_end_m integer , DIMENSION(max_domains) :: auxinput4_end_s integer , DIMENSION(max_domains) :: auxinput4_end integer :: io_form_auxinput4 integer , DIMENSION(max_domains) :: frames_per_auxinput4 character*256 :: auxinput5_inname character*256 :: auxinput5_outname integer , DIMENSION(max_domains) :: auxinput5_interval_y integer , DIMENSION(max_domains) :: auxinput5_interval_d integer , DIMENSION(max_domains) :: auxinput5_interval_h integer , DIMENSION(max_domains) :: auxinput5_interval_m integer , DIMENSION(max_domains) :: auxinput5_interval_s integer , DIMENSION(max_domains) :: auxinput5_interval integer , DIMENSION(max_domains) :: auxinput5_begin_y integer , DIMENSION(max_domains) :: auxinput5_begin_d integer , DIMENSION(max_domains) :: auxinput5_begin_h integer , DIMENSION(max_domains) :: auxinput5_begin_m integer , DIMENSION(max_domains) :: auxinput5_begin_s integer , DIMENSION(max_domains) :: auxinput5_begin integer , DIMENSION(max_domains) :: auxinput5_end_y integer , DIMENSION(max_domains) :: auxinput5_end_d integer , DIMENSION(max_domains) :: auxinput5_end_h integer , DIMENSION(max_domains) :: auxinput5_end_m integer , DIMENSION(max_domains) :: auxinput5_end_s integer , DIMENSION(max_domains) :: auxinput5_end integer :: io_form_auxinput5 integer , DIMENSION(max_domains) :: frames_per_auxinput5 character*256 :: auxinput6_inname character*256 :: auxinput6_outname integer , DIMENSION(max_domains) :: auxinput6_interval_y integer , DIMENSION(max_domains) :: auxinput6_interval_d integer , DIMENSION(max_domains) :: auxinput6_interval_h integer , DIMENSION(max_domains) :: auxinput6_interval_m integer , DIMENSION(max_domains) :: auxinput6_interval_s integer , DIMENSION(max_domains) :: auxinput6_interval integer , DIMENSION(max_domains) :: auxinput6_begin_y integer , DIMENSION(max_domains) :: auxinput6_begin_d integer , DIMENSION(max_domains) :: auxinput6_begin_h integer , DIMENSION(max_domains) :: auxinput6_begin_m integer , DIMENSION(max_domains) :: auxinput6_begin_s integer , DIMENSION(max_domains) :: auxinput6_begin integer , DIMENSION(max_domains) :: auxinput6_end_y integer , DIMENSION(max_domains) :: auxinput6_end_d integer , DIMENSION(max_domains) :: auxinput6_end_h integer , DIMENSION(max_domains) :: auxinput6_end_m integer , DIMENSION(max_domains) :: auxinput6_end_s integer , DIMENSION(max_domains) :: auxinput6_end integer :: io_form_auxinput6 integer , DIMENSION(max_domains) :: frames_per_auxinput6 character*256 :: auxinput7_inname character*256 :: auxinput7_outname integer , DIMENSION(max_domains) :: auxinput7_interval_y integer , DIMENSION(max_domains) :: auxinput7_interval_d integer , DIMENSION(max_domains) :: auxinput7_interval_h integer , DIMENSION(max_domains) :: auxinput7_interval_m integer , DIMENSION(max_domains) :: auxinput7_interval_s integer , DIMENSION(max_domains) :: auxinput7_interval integer , DIMENSION(max_domains) :: auxinput7_begin_y integer , DIMENSION(max_domains) :: auxinput7_begin_d integer , DIMENSION(max_domains) :: auxinput7_begin_h integer , DIMENSION(max_domains) :: auxinput7_begin_m integer , DIMENSION(max_domains) :: auxinput7_begin_s integer , DIMENSION(max_domains) :: auxinput7_begin integer , DIMENSION(max_domains) :: auxinput7_end_y integer , DIMENSION(max_domains) :: auxinput7_end_d integer , DIMENSION(max_domains) :: auxinput7_end_h integer , DIMENSION(max_domains) :: auxinput7_end_m integer , DIMENSION(max_domains) :: auxinput7_end_s integer , DIMENSION(max_domains) :: auxinput7_end integer :: io_form_auxinput7 integer , DIMENSION(max_domains) :: frames_per_auxinput7 character*256 :: auxinput8_inname character*256 :: auxinput8_outname integer , DIMENSION(max_domains) :: auxinput8_interval_y integer , DIMENSION(max_domains) :: auxinput8_interval_d integer , DIMENSION(max_domains) :: auxinput8_interval_h integer , DIMENSION(max_domains) :: auxinput8_interval_m integer , DIMENSION(max_domains) :: auxinput8_interval_s integer , DIMENSION(max_domains) :: auxinput8_interval integer , DIMENSION(max_domains) :: auxinput8_begin_y integer , DIMENSION(max_domains) :: auxinput8_begin_d integer , DIMENSION(max_domains) :: auxinput8_begin_h integer , DIMENSION(max_domains) :: auxinput8_begin_m integer , DIMENSION(max_domains) :: auxinput8_begin_s integer , DIMENSION(max_domains) :: auxinput8_begin integer , DIMENSION(max_domains) :: auxinput8_end_y integer , DIMENSION(max_domains) :: auxinput8_end_d integer , DIMENSION(max_domains) :: auxinput8_end_h integer , DIMENSION(max_domains) :: auxinput8_end_m integer , DIMENSION(max_domains) :: auxinput8_end_s integer , DIMENSION(max_domains) :: auxinput8_end integer :: io_form_auxinput8 integer , DIMENSION(max_domains) :: frames_per_auxinput8 character*256 :: auxinput9_inname character*256 :: auxinput9_outname integer , DIMENSION(max_domains) :: auxinput9_interval_y integer , DIMENSION(max_domains) :: auxinput9_interval_d integer , DIMENSION(max_domains) :: auxinput9_interval_h integer , DIMENSION(max_domains) :: auxinput9_interval_m integer , DIMENSION(max_domains) :: auxinput9_interval_s integer , DIMENSION(max_domains) :: auxinput9_interval integer , DIMENSION(max_domains) :: auxinput9_begin_y integer , DIMENSION(max_domains) :: auxinput9_begin_d integer , DIMENSION(max_domains) :: auxinput9_begin_h integer , DIMENSION(max_domains) :: auxinput9_begin_m integer , DIMENSION(max_domains) :: auxinput9_begin_s integer , DIMENSION(max_domains) :: auxinput9_begin integer , DIMENSION(max_domains) :: auxinput9_end_y integer , DIMENSION(max_domains) :: auxinput9_end_d integer , DIMENSION(max_domains) :: auxinput9_end_h integer , DIMENSION(max_domains) :: auxinput9_end_m integer , DIMENSION(max_domains) :: auxinput9_end_s integer , DIMENSION(max_domains) :: auxinput9_end integer :: io_form_auxinput9 integer , DIMENSION(max_domains) :: frames_per_auxinput9 character*256 :: auxinput10_inname character*256 :: auxinput10_outname integer , DIMENSION(max_domains) :: auxinput10_interval_y integer , DIMENSION(max_domains) :: auxinput10_interval_d integer , DIMENSION(max_domains) :: auxinput10_interval_h integer , DIMENSION(max_domains) :: auxinput10_interval_m integer , DIMENSION(max_domains) :: auxinput10_interval_s integer , DIMENSION(max_domains) :: auxinput10_interval integer , DIMENSION(max_domains) :: auxinput10_begin_y integer , DIMENSION(max_domains) :: auxinput10_begin_d integer , DIMENSION(max_domains) :: auxinput10_begin_h integer , DIMENSION(max_domains) :: auxinput10_begin_m integer , DIMENSION(max_domains) :: auxinput10_begin_s integer , DIMENSION(max_domains) :: auxinput10_begin integer , DIMENSION(max_domains) :: auxinput10_end_y integer , DIMENSION(max_domains) :: auxinput10_end_d integer , DIMENSION(max_domains) :: auxinput10_end_h integer , DIMENSION(max_domains) :: auxinput10_end_m integer , DIMENSION(max_domains) :: auxinput10_end_s integer , DIMENSION(max_domains) :: auxinput10_end integer :: io_form_auxinput10 integer , DIMENSION(max_domains) :: frames_per_auxinput10 character*256 :: auxinput11_inname character*256 :: auxinput11_outname integer , DIMENSION(max_domains) :: auxinput11_interval_y integer , DIMENSION(max_domains) :: auxinput11_interval_d integer , DIMENSION(max_domains) :: auxinput11_interval_h integer , DIMENSION(max_domains) :: auxinput11_interval_m integer , DIMENSION(max_domains) :: auxinput11_interval_s integer , DIMENSION(max_domains) :: auxinput11_interval integer , DIMENSION(max_domains) :: auxinput11_begin_y integer , DIMENSION(max_domains) :: auxinput11_begin_d integer , DIMENSION(max_domains) :: auxinput11_begin_h integer , DIMENSION(max_domains) :: auxinput11_begin_m integer , DIMENSION(max_domains) :: auxinput11_begin_s integer , DIMENSION(max_domains) :: auxinput11_begin integer , DIMENSION(max_domains) :: auxinput11_end_y integer , DIMENSION(max_domains) :: auxinput11_end_d integer , DIMENSION(max_domains) :: auxinput11_end_h integer , DIMENSION(max_domains) :: auxinput11_end_m integer , DIMENSION(max_domains) :: auxinput11_end_s integer , DIMENSION(max_domains) :: auxinput11_end integer :: io_form_auxinput11 integer , DIMENSION(max_domains) :: frames_per_auxinput11 character*256 :: auxinput12_inname character*256 :: auxinput12_outname integer , DIMENSION(max_domains) :: auxinput12_interval_y integer , DIMENSION(max_domains) :: auxinput12_interval_d integer , DIMENSION(max_domains) :: auxinput12_interval_h integer , DIMENSION(max_domains) :: auxinput12_interval_m integer , DIMENSION(max_domains) :: auxinput12_interval_s integer , DIMENSION(max_domains) :: auxinput12_interval integer , DIMENSION(max_domains) :: auxinput12_begin_y integer , DIMENSION(max_domains) :: auxinput12_begin_d integer , DIMENSION(max_domains) :: auxinput12_begin_h integer , DIMENSION(max_domains) :: auxinput12_begin_m integer , DIMENSION(max_domains) :: auxinput12_begin_s integer , DIMENSION(max_domains) :: auxinput12_begin integer , DIMENSION(max_domains) :: auxinput12_end_y integer , DIMENSION(max_domains) :: auxinput12_end_d integer , DIMENSION(max_domains) :: auxinput12_end_h integer , DIMENSION(max_domains) :: auxinput12_end_m integer , DIMENSION(max_domains) :: auxinput12_end_s integer , DIMENSION(max_domains) :: auxinput12_end integer :: io_form_auxinput12 integer , DIMENSION(max_domains) :: frames_per_auxinput12 character*256 :: auxinput13_inname character*256 :: auxinput13_outname integer , DIMENSION(max_domains) :: auxinput13_interval_y integer , DIMENSION(max_domains) :: auxinput13_interval_d integer , DIMENSION(max_domains) :: auxinput13_interval_h integer , DIMENSION(max_domains) :: auxinput13_interval_m integer , DIMENSION(max_domains) :: auxinput13_interval_s integer , DIMENSION(max_domains) :: auxinput13_interval integer , DIMENSION(max_domains) :: auxinput13_begin_y integer , DIMENSION(max_domains) :: auxinput13_begin_d integer , DIMENSION(max_domains) :: auxinput13_begin_h integer , DIMENSION(max_domains) :: auxinput13_begin_m integer , DIMENSION(max_domains) :: auxinput13_begin_s integer , DIMENSION(max_domains) :: auxinput13_begin integer , DIMENSION(max_domains) :: auxinput13_end_y integer , DIMENSION(max_domains) :: auxinput13_end_d integer , DIMENSION(max_domains) :: auxinput13_end_h integer , DIMENSION(max_domains) :: auxinput13_end_m integer , DIMENSION(max_domains) :: auxinput13_end_s integer , DIMENSION(max_domains) :: auxinput13_end integer :: io_form_auxinput13 integer , DIMENSION(max_domains) :: frames_per_auxinput13 character*256 :: auxinput14_inname character*256 :: auxinput14_outname integer , DIMENSION(max_domains) :: auxinput14_interval_y integer , DIMENSION(max_domains) :: auxinput14_interval_d integer , DIMENSION(max_domains) :: auxinput14_interval_h integer , DIMENSION(max_domains) :: auxinput14_interval_m integer , DIMENSION(max_domains) :: auxinput14_interval_s integer , DIMENSION(max_domains) :: auxinput14_interval integer , DIMENSION(max_domains) :: auxinput14_begin_y integer , DIMENSION(max_domains) :: auxinput14_begin_d integer , DIMENSION(max_domains) :: auxinput14_begin_h integer , DIMENSION(max_domains) :: auxinput14_begin_m integer , DIMENSION(max_domains) :: auxinput14_begin_s integer , DIMENSION(max_domains) :: auxinput14_begin integer , DIMENSION(max_domains) :: auxinput14_end_y integer , DIMENSION(max_domains) :: auxinput14_end_d integer , DIMENSION(max_domains) :: auxinput14_end_h integer , DIMENSION(max_domains) :: auxinput14_end_m integer , DIMENSION(max_domains) :: auxinput14_end_s integer , DIMENSION(max_domains) :: auxinput14_end integer :: io_form_auxinput14 integer , DIMENSION(max_domains) :: frames_per_auxinput14 character*256 :: auxinput15_inname character*256 :: auxinput15_outname integer , DIMENSION(max_domains) :: auxinput15_interval_y integer , DIMENSION(max_domains) :: auxinput15_interval_d integer , DIMENSION(max_domains) :: auxinput15_interval_h integer , DIMENSION(max_domains) :: auxinput15_interval_m integer , DIMENSION(max_domains) :: auxinput15_interval_s integer , DIMENSION(max_domains) :: auxinput15_interval integer , DIMENSION(max_domains) :: auxinput15_begin_y integer , DIMENSION(max_domains) :: auxinput15_begin_d integer , DIMENSION(max_domains) :: auxinput15_begin_h integer , DIMENSION(max_domains) :: auxinput15_begin_m integer , DIMENSION(max_domains) :: auxinput15_begin_s integer , DIMENSION(max_domains) :: auxinput15_begin integer , DIMENSION(max_domains) :: auxinput15_end_y integer , DIMENSION(max_domains) :: auxinput15_end_d integer , DIMENSION(max_domains) :: auxinput15_end_h integer , DIMENSION(max_domains) :: auxinput15_end_m integer , DIMENSION(max_domains) :: auxinput15_end_s integer , DIMENSION(max_domains) :: auxinput15_end integer :: io_form_auxinput15 integer , DIMENSION(max_domains) :: frames_per_auxinput15 character*256 :: auxinput16_inname character*256 :: auxinput16_outname integer , DIMENSION(max_domains) :: auxinput16_interval_y integer , DIMENSION(max_domains) :: auxinput16_interval_d integer , DIMENSION(max_domains) :: auxinput16_interval_h integer , DIMENSION(max_domains) :: auxinput16_interval_m integer , DIMENSION(max_domains) :: auxinput16_interval_s integer , DIMENSION(max_domains) :: auxinput16_interval integer , DIMENSION(max_domains) :: auxinput16_begin_y integer , DIMENSION(max_domains) :: auxinput16_begin_d integer , DIMENSION(max_domains) :: auxinput16_begin_h integer , DIMENSION(max_domains) :: auxinput16_begin_m integer , DIMENSION(max_domains) :: auxinput16_begin_s integer , DIMENSION(max_domains) :: auxinput16_begin integer , DIMENSION(max_domains) :: auxinput16_end_y integer , DIMENSION(max_domains) :: auxinput16_end_d integer , DIMENSION(max_domains) :: auxinput16_end_h integer , DIMENSION(max_domains) :: auxinput16_end_m integer , DIMENSION(max_domains) :: auxinput16_end_s integer , DIMENSION(max_domains) :: auxinput16_end integer :: io_form_auxinput16 integer , DIMENSION(max_domains) :: frames_per_auxinput16 character*256 :: auxinput17_inname character*256 :: auxinput17_outname integer , DIMENSION(max_domains) :: auxinput17_interval_y integer , DIMENSION(max_domains) :: auxinput17_interval_d integer , DIMENSION(max_domains) :: auxinput17_interval_h integer , DIMENSION(max_domains) :: auxinput17_interval_m integer , DIMENSION(max_domains) :: auxinput17_interval_s integer , DIMENSION(max_domains) :: auxinput17_interval integer , DIMENSION(max_domains) :: auxinput17_begin_y integer , DIMENSION(max_domains) :: auxinput17_begin_d integer , DIMENSION(max_domains) :: auxinput17_begin_h integer , DIMENSION(max_domains) :: auxinput17_begin_m integer , DIMENSION(max_domains) :: auxinput17_begin_s integer , DIMENSION(max_domains) :: auxinput17_begin integer , DIMENSION(max_domains) :: auxinput17_end_y integer , DIMENSION(max_domains) :: auxinput17_end_d integer , DIMENSION(max_domains) :: auxinput17_end_h integer , DIMENSION(max_domains) :: auxinput17_end_m integer , DIMENSION(max_domains) :: auxinput17_end_s integer , DIMENSION(max_domains) :: auxinput17_end integer :: io_form_auxinput17 integer , DIMENSION(max_domains) :: frames_per_auxinput17 character*256 :: auxinput18_inname character*256 :: auxinput18_outname integer , DIMENSION(max_domains) :: auxinput18_interval_y integer , DIMENSION(max_domains) :: auxinput18_interval_d integer , DIMENSION(max_domains) :: auxinput18_interval_h integer , DIMENSION(max_domains) :: auxinput18_interval_m integer , DIMENSION(max_domains) :: auxinput18_interval_s integer , DIMENSION(max_domains) :: auxinput18_interval integer , DIMENSION(max_domains) :: auxinput18_begin_y integer , DIMENSION(max_domains) :: auxinput18_begin_d integer , DIMENSION(max_domains) :: auxinput18_begin_h integer , DIMENSION(max_domains) :: auxinput18_begin_m integer , DIMENSION(max_domains) :: auxinput18_begin_s integer , DIMENSION(max_domains) :: auxinput18_begin integer , DIMENSION(max_domains) :: auxinput18_end_y integer , DIMENSION(max_domains) :: auxinput18_end_d integer , DIMENSION(max_domains) :: auxinput18_end_h integer , DIMENSION(max_domains) :: auxinput18_end_m integer , DIMENSION(max_domains) :: auxinput18_end_s integer , DIMENSION(max_domains) :: auxinput18_end integer :: io_form_auxinput18 integer , DIMENSION(max_domains) :: frames_per_auxinput18 character*256 :: auxinput19_inname character*256 :: auxinput19_outname integer , DIMENSION(max_domains) :: auxinput19_interval_y integer , DIMENSION(max_domains) :: auxinput19_interval_d integer , DIMENSION(max_domains) :: auxinput19_interval_h integer , DIMENSION(max_domains) :: auxinput19_interval_m integer , DIMENSION(max_domains) :: auxinput19_interval_s integer , DIMENSION(max_domains) :: auxinput19_interval integer , DIMENSION(max_domains) :: auxinput19_begin_y integer , DIMENSION(max_domains) :: auxinput19_begin_d integer , DIMENSION(max_domains) :: auxinput19_begin_h integer , DIMENSION(max_domains) :: auxinput19_begin_m integer , DIMENSION(max_domains) :: auxinput19_begin_s integer , DIMENSION(max_domains) :: auxinput19_begin integer , DIMENSION(max_domains) :: auxinput19_end_y integer , DIMENSION(max_domains) :: auxinput19_end_d integer , DIMENSION(max_domains) :: auxinput19_end_h integer , DIMENSION(max_domains) :: auxinput19_end_m integer , DIMENSION(max_domains) :: auxinput19_end_s integer , DIMENSION(max_domains) :: auxinput19_end integer :: io_form_auxinput19 integer , DIMENSION(max_domains) :: frames_per_auxinput19 character*256 :: auxinput20_inname character*256 :: auxinput20_outname integer , DIMENSION(max_domains) :: auxinput20_interval_y integer , DIMENSION(max_domains) :: auxinput20_interval_d integer , DIMENSION(max_domains) :: auxinput20_interval_h integer , DIMENSION(max_domains) :: auxinput20_interval_m integer , DIMENSION(max_domains) :: auxinput20_interval_s integer , DIMENSION(max_domains) :: auxinput20_interval integer , DIMENSION(max_domains) :: auxinput20_begin_y integer , DIMENSION(max_domains) :: auxinput20_begin_d integer , DIMENSION(max_domains) :: auxinput20_begin_h integer , DIMENSION(max_domains) :: auxinput20_begin_m integer , DIMENSION(max_domains) :: auxinput20_begin_s integer , DIMENSION(max_domains) :: auxinput20_begin integer , DIMENSION(max_domains) :: auxinput20_end_y integer , DIMENSION(max_domains) :: auxinput20_end_d integer , DIMENSION(max_domains) :: auxinput20_end_h integer , DIMENSION(max_domains) :: auxinput20_end_m integer , DIMENSION(max_domains) :: auxinput20_end_s integer , DIMENSION(max_domains) :: auxinput20_end integer :: io_form_auxinput20 integer , DIMENSION(max_domains) :: frames_per_auxinput20 character*256 :: auxinput21_inname character*256 :: auxinput21_outname integer , DIMENSION(max_domains) :: auxinput21_interval_y integer , DIMENSION(max_domains) :: auxinput21_interval_d integer , DIMENSION(max_domains) :: auxinput21_interval_h integer , DIMENSION(max_domains) :: auxinput21_interval_m integer , DIMENSION(max_domains) :: auxinput21_interval_s integer , DIMENSION(max_domains) :: auxinput21_interval integer , DIMENSION(max_domains) :: auxinput21_begin_y integer , DIMENSION(max_domains) :: auxinput21_begin_d integer , DIMENSION(max_domains) :: auxinput21_begin_h integer , DIMENSION(max_domains) :: auxinput21_begin_m integer , DIMENSION(max_domains) :: auxinput21_begin_s integer , DIMENSION(max_domains) :: auxinput21_begin integer , DIMENSION(max_domains) :: auxinput21_end_y integer , DIMENSION(max_domains) :: auxinput21_end_d integer , DIMENSION(max_domains) :: auxinput21_end_h integer , DIMENSION(max_domains) :: auxinput21_end_m integer , DIMENSION(max_domains) :: auxinput21_end_s integer , DIMENSION(max_domains) :: auxinput21_end integer :: io_form_auxinput21 integer , DIMENSION(max_domains) :: frames_per_auxinput21 character*256 :: auxinput22_inname character*256 :: auxinput22_outname integer , DIMENSION(max_domains) :: auxinput22_interval_y integer , DIMENSION(max_domains) :: auxinput22_interval_d integer , DIMENSION(max_domains) :: auxinput22_interval_h integer , DIMENSION(max_domains) :: auxinput22_interval_m integer , DIMENSION(max_domains) :: auxinput22_interval_s integer , DIMENSION(max_domains) :: auxinput22_interval integer , DIMENSION(max_domains) :: auxinput22_begin_y integer , DIMENSION(max_domains) :: auxinput22_begin_d integer , DIMENSION(max_domains) :: auxinput22_begin_h integer , DIMENSION(max_domains) :: auxinput22_begin_m integer , DIMENSION(max_domains) :: auxinput22_begin_s integer , DIMENSION(max_domains) :: auxinput22_begin integer , DIMENSION(max_domains) :: auxinput22_end_y integer , DIMENSION(max_domains) :: auxinput22_end_d integer , DIMENSION(max_domains) :: auxinput22_end_h integer , DIMENSION(max_domains) :: auxinput22_end_m integer , DIMENSION(max_domains) :: auxinput22_end_s integer , DIMENSION(max_domains) :: auxinput22_end integer :: io_form_auxinput22 integer , DIMENSION(max_domains) :: frames_per_auxinput22 character*256 :: auxinput23_inname character*256 :: auxinput23_outname integer , DIMENSION(max_domains) :: auxinput23_interval_y integer , DIMENSION(max_domains) :: auxinput23_interval_d integer , DIMENSION(max_domains) :: auxinput23_interval_h integer , DIMENSION(max_domains) :: auxinput23_interval_m integer , DIMENSION(max_domains) :: auxinput23_interval_s integer , DIMENSION(max_domains) :: auxinput23_interval integer , DIMENSION(max_domains) :: auxinput23_begin_y integer , DIMENSION(max_domains) :: auxinput23_begin_d integer , DIMENSION(max_domains) :: auxinput23_begin_h integer , DIMENSION(max_domains) :: auxinput23_begin_m integer , DIMENSION(max_domains) :: auxinput23_begin_s integer , DIMENSION(max_domains) :: auxinput23_begin integer , DIMENSION(max_domains) :: auxinput23_end_y integer , DIMENSION(max_domains) :: auxinput23_end_d integer , DIMENSION(max_domains) :: auxinput23_end_h integer , DIMENSION(max_domains) :: auxinput23_end_m integer , DIMENSION(max_domains) :: auxinput23_end_s integer , DIMENSION(max_domains) :: auxinput23_end integer :: io_form_auxinput23 integer , DIMENSION(max_domains) :: frames_per_auxinput23 character*256 :: auxinput24_inname character*256 :: auxinput24_outname integer , DIMENSION(max_domains) :: auxinput24_interval_y integer , DIMENSION(max_domains) :: auxinput24_interval_d integer , DIMENSION(max_domains) :: auxinput24_interval_h integer , DIMENSION(max_domains) :: auxinput24_interval_m integer , DIMENSION(max_domains) :: auxinput24_interval_s integer , DIMENSION(max_domains) :: auxinput24_interval integer , DIMENSION(max_domains) :: auxinput24_begin_y integer , DIMENSION(max_domains) :: auxinput24_begin_d integer , DIMENSION(max_domains) :: auxinput24_begin_h integer , DIMENSION(max_domains) :: auxinput24_begin_m integer , DIMENSION(max_domains) :: auxinput24_begin_s integer , DIMENSION(max_domains) :: auxinput24_begin integer , DIMENSION(max_domains) :: auxinput24_end_y integer , DIMENSION(max_domains) :: auxinput24_end_d integer , DIMENSION(max_domains) :: auxinput24_end_h integer , DIMENSION(max_domains) :: auxinput24_end_m integer , DIMENSION(max_domains) :: auxinput24_end_s integer , DIMENSION(max_domains) :: auxinput24_end integer :: io_form_auxinput24 integer , DIMENSION(max_domains) :: frames_per_auxinput24 integer , DIMENSION(max_domains) :: history_interval integer , DIMENSION(max_domains) :: frames_per_outfile logical :: restart integer :: restart_interval integer :: io_form_input integer :: io_form_history integer :: io_form_restart integer :: io_form_boundary integer :: debug_level logical :: self_test_domain character*256 :: history_outname character*256 :: history_inname logical :: use_netcdf_classic integer , DIMENSION(max_domains) :: history_interval_d integer , DIMENSION(max_domains) :: history_interval_h integer , DIMENSION(max_domains) :: history_interval_m integer , DIMENSION(max_domains) :: history_interval_s integer , DIMENSION(max_domains) :: inputout_interval_d integer , DIMENSION(max_domains) :: inputout_interval_h integer , DIMENSION(max_domains) :: inputout_interval_m integer , DIMENSION(max_domains) :: inputout_interval_s integer , DIMENSION(max_domains) :: inputout_interval integer :: restart_interval_d integer :: restart_interval_h integer :: restart_interval_m integer :: restart_interval_s integer , DIMENSION(max_domains) :: history_begin_y integer , DIMENSION(max_domains) :: history_begin_d integer , DIMENSION(max_domains) :: history_begin_h integer , DIMENSION(max_domains) :: history_begin_m integer , DIMENSION(max_domains) :: history_begin_s integer , DIMENSION(max_domains) :: history_begin integer , DIMENSION(max_domains) :: inputout_begin_y integer , DIMENSION(max_domains) :: inputout_begin_d integer , DIMENSION(max_domains) :: inputout_begin_h integer , DIMENSION(max_domains) :: inputout_begin_m integer , DIMENSION(max_domains) :: inputout_begin_s integer :: restart_begin_y integer :: restart_begin_d integer :: restart_begin_h integer :: restart_begin_m integer :: restart_begin_s integer :: restart_begin integer , DIMENSION(max_domains) :: history_end_y integer , DIMENSION(max_domains) :: history_end_d integer , DIMENSION(max_domains) :: history_end_h integer , DIMENSION(max_domains) :: history_end_m integer , DIMENSION(max_domains) :: history_end_s integer , DIMENSION(max_domains) :: history_end integer , DIMENSION(max_domains) :: inputout_end_y integer , DIMENSION(max_domains) :: inputout_end_d integer , DIMENSION(max_domains) :: inputout_end_h integer , DIMENSION(max_domains) :: inputout_end_m integer , DIMENSION(max_domains) :: inputout_end_s integer :: simulation_start_year integer :: simulation_start_month integer :: simulation_start_day integer :: simulation_start_hour integer :: simulation_start_minute integer :: simulation_start_second logical :: reset_simulation_start integer , DIMENSION(max_domains) :: sr_x integer , DIMENSION(max_domains) :: sr_y character*256 :: sgfdda_inname character*256 :: gfdda_inname integer , DIMENSION(max_domains) :: sgfdda_interval_d integer , DIMENSION(max_domains) :: sgfdda_interval_h integer , DIMENSION(max_domains) :: sgfdda_interval_m integer , DIMENSION(max_domains) :: sgfdda_interval_s integer , DIMENSION(max_domains) :: sgfdda_interval_y integer , DIMENSION(max_domains) :: sgfdda_interval integer , DIMENSION(max_domains) :: gfdda_interval_d integer , DIMENSION(max_domains) :: gfdda_interval_h integer , DIMENSION(max_domains) :: gfdda_interval_m integer , DIMENSION(max_domains) :: gfdda_interval_s integer , DIMENSION(max_domains) :: gfdda_interval_y integer , DIMENSION(max_domains) :: gfdda_interval integer , DIMENSION(max_domains) :: sgfdda_begin_y integer , DIMENSION(max_domains) :: sgfdda_begin_d integer , DIMENSION(max_domains) :: sgfdda_begin_h integer , DIMENSION(max_domains) :: sgfdda_begin_m integer , DIMENSION(max_domains) :: sgfdda_begin_s integer , DIMENSION(max_domains) :: gfdda_begin_y integer , DIMENSION(max_domains) :: gfdda_begin_d integer , DIMENSION(max_domains) :: gfdda_begin_h integer , DIMENSION(max_domains) :: gfdda_begin_m integer , DIMENSION(max_domains) :: gfdda_begin_s integer , DIMENSION(max_domains) :: sgfdda_end_y integer , DIMENSION(max_domains) :: sgfdda_end_d integer , DIMENSION(max_domains) :: sgfdda_end_h integer , DIMENSION(max_domains) :: sgfdda_end_m integer , DIMENSION(max_domains) :: sgfdda_end_s integer , DIMENSION(max_domains) :: gfdda_end_y integer , DIMENSION(max_domains) :: gfdda_end_d integer , DIMENSION(max_domains) :: gfdda_end_h integer , DIMENSION(max_domains) :: gfdda_end_m integer , DIMENSION(max_domains) :: gfdda_end_s integer :: io_form_sgfdda integer :: io_form_gfdda character*256 , DIMENSION(max_domains) :: iofields_filename logical :: ignore_iofields_warning logical :: ncd_nofill character*256 :: emi_inname character*256 :: fireemi_inname character*256 :: input_chem_inname character*256 :: emi_outname character*256 :: fireemi_outname character*256 :: input_chem_outname integer :: io_style_emissions real , DIMENSION(max_domains) :: bioemdt real , DIMENSION(max_domains) :: photdt real , DIMENSION(max_domains) :: chemdt integer :: ne_area integer :: kemit integer :: nmegan integer :: kfuture integer :: kfire integer :: kemit_aircraft integer :: kdvel integer :: ndepvel integer :: kdepvel integer :: erosion_dim integer , DIMENSION(max_domains) :: biomass_emiss_opt integer :: cam_mam_mode integer :: cam_mam_nspec logical :: cam_mp_mam_cpled integer , DIMENSION(max_domains) :: lightning_opt integer , DIMENSION(max_domains) :: lightning_time_step real , DIMENSION(max_domains) :: temp_upper real , DIMENSION(max_domains) :: temp_lower real , DIMENSION(max_domains) :: n_ic real , DIMENSION(max_domains) :: n_cg integer , DIMENSION(max_domains) :: passive_ltng integer :: lflash_data integer , DIMENSION(max_domains) :: flashrate_method character*256 , DIMENSION(max_domains) :: vprm_opt real :: wpeat real :: wflood character*256 , DIMENSION(max_domains) :: term_opt integer , DIMENSION(max_domains) :: chem_conv_tr integer , DIMENSION(max_domains) :: conv_tr_wetscav integer , DIMENSION(max_domains) :: conv_tr_aqchem integer , DIMENSION(max_domains) :: chem_opt integer , DIMENSION(max_domains) :: gaschem_onoff integer , DIMENSION(max_domains) :: aerchem_onoff integer , DIMENSION(max_domains) :: wetscav_onoff integer , DIMENSION(max_domains) :: dustwd_onoff integer , DIMENSION(max_domains) :: cldchem_onoff logical , DIMENSION(max_domains) :: is_full_tuv real , DIMENSION(max_domains) :: lambda_cutoff integer , DIMENSION(max_domains) :: cld_od_opt integer , DIMENSION(max_domains) :: pht_cldfrc_opt integer , DIMENSION(max_domains) :: vertmix_onoff integer , DIMENSION(max_domains) :: chem_in_opt integer , DIMENSION(max_domains) :: phot_opt integer , DIMENSION(max_domains) :: gas_drydep_opt integer , DIMENSION(max_domains) :: aer_drydep_opt integer , DIMENSION(max_domains) :: diagnostic_chem integer , DIMENSION(max_domains) :: aero_diag_opt integer , DIMENSION(max_domains) :: aero_cw_diag_opt integer , DIMENSION(max_domains) :: aer_aerodynres_opt integer , DIMENSION(max_domains) :: emiss_opt integer , DIMENSION(max_domains) :: emiss_opt_vol integer :: dust_opt integer :: dust_schme integer :: dmsemis_opt integer :: seas_opt integer , DIMENSION(max_domains) :: bio_emiss_opt integer , DIMENSION(max_domains) :: biomass_burn_opt integer , DIMENSION(max_domains) :: plumerisefire_frq integer , DIMENSION(max_domains) :: emiss_inpt_opt integer , DIMENSION(max_domains) :: gas_bc_opt integer , DIMENSION(max_domains) :: gas_ic_opt integer , DIMENSION(max_domains) :: aer_bc_opt integer , DIMENSION(max_domains) :: aer_ic_opt logical , DIMENSION(max_domains) :: have_bcs_chem logical , DIMENSION(max_domains) :: have_bcs_tracer logical , DIMENSION(max_domains) :: scale_fire_emiss integer , DIMENSION(max_domains) :: aer_ra_feedback integer , DIMENSION(max_domains) :: aer_op_opt integer :: opt_pars_out integer , DIMENSION(max_domains) :: diagnostic_dep integer , DIMENSION(max_domains) :: aircraft_emiss_opt logical , DIMENSION(max_domains) :: have_bcs_upper real , DIMENSION(max_domains) :: fixed_ubc_press character*256 :: fixed_ubc_inname character*256 :: trop_lev_inname character*256 , DIMENSION(max_domains) :: exo_coldens_inname character*256 , DIMENSION(max_domains) :: wes_seasonal_inname integer , DIMENSION(max_domains) :: chemdiag real :: dust_alpha real :: dust_gamma real :: dust_smtune real :: dust_ustune integer :: dust_dsr integer :: dust_veg integer :: dust_soils integer :: dust_smois real :: emiss_ash_hgt real , DIMENSION(max_domains) :: depo_fact integer :: track_chem_num character*256 , DIMENSION(max_trackchem) :: track_chem_name integer :: track_rad_num integer :: track_tuv_num integer :: track_tuv_lev integer :: n2o5_hetchem real , DIMENSION(max_domains) :: af_lambda_start real , DIMENSION(max_domains) :: af_lambda_end integer , DIMENSION(max_domains) :: lnox_opt logical , DIMENSION(max_domains) :: lnox_passive real , DIMENSION(max_domains) :: ltng_temp_upper real , DIMENSION(max_domains) :: ltng_temp_lower logical :: has_o3_exo_coldens real :: du_at_grnd logical :: scale_o3_to_grnd_exo_coldens logical :: scale_o3_to_du_at_grnd integer , DIMENSION(max_domains) :: irr_opt integer , DIMENSION(max_domains) :: ifire integer , DIMENSION(max_domains) :: fire_boundary_guard integer , DIMENSION(max_domains) :: fire_num_ignitions real , DIMENSION(max_domains) :: fire_ignition_ros1 real , DIMENSION(max_domains) :: fire_ignition_start_lon1 real , DIMENSION(max_domains) :: fire_ignition_start_lat1 real , DIMENSION(max_domains) :: fire_ignition_end_lon1 real , DIMENSION(max_domains) :: fire_ignition_end_lat1 real , DIMENSION(max_domains) :: fire_ignition_radius1 real , DIMENSION(max_domains) :: fire_ignition_start_time1 real , DIMENSION(max_domains) :: fire_ignition_end_time1 real , DIMENSION(max_domains) :: fire_ignition_ros2 real , DIMENSION(max_domains) :: fire_ignition_start_lon2 real , DIMENSION(max_domains) :: fire_ignition_start_lat2 real , DIMENSION(max_domains) :: fire_ignition_end_lon2 real , DIMENSION(max_domains) :: fire_ignition_end_lat2 real , DIMENSION(max_domains) :: fire_ignition_radius2 real , DIMENSION(max_domains) :: fire_ignition_start_time2 real , DIMENSION(max_domains) :: fire_ignition_end_time2 real , DIMENSION(max_domains) :: fire_ignition_ros3 real , DIMENSION(max_domains) :: fire_ignition_start_lon3 real , DIMENSION(max_domains) :: fire_ignition_start_lat3 real , DIMENSION(max_domains) :: fire_ignition_end_lon3 real , DIMENSION(max_domains) :: fire_ignition_end_lat3 real , DIMENSION(max_domains) :: fire_ignition_radius3 real , DIMENSION(max_domains) :: fire_ignition_start_time3 real , DIMENSION(max_domains) :: fire_ignition_end_time3 real , DIMENSION(max_domains) :: fire_ignition_ros4 real , DIMENSION(max_domains) :: fire_ignition_start_lon4 real , DIMENSION(max_domains) :: fire_ignition_start_lat4 real , DIMENSION(max_domains) :: fire_ignition_end_lon4 real , DIMENSION(max_domains) :: fire_ignition_end_lat4 real , DIMENSION(max_domains) :: fire_ignition_radius4 real , DIMENSION(max_domains) :: fire_ignition_start_time4 real , DIMENSION(max_domains) :: fire_ignition_end_time4 real , DIMENSION(max_domains) :: fire_ignition_ros5 real , DIMENSION(max_domains) :: fire_ignition_start_lon5 real , DIMENSION(max_domains) :: fire_ignition_start_lat5 real , DIMENSION(max_domains) :: fire_ignition_end_lon5 real , DIMENSION(max_domains) :: fire_ignition_end_lat5 real , DIMENSION(max_domains) :: fire_ignition_radius5 real , DIMENSION(max_domains) :: fire_ignition_start_time5 real , DIMENSION(max_domains) :: fire_ignition_end_time5 real , DIMENSION(max_domains) :: fire_ignition_start_x1 real , DIMENSION(max_domains) :: fire_ignition_start_y1 real , DIMENSION(max_domains) :: fire_ignition_end_x1 real , DIMENSION(max_domains) :: fire_ignition_end_y1 real , DIMENSION(max_domains) :: fire_ignition_start_x2 real , DIMENSION(max_domains) :: fire_ignition_start_y2 real , DIMENSION(max_domains) :: fire_ignition_end_x2 real , DIMENSION(max_domains) :: fire_ignition_end_y2 real , DIMENSION(max_domains) :: fire_ignition_start_x3 real , DIMENSION(max_domains) :: fire_ignition_start_y3 real , DIMENSION(max_domains) :: fire_ignition_end_x3 real , DIMENSION(max_domains) :: fire_ignition_end_y3 real , DIMENSION(max_domains) :: fire_ignition_start_x4 real , DIMENSION(max_domains) :: fire_ignition_start_y4 real , DIMENSION(max_domains) :: fire_ignition_end_x4 real , DIMENSION(max_domains) :: fire_ignition_end_y4 real , DIMENSION(max_domains) :: fire_ignition_start_x5 real , DIMENSION(max_domains) :: fire_ignition_start_y5 real , DIMENSION(max_domains) :: fire_ignition_end_x5 real , DIMENSION(max_domains) :: fire_ignition_end_y5 real , DIMENSION(max_domains) :: fire_lat_init real , DIMENSION(max_domains) :: fire_lon_init real , DIMENSION(max_domains) :: fire_ign_time integer , DIMENSION(max_domains) :: fire_shape integer , DIMENSION(max_domains) :: fire_sprd_mdl real , DIMENSION(max_domains) :: fire_crwn_hgt real , DIMENSION(max_domains) :: fire_ext_grnd real , DIMENSION(max_domains) :: fire_ext_crwn real , DIMENSION(max_domains) :: fire_wind_height integer , DIMENSION(max_domains) :: fire_fuel_read integer , DIMENSION(max_domains) :: fire_fuel_cat integer , DIMENSION(max_domains) :: fire_print_msg integer , DIMENSION(max_domains) :: fire_print_file integer , DIMENSION(max_domains) :: fire_fuel_left_method integer , DIMENSION(max_domains) :: fire_fuel_left_irl integer , DIMENSION(max_domains) :: fire_fuel_left_jrl real , DIMENSION(max_domains) :: fire_back_weight integer , DIMENSION(max_domains) :: fire_grows_only integer , DIMENSION(max_domains) :: fire_upwinding integer , DIMENSION(max_domains) :: fire_upwind_split real , DIMENSION(max_domains) :: fire_viscosity real , DIMENSION(max_domains) :: fire_lfn_ext_up integer , DIMENSION(max_domains) :: fire_topo_from_atm integer , DIMENSION(max_domains) :: fire_advection integer , DIMENSION(max_domains) :: fire_test_steps real , DIMENSION(max_domains) :: fire_const_time real , DIMENSION(max_domains) :: fire_const_grnhfx real , DIMENSION(max_domains) :: fire_const_grnqfx real , DIMENSION(max_domains) :: fire_atm_feedback integer , DIMENSION(max_domains) :: fire_mountain_type real , DIMENSION(max_domains) :: fire_mountain_height real , DIMENSION(max_domains) :: fire_mountain_start_x real , DIMENSION(max_domains) :: fire_mountain_start_y real , DIMENSION(max_domains) :: fire_mountain_end_x real , DIMENSION(max_domains) :: fire_mountain_end_y real , DIMENSION(max_domains) :: delt_perturbation real , DIMENSION(max_domains) :: xrad_perturbation real , DIMENSION(max_domains) :: yrad_perturbation real , DIMENSION(max_domains) :: zrad_perturbation real , DIMENSION(max_domains) :: hght_perturbation logical , DIMENSION(max_domains) :: stretch_grd logical , DIMENSION(max_domains) :: stretch_hyp real , DIMENSION(max_domains) :: z_grd_scale logical , DIMENSION(max_domains) :: sfc_full_init integer , DIMENSION(max_domains) :: sfc_lu_index real , DIMENSION(max_domains) :: sfc_tsk real , DIMENSION(max_domains) :: sfc_tmn logical , DIMENSION(max_domains) :: fire_read_lu logical , DIMENSION(max_domains) :: fire_read_tsk logical , DIMENSION(max_domains) :: fire_read_tmn logical , DIMENSION(max_domains) :: fire_read_atm_ht logical , DIMENSION(max_domains) :: fire_read_fire_ht logical , DIMENSION(max_domains) :: fire_read_atm_grad logical , DIMENSION(max_domains) :: fire_read_fire_grad real , DIMENSION(max_domains) :: sfc_vegfra real , DIMENSION(max_domains) :: sfc_canwat integer , DIMENSION(max_domains) :: sfc_ivgtyp integer , DIMENSION(max_domains) :: sfc_isltyp integer , DIMENSION(max_domains) :: do_avgflx_em integer , DIMENSION(max_domains) :: do_avgflx_cugd integer :: nens integer , DIMENSION(max_domains) :: skebs integer , DIMENSION(max_domains) :: stoch_force_opt integer :: skebs_vertstruc integer , DIMENSION(max_domains) :: stoch_vertstruc_opt real , DIMENSION(max_domains) :: tot_backscat_psi real , DIMENSION(max_domains) :: tot_backscat_t real :: ztau_psi real :: ztau_t real :: rexponent_psi real :: rexponent_t real :: zsigma2_eps real :: zsigma2_eta integer :: kminforc integer :: lminforc integer :: kminforct integer :: lminforct integer :: kmaxforc integer :: lmaxforc integer :: kmaxforct integer :: lmaxforct integer :: iseed_skebs integer :: kmaxforch integer :: lmaxforch integer :: kmaxforcth integer :: lmaxforcth integer , DIMENSION(max_domains) :: sppt real , DIMENSION(max_domains) :: gridpt_stddev_sppt real , DIMENSION(max_domains) :: stddev_cutoff_sppt real , DIMENSION(max_domains) :: lengthscale_sppt real , DIMENSION(max_domains) :: timescale_sppt integer :: sppt_vertstruc integer :: iseed_sppt integer , DIMENSION(max_domains) :: rand_perturb real , DIMENSION(max_domains) :: gridpt_stddev_rand_pert real , DIMENSION(max_domains) :: stddev_cutoff_rand_pert real , DIMENSION(max_domains) :: lengthscale_rand_pert real , DIMENSION(max_domains) :: timescale_rand_pert integer :: rand_pert_vertstruc integer :: iseed_rand_pert integer , DIMENSION(max_domains) :: spp logical :: hrrr_cycling integer , DIMENSION(max_domains) :: spp_conv real , DIMENSION(max_domains) :: gridpt_stddev_spp_conv real , DIMENSION(max_domains) :: stddev_cutoff_spp_conv real , DIMENSION(max_domains) :: lengthscale_spp_conv real , DIMENSION(max_domains) :: timescale_spp_conv integer :: vertstruc_spp_conv integer :: iseed_spp_conv integer , DIMENSION(max_domains) :: spp_pbl real , DIMENSION(max_domains) :: gridpt_stddev_spp_pbl real , DIMENSION(max_domains) :: stddev_cutoff_spp_pbl real , DIMENSION(max_domains) :: lengthscale_spp_pbl real , DIMENSION(max_domains) :: timescale_spp_pbl integer :: vertstruc_spp_pbl integer :: iseed_spp_pbl integer , DIMENSION(max_domains) :: spp_lsm real , DIMENSION(max_domains) :: gridpt_stddev_spp_lsm real , DIMENSION(max_domains) :: stddev_cutoff_spp_lsm real , DIMENSION(max_domains) :: lengthscale_spp_lsm real , DIMENSION(max_domains) :: timescale_spp_lsm integer :: vertstruc_spp_lsm integer :: iseed_spp_lsm integer :: skebs_on integer :: sppt_on integer :: spp_on integer :: rand_perturb_on integer :: num_stoch_levels integer , DIMENSION(max_domains) :: sfs_opt integer , DIMENSION(max_domains) :: m_opt real , DIMENSION(max_domains) :: lakedepth_default real , DIMENSION(max_domains) :: lake_min_elev integer , DIMENSION(max_domains) :: use_lakedepth integer :: p_lev_diags integer :: p_lev_diags_dfi integer :: num_press_levels real , DIMENSION(max_plevs) :: press_levels integer :: use_tot_or_hyd_p integer :: extrap_below_grnd real :: p_lev_missing real , DIMENSION(max_domains) :: p_lev_interval integer :: z_lev_diags integer :: z_lev_diags_dfi integer :: num_z_levels real , DIMENSION(max_zlevs) :: z_levels real :: z_lev_missing real , DIMENSION(max_domains) :: z_lev_interval integer , DIMENSION(max_domains) :: afwa_diag_opt integer , DIMENSION(max_domains) :: afwa_ptype_opt integer , DIMENSION(max_domains) :: afwa_vil_opt integer , DIMENSION(max_domains) :: afwa_radar_opt integer , DIMENSION(max_domains) :: afwa_severe_opt integer , DIMENSION(max_domains) :: afwa_icing_opt integer , DIMENSION(max_domains) :: afwa_vis_opt integer , DIMENSION(max_domains) :: afwa_cloud_opt integer , DIMENSION(max_domains) :: afwa_therm_opt integer , DIMENSION(max_domains) :: afwa_turb_opt integer , DIMENSION(max_domains) :: afwa_buoy_opt real :: afwa_ptype_ccn_tmp real :: afwa_ptype_tot_melt integer :: afwa_bad_data_check integer :: mean_diag integer :: mean_freq integer :: mean_interval integer :: diurnal_diag integer , DIMENSION(max_domains) :: nssl_ipelec integer :: nssl_isaund integer :: nssl_iscreen real :: nssl_lightrad integer :: nssl_idischarge integer :: nssl_ibrkd real :: nssl_ecrit real :: nssl_disfrac integer :: elec_physics integer :: perturb_bdy integer :: perturb_chem_bdy integer :: num_gca_levels integer :: gca_input_opt integer :: hybrid_opt real :: etac integer :: num_wif_levels integer :: wif_input_opt integer :: last_item_in_struct END TYPE model_config_rec_type TYPE grid_config_rec_type integer :: first_item_in_struct integer :: run_days integer :: run_hours integer :: run_minutes integer :: run_seconds integer :: start_year integer :: start_month integer :: start_day integer :: start_hour integer :: start_minute integer :: start_second integer :: end_year integer :: end_month integer :: end_day integer :: end_hour integer :: end_minute integer :: end_second integer :: interval_seconds logical :: input_from_file integer :: fine_input_stream logical :: input_from_hires character*256 :: rsmas_data_path logical :: all_ic_times integer :: julyr integer :: julday real :: gmt character*256 :: input_inname character*256 :: input_outname character*256 :: bdy_inname character*256 :: bdy_outname character*256 :: rst_inname character*256 :: rst_outname logical :: write_input logical :: write_restart_at_0h logical :: write_hist_at_0h_rst logical :: adjust_output_times logical :: adjust_input_times integer :: diag_print logical :: nocolons logical :: cycling integer :: output_diagnostics integer :: nwp_diagnostics logical :: output_ready_flag logical :: usepio integer :: pioprocs integer :: piostart integer :: piostride integer :: pioshift integer :: dfi_opt integer :: dfi_savehydmeteors integer :: dfi_nfilter logical :: dfi_write_filtered_input logical :: dfi_write_dfi_history integer :: dfi_cutoff_seconds integer :: dfi_time_dim integer :: dfi_fwdstop_year integer :: dfi_fwdstop_month integer :: dfi_fwdstop_day integer :: dfi_fwdstop_hour integer :: dfi_fwdstop_minute integer :: dfi_fwdstop_second integer :: dfi_bckstop_year integer :: dfi_bckstop_month integer :: dfi_bckstop_day integer :: dfi_bckstop_hour integer :: dfi_bckstop_minute integer :: dfi_bckstop_second integer :: time_step integer :: time_step_fract_num integer :: time_step_fract_den integer :: time_step_dfi integer :: min_time_step integer :: min_time_step_den integer :: max_time_step integer :: max_time_step_den real :: target_cfl real :: target_hcfl integer :: max_step_increase_pct integer :: starting_time_step integer :: starting_time_step_den logical :: step_to_output_time integer :: adaptation_domain logical :: use_adaptive_time_step logical :: use_adaptive_time_step_dfi integer :: max_dom integer :: lats_to_mic integer :: s_we integer :: e_we integer :: s_sn integer :: e_sn integer :: s_vert integer :: e_vert integer :: num_metgrid_levels integer :: num_metgrid_soil_levels real :: p_top_requested logical :: interp_theta integer :: interp_type integer :: rebalance integer :: vert_refine_method integer :: vert_refine_fact integer :: extrap_type integer :: t_extrap_type integer :: hypsometric_opt logical :: lowest_lev_from_sfc logical :: use_levels_below_ground logical :: use_tavg_for_tsk logical :: use_surface integer :: lagrange_order integer :: force_sfc_in_vinterp real :: zap_close_levels real :: maxw_horiz_pres_diff real :: trop_horiz_pres_diff real :: maxw_above_this_level integer :: use_maxw_level integer :: use_trop_level logical :: sfcp_to_sfcp logical :: adjust_heights logical :: smooth_cg_topo integer :: nest_interp_coord integer :: interp_method_type logical :: aggregate_lu logical :: rh2qv_wrt_liquid integer :: rh2qv_method real :: qv_max_p_safe real :: qv_max_flag real :: qv_max_value real :: qv_min_p_safe real :: qv_min_flag real :: qv_min_value integer :: ideal_init_method real :: dx real :: dy integer :: grid_id logical :: grid_allowed integer :: parent_id integer :: i_parent_start integer :: j_parent_start integer :: parent_grid_ratio integer :: parent_time_step_ratio integer :: feedback integer :: smooth_option integer :: blend_width real :: ztop integer :: moad_grid_ratio integer :: moad_time_step_ratio integer :: shw integer :: tile_sz_x integer :: tile_sz_y integer :: numtiles integer :: numtiles_inc integer :: numtiles_x integer :: numtiles_y integer :: tile_strategy integer :: nproc_x integer :: nproc_y integer :: irand real :: dt integer :: fft_used integer :: cu_used integer :: shcu_used integer :: cam_used integer :: alloc_qndropsource integer :: num_moves integer :: ts_buf_size integer :: max_ts_locs integer :: vortex_interval integer :: max_vortex_speed integer :: corral_dist integer :: track_level real :: time_to_move integer :: move_id integer :: move_interval integer :: move_cd_x integer :: move_cd_y logical :: swap_x logical :: swap_y logical :: cycle_x logical :: cycle_y logical :: reorder_mesh logical :: perturb_input real :: eta_levels real :: max_dz integer :: ocean_levels real :: ocean_z real :: ocean_t real :: ocean_s integer :: num_traj integer :: max_ts_level integer :: track_loc_in integer :: num_ext_model_couple_dom logical :: insert_bogus_storm logical :: remove_storm integer :: num_storm real :: latc_loc real :: lonc_loc real :: vmax_meters_per_second real :: rmax real :: vmax_ratio real :: rankine_lid character*256 :: physics_suite logical :: force_read_thompson logical :: write_thompson_tables integer :: mp_physics real :: nssl_cccn real :: nssl_alphah real :: nssl_alphahl real :: nssl_cnoh real :: nssl_cnohl real :: nssl_cnor real :: nssl_cnos real :: nssl_rho_qh real :: nssl_rho_qhl real :: nssl_rho_qs integer :: nudge_lightning integer :: nudge_light_times integer :: nudge_light_timee integer :: nudge_light_int character*256 :: path_to_files integer :: gsfcgce_hail integer :: gsfcgce_2ice integer :: progn real :: accum_mode real :: aitken_mode real :: coarse_mode integer :: do_radar_ref integer :: compute_radar_ref integer :: ra_lw_physics integer :: ra_sw_physics real :: radt real :: naer integer :: sf_sfclay_physics integer :: sf_surface_physics integer :: bl_pbl_physics integer :: bl_mynn_tkebudget integer :: ysu_topdown_pblmix integer :: shinhong_tke_diag logical :: bl_mynn_tkeadvect integer :: bl_mynn_cloudpdf integer :: bl_mynn_mixlength integer :: bl_mynn_edmf integer :: bl_mynn_edmf_mom integer :: bl_mynn_edmf_tke integer :: bl_mynn_edmf_part integer :: bl_mynn_cloudmix integer :: bl_mynn_mixqt integer :: icloud_bl integer :: mfshconv integer :: sf_urban_physics real :: bldt integer :: cu_physics integer :: shcu_physics integer :: cu_diag integer :: kf_edrates integer :: kfeta_trigger integer :: nsas_dx_factor real :: cudt real :: gsmdt integer :: isfflx integer :: ifsnow integer :: icloud integer :: ideal_xland real :: swrad_scat integer :: surface_input_source integer :: num_soil_layers integer :: maxpatch integer :: num_snow_layers integer :: num_snso_layers integer :: num_urban_layers integer :: num_urban_hi integer :: num_months integer :: sf_surface_mosaic integer :: mosaic_cat integer :: mosaic_cat_soil integer :: mosaic_lu integer :: mosaic_soil integer :: maxiens integer :: maxens integer :: maxens2 integer :: maxens3 integer :: ensdim integer :: cugd_avedx integer :: clos_choice integer :: imomentum integer :: ishallow real :: convtrans_avglen_m integer :: num_land_cat integer :: num_soil_cat integer :: mp_zero_out real :: mp_zero_out_thresh real :: seaice_threshold integer :: sst_update integer :: sst_skin integer :: tmn_update logical :: usemonalb logical :: rdmaxalb logical :: rdlai2d logical :: ua_phys integer :: opt_thcnd integer :: co2tf integer :: ra_call_offset real :: cam_abs_freq_s integer :: levsiz integer :: paerlev integer :: cam_abs_dim1 integer :: cam_abs_dim2 integer :: lagday integer :: no_src_types integer :: alevsiz integer :: o3input integer :: aer_opt integer :: swint_opt integer :: aer_type integer :: aer_aod550_opt integer :: aer_angexp_opt integer :: aer_ssa_opt integer :: aer_asy_opt real :: aer_aod550_val real :: aer_angexp_val real :: aer_ssa_val real :: aer_asy_val logical :: cu_rad_feedback logical :: shallowcu_forced_ra integer :: numbins real :: thbinsize real :: rbinsize real :: mindeepfreq real :: minshallowfreq integer :: shcu_aerosols_opt integer :: icloud_cu integer :: pxlsm_smois_init integer :: omlcall integer :: sf_ocean_physics integer :: traj_opt logical :: dm_has_traj integer :: tracercall real :: omdt real :: oml_hml0 real :: oml_gamma real :: oml_relaxation_time integer :: isftcflx integer :: iz0tlnd real :: shadlen integer :: slope_rad integer :: topo_shading integer :: topo_wind integer :: no_mp_heating integer :: fractional_seaice integer :: seaice_snowdepth_opt real :: seaice_snowdepth_max real :: seaice_snowdepth_min integer :: seaice_albedo_opt real :: seaice_albedo_default integer :: seaice_thickness_opt real :: seaice_thickness_default logical :: tice2tsk_if2cold real :: bucket_mm real :: bucket_j real :: mp_tend_lim real :: prec_acc_dt integer :: prec_acc_opt integer :: bucketr_opt integer :: bucketf_opt integer :: process_time_series integer :: grav_settling real :: sas_pgcon integer :: scalar_pblmix integer :: tracer_pblmix logical :: use_aero_icbc logical :: use_rap_aero_icbc integer :: use_mp_re real :: ccn_conc integer :: hail_opt integer :: dveg integer :: opt_crs integer :: opt_btr integer :: opt_run integer :: opt_sfc integer :: opt_frz integer :: opt_inf integer :: opt_rad integer :: opt_alb integer :: opt_snf integer :: opt_tbot integer :: opt_stc integer :: opt_gla integer :: opt_rsf real :: wtddt integer :: wrf_hydro real :: fgdt integer :: fgdtzero integer :: grid_fdda integer :: grid_sfdda integer :: if_no_pbl_nudging_uv integer :: if_no_pbl_nudging_t integer :: if_no_pbl_nudging_ph integer :: if_no_pbl_nudging_q integer :: if_zfac_uv integer :: k_zfac_uv integer :: if_zfac_t integer :: k_zfac_t integer :: if_zfac_ph integer :: k_zfac_ph integer :: if_zfac_q integer :: k_zfac_q integer :: dk_zfac_uv integer :: dk_zfac_t integer :: dk_zfac_ph real :: guv real :: guv_sfc real :: gt real :: gt_sfc real :: gq real :: gq_sfc real :: gph real :: dtramp_min integer :: if_ramping real :: rinblw integer :: xwavenum integer :: ywavenum integer :: pxlsm_soil_nudge integer :: fasdas integer :: obs_nudge_opt integer :: max_obs real :: fdda_start real :: fdda_end integer :: obs_nudge_wind real :: obs_coef_wind integer :: obs_nudge_temp real :: obs_coef_temp integer :: obs_nudge_mois real :: obs_coef_mois integer :: obs_nudge_pstr real :: obs_coef_pstr integer :: obs_no_pbl_nudge_uv integer :: obs_no_pbl_nudge_t integer :: obs_no_pbl_nudge_q integer :: obs_sfc_scheme_horiz integer :: obs_sfc_scheme_vert real :: obs_max_sndng_gap real :: obs_nudgezfullr1_uv real :: obs_nudgezrampr1_uv real :: obs_nudgezfullr2_uv real :: obs_nudgezrampr2_uv real :: obs_nudgezfullr4_uv real :: obs_nudgezrampr4_uv real :: obs_nudgezfullr1_t real :: obs_nudgezrampr1_t real :: obs_nudgezfullr2_t real :: obs_nudgezrampr2_t real :: obs_nudgezfullr4_t real :: obs_nudgezrampr4_t real :: obs_nudgezfullr1_q real :: obs_nudgezrampr1_q real :: obs_nudgezfullr2_q real :: obs_nudgezrampr2_q real :: obs_nudgezfullr4_q real :: obs_nudgezrampr4_q real :: obs_nudgezfullmin real :: obs_nudgezrampmin real :: obs_nudgezmax real :: obs_sfcfact real :: obs_sfcfacr real :: obs_dpsmx real :: obs_rinxy real :: obs_rinsig real :: obs_twindo integer :: obs_npfi integer :: obs_ionf integer :: obs_idynin real :: obs_dtramp integer :: obs_prt_max integer :: obs_prt_freq logical :: obs_ipf_in4dob logical :: obs_ipf_errob logical :: obs_ipf_nudob logical :: obs_ipf_init integer :: obs_scl_neg_qv_innov integer :: scm_force real :: scm_force_dx integer :: num_force_layers integer :: scm_lu_index integer :: scm_isltyp real :: scm_vegfra real :: scm_canwat real :: scm_lat real :: scm_lon logical :: scm_th_t_tend logical :: scm_qv_t_tend logical :: scm_th_adv logical :: scm_wind_adv logical :: scm_qv_adv logical :: scm_ql_adv logical :: scm_vert_adv integer :: num_force_soil_layers logical :: scm_soilt_force logical :: scm_soilq_force logical :: scm_force_th_largescale logical :: scm_force_qv_largescale logical :: scm_force_ql_largescale logical :: scm_force_wind_largescale integer :: scm_force_skintemp integer :: scm_force_flux integer :: dyn_opt integer :: rk_ord integer :: w_damping integer :: diff_opt integer :: diff_opt_dfi integer :: km_opt integer :: km_opt_dfi integer :: damp_opt integer :: rad_nudge integer :: gwd_opt real :: zdamp real :: dampcoef real :: khdif real :: kvdif real :: diff_6th_factor integer :: diff_6th_opt integer :: use_theta_m integer :: use_q_diabatic real :: c_s real :: c_k real :: smdiv real :: emdiv real :: epssm logical :: non_hydrostatic logical :: use_input_w integer :: time_step_sound integer :: h_mom_adv_order integer :: v_mom_adv_order integer :: h_sca_adv_order integer :: v_sca_adv_order integer :: momentum_adv_opt integer :: moist_adv_opt integer :: moist_adv_dfi_opt integer :: chem_adv_opt integer :: tracer_adv_opt integer :: scalar_adv_opt integer :: tke_adv_opt logical :: top_radiation integer :: mix_isotropic real :: mix_upper_bound logical :: top_lid real :: tke_upper_bound real :: tke_drag_coefficient real :: tke_heat_flux logical :: pert_coriolis logical :: coriolis2d logical :: mix_full_fields real :: base_pres real :: base_temp real :: base_lapse real :: iso_temp real :: base_pres_strat real :: base_lapse_strat logical :: use_baseparam_fr_nml real :: fft_filter_lat logical :: coupled_filtering logical :: pos_def logical :: swap_pole_with_next_j logical :: actual_distance_average logical :: rotated_pole logical :: do_coriolis logical :: do_curvature logical :: do_gradp integer :: tracer_opt integer :: tenddiag integer :: spec_bdy_width integer :: spec_zone integer :: relax_zone logical :: specified logical :: constant_bc logical :: periodic_x logical :: symmetric_xs logical :: symmetric_xe logical :: open_xs logical :: open_xe logical :: periodic_y logical :: symmetric_ys logical :: symmetric_ye logical :: open_ys logical :: open_ye logical :: polar logical :: nested real :: spec_exp integer :: spec_bdy_final_mu integer :: real_data_init_type logical :: have_bcs_moist logical :: have_bcs_scalar integer :: background_proc_id integer :: forecast_proc_id integer :: production_status integer :: compression integer :: nobs_ndg_vars integer :: nobs_err_flds real :: cen_lat real :: cen_lon real :: truelat1 real :: truelat2 real :: moad_cen_lat real :: stand_lon real :: pole_lat real :: pole_lon integer :: flag_metgrid integer :: flag_snow integer :: flag_psfc integer :: flag_sm000010 integer :: flag_sm010040 integer :: flag_sm040100 integer :: flag_sm100200 integer :: flag_st000010 integer :: flag_st010040 integer :: flag_st040100 integer :: flag_st100200 integer :: flag_soil_layers integer :: flag_slp integer :: flag_soilhgt integer :: flag_mf_xy integer :: flag_um_soil real :: bdyfrq character*256 :: mminlu integer :: iswater integer :: islake integer :: isice integer :: isurban integer :: isoilwater integer :: map_proj integer :: use_wps_input integer :: dfi_stage integer :: mp_physics_dfi integer :: bl_pbl_physics_dfi integer :: windfarm_opt integer :: windfarm_ij integer :: hailcast_opt integer :: lightning_option real :: lightning_dt real :: lightning_start_seconds real :: flashrate_factor integer :: iccg_method real :: iccg_prescribed_num real :: iccg_prescribed_den integer :: cellcount_method real :: cldtop_adjustment integer :: sf_lake_physics character*256 :: auxinput1_inname integer :: io_form_auxinput1 logical :: override_restart_timers character*256 :: auxhist1_inname character*256 :: auxhist1_outname integer :: auxhist1_interval_y integer :: auxhist1_interval_d integer :: auxhist1_interval_h integer :: auxhist1_interval_m integer :: auxhist1_interval_s integer :: auxhist1_interval integer :: auxhist1_begin_y integer :: auxhist1_begin_d integer :: auxhist1_begin_h integer :: auxhist1_begin_m integer :: auxhist1_begin_s integer :: auxhist1_begin integer :: auxhist1_end_y integer :: auxhist1_end_d integer :: auxhist1_end_h integer :: auxhist1_end_m integer :: auxhist1_end_s integer :: auxhist1_end integer :: io_form_auxhist1 integer :: frames_per_auxhist1 character*256 :: auxhist2_inname character*256 :: auxhist2_outname integer :: auxhist2_interval_y integer :: auxhist2_interval_d integer :: auxhist2_interval_h integer :: auxhist2_interval_m integer :: auxhist2_interval_s integer :: auxhist2_interval integer :: auxhist2_begin_y integer :: auxhist2_begin_d integer :: auxhist2_begin_h integer :: auxhist2_begin_m integer :: auxhist2_begin_s integer :: auxhist2_begin integer :: auxhist2_end_y integer :: auxhist2_end_d integer :: auxhist2_end_h integer :: auxhist2_end_m integer :: auxhist2_end_s integer :: auxhist2_end integer :: io_form_auxhist2 integer :: frames_per_auxhist2 character*256 :: auxhist3_inname character*256 :: auxhist3_outname integer :: auxhist3_interval_y integer :: auxhist3_interval_d integer :: auxhist3_interval_h integer :: auxhist3_interval_m integer :: auxhist3_interval_s integer :: auxhist3_interval integer :: auxhist3_begin_y integer :: auxhist3_begin_d integer :: auxhist3_begin_h integer :: auxhist3_begin_m integer :: auxhist3_begin_s integer :: auxhist3_begin integer :: auxhist3_end_y integer :: auxhist3_end_d integer :: auxhist3_end_h integer :: auxhist3_end_m integer :: auxhist3_end_s integer :: auxhist3_end integer :: io_form_auxhist3 integer :: frames_per_auxhist3 character*256 :: auxhist4_inname character*256 :: auxhist4_outname integer :: auxhist4_interval_y integer :: auxhist4_interval_d integer :: auxhist4_interval_h integer :: auxhist4_interval_m integer :: auxhist4_interval_s integer :: auxhist4_interval integer :: auxhist4_begin_y integer :: auxhist4_begin_d integer :: auxhist4_begin_h integer :: auxhist4_begin_m integer :: auxhist4_begin_s integer :: auxhist4_begin integer :: auxhist4_end_y integer :: auxhist4_end_d integer :: auxhist4_end_h integer :: auxhist4_end_m integer :: auxhist4_end_s integer :: auxhist4_end integer :: io_form_auxhist4 integer :: frames_per_auxhist4 character*256 :: auxhist5_inname character*256 :: auxhist5_outname integer :: auxhist5_interval_y integer :: auxhist5_interval_d integer :: auxhist5_interval_h integer :: auxhist5_interval_m integer :: auxhist5_interval_s integer :: auxhist5_interval integer :: auxhist5_begin_y integer :: auxhist5_begin_d integer :: auxhist5_begin_h integer :: auxhist5_begin_m integer :: auxhist5_begin_s integer :: auxhist5_begin integer :: auxhist5_end_y integer :: auxhist5_end_d integer :: auxhist5_end_h integer :: auxhist5_end_m integer :: auxhist5_end_s integer :: auxhist5_end integer :: io_form_auxhist5 integer :: frames_per_auxhist5 character*256 :: auxhist6_inname character*256 :: auxhist6_outname integer :: auxhist6_interval_y integer :: auxhist6_interval_d integer :: auxhist6_interval_h integer :: auxhist6_interval_m integer :: auxhist6_interval_s integer :: auxhist6_interval integer :: auxhist6_begin_y integer :: auxhist6_begin_d integer :: auxhist6_begin_h integer :: auxhist6_begin_m integer :: auxhist6_begin_s integer :: auxhist6_begin integer :: auxhist6_end_y integer :: auxhist6_end_d integer :: auxhist6_end_h integer :: auxhist6_end_m integer :: auxhist6_end_s integer :: auxhist6_end integer :: io_form_auxhist6 integer :: frames_per_auxhist6 character*256 :: auxhist7_inname character*256 :: auxhist7_outname integer :: auxhist7_interval_y integer :: auxhist7_interval_d integer :: auxhist7_interval_h integer :: auxhist7_interval_m integer :: auxhist7_interval_s integer :: auxhist7_interval integer :: auxhist7_begin_y integer :: auxhist7_begin_d integer :: auxhist7_begin_h integer :: auxhist7_begin_m integer :: auxhist7_begin_s integer :: auxhist7_begin integer :: auxhist7_end_y integer :: auxhist7_end_d integer :: auxhist7_end_h integer :: auxhist7_end_m integer :: auxhist7_end_s integer :: auxhist7_end integer :: io_form_auxhist7 integer :: frames_per_auxhist7 character*256 :: auxhist8_inname character*256 :: auxhist8_outname integer :: auxhist8_interval_y integer :: auxhist8_interval_d integer :: auxhist8_interval_h integer :: auxhist8_interval_m integer :: auxhist8_interval_s integer :: auxhist8_interval integer :: auxhist8_begin_y integer :: auxhist8_begin_d integer :: auxhist8_begin_h integer :: auxhist8_begin_m integer :: auxhist8_begin_s integer :: auxhist8_begin integer :: auxhist8_end_y integer :: auxhist8_end_d integer :: auxhist8_end_h integer :: auxhist8_end_m integer :: auxhist8_end_s integer :: auxhist8_end integer :: io_form_auxhist8 integer :: frames_per_auxhist8 character*256 :: auxhist9_inname character*256 :: auxhist9_outname integer :: auxhist9_interval_y integer :: auxhist9_interval_d integer :: auxhist9_interval_h integer :: auxhist9_interval_m integer :: auxhist9_interval_s integer :: auxhist9_interval integer :: auxhist9_begin_y integer :: auxhist9_begin_d integer :: auxhist9_begin_h integer :: auxhist9_begin_m integer :: auxhist9_begin_s integer :: auxhist9_begin integer :: auxhist9_end_y integer :: auxhist9_end_d integer :: auxhist9_end_h integer :: auxhist9_end_m integer :: auxhist9_end_s integer :: auxhist9_end integer :: io_form_auxhist9 integer :: frames_per_auxhist9 character*256 :: auxhist10_inname character*256 :: auxhist10_outname integer :: auxhist10_interval_y integer :: auxhist10_interval_d integer :: auxhist10_interval_h integer :: auxhist10_interval_m integer :: auxhist10_interval_s integer :: auxhist10_interval integer :: auxhist10_begin_y integer :: auxhist10_begin_d integer :: auxhist10_begin_h integer :: auxhist10_begin_m integer :: auxhist10_begin_s integer :: auxhist10_begin integer :: auxhist10_end_y integer :: auxhist10_end_d integer :: auxhist10_end_h integer :: auxhist10_end_m integer :: auxhist10_end_s integer :: auxhist10_end integer :: io_form_auxhist10 integer :: frames_per_auxhist10 character*256 :: auxhist11_inname character*256 :: auxhist11_outname integer :: auxhist11_interval_y integer :: auxhist11_interval_d integer :: auxhist11_interval_h integer :: auxhist11_interval_m integer :: auxhist11_interval_s integer :: auxhist11_interval integer :: auxhist11_begin_y integer :: auxhist11_begin_d integer :: auxhist11_begin_h integer :: auxhist11_begin_m integer :: auxhist11_begin_s integer :: auxhist11_begin integer :: auxhist11_end_y integer :: auxhist11_end_d integer :: auxhist11_end_h integer :: auxhist11_end_m integer :: auxhist11_end_s integer :: auxhist11_end integer :: io_form_auxhist11 integer :: frames_per_auxhist11 character*256 :: auxhist12_inname character*256 :: auxhist12_outname integer :: auxhist12_interval_y integer :: auxhist12_interval_d integer :: auxhist12_interval_h integer :: auxhist12_interval_m integer :: auxhist12_interval_s integer :: auxhist12_interval integer :: auxhist12_begin_y integer :: auxhist12_begin_d integer :: auxhist12_begin_h integer :: auxhist12_begin_m integer :: auxhist12_begin_s integer :: auxhist12_begin integer :: auxhist12_end_y integer :: auxhist12_end_d integer :: auxhist12_end_h integer :: auxhist12_end_m integer :: auxhist12_end_s integer :: auxhist12_end integer :: io_form_auxhist12 integer :: frames_per_auxhist12 character*256 :: auxhist13_inname character*256 :: auxhist13_outname integer :: auxhist13_interval_y integer :: auxhist13_interval_d integer :: auxhist13_interval_h integer :: auxhist13_interval_m integer :: auxhist13_interval_s integer :: auxhist13_interval integer :: auxhist13_begin_y integer :: auxhist13_begin_d integer :: auxhist13_begin_h integer :: auxhist13_begin_m integer :: auxhist13_begin_s integer :: auxhist13_begin integer :: auxhist13_end_y integer :: auxhist13_end_d integer :: auxhist13_end_h integer :: auxhist13_end_m integer :: auxhist13_end_s integer :: auxhist13_end integer :: io_form_auxhist13 integer :: frames_per_auxhist13 character*256 :: auxhist14_inname character*256 :: auxhist14_outname integer :: auxhist14_interval_y integer :: auxhist14_interval_d integer :: auxhist14_interval_h integer :: auxhist14_interval_m integer :: auxhist14_interval_s integer :: auxhist14_interval integer :: auxhist14_begin_y integer :: auxhist14_begin_d integer :: auxhist14_begin_h integer :: auxhist14_begin_m integer :: auxhist14_begin_s integer :: auxhist14_begin integer :: auxhist14_end_y integer :: auxhist14_end_d integer :: auxhist14_end_h integer :: auxhist14_end_m integer :: auxhist14_end_s integer :: auxhist14_end integer :: io_form_auxhist14 integer :: frames_per_auxhist14 character*256 :: auxhist15_inname character*256 :: auxhist15_outname integer :: auxhist15_interval_y integer :: auxhist15_interval_d integer :: auxhist15_interval_h integer :: auxhist15_interval_m integer :: auxhist15_interval_s integer :: auxhist15_interval integer :: auxhist15_begin_y integer :: auxhist15_begin_d integer :: auxhist15_begin_h integer :: auxhist15_begin_m integer :: auxhist15_begin_s integer :: auxhist15_begin integer :: auxhist15_end_y integer :: auxhist15_end_d integer :: auxhist15_end_h integer :: auxhist15_end_m integer :: auxhist15_end_s integer :: auxhist15_end integer :: io_form_auxhist15 integer :: frames_per_auxhist15 character*256 :: auxhist16_inname character*256 :: auxhist16_outname integer :: auxhist16_interval_y integer :: auxhist16_interval_d integer :: auxhist16_interval_h integer :: auxhist16_interval_m integer :: auxhist16_interval_s integer :: auxhist16_interval integer :: auxhist16_begin_y integer :: auxhist16_begin_d integer :: auxhist16_begin_h integer :: auxhist16_begin_m integer :: auxhist16_begin_s integer :: auxhist16_begin integer :: auxhist16_end_y integer :: auxhist16_end_d integer :: auxhist16_end_h integer :: auxhist16_end_m integer :: auxhist16_end_s integer :: auxhist16_end integer :: io_form_auxhist16 integer :: frames_per_auxhist16 character*256 :: auxhist17_inname character*256 :: auxhist17_outname integer :: auxhist17_interval_y integer :: auxhist17_interval_d integer :: auxhist17_interval_h integer :: auxhist17_interval_m integer :: auxhist17_interval_s integer :: auxhist17_interval integer :: auxhist17_begin_y integer :: auxhist17_begin_d integer :: auxhist17_begin_h integer :: auxhist17_begin_m integer :: auxhist17_begin_s integer :: auxhist17_begin integer :: auxhist17_end_y integer :: auxhist17_end_d integer :: auxhist17_end_h integer :: auxhist17_end_m integer :: auxhist17_end_s integer :: auxhist17_end integer :: io_form_auxhist17 integer :: frames_per_auxhist17 character*256 :: auxhist18_inname character*256 :: auxhist18_outname integer :: auxhist18_interval_y integer :: auxhist18_interval_d integer :: auxhist18_interval_h integer :: auxhist18_interval_m integer :: auxhist18_interval_s integer :: auxhist18_interval integer :: auxhist18_begin_y integer :: auxhist18_begin_d integer :: auxhist18_begin_h integer :: auxhist18_begin_m integer :: auxhist18_begin_s integer :: auxhist18_begin integer :: auxhist18_end_y integer :: auxhist18_end_d integer :: auxhist18_end_h integer :: auxhist18_end_m integer :: auxhist18_end_s integer :: auxhist18_end integer :: io_form_auxhist18 integer :: frames_per_auxhist18 character*256 :: auxhist19_inname character*256 :: auxhist19_outname integer :: auxhist19_interval_y integer :: auxhist19_interval_d integer :: auxhist19_interval_h integer :: auxhist19_interval_m integer :: auxhist19_interval_s integer :: auxhist19_interval integer :: auxhist19_begin_y integer :: auxhist19_begin_d integer :: auxhist19_begin_h integer :: auxhist19_begin_m integer :: auxhist19_begin_s integer :: auxhist19_begin integer :: auxhist19_end_y integer :: auxhist19_end_d integer :: auxhist19_end_h integer :: auxhist19_end_m integer :: auxhist19_end_s integer :: auxhist19_end integer :: io_form_auxhist19 integer :: frames_per_auxhist19 character*256 :: auxhist20_inname character*256 :: auxhist20_outname integer :: auxhist20_interval_y integer :: auxhist20_interval_d integer :: auxhist20_interval_h integer :: auxhist20_interval_m integer :: auxhist20_interval_s integer :: auxhist20_interval integer :: auxhist20_begin_y integer :: auxhist20_begin_d integer :: auxhist20_begin_h integer :: auxhist20_begin_m integer :: auxhist20_begin_s integer :: auxhist20_begin integer :: auxhist20_end_y integer :: auxhist20_end_d integer :: auxhist20_end_h integer :: auxhist20_end_m integer :: auxhist20_end_s integer :: auxhist20_end integer :: io_form_auxhist20 integer :: frames_per_auxhist20 character*256 :: auxhist21_inname character*256 :: auxhist21_outname integer :: auxhist21_interval_y integer :: auxhist21_interval_d integer :: auxhist21_interval_h integer :: auxhist21_interval_m integer :: auxhist21_interval_s integer :: auxhist21_interval integer :: auxhist21_begin_y integer :: auxhist21_begin_d integer :: auxhist21_begin_h integer :: auxhist21_begin_m integer :: auxhist21_begin_s integer :: auxhist21_begin integer :: auxhist21_end_y integer :: auxhist21_end_d integer :: auxhist21_end_h integer :: auxhist21_end_m integer :: auxhist21_end_s integer :: auxhist21_end integer :: io_form_auxhist21 integer :: frames_per_auxhist21 character*256 :: auxhist22_inname character*256 :: auxhist22_outname integer :: auxhist22_interval_y integer :: auxhist22_interval_d integer :: auxhist22_interval_h integer :: auxhist22_interval_m integer :: auxhist22_interval_s integer :: auxhist22_interval integer :: auxhist22_begin_y integer :: auxhist22_begin_d integer :: auxhist22_begin_h integer :: auxhist22_begin_m integer :: auxhist22_begin_s integer :: auxhist22_begin integer :: auxhist22_end_y integer :: auxhist22_end_d integer :: auxhist22_end_h integer :: auxhist22_end_m integer :: auxhist22_end_s integer :: auxhist22_end integer :: io_form_auxhist22 integer :: frames_per_auxhist22 character*256 :: auxhist23_inname character*256 :: auxhist23_outname integer :: auxhist23_interval_y integer :: auxhist23_interval_d integer :: auxhist23_interval_h integer :: auxhist23_interval_m integer :: auxhist23_interval_s integer :: auxhist23_interval integer :: auxhist23_begin_y integer :: auxhist23_begin_d integer :: auxhist23_begin_h integer :: auxhist23_begin_m integer :: auxhist23_begin_s integer :: auxhist23_begin integer :: auxhist23_end_y integer :: auxhist23_end_d integer :: auxhist23_end_h integer :: auxhist23_end_m integer :: auxhist23_end_s integer :: auxhist23_end integer :: io_form_auxhist23 integer :: frames_per_auxhist23 character*256 :: auxhist24_inname character*256 :: auxhist24_outname integer :: auxhist24_interval_y integer :: auxhist24_interval_d integer :: auxhist24_interval_h integer :: auxhist24_interval_m integer :: auxhist24_interval_s integer :: auxhist24_interval integer :: auxhist24_begin_y integer :: auxhist24_begin_d integer :: auxhist24_begin_h integer :: auxhist24_begin_m integer :: auxhist24_begin_s integer :: auxhist24_begin integer :: auxhist24_end_y integer :: auxhist24_end_d integer :: auxhist24_end_h integer :: auxhist24_end_m integer :: auxhist24_end_s integer :: auxhist24_end integer :: io_form_auxhist24 integer :: frames_per_auxhist24 character*256 :: auxinput1_outname integer :: auxinput1_interval_y integer :: auxinput1_interval_d integer :: auxinput1_interval_h integer :: auxinput1_interval_m integer :: auxinput1_interval_s integer :: auxinput1_interval integer :: auxinput1_begin_y integer :: auxinput1_begin_d integer :: auxinput1_begin_h integer :: auxinput1_begin_m integer :: auxinput1_begin_s integer :: auxinput1_begin integer :: auxinput1_end_y integer :: auxinput1_end_d integer :: auxinput1_end_h integer :: auxinput1_end_m integer :: auxinput1_end_s integer :: auxinput1_end integer :: frames_per_auxinput1 character*256 :: auxinput2_inname character*256 :: auxinput2_outname integer :: auxinput2_interval_y integer :: auxinput2_interval_d integer :: auxinput2_interval_h integer :: auxinput2_interval_m integer :: auxinput2_interval_s integer :: auxinput2_interval integer :: auxinput2_begin_y integer :: auxinput2_begin_d integer :: auxinput2_begin_h integer :: auxinput2_begin_m integer :: auxinput2_begin_s integer :: auxinput2_begin integer :: auxinput2_end_y integer :: auxinput2_end_d integer :: auxinput2_end_h integer :: auxinput2_end_m integer :: auxinput2_end_s integer :: auxinput2_end integer :: io_form_auxinput2 integer :: frames_per_auxinput2 character*256 :: auxinput3_inname character*256 :: auxinput3_outname integer :: auxinput3_interval_y integer :: auxinput3_interval_d integer :: auxinput3_interval_h integer :: auxinput3_interval_m integer :: auxinput3_interval_s integer :: auxinput3_interval integer :: auxinput3_begin_y integer :: auxinput3_begin_d integer :: auxinput3_begin_h integer :: auxinput3_begin_m integer :: auxinput3_begin_s integer :: auxinput3_begin integer :: auxinput3_end_y integer :: auxinput3_end_d integer :: auxinput3_end_h integer :: auxinput3_end_m integer :: auxinput3_end_s integer :: auxinput3_end integer :: io_form_auxinput3 integer :: frames_per_auxinput3 character*256 :: auxinput4_inname character*256 :: auxinput4_outname integer :: auxinput4_interval_y integer :: auxinput4_interval_d integer :: auxinput4_interval_h integer :: auxinput4_interval_m integer :: auxinput4_interval_s integer :: auxinput4_interval integer :: auxinput4_begin_y integer :: auxinput4_begin_d integer :: auxinput4_begin_h integer :: auxinput4_begin_m integer :: auxinput4_begin_s integer :: auxinput4_begin integer :: auxinput4_end_y integer :: auxinput4_end_d integer :: auxinput4_end_h integer :: auxinput4_end_m integer :: auxinput4_end_s integer :: auxinput4_end integer :: io_form_auxinput4 integer :: frames_per_auxinput4 character*256 :: auxinput5_inname character*256 :: auxinput5_outname integer :: auxinput5_interval_y integer :: auxinput5_interval_d integer :: auxinput5_interval_h integer :: auxinput5_interval_m integer :: auxinput5_interval_s integer :: auxinput5_interval integer :: auxinput5_begin_y integer :: auxinput5_begin_d integer :: auxinput5_begin_h integer :: auxinput5_begin_m integer :: auxinput5_begin_s integer :: auxinput5_begin integer :: auxinput5_end_y integer :: auxinput5_end_d integer :: auxinput5_end_h integer :: auxinput5_end_m integer :: auxinput5_end_s integer :: auxinput5_end integer :: io_form_auxinput5 integer :: frames_per_auxinput5 character*256 :: auxinput6_inname character*256 :: auxinput6_outname integer :: auxinput6_interval_y integer :: auxinput6_interval_d integer :: auxinput6_interval_h integer :: auxinput6_interval_m integer :: auxinput6_interval_s integer :: auxinput6_interval integer :: auxinput6_begin_y integer :: auxinput6_begin_d integer :: auxinput6_begin_h integer :: auxinput6_begin_m integer :: auxinput6_begin_s integer :: auxinput6_begin integer :: auxinput6_end_y integer :: auxinput6_end_d integer :: auxinput6_end_h integer :: auxinput6_end_m integer :: auxinput6_end_s integer :: auxinput6_end integer :: io_form_auxinput6 integer :: frames_per_auxinput6 character*256 :: auxinput7_inname character*256 :: auxinput7_outname integer :: auxinput7_interval_y integer :: auxinput7_interval_d integer :: auxinput7_interval_h integer :: auxinput7_interval_m integer :: auxinput7_interval_s integer :: auxinput7_interval integer :: auxinput7_begin_y integer :: auxinput7_begin_d integer :: auxinput7_begin_h integer :: auxinput7_begin_m integer :: auxinput7_begin_s integer :: auxinput7_begin integer :: auxinput7_end_y integer :: auxinput7_end_d integer :: auxinput7_end_h integer :: auxinput7_end_m integer :: auxinput7_end_s integer :: auxinput7_end integer :: io_form_auxinput7 integer :: frames_per_auxinput7 character*256 :: auxinput8_inname character*256 :: auxinput8_outname integer :: auxinput8_interval_y integer :: auxinput8_interval_d integer :: auxinput8_interval_h integer :: auxinput8_interval_m integer :: auxinput8_interval_s integer :: auxinput8_interval integer :: auxinput8_begin_y integer :: auxinput8_begin_d integer :: auxinput8_begin_h integer :: auxinput8_begin_m integer :: auxinput8_begin_s integer :: auxinput8_begin integer :: auxinput8_end_y integer :: auxinput8_end_d integer :: auxinput8_end_h integer :: auxinput8_end_m integer :: auxinput8_end_s integer :: auxinput8_end integer :: io_form_auxinput8 integer :: frames_per_auxinput8 character*256 :: auxinput9_inname character*256 :: auxinput9_outname integer :: auxinput9_interval_y integer :: auxinput9_interval_d integer :: auxinput9_interval_h integer :: auxinput9_interval_m integer :: auxinput9_interval_s integer :: auxinput9_interval integer :: auxinput9_begin_y integer :: auxinput9_begin_d integer :: auxinput9_begin_h integer :: auxinput9_begin_m integer :: auxinput9_begin_s integer :: auxinput9_begin integer :: auxinput9_end_y integer :: auxinput9_end_d integer :: auxinput9_end_h integer :: auxinput9_end_m integer :: auxinput9_end_s integer :: auxinput9_end integer :: io_form_auxinput9 integer :: frames_per_auxinput9 character*256 :: auxinput10_inname character*256 :: auxinput10_outname integer :: auxinput10_interval_y integer :: auxinput10_interval_d integer :: auxinput10_interval_h integer :: auxinput10_interval_m integer :: auxinput10_interval_s integer :: auxinput10_interval integer :: auxinput10_begin_y integer :: auxinput10_begin_d integer :: auxinput10_begin_h integer :: auxinput10_begin_m integer :: auxinput10_begin_s integer :: auxinput10_begin integer :: auxinput10_end_y integer :: auxinput10_end_d integer :: auxinput10_end_h integer :: auxinput10_end_m integer :: auxinput10_end_s integer :: auxinput10_end integer :: io_form_auxinput10 integer :: frames_per_auxinput10 character*256 :: auxinput11_inname character*256 :: auxinput11_outname integer :: auxinput11_interval_y integer :: auxinput11_interval_d integer :: auxinput11_interval_h integer :: auxinput11_interval_m integer :: auxinput11_interval_s integer :: auxinput11_interval integer :: auxinput11_begin_y integer :: auxinput11_begin_d integer :: auxinput11_begin_h integer :: auxinput11_begin_m integer :: auxinput11_begin_s integer :: auxinput11_begin integer :: auxinput11_end_y integer :: auxinput11_end_d integer :: auxinput11_end_h integer :: auxinput11_end_m integer :: auxinput11_end_s integer :: auxinput11_end integer :: io_form_auxinput11 integer :: frames_per_auxinput11 character*256 :: auxinput12_inname character*256 :: auxinput12_outname integer :: auxinput12_interval_y integer :: auxinput12_interval_d integer :: auxinput12_interval_h integer :: auxinput12_interval_m integer :: auxinput12_interval_s integer :: auxinput12_interval integer :: auxinput12_begin_y integer :: auxinput12_begin_d integer :: auxinput12_begin_h integer :: auxinput12_begin_m integer :: auxinput12_begin_s integer :: auxinput12_begin integer :: auxinput12_end_y integer :: auxinput12_end_d integer :: auxinput12_end_h integer :: auxinput12_end_m integer :: auxinput12_end_s integer :: auxinput12_end integer :: io_form_auxinput12 integer :: frames_per_auxinput12 character*256 :: auxinput13_inname character*256 :: auxinput13_outname integer :: auxinput13_interval_y integer :: auxinput13_interval_d integer :: auxinput13_interval_h integer :: auxinput13_interval_m integer :: auxinput13_interval_s integer :: auxinput13_interval integer :: auxinput13_begin_y integer :: auxinput13_begin_d integer :: auxinput13_begin_h integer :: auxinput13_begin_m integer :: auxinput13_begin_s integer :: auxinput13_begin integer :: auxinput13_end_y integer :: auxinput13_end_d integer :: auxinput13_end_h integer :: auxinput13_end_m integer :: auxinput13_end_s integer :: auxinput13_end integer :: io_form_auxinput13 integer :: frames_per_auxinput13 character*256 :: auxinput14_inname character*256 :: auxinput14_outname integer :: auxinput14_interval_y integer :: auxinput14_interval_d integer :: auxinput14_interval_h integer :: auxinput14_interval_m integer :: auxinput14_interval_s integer :: auxinput14_interval integer :: auxinput14_begin_y integer :: auxinput14_begin_d integer :: auxinput14_begin_h integer :: auxinput14_begin_m integer :: auxinput14_begin_s integer :: auxinput14_begin integer :: auxinput14_end_y integer :: auxinput14_end_d integer :: auxinput14_end_h integer :: auxinput14_end_m integer :: auxinput14_end_s integer :: auxinput14_end integer :: io_form_auxinput14 integer :: frames_per_auxinput14 character*256 :: auxinput15_inname character*256 :: auxinput15_outname integer :: auxinput15_interval_y integer :: auxinput15_interval_d integer :: auxinput15_interval_h integer :: auxinput15_interval_m integer :: auxinput15_interval_s integer :: auxinput15_interval integer :: auxinput15_begin_y integer :: auxinput15_begin_d integer :: auxinput15_begin_h integer :: auxinput15_begin_m integer :: auxinput15_begin_s integer :: auxinput15_begin integer :: auxinput15_end_y integer :: auxinput15_end_d integer :: auxinput15_end_h integer :: auxinput15_end_m integer :: auxinput15_end_s integer :: auxinput15_end integer :: io_form_auxinput15 integer :: frames_per_auxinput15 character*256 :: auxinput16_inname character*256 :: auxinput16_outname integer :: auxinput16_interval_y integer :: auxinput16_interval_d integer :: auxinput16_interval_h integer :: auxinput16_interval_m integer :: auxinput16_interval_s integer :: auxinput16_interval integer :: auxinput16_begin_y integer :: auxinput16_begin_d integer :: auxinput16_begin_h integer :: auxinput16_begin_m integer :: auxinput16_begin_s integer :: auxinput16_begin integer :: auxinput16_end_y integer :: auxinput16_end_d integer :: auxinput16_end_h integer :: auxinput16_end_m integer :: auxinput16_end_s integer :: auxinput16_end integer :: io_form_auxinput16 integer :: frames_per_auxinput16 character*256 :: auxinput17_inname character*256 :: auxinput17_outname integer :: auxinput17_interval_y integer :: auxinput17_interval_d integer :: auxinput17_interval_h integer :: auxinput17_interval_m integer :: auxinput17_interval_s integer :: auxinput17_interval integer :: auxinput17_begin_y integer :: auxinput17_begin_d integer :: auxinput17_begin_h integer :: auxinput17_begin_m integer :: auxinput17_begin_s integer :: auxinput17_begin integer :: auxinput17_end_y integer :: auxinput17_end_d integer :: auxinput17_end_h integer :: auxinput17_end_m integer :: auxinput17_end_s integer :: auxinput17_end integer :: io_form_auxinput17 integer :: frames_per_auxinput17 character*256 :: auxinput18_inname character*256 :: auxinput18_outname integer :: auxinput18_interval_y integer :: auxinput18_interval_d integer :: auxinput18_interval_h integer :: auxinput18_interval_m integer :: auxinput18_interval_s integer :: auxinput18_interval integer :: auxinput18_begin_y integer :: auxinput18_begin_d integer :: auxinput18_begin_h integer :: auxinput18_begin_m integer :: auxinput18_begin_s integer :: auxinput18_begin integer :: auxinput18_end_y integer :: auxinput18_end_d integer :: auxinput18_end_h integer :: auxinput18_end_m integer :: auxinput18_end_s integer :: auxinput18_end integer :: io_form_auxinput18 integer :: frames_per_auxinput18 character*256 :: auxinput19_inname character*256 :: auxinput19_outname integer :: auxinput19_interval_y integer :: auxinput19_interval_d integer :: auxinput19_interval_h integer :: auxinput19_interval_m integer :: auxinput19_interval_s integer :: auxinput19_interval integer :: auxinput19_begin_y integer :: auxinput19_begin_d integer :: auxinput19_begin_h integer :: auxinput19_begin_m integer :: auxinput19_begin_s integer :: auxinput19_begin integer :: auxinput19_end_y integer :: auxinput19_end_d integer :: auxinput19_end_h integer :: auxinput19_end_m integer :: auxinput19_end_s integer :: auxinput19_end integer :: io_form_auxinput19 integer :: frames_per_auxinput19 character*256 :: auxinput20_inname character*256 :: auxinput20_outname integer :: auxinput20_interval_y integer :: auxinput20_interval_d integer :: auxinput20_interval_h integer :: auxinput20_interval_m integer :: auxinput20_interval_s integer :: auxinput20_interval integer :: auxinput20_begin_y integer :: auxinput20_begin_d integer :: auxinput20_begin_h integer :: auxinput20_begin_m integer :: auxinput20_begin_s integer :: auxinput20_begin integer :: auxinput20_end_y integer :: auxinput20_end_d integer :: auxinput20_end_h integer :: auxinput20_end_m integer :: auxinput20_end_s integer :: auxinput20_end integer :: io_form_auxinput20 integer :: frames_per_auxinput20 character*256 :: auxinput21_inname character*256 :: auxinput21_outname integer :: auxinput21_interval_y integer :: auxinput21_interval_d integer :: auxinput21_interval_h integer :: auxinput21_interval_m integer :: auxinput21_interval_s integer :: auxinput21_interval integer :: auxinput21_begin_y integer :: auxinput21_begin_d integer :: auxinput21_begin_h integer :: auxinput21_begin_m integer :: auxinput21_begin_s integer :: auxinput21_begin integer :: auxinput21_end_y integer :: auxinput21_end_d integer :: auxinput21_end_h integer :: auxinput21_end_m integer :: auxinput21_end_s integer :: auxinput21_end integer :: io_form_auxinput21 integer :: frames_per_auxinput21 character*256 :: auxinput22_inname character*256 :: auxinput22_outname integer :: auxinput22_interval_y integer :: auxinput22_interval_d integer :: auxinput22_interval_h integer :: auxinput22_interval_m integer :: auxinput22_interval_s integer :: auxinput22_interval integer :: auxinput22_begin_y integer :: auxinput22_begin_d integer :: auxinput22_begin_h integer :: auxinput22_begin_m integer :: auxinput22_begin_s integer :: auxinput22_begin integer :: auxinput22_end_y integer :: auxinput22_end_d integer :: auxinput22_end_h integer :: auxinput22_end_m integer :: auxinput22_end_s integer :: auxinput22_end integer :: io_form_auxinput22 integer :: frames_per_auxinput22 character*256 :: auxinput23_inname character*256 :: auxinput23_outname integer :: auxinput23_interval_y integer :: auxinput23_interval_d integer :: auxinput23_interval_h integer :: auxinput23_interval_m integer :: auxinput23_interval_s integer :: auxinput23_interval integer :: auxinput23_begin_y integer :: auxinput23_begin_d integer :: auxinput23_begin_h integer :: auxinput23_begin_m integer :: auxinput23_begin_s integer :: auxinput23_begin integer :: auxinput23_end_y integer :: auxinput23_end_d integer :: auxinput23_end_h integer :: auxinput23_end_m integer :: auxinput23_end_s integer :: auxinput23_end integer :: io_form_auxinput23 integer :: frames_per_auxinput23 character*256 :: auxinput24_inname character*256 :: auxinput24_outname integer :: auxinput24_interval_y integer :: auxinput24_interval_d integer :: auxinput24_interval_h integer :: auxinput24_interval_m integer :: auxinput24_interval_s integer :: auxinput24_interval integer :: auxinput24_begin_y integer :: auxinput24_begin_d integer :: auxinput24_begin_h integer :: auxinput24_begin_m integer :: auxinput24_begin_s integer :: auxinput24_begin integer :: auxinput24_end_y integer :: auxinput24_end_d integer :: auxinput24_end_h integer :: auxinput24_end_m integer :: auxinput24_end_s integer :: auxinput24_end integer :: io_form_auxinput24 integer :: frames_per_auxinput24 integer :: history_interval integer :: frames_per_outfile logical :: restart integer :: restart_interval integer :: io_form_input integer :: io_form_history integer :: io_form_restart integer :: io_form_boundary integer :: debug_level logical :: self_test_domain character*256 :: history_outname character*256 :: history_inname logical :: use_netcdf_classic integer :: history_interval_d integer :: history_interval_h integer :: history_interval_m integer :: history_interval_s integer :: inputout_interval_d integer :: inputout_interval_h integer :: inputout_interval_m integer :: inputout_interval_s integer :: inputout_interval integer :: restart_interval_d integer :: restart_interval_h integer :: restart_interval_m integer :: restart_interval_s integer :: history_begin_y integer :: history_begin_d integer :: history_begin_h integer :: history_begin_m integer :: history_begin_s integer :: history_begin integer :: inputout_begin_y integer :: inputout_begin_d integer :: inputout_begin_h integer :: inputout_begin_m integer :: inputout_begin_s integer :: restart_begin_y integer :: restart_begin_d integer :: restart_begin_h integer :: restart_begin_m integer :: restart_begin_s integer :: restart_begin integer :: history_end_y integer :: history_end_d integer :: history_end_h integer :: history_end_m integer :: history_end_s integer :: history_end integer :: inputout_end_y integer :: inputout_end_d integer :: inputout_end_h integer :: inputout_end_m integer :: inputout_end_s integer :: simulation_start_year integer :: simulation_start_month integer :: simulation_start_day integer :: simulation_start_hour integer :: simulation_start_minute integer :: simulation_start_second logical :: reset_simulation_start integer :: sr_x integer :: sr_y character*256 :: sgfdda_inname character*256 :: gfdda_inname integer :: sgfdda_interval_d integer :: sgfdda_interval_h integer :: sgfdda_interval_m integer :: sgfdda_interval_s integer :: sgfdda_interval_y integer :: sgfdda_interval integer :: gfdda_interval_d integer :: gfdda_interval_h integer :: gfdda_interval_m integer :: gfdda_interval_s integer :: gfdda_interval_y integer :: gfdda_interval integer :: sgfdda_begin_y integer :: sgfdda_begin_d integer :: sgfdda_begin_h integer :: sgfdda_begin_m integer :: sgfdda_begin_s integer :: gfdda_begin_y integer :: gfdda_begin_d integer :: gfdda_begin_h integer :: gfdda_begin_m integer :: gfdda_begin_s integer :: sgfdda_end_y integer :: sgfdda_end_d integer :: sgfdda_end_h integer :: sgfdda_end_m integer :: sgfdda_end_s integer :: gfdda_end_y integer :: gfdda_end_d integer :: gfdda_end_h integer :: gfdda_end_m integer :: gfdda_end_s integer :: io_form_sgfdda integer :: io_form_gfdda character*256 :: iofields_filename logical :: ignore_iofields_warning logical :: ncd_nofill character*256 :: emi_inname character*256 :: fireemi_inname character*256 :: input_chem_inname character*256 :: emi_outname character*256 :: fireemi_outname character*256 :: input_chem_outname integer :: io_style_emissions real :: bioemdt real :: photdt real :: chemdt integer :: ne_area integer :: kemit integer :: nmegan integer :: kfuture integer :: kfire integer :: kemit_aircraft integer :: kdvel integer :: ndepvel integer :: kdepvel integer :: erosion_dim integer :: biomass_emiss_opt integer :: cam_mam_mode integer :: cam_mam_nspec logical :: cam_mp_mam_cpled integer :: lightning_opt integer :: lightning_time_step real :: temp_upper real :: temp_lower real :: n_ic real :: n_cg integer :: passive_ltng integer :: lflash_data integer :: flashrate_method character*256 :: vprm_opt real :: wpeat real :: wflood character*256 :: term_opt integer :: chem_conv_tr integer :: conv_tr_wetscav integer :: conv_tr_aqchem integer :: chem_opt integer :: gaschem_onoff integer :: aerchem_onoff integer :: wetscav_onoff integer :: dustwd_onoff integer :: cldchem_onoff logical :: is_full_tuv real :: lambda_cutoff integer :: cld_od_opt integer :: pht_cldfrc_opt integer :: vertmix_onoff integer :: chem_in_opt integer :: phot_opt integer :: gas_drydep_opt integer :: aer_drydep_opt integer :: diagnostic_chem integer :: aero_diag_opt integer :: aero_cw_diag_opt integer :: aer_aerodynres_opt integer :: emiss_opt integer :: emiss_opt_vol integer :: dust_opt integer :: dust_schme integer :: dmsemis_opt integer :: seas_opt integer :: bio_emiss_opt integer :: biomass_burn_opt integer :: plumerisefire_frq integer :: emiss_inpt_opt integer :: gas_bc_opt integer :: gas_ic_opt integer :: aer_bc_opt integer :: aer_ic_opt logical :: have_bcs_chem logical :: have_bcs_tracer logical :: scale_fire_emiss integer :: aer_ra_feedback integer :: aer_op_opt integer :: opt_pars_out integer :: diagnostic_dep integer :: aircraft_emiss_opt logical :: have_bcs_upper real :: fixed_ubc_press character*256 :: fixed_ubc_inname character*256 :: trop_lev_inname character*256 :: exo_coldens_inname character*256 :: wes_seasonal_inname integer :: chemdiag real :: dust_alpha real :: dust_gamma real :: dust_smtune real :: dust_ustune integer :: dust_dsr integer :: dust_veg integer :: dust_soils integer :: dust_smois real :: emiss_ash_hgt real :: depo_fact integer :: track_chem_num character*256 :: track_chem_name integer :: track_rad_num integer :: track_tuv_num integer :: track_tuv_lev integer :: n2o5_hetchem real :: af_lambda_start real :: af_lambda_end integer :: lnox_opt logical :: lnox_passive real :: ltng_temp_upper real :: ltng_temp_lower logical :: has_o3_exo_coldens real :: du_at_grnd logical :: scale_o3_to_grnd_exo_coldens logical :: scale_o3_to_du_at_grnd integer :: irr_opt integer :: ifire integer :: fire_boundary_guard integer :: fire_num_ignitions real :: fire_ignition_ros1 real :: fire_ignition_start_lon1 real :: fire_ignition_start_lat1 real :: fire_ignition_end_lon1 real :: fire_ignition_end_lat1 real :: fire_ignition_radius1 real :: fire_ignition_start_time1 real :: fire_ignition_end_time1 real :: fire_ignition_ros2 real :: fire_ignition_start_lon2 real :: fire_ignition_start_lat2 real :: fire_ignition_end_lon2 real :: fire_ignition_end_lat2 real :: fire_ignition_radius2 real :: fire_ignition_start_time2 real :: fire_ignition_end_time2 real :: fire_ignition_ros3 real :: fire_ignition_start_lon3 real :: fire_ignition_start_lat3 real :: fire_ignition_end_lon3 real :: fire_ignition_end_lat3 real :: fire_ignition_radius3 real :: fire_ignition_start_time3 real :: fire_ignition_end_time3 real :: fire_ignition_ros4 real :: fire_ignition_start_lon4 real :: fire_ignition_start_lat4 real :: fire_ignition_end_lon4 real :: fire_ignition_end_lat4 real :: fire_ignition_radius4 real :: fire_ignition_start_time4 real :: fire_ignition_end_time4 real :: fire_ignition_ros5 real :: fire_ignition_start_lon5 real :: fire_ignition_start_lat5 real :: fire_ignition_end_lon5 real :: fire_ignition_end_lat5 real :: fire_ignition_radius5 real :: fire_ignition_start_time5 real :: fire_ignition_end_time5 real :: fire_ignition_start_x1 real :: fire_ignition_start_y1 real :: fire_ignition_end_x1 real :: fire_ignition_end_y1 real :: fire_ignition_start_x2 real :: fire_ignition_start_y2 real :: fire_ignition_end_x2 real :: fire_ignition_end_y2 real :: fire_ignition_start_x3 real :: fire_ignition_start_y3 real :: fire_ignition_end_x3 real :: fire_ignition_end_y3 real :: fire_ignition_start_x4 real :: fire_ignition_start_y4 real :: fire_ignition_end_x4 real :: fire_ignition_end_y4 real :: fire_ignition_start_x5 real :: fire_ignition_start_y5 real :: fire_ignition_end_x5 real :: fire_ignition_end_y5 real :: fire_lat_init real :: fire_lon_init real :: fire_ign_time integer :: fire_shape integer :: fire_sprd_mdl real :: fire_crwn_hgt real :: fire_ext_grnd real :: fire_ext_crwn real :: fire_wind_height integer :: fire_fuel_read integer :: fire_fuel_cat integer :: fire_print_msg integer :: fire_print_file integer :: fire_fuel_left_method integer :: fire_fuel_left_irl integer :: fire_fuel_left_jrl real :: fire_back_weight integer :: fire_grows_only integer :: fire_upwinding integer :: fire_upwind_split real :: fire_viscosity real :: fire_lfn_ext_up integer :: fire_topo_from_atm integer :: fire_advection integer :: fire_test_steps real :: fire_const_time real :: fire_const_grnhfx real :: fire_const_grnqfx real :: fire_atm_feedback integer :: fire_mountain_type real :: fire_mountain_height real :: fire_mountain_start_x real :: fire_mountain_start_y real :: fire_mountain_end_x real :: fire_mountain_end_y real :: delt_perturbation real :: xrad_perturbation real :: yrad_perturbation real :: zrad_perturbation real :: hght_perturbation logical :: stretch_grd logical :: stretch_hyp real :: z_grd_scale logical :: sfc_full_init integer :: sfc_lu_index real :: sfc_tsk real :: sfc_tmn logical :: fire_read_lu logical :: fire_read_tsk logical :: fire_read_tmn logical :: fire_read_atm_ht logical :: fire_read_fire_ht logical :: fire_read_atm_grad logical :: fire_read_fire_grad real :: sfc_vegfra real :: sfc_canwat integer :: sfc_ivgtyp integer :: sfc_isltyp integer :: do_avgflx_em integer :: do_avgflx_cugd integer :: nens integer :: skebs integer :: stoch_force_opt integer :: skebs_vertstruc integer :: stoch_vertstruc_opt real :: tot_backscat_psi real :: tot_backscat_t real :: ztau_psi real :: ztau_t real :: rexponent_psi real :: rexponent_t real :: zsigma2_eps real :: zsigma2_eta integer :: kminforc integer :: lminforc integer :: kminforct integer :: lminforct integer :: kmaxforc integer :: lmaxforc integer :: kmaxforct integer :: lmaxforct integer :: iseed_skebs integer :: kmaxforch integer :: lmaxforch integer :: kmaxforcth integer :: lmaxforcth integer :: sppt real :: gridpt_stddev_sppt real :: stddev_cutoff_sppt real :: lengthscale_sppt real :: timescale_sppt integer :: sppt_vertstruc integer :: iseed_sppt integer :: rand_perturb real :: gridpt_stddev_rand_pert real :: stddev_cutoff_rand_pert real :: lengthscale_rand_pert real :: timescale_rand_pert integer :: rand_pert_vertstruc integer :: iseed_rand_pert integer :: spp logical :: hrrr_cycling integer :: spp_conv real :: gridpt_stddev_spp_conv real :: stddev_cutoff_spp_conv real :: lengthscale_spp_conv real :: timescale_spp_conv integer :: vertstruc_spp_conv integer :: iseed_spp_conv integer :: spp_pbl real :: gridpt_stddev_spp_pbl real :: stddev_cutoff_spp_pbl real :: lengthscale_spp_pbl real :: timescale_spp_pbl integer :: vertstruc_spp_pbl integer :: iseed_spp_pbl integer :: spp_lsm real :: gridpt_stddev_spp_lsm real :: stddev_cutoff_spp_lsm real :: lengthscale_spp_lsm real :: timescale_spp_lsm integer :: vertstruc_spp_lsm integer :: iseed_spp_lsm integer :: skebs_on integer :: sppt_on integer :: spp_on integer :: rand_perturb_on integer :: num_stoch_levels integer :: sfs_opt integer :: m_opt real :: lakedepth_default real :: lake_min_elev integer :: use_lakedepth integer :: p_lev_diags integer :: p_lev_diags_dfi integer :: num_press_levels real :: press_levels integer :: use_tot_or_hyd_p integer :: extrap_below_grnd real :: p_lev_missing real :: p_lev_interval integer :: z_lev_diags integer :: z_lev_diags_dfi integer :: num_z_levels real :: z_levels real :: z_lev_missing real :: z_lev_interval integer :: afwa_diag_opt integer :: afwa_ptype_opt integer :: afwa_vil_opt integer :: afwa_radar_opt integer :: afwa_severe_opt integer :: afwa_icing_opt integer :: afwa_vis_opt integer :: afwa_cloud_opt integer :: afwa_therm_opt integer :: afwa_turb_opt integer :: afwa_buoy_opt real :: afwa_ptype_ccn_tmp real :: afwa_ptype_tot_melt integer :: afwa_bad_data_check integer :: mean_diag integer :: mean_freq integer :: mean_interval integer :: diurnal_diag integer :: nssl_ipelec integer :: nssl_isaund integer :: nssl_iscreen real :: nssl_lightrad integer :: nssl_idischarge integer :: nssl_ibrkd real :: nssl_ecrit real :: nssl_disfrac integer :: elec_physics integer :: perturb_bdy integer :: perturb_chem_bdy integer :: num_gca_levels integer :: gca_input_opt integer :: hybrid_opt real :: etac integer :: num_wif_levels integer :: wif_input_opt integer :: last_item_in_struct END TYPE grid_config_rec_type TYPE(model_config_rec_type) :: model_config_rec CONTAINS SUBROUTINE initial_config IMPLICIT NONE INTEGER :: io_status INTEGER :: i LOGICAL :: nml_read_error CHARACTER (LEN=1024) :: nml_name INTEGER, PARAMETER :: nml_write_unit= 9 INTEGER, PARAMETER :: nml_read_unit = 10 integer :: first_item_in_struct integer :: run_days integer :: run_hours integer :: run_minutes integer :: run_seconds integer , DIMENSION(max_domains) :: start_year integer , DIMENSION(max_domains) :: start_month integer , DIMENSION(max_domains) :: start_day integer , DIMENSION(max_domains) :: start_hour integer , DIMENSION(max_domains) :: start_minute integer , DIMENSION(max_domains) :: start_second integer , DIMENSION(max_domains) :: end_year integer , DIMENSION(max_domains) :: end_month integer , DIMENSION(max_domains) :: end_day integer , DIMENSION(max_domains) :: end_hour integer , DIMENSION(max_domains) :: end_minute integer , DIMENSION(max_domains) :: end_second integer :: interval_seconds logical , DIMENSION(max_domains) :: input_from_file integer , DIMENSION(max_domains) :: fine_input_stream logical , DIMENSION(max_domains) :: input_from_hires character*256 :: rsmas_data_path logical :: all_ic_times integer , DIMENSION(max_domains) :: julyr integer , DIMENSION(max_domains) :: julday real , DIMENSION(max_domains) :: gmt character*256 :: input_inname character*256 :: input_outname character*256 :: bdy_inname character*256 :: bdy_outname character*256 :: rst_inname character*256 :: rst_outname logical :: write_input logical :: write_restart_at_0h logical :: write_hist_at_0h_rst logical :: adjust_output_times logical :: adjust_input_times integer :: diag_print logical :: nocolons logical :: cycling integer :: output_diagnostics integer :: nwp_diagnostics logical :: output_ready_flag logical :: usepio integer :: pioprocs integer :: piostart integer :: piostride integer :: pioshift integer :: dfi_opt integer :: dfi_savehydmeteors integer :: dfi_nfilter logical :: dfi_write_filtered_input logical :: dfi_write_dfi_history integer :: dfi_cutoff_seconds integer :: dfi_time_dim integer :: dfi_fwdstop_year integer :: dfi_fwdstop_month integer :: dfi_fwdstop_day integer :: dfi_fwdstop_hour integer :: dfi_fwdstop_minute integer :: dfi_fwdstop_second integer :: dfi_bckstop_year integer :: dfi_bckstop_month integer :: dfi_bckstop_day integer :: dfi_bckstop_hour integer :: dfi_bckstop_minute integer :: dfi_bckstop_second integer :: time_step integer :: time_step_fract_num integer :: time_step_fract_den integer :: time_step_dfi integer , DIMENSION(max_domains) :: min_time_step integer , DIMENSION(max_domains) :: min_time_step_den integer , DIMENSION(max_domains) :: max_time_step integer , DIMENSION(max_domains) :: max_time_step_den real , DIMENSION(max_domains) :: target_cfl real , DIMENSION(max_domains) :: target_hcfl integer , DIMENSION(max_domains) :: max_step_increase_pct integer , DIMENSION(max_domains) :: starting_time_step integer , DIMENSION(max_domains) :: starting_time_step_den logical :: step_to_output_time integer :: adaptation_domain logical :: use_adaptive_time_step logical :: use_adaptive_time_step_dfi integer :: max_dom integer :: lats_to_mic integer , DIMENSION(max_domains) :: s_we integer , DIMENSION(max_domains) :: e_we integer , DIMENSION(max_domains) :: s_sn integer , DIMENSION(max_domains) :: e_sn integer , DIMENSION(max_domains) :: s_vert integer , DIMENSION(max_domains) :: e_vert integer :: num_metgrid_levels integer :: num_metgrid_soil_levels real :: p_top_requested logical :: interp_theta integer :: interp_type integer :: rebalance integer , DIMENSION(max_domains) :: vert_refine_method integer :: vert_refine_fact integer :: extrap_type integer :: t_extrap_type integer :: hypsometric_opt logical :: lowest_lev_from_sfc logical :: use_levels_below_ground logical :: use_tavg_for_tsk logical :: use_surface integer :: lagrange_order integer :: force_sfc_in_vinterp real :: zap_close_levels real :: maxw_horiz_pres_diff real :: trop_horiz_pres_diff real :: maxw_above_this_level integer :: use_maxw_level integer :: use_trop_level logical :: sfcp_to_sfcp logical :: adjust_heights logical :: smooth_cg_topo integer :: nest_interp_coord integer :: interp_method_type logical :: aggregate_lu logical :: rh2qv_wrt_liquid integer :: rh2qv_method real :: qv_max_p_safe real :: qv_max_flag real :: qv_max_value real :: qv_min_p_safe real :: qv_min_flag real :: qv_min_value integer :: ideal_init_method real , DIMENSION(max_domains) :: dx real , DIMENSION(max_domains) :: dy integer , DIMENSION(max_domains) :: grid_id logical , DIMENSION(max_domains) :: grid_allowed integer , DIMENSION(max_domains) :: parent_id integer , DIMENSION(max_domains) :: i_parent_start integer , DIMENSION(max_domains) :: j_parent_start integer , DIMENSION(max_domains) :: parent_grid_ratio integer , DIMENSION(max_domains) :: parent_time_step_ratio integer :: feedback integer :: smooth_option integer :: blend_width real , DIMENSION(max_domains) :: ztop integer , DIMENSION(max_domains) :: moad_grid_ratio integer , DIMENSION(max_domains) :: moad_time_step_ratio integer , DIMENSION(max_domains) :: shw integer :: tile_sz_x integer :: tile_sz_y integer :: numtiles integer :: numtiles_inc integer :: numtiles_x integer :: numtiles_y integer :: tile_strategy integer :: nproc_x integer :: nproc_y integer :: irand real , DIMENSION(max_domains) :: dt integer :: fft_used integer :: cu_used integer :: shcu_used integer :: cam_used integer :: alloc_qndropsource integer :: num_moves integer :: ts_buf_size integer :: max_ts_locs integer , DIMENSION(max_domains) :: vortex_interval integer , DIMENSION(max_domains) :: max_vortex_speed integer , DIMENSION(max_domains) :: corral_dist integer :: track_level real , DIMENSION(max_domains) :: time_to_move integer , DIMENSION(max_moves) :: move_id integer , DIMENSION(max_moves) :: move_interval integer , DIMENSION(max_moves) :: move_cd_x integer , DIMENSION(max_moves) :: move_cd_y logical , DIMENSION(max_domains) :: swap_x logical , DIMENSION(max_domains) :: swap_y logical , DIMENSION(max_domains) :: cycle_x logical , DIMENSION(max_domains) :: cycle_y logical :: reorder_mesh logical :: perturb_input real , DIMENSION(max_eta) :: eta_levels real :: max_dz integer :: ocean_levels real , DIMENSION(max_ocean) :: ocean_z real , DIMENSION(max_ocean) :: ocean_t real , DIMENSION(max_ocean) :: ocean_s integer :: num_traj integer :: max_ts_level integer :: track_loc_in integer :: num_ext_model_couple_dom logical :: insert_bogus_storm logical :: remove_storm integer :: num_storm real , DIMENSION(max_bogus) :: latc_loc real , DIMENSION(max_bogus) :: lonc_loc real , DIMENSION(max_bogus) :: vmax_meters_per_second real , DIMENSION(max_bogus) :: rmax real , DIMENSION(max_bogus) :: vmax_ratio real :: rankine_lid character*256 :: physics_suite logical :: force_read_thompson logical :: write_thompson_tables integer , DIMENSION(max_domains) :: mp_physics real , DIMENSION(max_domains) :: nssl_cccn real , DIMENSION(max_domains) :: nssl_alphah real , DIMENSION(max_domains) :: nssl_alphahl real , DIMENSION(max_domains) :: nssl_cnoh real , DIMENSION(max_domains) :: nssl_cnohl real , DIMENSION(max_domains) :: nssl_cnor real , DIMENSION(max_domains) :: nssl_cnos real , DIMENSION(max_domains) :: nssl_rho_qh real , DIMENSION(max_domains) :: nssl_rho_qhl real , DIMENSION(max_domains) :: nssl_rho_qs integer , DIMENSION(max_domains) :: nudge_lightning integer , DIMENSION(max_domains) :: nudge_light_times integer , DIMENSION(max_domains) :: nudge_light_timee integer , DIMENSION(max_domains) :: nudge_light_int character*256 :: path_to_files integer :: gsfcgce_hail integer :: gsfcgce_2ice integer , DIMENSION(max_domains) :: progn real :: accum_mode real :: aitken_mode real :: coarse_mode integer :: do_radar_ref integer :: compute_radar_ref integer , DIMENSION(max_domains) :: ra_lw_physics integer , DIMENSION(max_domains) :: ra_sw_physics real , DIMENSION(max_domains) :: radt real , DIMENSION(max_domains) :: naer integer , DIMENSION(max_domains) :: sf_sfclay_physics integer , DIMENSION(max_domains) :: sf_surface_physics integer , DIMENSION(max_domains) :: bl_pbl_physics integer , DIMENSION(max_domains) :: bl_mynn_tkebudget integer :: ysu_topdown_pblmix integer , DIMENSION(max_domains) :: shinhong_tke_diag logical , DIMENSION(max_domains) :: bl_mynn_tkeadvect integer :: bl_mynn_cloudpdf integer :: bl_mynn_mixlength integer , DIMENSION(max_domains) :: bl_mynn_edmf integer , DIMENSION(max_domains) :: bl_mynn_edmf_mom integer , DIMENSION(max_domains) :: bl_mynn_edmf_tke integer , DIMENSION(max_domains) :: bl_mynn_edmf_part integer , DIMENSION(max_domains) :: bl_mynn_cloudmix integer , DIMENSION(max_domains) :: bl_mynn_mixqt integer :: icloud_bl integer , DIMENSION(max_domains) :: mfshconv integer , DIMENSION(max_domains) :: sf_urban_physics real , DIMENSION(max_domains) :: bldt integer , DIMENSION(max_domains) :: cu_physics integer , DIMENSION(max_domains) :: shcu_physics integer , DIMENSION(max_domains) :: cu_diag integer , DIMENSION(max_domains) :: kf_edrates integer :: kfeta_trigger integer :: nsas_dx_factor real , DIMENSION(max_domains) :: cudt real , DIMENSION(max_domains) :: gsmdt integer :: isfflx integer :: ifsnow integer :: icloud integer :: ideal_xland real :: swrad_scat integer :: surface_input_source integer :: num_soil_layers integer :: maxpatch integer :: num_snow_layers integer :: num_snso_layers integer :: num_urban_layers integer :: num_urban_hi integer :: num_months integer :: sf_surface_mosaic integer :: mosaic_cat integer :: mosaic_cat_soil integer :: mosaic_lu integer :: mosaic_soil integer :: maxiens integer :: maxens integer :: maxens2 integer :: maxens3 integer :: ensdim integer :: cugd_avedx integer :: clos_choice integer :: imomentum integer :: ishallow real :: convtrans_avglen_m integer :: num_land_cat integer :: num_soil_cat integer :: mp_zero_out real :: mp_zero_out_thresh real :: seaice_threshold integer :: sst_update integer :: sst_skin integer :: tmn_update logical :: usemonalb logical :: rdmaxalb logical :: rdlai2d logical :: ua_phys integer :: opt_thcnd integer :: co2tf integer :: ra_call_offset real :: cam_abs_freq_s integer :: levsiz integer :: paerlev integer :: cam_abs_dim1 integer :: cam_abs_dim2 integer :: lagday integer :: no_src_types integer :: alevsiz integer :: o3input integer :: aer_opt integer :: swint_opt integer , DIMENSION(max_domains) :: aer_type integer , DIMENSION(max_domains) :: aer_aod550_opt integer , DIMENSION(max_domains) :: aer_angexp_opt integer , DIMENSION(max_domains) :: aer_ssa_opt integer , DIMENSION(max_domains) :: aer_asy_opt real , DIMENSION(max_domains) :: aer_aod550_val real , DIMENSION(max_domains) :: aer_angexp_val real , DIMENSION(max_domains) :: aer_ssa_val real , DIMENSION(max_domains) :: aer_asy_val logical , DIMENSION(max_domains) :: cu_rad_feedback logical , DIMENSION(max_domains) :: shallowcu_forced_ra integer , DIMENSION(max_domains) :: numbins real , DIMENSION(max_domains) :: thbinsize real , DIMENSION(max_domains) :: rbinsize real , DIMENSION(max_domains) :: mindeepfreq real , DIMENSION(max_domains) :: minshallowfreq integer , DIMENSION(max_domains) :: shcu_aerosols_opt integer , DIMENSION(max_domains) :: icloud_cu integer , DIMENSION(max_domains) :: pxlsm_smois_init integer :: omlcall integer :: sf_ocean_physics integer :: traj_opt logical , DIMENSION(max_domains) :: dm_has_traj integer :: tracercall real :: omdt real :: oml_hml0 real :: oml_gamma real :: oml_relaxation_time integer :: isftcflx integer :: iz0tlnd real :: shadlen integer , DIMENSION(max_domains) :: slope_rad integer , DIMENSION(max_domains) :: topo_shading integer , DIMENSION(max_domains) :: topo_wind integer :: no_mp_heating integer :: fractional_seaice integer :: seaice_snowdepth_opt real :: seaice_snowdepth_max real :: seaice_snowdepth_min integer :: seaice_albedo_opt real :: seaice_albedo_default integer :: seaice_thickness_opt real :: seaice_thickness_default logical :: tice2tsk_if2cold real :: bucket_mm real :: bucket_j real :: mp_tend_lim real , DIMENSION(max_domains) :: prec_acc_dt integer :: prec_acc_opt integer :: bucketr_opt integer :: bucketf_opt integer :: process_time_series integer , DIMENSION(max_domains) :: grav_settling real , DIMENSION(max_domains) :: sas_pgcon integer , DIMENSION(max_domains) :: scalar_pblmix integer , DIMENSION(max_domains) :: tracer_pblmix logical :: use_aero_icbc logical :: use_rap_aero_icbc integer :: use_mp_re real :: ccn_conc integer :: hail_opt integer :: dveg integer :: opt_crs integer :: opt_btr integer :: opt_run integer :: opt_sfc integer :: opt_frz integer :: opt_inf integer :: opt_rad integer :: opt_alb integer :: opt_snf integer :: opt_tbot integer :: opt_stc integer :: opt_gla integer :: opt_rsf real , DIMENSION(max_domains) :: wtddt integer :: wrf_hydro real , DIMENSION(max_domains) :: fgdt integer , DIMENSION(max_domains) :: fgdtzero integer , DIMENSION(max_domains) :: grid_fdda integer , DIMENSION(max_domains) :: grid_sfdda integer , DIMENSION(max_domains) :: if_no_pbl_nudging_uv integer , DIMENSION(max_domains) :: if_no_pbl_nudging_t integer , DIMENSION(max_domains) :: if_no_pbl_nudging_ph integer , DIMENSION(max_domains) :: if_no_pbl_nudging_q integer , DIMENSION(max_domains) :: if_zfac_uv integer , DIMENSION(max_domains) :: k_zfac_uv integer , DIMENSION(max_domains) :: if_zfac_t integer , DIMENSION(max_domains) :: k_zfac_t integer , DIMENSION(max_domains) :: if_zfac_ph integer , DIMENSION(max_domains) :: k_zfac_ph integer , DIMENSION(max_domains) :: if_zfac_q integer , DIMENSION(max_domains) :: k_zfac_q integer , DIMENSION(max_domains) :: dk_zfac_uv integer , DIMENSION(max_domains) :: dk_zfac_t integer , DIMENSION(max_domains) :: dk_zfac_ph real , DIMENSION(max_domains) :: guv real , DIMENSION(max_domains) :: guv_sfc real , DIMENSION(max_domains) :: gt real , DIMENSION(max_domains) :: gt_sfc real , DIMENSION(max_domains) :: gq real , DIMENSION(max_domains) :: gq_sfc real , DIMENSION(max_domains) :: gph real :: dtramp_min integer :: if_ramping real , DIMENSION(max_domains) :: rinblw integer , DIMENSION(max_domains) :: xwavenum integer , DIMENSION(max_domains) :: ywavenum integer , DIMENSION(max_domains) :: pxlsm_soil_nudge integer , DIMENSION(max_domains) :: fasdas integer , DIMENSION(max_domains) :: obs_nudge_opt integer :: max_obs real , DIMENSION(max_domains) :: fdda_start real , DIMENSION(max_domains) :: fdda_end integer , DIMENSION(max_domains) :: obs_nudge_wind real , DIMENSION(max_domains) :: obs_coef_wind integer , DIMENSION(max_domains) :: obs_nudge_temp real , DIMENSION(max_domains) :: obs_coef_temp integer , DIMENSION(max_domains) :: obs_nudge_mois real , DIMENSION(max_domains) :: obs_coef_mois integer , DIMENSION(max_domains) :: obs_nudge_pstr real , DIMENSION(max_domains) :: obs_coef_pstr integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_uv integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_t integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_q integer :: obs_sfc_scheme_horiz integer :: obs_sfc_scheme_vert real :: obs_max_sndng_gap real :: obs_nudgezfullr1_uv real :: obs_nudgezrampr1_uv real :: obs_nudgezfullr2_uv real :: obs_nudgezrampr2_uv real :: obs_nudgezfullr4_uv real :: obs_nudgezrampr4_uv real :: obs_nudgezfullr1_t real :: obs_nudgezrampr1_t real :: obs_nudgezfullr2_t real :: obs_nudgezrampr2_t real :: obs_nudgezfullr4_t real :: obs_nudgezrampr4_t real :: obs_nudgezfullr1_q real :: obs_nudgezrampr1_q real :: obs_nudgezfullr2_q real :: obs_nudgezrampr2_q real :: obs_nudgezfullr4_q real :: obs_nudgezrampr4_q real :: obs_nudgezfullmin real :: obs_nudgezrampmin real :: obs_nudgezmax real :: obs_sfcfact real :: obs_sfcfacr real :: obs_dpsmx real , DIMENSION(max_domains) :: obs_rinxy real :: obs_rinsig real , DIMENSION(max_domains) :: obs_twindo integer :: obs_npfi integer , DIMENSION(max_domains) :: obs_ionf integer :: obs_idynin real :: obs_dtramp integer :: obs_prt_max integer , DIMENSION(max_domains) :: obs_prt_freq logical :: obs_ipf_in4dob logical :: obs_ipf_errob logical :: obs_ipf_nudob logical :: obs_ipf_init integer :: obs_scl_neg_qv_innov integer :: scm_force real :: scm_force_dx integer :: num_force_layers integer :: scm_lu_index integer :: scm_isltyp real :: scm_vegfra real :: scm_canwat real :: scm_lat real :: scm_lon logical :: scm_th_t_tend logical :: scm_qv_t_tend logical :: scm_th_adv logical :: scm_wind_adv logical :: scm_qv_adv logical :: scm_ql_adv logical :: scm_vert_adv integer :: num_force_soil_layers logical :: scm_soilt_force logical :: scm_soilq_force logical :: scm_force_th_largescale logical :: scm_force_qv_largescale logical :: scm_force_ql_largescale logical :: scm_force_wind_largescale integer :: scm_force_skintemp integer :: scm_force_flux integer :: dyn_opt integer :: rk_ord integer :: w_damping integer , DIMENSION(max_domains) :: diff_opt integer , DIMENSION(max_domains) :: diff_opt_dfi integer , DIMENSION(max_domains) :: km_opt integer , DIMENSION(max_domains) :: km_opt_dfi integer :: damp_opt integer :: rad_nudge integer :: gwd_opt real , DIMENSION(max_domains) :: zdamp real , DIMENSION(max_domains) :: dampcoef real , DIMENSION(max_domains) :: khdif real , DIMENSION(max_domains) :: kvdif real , DIMENSION(max_domains) :: diff_6th_factor integer , DIMENSION(max_domains) :: diff_6th_opt integer :: use_theta_m integer :: use_q_diabatic real , DIMENSION(max_domains) :: c_s real , DIMENSION(max_domains) :: c_k real , DIMENSION(max_domains) :: smdiv real , DIMENSION(max_domains) :: emdiv real , DIMENSION(max_domains) :: epssm logical , DIMENSION(max_domains) :: non_hydrostatic logical :: use_input_w integer , DIMENSION(max_domains) :: time_step_sound integer , DIMENSION(max_domains) :: h_mom_adv_order integer , DIMENSION(max_domains) :: v_mom_adv_order integer , DIMENSION(max_domains) :: h_sca_adv_order integer , DIMENSION(max_domains) :: v_sca_adv_order integer , DIMENSION(max_domains) :: momentum_adv_opt integer , DIMENSION(max_domains) :: moist_adv_opt integer , DIMENSION(max_domains) :: moist_adv_dfi_opt integer , DIMENSION(max_domains) :: chem_adv_opt integer , DIMENSION(max_domains) :: tracer_adv_opt integer , DIMENSION(max_domains) :: scalar_adv_opt integer , DIMENSION(max_domains) :: tke_adv_opt logical , DIMENSION(max_domains) :: top_radiation integer , DIMENSION(max_domains) :: mix_isotropic real , DIMENSION(max_domains) :: mix_upper_bound logical , DIMENSION(max_domains) :: top_lid real , DIMENSION(max_domains) :: tke_upper_bound real , DIMENSION(max_domains) :: tke_drag_coefficient real , DIMENSION(max_domains) :: tke_heat_flux logical , DIMENSION(max_domains) :: pert_coriolis logical , DIMENSION(max_domains) :: coriolis2d logical , DIMENSION(max_domains) :: mix_full_fields real :: base_pres real :: base_temp real :: base_lapse real :: iso_temp real :: base_pres_strat real :: base_lapse_strat logical :: use_baseparam_fr_nml real :: fft_filter_lat logical :: coupled_filtering logical :: pos_def logical :: swap_pole_with_next_j logical :: actual_distance_average logical :: rotated_pole logical , DIMENSION(max_domains) :: do_coriolis logical , DIMENSION(max_domains) :: do_curvature logical , DIMENSION(max_domains) :: do_gradp integer , DIMENSION(max_domains) :: tracer_opt integer , DIMENSION(max_domains) :: tenddiag integer :: spec_bdy_width integer :: spec_zone integer :: relax_zone logical , DIMENSION(max_domains) :: specified logical :: constant_bc logical , DIMENSION(max_domains) :: periodic_x logical , DIMENSION(max_domains) :: symmetric_xs logical , DIMENSION(max_domains) :: symmetric_xe logical , DIMENSION(max_domains) :: open_xs logical , DIMENSION(max_domains) :: open_xe logical , DIMENSION(max_domains) :: periodic_y logical , DIMENSION(max_domains) :: symmetric_ys logical , DIMENSION(max_domains) :: symmetric_ye logical , DIMENSION(max_domains) :: open_ys logical , DIMENSION(max_domains) :: open_ye logical , DIMENSION(max_domains) :: polar logical , DIMENSION(max_domains) :: nested real :: spec_exp integer :: spec_bdy_final_mu integer :: real_data_init_type logical , DIMENSION(max_domains) :: have_bcs_moist logical , DIMENSION(max_domains) :: have_bcs_scalar integer :: background_proc_id integer :: forecast_proc_id integer :: production_status integer :: compression integer :: nobs_ndg_vars integer :: nobs_err_flds real , DIMENSION(max_domains) :: cen_lat real , DIMENSION(max_domains) :: cen_lon real , DIMENSION(max_domains) :: truelat1 real , DIMENSION(max_domains) :: truelat2 real , DIMENSION(max_domains) :: moad_cen_lat real , DIMENSION(max_domains) :: stand_lon real , DIMENSION(max_domains) :: pole_lat real , DIMENSION(max_domains) :: pole_lon integer :: flag_metgrid integer :: flag_snow integer :: flag_psfc integer :: flag_sm000010 integer :: flag_sm010040 integer :: flag_sm040100 integer :: flag_sm100200 integer :: flag_st000010 integer :: flag_st010040 integer :: flag_st040100 integer :: flag_st100200 integer :: flag_soil_layers integer :: flag_slp integer :: flag_soilhgt integer :: flag_mf_xy integer :: flag_um_soil real , DIMENSION(max_domains) :: bdyfrq character*256 , DIMENSION(max_domains) :: mminlu integer , DIMENSION(max_domains) :: iswater integer , DIMENSION(max_domains) :: islake integer , DIMENSION(max_domains) :: isice integer , DIMENSION(max_domains) :: isurban integer , DIMENSION(max_domains) :: isoilwater integer , DIMENSION(max_domains) :: map_proj integer :: use_wps_input integer , DIMENSION(max_domains) :: dfi_stage integer , DIMENSION(max_domains) :: mp_physics_dfi integer , DIMENSION(max_domains) :: bl_pbl_physics_dfi integer , DIMENSION(max_domains) :: windfarm_opt integer :: windfarm_ij integer , DIMENSION(max_domains) :: hailcast_opt integer , DIMENSION(max_domains) :: lightning_option real , DIMENSION(max_domains) :: lightning_dt real , DIMENSION(max_domains) :: lightning_start_seconds real , DIMENSION(max_domains) :: flashrate_factor integer , DIMENSION(max_domains) :: iccg_method real , DIMENSION(max_domains) :: iccg_prescribed_num real , DIMENSION(max_domains) :: iccg_prescribed_den integer , DIMENSION(max_domains) :: cellcount_method real , DIMENSION(max_domains) :: cldtop_adjustment integer , DIMENSION(max_domains) :: sf_lake_physics character*256 :: auxinput1_inname integer :: io_form_auxinput1 logical :: override_restart_timers character*256 :: auxhist1_inname character*256 :: auxhist1_outname integer , DIMENSION(max_domains) :: auxhist1_interval_y integer , DIMENSION(max_domains) :: auxhist1_interval_d integer , DIMENSION(max_domains) :: auxhist1_interval_h integer , DIMENSION(max_domains) :: auxhist1_interval_m integer , DIMENSION(max_domains) :: auxhist1_interval_s integer , DIMENSION(max_domains) :: auxhist1_interval integer , DIMENSION(max_domains) :: auxhist1_begin_y integer , DIMENSION(max_domains) :: auxhist1_begin_d integer , DIMENSION(max_domains) :: auxhist1_begin_h integer , DIMENSION(max_domains) :: auxhist1_begin_m integer , DIMENSION(max_domains) :: auxhist1_begin_s integer , DIMENSION(max_domains) :: auxhist1_begin integer , DIMENSION(max_domains) :: auxhist1_end_y integer , DIMENSION(max_domains) :: auxhist1_end_d integer , DIMENSION(max_domains) :: auxhist1_end_h integer , DIMENSION(max_domains) :: auxhist1_end_m integer , DIMENSION(max_domains) :: auxhist1_end_s integer , DIMENSION(max_domains) :: auxhist1_end integer :: io_form_auxhist1 integer , DIMENSION(max_domains) :: frames_per_auxhist1 character*256 :: auxhist2_inname character*256 :: auxhist2_outname integer , DIMENSION(max_domains) :: auxhist2_interval_y integer , DIMENSION(max_domains) :: auxhist2_interval_d integer , DIMENSION(max_domains) :: auxhist2_interval_h integer , DIMENSION(max_domains) :: auxhist2_interval_m integer , DIMENSION(max_domains) :: auxhist2_interval_s integer , DIMENSION(max_domains) :: auxhist2_interval integer , DIMENSION(max_domains) :: auxhist2_begin_y integer , DIMENSION(max_domains) :: auxhist2_begin_d integer , DIMENSION(max_domains) :: auxhist2_begin_h integer , DIMENSION(max_domains) :: auxhist2_begin_m integer , DIMENSION(max_domains) :: auxhist2_begin_s integer , DIMENSION(max_domains) :: auxhist2_begin integer , DIMENSION(max_domains) :: auxhist2_end_y integer , DIMENSION(max_domains) :: auxhist2_end_d integer , DIMENSION(max_domains) :: auxhist2_end_h integer , DIMENSION(max_domains) :: auxhist2_end_m integer , DIMENSION(max_domains) :: auxhist2_end_s integer , DIMENSION(max_domains) :: auxhist2_end integer :: io_form_auxhist2 integer , DIMENSION(max_domains) :: frames_per_auxhist2 character*256 :: auxhist3_inname character*256 :: auxhist3_outname integer , DIMENSION(max_domains) :: auxhist3_interval_y integer , DIMENSION(max_domains) :: auxhist3_interval_d integer , DIMENSION(max_domains) :: auxhist3_interval_h integer , DIMENSION(max_domains) :: auxhist3_interval_m integer , DIMENSION(max_domains) :: auxhist3_interval_s integer , DIMENSION(max_domains) :: auxhist3_interval integer , DIMENSION(max_domains) :: auxhist3_begin_y integer , DIMENSION(max_domains) :: auxhist3_begin_d integer , DIMENSION(max_domains) :: auxhist3_begin_h integer , DIMENSION(max_domains) :: auxhist3_begin_m integer , DIMENSION(max_domains) :: auxhist3_begin_s integer , DIMENSION(max_domains) :: auxhist3_begin integer , DIMENSION(max_domains) :: auxhist3_end_y integer , DIMENSION(max_domains) :: auxhist3_end_d integer , DIMENSION(max_domains) :: auxhist3_end_h integer , DIMENSION(max_domains) :: auxhist3_end_m integer , DIMENSION(max_domains) :: auxhist3_end_s integer , DIMENSION(max_domains) :: auxhist3_end integer :: io_form_auxhist3 integer , DIMENSION(max_domains) :: frames_per_auxhist3 character*256 :: auxhist4_inname character*256 :: auxhist4_outname integer , DIMENSION(max_domains) :: auxhist4_interval_y integer , DIMENSION(max_domains) :: auxhist4_interval_d integer , DIMENSION(max_domains) :: auxhist4_interval_h integer , DIMENSION(max_domains) :: auxhist4_interval_m integer , DIMENSION(max_domains) :: auxhist4_interval_s integer , DIMENSION(max_domains) :: auxhist4_interval integer , DIMENSION(max_domains) :: auxhist4_begin_y integer , DIMENSION(max_domains) :: auxhist4_begin_d integer , DIMENSION(max_domains) :: auxhist4_begin_h integer , DIMENSION(max_domains) :: auxhist4_begin_m integer , DIMENSION(max_domains) :: auxhist4_begin_s integer , DIMENSION(max_domains) :: auxhist4_begin integer , DIMENSION(max_domains) :: auxhist4_end_y integer , DIMENSION(max_domains) :: auxhist4_end_d integer , DIMENSION(max_domains) :: auxhist4_end_h integer , DIMENSION(max_domains) :: auxhist4_end_m integer , DIMENSION(max_domains) :: auxhist4_end_s integer , DIMENSION(max_domains) :: auxhist4_end integer :: io_form_auxhist4 integer , DIMENSION(max_domains) :: frames_per_auxhist4 character*256 :: auxhist5_inname character*256 :: auxhist5_outname integer , DIMENSION(max_domains) :: auxhist5_interval_y integer , DIMENSION(max_domains) :: auxhist5_interval_d integer , DIMENSION(max_domains) :: auxhist5_interval_h integer , DIMENSION(max_domains) :: auxhist5_interval_m integer , DIMENSION(max_domains) :: auxhist5_interval_s integer , DIMENSION(max_domains) :: auxhist5_interval integer , DIMENSION(max_domains) :: auxhist5_begin_y integer , DIMENSION(max_domains) :: auxhist5_begin_d integer , DIMENSION(max_domains) :: auxhist5_begin_h integer , DIMENSION(max_domains) :: auxhist5_begin_m integer , DIMENSION(max_domains) :: auxhist5_begin_s integer , DIMENSION(max_domains) :: auxhist5_begin integer , DIMENSION(max_domains) :: auxhist5_end_y integer , DIMENSION(max_domains) :: auxhist5_end_d integer , DIMENSION(max_domains) :: auxhist5_end_h integer , DIMENSION(max_domains) :: auxhist5_end_m integer , DIMENSION(max_domains) :: auxhist5_end_s integer , DIMENSION(max_domains) :: auxhist5_end integer :: io_form_auxhist5 integer , DIMENSION(max_domains) :: frames_per_auxhist5 character*256 :: auxhist6_inname character*256 :: auxhist6_outname integer , DIMENSION(max_domains) :: auxhist6_interval_y integer , DIMENSION(max_domains) :: auxhist6_interval_d integer , DIMENSION(max_domains) :: auxhist6_interval_h integer , DIMENSION(max_domains) :: auxhist6_interval_m integer , DIMENSION(max_domains) :: auxhist6_interval_s integer , DIMENSION(max_domains) :: auxhist6_interval integer , DIMENSION(max_domains) :: auxhist6_begin_y integer , DIMENSION(max_domains) :: auxhist6_begin_d integer , DIMENSION(max_domains) :: auxhist6_begin_h integer , DIMENSION(max_domains) :: auxhist6_begin_m integer , DIMENSION(max_domains) :: auxhist6_begin_s integer , DIMENSION(max_domains) :: auxhist6_begin integer , DIMENSION(max_domains) :: auxhist6_end_y integer , DIMENSION(max_domains) :: auxhist6_end_d integer , DIMENSION(max_domains) :: auxhist6_end_h integer , DIMENSION(max_domains) :: auxhist6_end_m integer , DIMENSION(max_domains) :: auxhist6_end_s integer , DIMENSION(max_domains) :: auxhist6_end integer :: io_form_auxhist6 integer , DIMENSION(max_domains) :: frames_per_auxhist6 character*256 :: auxhist7_inname character*256 :: auxhist7_outname integer , DIMENSION(max_domains) :: auxhist7_interval_y integer , DIMENSION(max_domains) :: auxhist7_interval_d integer , DIMENSION(max_domains) :: auxhist7_interval_h integer , DIMENSION(max_domains) :: auxhist7_interval_m integer , DIMENSION(max_domains) :: auxhist7_interval_s integer , DIMENSION(max_domains) :: auxhist7_interval integer , DIMENSION(max_domains) :: auxhist7_begin_y integer , DIMENSION(max_domains) :: auxhist7_begin_d integer , DIMENSION(max_domains) :: auxhist7_begin_h integer , DIMENSION(max_domains) :: auxhist7_begin_m integer , DIMENSION(max_domains) :: auxhist7_begin_s integer , DIMENSION(max_domains) :: auxhist7_begin integer , DIMENSION(max_domains) :: auxhist7_end_y integer , DIMENSION(max_domains) :: auxhist7_end_d integer , DIMENSION(max_domains) :: auxhist7_end_h integer , DIMENSION(max_domains) :: auxhist7_end_m integer , DIMENSION(max_domains) :: auxhist7_end_s integer , DIMENSION(max_domains) :: auxhist7_end integer :: io_form_auxhist7 integer , DIMENSION(max_domains) :: frames_per_auxhist7 character*256 :: auxhist8_inname character*256 :: auxhist8_outname integer , DIMENSION(max_domains) :: auxhist8_interval_y integer , DIMENSION(max_domains) :: auxhist8_interval_d integer , DIMENSION(max_domains) :: auxhist8_interval_h integer , DIMENSION(max_domains) :: auxhist8_interval_m integer , DIMENSION(max_domains) :: auxhist8_interval_s integer , DIMENSION(max_domains) :: auxhist8_interval integer , DIMENSION(max_domains) :: auxhist8_begin_y integer , DIMENSION(max_domains) :: auxhist8_begin_d integer , DIMENSION(max_domains) :: auxhist8_begin_h integer , DIMENSION(max_domains) :: auxhist8_begin_m integer , DIMENSION(max_domains) :: auxhist8_begin_s integer , DIMENSION(max_domains) :: auxhist8_begin integer , DIMENSION(max_domains) :: auxhist8_end_y integer , DIMENSION(max_domains) :: auxhist8_end_d integer , DIMENSION(max_domains) :: auxhist8_end_h integer , DIMENSION(max_domains) :: auxhist8_end_m integer , DIMENSION(max_domains) :: auxhist8_end_s integer , DIMENSION(max_domains) :: auxhist8_end integer :: io_form_auxhist8 integer , DIMENSION(max_domains) :: frames_per_auxhist8 character*256 :: auxhist9_inname character*256 :: auxhist9_outname integer , DIMENSION(max_domains) :: auxhist9_interval_y integer , DIMENSION(max_domains) :: auxhist9_interval_d integer , DIMENSION(max_domains) :: auxhist9_interval_h integer , DIMENSION(max_domains) :: auxhist9_interval_m integer , DIMENSION(max_domains) :: auxhist9_interval_s integer , DIMENSION(max_domains) :: auxhist9_interval integer , DIMENSION(max_domains) :: auxhist9_begin_y integer , DIMENSION(max_domains) :: auxhist9_begin_d integer , DIMENSION(max_domains) :: auxhist9_begin_h integer , DIMENSION(max_domains) :: auxhist9_begin_m integer , DIMENSION(max_domains) :: auxhist9_begin_s integer , DIMENSION(max_domains) :: auxhist9_begin integer , DIMENSION(max_domains) :: auxhist9_end_y integer , DIMENSION(max_domains) :: auxhist9_end_d integer , DIMENSION(max_domains) :: auxhist9_end_h integer , DIMENSION(max_domains) :: auxhist9_end_m integer , DIMENSION(max_domains) :: auxhist9_end_s integer , DIMENSION(max_domains) :: auxhist9_end integer :: io_form_auxhist9 integer , DIMENSION(max_domains) :: frames_per_auxhist9 character*256 :: auxhist10_inname character*256 :: auxhist10_outname integer , DIMENSION(max_domains) :: auxhist10_interval_y integer , DIMENSION(max_domains) :: auxhist10_interval_d integer , DIMENSION(max_domains) :: auxhist10_interval_h integer , DIMENSION(max_domains) :: auxhist10_interval_m integer , DIMENSION(max_domains) :: auxhist10_interval_s integer , DIMENSION(max_domains) :: auxhist10_interval integer , DIMENSION(max_domains) :: auxhist10_begin_y integer , DIMENSION(max_domains) :: auxhist10_begin_d integer , DIMENSION(max_domains) :: auxhist10_begin_h integer , DIMENSION(max_domains) :: auxhist10_begin_m integer , DIMENSION(max_domains) :: auxhist10_begin_s integer , DIMENSION(max_domains) :: auxhist10_begin integer , DIMENSION(max_domains) :: auxhist10_end_y integer , DIMENSION(max_domains) :: auxhist10_end_d integer , DIMENSION(max_domains) :: auxhist10_end_h integer , DIMENSION(max_domains) :: auxhist10_end_m integer , DIMENSION(max_domains) :: auxhist10_end_s integer , DIMENSION(max_domains) :: auxhist10_end integer :: io_form_auxhist10 integer , DIMENSION(max_domains) :: frames_per_auxhist10 character*256 :: auxhist11_inname character*256 :: auxhist11_outname integer , DIMENSION(max_domains) :: auxhist11_interval_y integer , DIMENSION(max_domains) :: auxhist11_interval_d integer , DIMENSION(max_domains) :: auxhist11_interval_h integer , DIMENSION(max_domains) :: auxhist11_interval_m integer , DIMENSION(max_domains) :: auxhist11_interval_s integer , DIMENSION(max_domains) :: auxhist11_interval integer , DIMENSION(max_domains) :: auxhist11_begin_y integer , DIMENSION(max_domains) :: auxhist11_begin_d integer , DIMENSION(max_domains) :: auxhist11_begin_h integer , DIMENSION(max_domains) :: auxhist11_begin_m integer , DIMENSION(max_domains) :: auxhist11_begin_s integer , DIMENSION(max_domains) :: auxhist11_begin integer , DIMENSION(max_domains) :: auxhist11_end_y integer , DIMENSION(max_domains) :: auxhist11_end_d integer , DIMENSION(max_domains) :: auxhist11_end_h integer , DIMENSION(max_domains) :: auxhist11_end_m integer , DIMENSION(max_domains) :: auxhist11_end_s integer , DIMENSION(max_domains) :: auxhist11_end integer :: io_form_auxhist11 integer , DIMENSION(max_domains) :: frames_per_auxhist11 character*256 :: auxhist12_inname character*256 :: auxhist12_outname integer , DIMENSION(max_domains) :: auxhist12_interval_y integer , DIMENSION(max_domains) :: auxhist12_interval_d integer , DIMENSION(max_domains) :: auxhist12_interval_h integer , DIMENSION(max_domains) :: auxhist12_interval_m integer , DIMENSION(max_domains) :: auxhist12_interval_s integer , DIMENSION(max_domains) :: auxhist12_interval integer , DIMENSION(max_domains) :: auxhist12_begin_y integer , DIMENSION(max_domains) :: auxhist12_begin_d integer , DIMENSION(max_domains) :: auxhist12_begin_h integer , DIMENSION(max_domains) :: auxhist12_begin_m integer , DIMENSION(max_domains) :: auxhist12_begin_s integer , DIMENSION(max_domains) :: auxhist12_begin integer , DIMENSION(max_domains) :: auxhist12_end_y integer , DIMENSION(max_domains) :: auxhist12_end_d integer , DIMENSION(max_domains) :: auxhist12_end_h integer , DIMENSION(max_domains) :: auxhist12_end_m integer , DIMENSION(max_domains) :: auxhist12_end_s integer , DIMENSION(max_domains) :: auxhist12_end integer :: io_form_auxhist12 integer , DIMENSION(max_domains) :: frames_per_auxhist12 character*256 :: auxhist13_inname character*256 :: auxhist13_outname integer , DIMENSION(max_domains) :: auxhist13_interval_y integer , DIMENSION(max_domains) :: auxhist13_interval_d integer , DIMENSION(max_domains) :: auxhist13_interval_h integer , DIMENSION(max_domains) :: auxhist13_interval_m integer , DIMENSION(max_domains) :: auxhist13_interval_s integer , DIMENSION(max_domains) :: auxhist13_interval integer , DIMENSION(max_domains) :: auxhist13_begin_y integer , DIMENSION(max_domains) :: auxhist13_begin_d integer , DIMENSION(max_domains) :: auxhist13_begin_h integer , DIMENSION(max_domains) :: auxhist13_begin_m integer , DIMENSION(max_domains) :: auxhist13_begin_s integer , DIMENSION(max_domains) :: auxhist13_begin integer , DIMENSION(max_domains) :: auxhist13_end_y integer , DIMENSION(max_domains) :: auxhist13_end_d integer , DIMENSION(max_domains) :: auxhist13_end_h integer , DIMENSION(max_domains) :: auxhist13_end_m integer , DIMENSION(max_domains) :: auxhist13_end_s integer , DIMENSION(max_domains) :: auxhist13_end integer :: io_form_auxhist13 integer , DIMENSION(max_domains) :: frames_per_auxhist13 character*256 :: auxhist14_inname character*256 :: auxhist14_outname integer , DIMENSION(max_domains) :: auxhist14_interval_y integer , DIMENSION(max_domains) :: auxhist14_interval_d integer , DIMENSION(max_domains) :: auxhist14_interval_h integer , DIMENSION(max_domains) :: auxhist14_interval_m integer , DIMENSION(max_domains) :: auxhist14_interval_s integer , DIMENSION(max_domains) :: auxhist14_interval integer , DIMENSION(max_domains) :: auxhist14_begin_y integer , DIMENSION(max_domains) :: auxhist14_begin_d integer , DIMENSION(max_domains) :: auxhist14_begin_h integer , DIMENSION(max_domains) :: auxhist14_begin_m integer , DIMENSION(max_domains) :: auxhist14_begin_s integer , DIMENSION(max_domains) :: auxhist14_begin integer , DIMENSION(max_domains) :: auxhist14_end_y integer , DIMENSION(max_domains) :: auxhist14_end_d integer , DIMENSION(max_domains) :: auxhist14_end_h integer , DIMENSION(max_domains) :: auxhist14_end_m integer , DIMENSION(max_domains) :: auxhist14_end_s integer , DIMENSION(max_domains) :: auxhist14_end integer :: io_form_auxhist14 integer , DIMENSION(max_domains) :: frames_per_auxhist14 character*256 :: auxhist15_inname character*256 :: auxhist15_outname integer , DIMENSION(max_domains) :: auxhist15_interval_y integer , DIMENSION(max_domains) :: auxhist15_interval_d integer , DIMENSION(max_domains) :: auxhist15_interval_h integer , DIMENSION(max_domains) :: auxhist15_interval_m integer , DIMENSION(max_domains) :: auxhist15_interval_s integer , DIMENSION(max_domains) :: auxhist15_interval integer , DIMENSION(max_domains) :: auxhist15_begin_y integer , DIMENSION(max_domains) :: auxhist15_begin_d integer , DIMENSION(max_domains) :: auxhist15_begin_h integer , DIMENSION(max_domains) :: auxhist15_begin_m integer , DIMENSION(max_domains) :: auxhist15_begin_s integer , DIMENSION(max_domains) :: auxhist15_begin integer , DIMENSION(max_domains) :: auxhist15_end_y integer , DIMENSION(max_domains) :: auxhist15_end_d integer , DIMENSION(max_domains) :: auxhist15_end_h integer , DIMENSION(max_domains) :: auxhist15_end_m integer , DIMENSION(max_domains) :: auxhist15_end_s integer , DIMENSION(max_domains) :: auxhist15_end integer :: io_form_auxhist15 integer , DIMENSION(max_domains) :: frames_per_auxhist15 character*256 :: auxhist16_inname character*256 :: auxhist16_outname integer , DIMENSION(max_domains) :: auxhist16_interval_y integer , DIMENSION(max_domains) :: auxhist16_interval_d integer , DIMENSION(max_domains) :: auxhist16_interval_h integer , DIMENSION(max_domains) :: auxhist16_interval_m integer , DIMENSION(max_domains) :: auxhist16_interval_s integer , DIMENSION(max_domains) :: auxhist16_interval integer , DIMENSION(max_domains) :: auxhist16_begin_y integer , DIMENSION(max_domains) :: auxhist16_begin_d integer , DIMENSION(max_domains) :: auxhist16_begin_h integer , DIMENSION(max_domains) :: auxhist16_begin_m integer , DIMENSION(max_domains) :: auxhist16_begin_s integer , DIMENSION(max_domains) :: auxhist16_begin integer , DIMENSION(max_domains) :: auxhist16_end_y integer , DIMENSION(max_domains) :: auxhist16_end_d integer , DIMENSION(max_domains) :: auxhist16_end_h integer , DIMENSION(max_domains) :: auxhist16_end_m integer , DIMENSION(max_domains) :: auxhist16_end_s integer , DIMENSION(max_domains) :: auxhist16_end integer :: io_form_auxhist16 integer , DIMENSION(max_domains) :: frames_per_auxhist16 character*256 :: auxhist17_inname character*256 :: auxhist17_outname integer , DIMENSION(max_domains) :: auxhist17_interval_y integer , DIMENSION(max_domains) :: auxhist17_interval_d integer , DIMENSION(max_domains) :: auxhist17_interval_h integer , DIMENSION(max_domains) :: auxhist17_interval_m integer , DIMENSION(max_domains) :: auxhist17_interval_s integer , DIMENSION(max_domains) :: auxhist17_interval integer , DIMENSION(max_domains) :: auxhist17_begin_y integer , DIMENSION(max_domains) :: auxhist17_begin_d integer , DIMENSION(max_domains) :: auxhist17_begin_h integer , DIMENSION(max_domains) :: auxhist17_begin_m integer , DIMENSION(max_domains) :: auxhist17_begin_s integer , DIMENSION(max_domains) :: auxhist17_begin integer , DIMENSION(max_domains) :: auxhist17_end_y integer , DIMENSION(max_domains) :: auxhist17_end_d integer , DIMENSION(max_domains) :: auxhist17_end_h integer , DIMENSION(max_domains) :: auxhist17_end_m integer , DIMENSION(max_domains) :: auxhist17_end_s integer , DIMENSION(max_domains) :: auxhist17_end integer :: io_form_auxhist17 integer , DIMENSION(max_domains) :: frames_per_auxhist17 character*256 :: auxhist18_inname character*256 :: auxhist18_outname integer , DIMENSION(max_domains) :: auxhist18_interval_y integer , DIMENSION(max_domains) :: auxhist18_interval_d integer , DIMENSION(max_domains) :: auxhist18_interval_h integer , DIMENSION(max_domains) :: auxhist18_interval_m integer , DIMENSION(max_domains) :: auxhist18_interval_s integer , DIMENSION(max_domains) :: auxhist18_interval integer , DIMENSION(max_domains) :: auxhist18_begin_y integer , DIMENSION(max_domains) :: auxhist18_begin_d integer , DIMENSION(max_domains) :: auxhist18_begin_h integer , DIMENSION(max_domains) :: auxhist18_begin_m integer , DIMENSION(max_domains) :: auxhist18_begin_s integer , DIMENSION(max_domains) :: auxhist18_begin integer , DIMENSION(max_domains) :: auxhist18_end_y integer , DIMENSION(max_domains) :: auxhist18_end_d integer , DIMENSION(max_domains) :: auxhist18_end_h integer , DIMENSION(max_domains) :: auxhist18_end_m integer , DIMENSION(max_domains) :: auxhist18_end_s integer , DIMENSION(max_domains) :: auxhist18_end integer :: io_form_auxhist18 integer , DIMENSION(max_domains) :: frames_per_auxhist18 character*256 :: auxhist19_inname character*256 :: auxhist19_outname integer , DIMENSION(max_domains) :: auxhist19_interval_y integer , DIMENSION(max_domains) :: auxhist19_interval_d integer , DIMENSION(max_domains) :: auxhist19_interval_h integer , DIMENSION(max_domains) :: auxhist19_interval_m integer , DIMENSION(max_domains) :: auxhist19_interval_s integer , DIMENSION(max_domains) :: auxhist19_interval integer , DIMENSION(max_domains) :: auxhist19_begin_y integer , DIMENSION(max_domains) :: auxhist19_begin_d integer , DIMENSION(max_domains) :: auxhist19_begin_h integer , DIMENSION(max_domains) :: auxhist19_begin_m integer , DIMENSION(max_domains) :: auxhist19_begin_s integer , DIMENSION(max_domains) :: auxhist19_begin integer , DIMENSION(max_domains) :: auxhist19_end_y integer , DIMENSION(max_domains) :: auxhist19_end_d integer , DIMENSION(max_domains) :: auxhist19_end_h integer , DIMENSION(max_domains) :: auxhist19_end_m integer , DIMENSION(max_domains) :: auxhist19_end_s integer , DIMENSION(max_domains) :: auxhist19_end integer :: io_form_auxhist19 integer , DIMENSION(max_domains) :: frames_per_auxhist19 character*256 :: auxhist20_inname character*256 :: auxhist20_outname integer , DIMENSION(max_domains) :: auxhist20_interval_y integer , DIMENSION(max_domains) :: auxhist20_interval_d integer , DIMENSION(max_domains) :: auxhist20_interval_h integer , DIMENSION(max_domains) :: auxhist20_interval_m integer , DIMENSION(max_domains) :: auxhist20_interval_s integer , DIMENSION(max_domains) :: auxhist20_interval integer , DIMENSION(max_domains) :: auxhist20_begin_y integer , DIMENSION(max_domains) :: auxhist20_begin_d integer , DIMENSION(max_domains) :: auxhist20_begin_h integer , DIMENSION(max_domains) :: auxhist20_begin_m integer , DIMENSION(max_domains) :: auxhist20_begin_s integer , DIMENSION(max_domains) :: auxhist20_begin integer , DIMENSION(max_domains) :: auxhist20_end_y integer , DIMENSION(max_domains) :: auxhist20_end_d integer , DIMENSION(max_domains) :: auxhist20_end_h integer , DIMENSION(max_domains) :: auxhist20_end_m integer , DIMENSION(max_domains) :: auxhist20_end_s integer , DIMENSION(max_domains) :: auxhist20_end integer :: io_form_auxhist20 integer , DIMENSION(max_domains) :: frames_per_auxhist20 character*256 :: auxhist21_inname character*256 :: auxhist21_outname integer , DIMENSION(max_domains) :: auxhist21_interval_y integer , DIMENSION(max_domains) :: auxhist21_interval_d integer , DIMENSION(max_domains) :: auxhist21_interval_h integer , DIMENSION(max_domains) :: auxhist21_interval_m integer , DIMENSION(max_domains) :: auxhist21_interval_s integer , DIMENSION(max_domains) :: auxhist21_interval integer , DIMENSION(max_domains) :: auxhist21_begin_y integer , DIMENSION(max_domains) :: auxhist21_begin_d integer , DIMENSION(max_domains) :: auxhist21_begin_h integer , DIMENSION(max_domains) :: auxhist21_begin_m integer , DIMENSION(max_domains) :: auxhist21_begin_s integer , DIMENSION(max_domains) :: auxhist21_begin integer , DIMENSION(max_domains) :: auxhist21_end_y integer , DIMENSION(max_domains) :: auxhist21_end_d integer , DIMENSION(max_domains) :: auxhist21_end_h integer , DIMENSION(max_domains) :: auxhist21_end_m integer , DIMENSION(max_domains) :: auxhist21_end_s integer , DIMENSION(max_domains) :: auxhist21_end integer :: io_form_auxhist21 integer , DIMENSION(max_domains) :: frames_per_auxhist21 character*256 :: auxhist22_inname character*256 :: auxhist22_outname integer , DIMENSION(max_domains) :: auxhist22_interval_y integer , DIMENSION(max_domains) :: auxhist22_interval_d integer , DIMENSION(max_domains) :: auxhist22_interval_h integer , DIMENSION(max_domains) :: auxhist22_interval_m integer , DIMENSION(max_domains) :: auxhist22_interval_s integer , DIMENSION(max_domains) :: auxhist22_interval integer , DIMENSION(max_domains) :: auxhist22_begin_y integer , DIMENSION(max_domains) :: auxhist22_begin_d integer , DIMENSION(max_domains) :: auxhist22_begin_h integer , DIMENSION(max_domains) :: auxhist22_begin_m integer , DIMENSION(max_domains) :: auxhist22_begin_s integer , DIMENSION(max_domains) :: auxhist22_begin integer , DIMENSION(max_domains) :: auxhist22_end_y integer , DIMENSION(max_domains) :: auxhist22_end_d integer , DIMENSION(max_domains) :: auxhist22_end_h integer , DIMENSION(max_domains) :: auxhist22_end_m integer , DIMENSION(max_domains) :: auxhist22_end_s integer , DIMENSION(max_domains) :: auxhist22_end integer :: io_form_auxhist22 integer , DIMENSION(max_domains) :: frames_per_auxhist22 character*256 :: auxhist23_inname character*256 :: auxhist23_outname integer , DIMENSION(max_domains) :: auxhist23_interval_y integer , DIMENSION(max_domains) :: auxhist23_interval_d integer , DIMENSION(max_domains) :: auxhist23_interval_h integer , DIMENSION(max_domains) :: auxhist23_interval_m integer , DIMENSION(max_domains) :: auxhist23_interval_s integer , DIMENSION(max_domains) :: auxhist23_interval integer , DIMENSION(max_domains) :: auxhist23_begin_y integer , DIMENSION(max_domains) :: auxhist23_begin_d integer , DIMENSION(max_domains) :: auxhist23_begin_h integer , DIMENSION(max_domains) :: auxhist23_begin_m integer , DIMENSION(max_domains) :: auxhist23_begin_s integer , DIMENSION(max_domains) :: auxhist23_begin integer , DIMENSION(max_domains) :: auxhist23_end_y integer , DIMENSION(max_domains) :: auxhist23_end_d integer , DIMENSION(max_domains) :: auxhist23_end_h integer , DIMENSION(max_domains) :: auxhist23_end_m integer , DIMENSION(max_domains) :: auxhist23_end_s integer , DIMENSION(max_domains) :: auxhist23_end integer :: io_form_auxhist23 integer , DIMENSION(max_domains) :: frames_per_auxhist23 character*256 :: auxhist24_inname character*256 :: auxhist24_outname integer , DIMENSION(max_domains) :: auxhist24_interval_y integer , DIMENSION(max_domains) :: auxhist24_interval_d integer , DIMENSION(max_domains) :: auxhist24_interval_h integer , DIMENSION(max_domains) :: auxhist24_interval_m integer , DIMENSION(max_domains) :: auxhist24_interval_s integer , DIMENSION(max_domains) :: auxhist24_interval integer , DIMENSION(max_domains) :: auxhist24_begin_y integer , DIMENSION(max_domains) :: auxhist24_begin_d integer , DIMENSION(max_domains) :: auxhist24_begin_h integer , DIMENSION(max_domains) :: auxhist24_begin_m integer , DIMENSION(max_domains) :: auxhist24_begin_s integer , DIMENSION(max_domains) :: auxhist24_begin integer , DIMENSION(max_domains) :: auxhist24_end_y integer , DIMENSION(max_domains) :: auxhist24_end_d integer , DIMENSION(max_domains) :: auxhist24_end_h integer , DIMENSION(max_domains) :: auxhist24_end_m integer , DIMENSION(max_domains) :: auxhist24_end_s integer , DIMENSION(max_domains) :: auxhist24_end integer :: io_form_auxhist24 integer , DIMENSION(max_domains) :: frames_per_auxhist24 character*256 :: auxinput1_outname integer , DIMENSION(max_domains) :: auxinput1_interval_y integer , DIMENSION(max_domains) :: auxinput1_interval_d integer , DIMENSION(max_domains) :: auxinput1_interval_h integer , DIMENSION(max_domains) :: auxinput1_interval_m integer , DIMENSION(max_domains) :: auxinput1_interval_s integer , DIMENSION(max_domains) :: auxinput1_interval integer , DIMENSION(max_domains) :: auxinput1_begin_y integer , DIMENSION(max_domains) :: auxinput1_begin_d integer , DIMENSION(max_domains) :: auxinput1_begin_h integer , DIMENSION(max_domains) :: auxinput1_begin_m integer , DIMENSION(max_domains) :: auxinput1_begin_s integer , DIMENSION(max_domains) :: auxinput1_begin integer , DIMENSION(max_domains) :: auxinput1_end_y integer , DIMENSION(max_domains) :: auxinput1_end_d integer , DIMENSION(max_domains) :: auxinput1_end_h integer , DIMENSION(max_domains) :: auxinput1_end_m integer , DIMENSION(max_domains) :: auxinput1_end_s integer , DIMENSION(max_domains) :: auxinput1_end integer , DIMENSION(max_domains) :: frames_per_auxinput1 character*256 :: auxinput2_inname character*256 :: auxinput2_outname integer , DIMENSION(max_domains) :: auxinput2_interval_y integer , DIMENSION(max_domains) :: auxinput2_interval_d integer , DIMENSION(max_domains) :: auxinput2_interval_h integer , DIMENSION(max_domains) :: auxinput2_interval_m integer , DIMENSION(max_domains) :: auxinput2_interval_s integer , DIMENSION(max_domains) :: auxinput2_interval integer , DIMENSION(max_domains) :: auxinput2_begin_y integer , DIMENSION(max_domains) :: auxinput2_begin_d integer , DIMENSION(max_domains) :: auxinput2_begin_h integer , DIMENSION(max_domains) :: auxinput2_begin_m integer , DIMENSION(max_domains) :: auxinput2_begin_s integer , DIMENSION(max_domains) :: auxinput2_begin integer , DIMENSION(max_domains) :: auxinput2_end_y integer , DIMENSION(max_domains) :: auxinput2_end_d integer , DIMENSION(max_domains) :: auxinput2_end_h integer , DIMENSION(max_domains) :: auxinput2_end_m integer , DIMENSION(max_domains) :: auxinput2_end_s integer , DIMENSION(max_domains) :: auxinput2_end integer :: io_form_auxinput2 integer , DIMENSION(max_domains) :: frames_per_auxinput2 character*256 :: auxinput3_inname character*256 :: auxinput3_outname integer , DIMENSION(max_domains) :: auxinput3_interval_y integer , DIMENSION(max_domains) :: auxinput3_interval_d integer , DIMENSION(max_domains) :: auxinput3_interval_h integer , DIMENSION(max_domains) :: auxinput3_interval_m integer , DIMENSION(max_domains) :: auxinput3_interval_s integer , DIMENSION(max_domains) :: auxinput3_interval integer , DIMENSION(max_domains) :: auxinput3_begin_y integer , DIMENSION(max_domains) :: auxinput3_begin_d integer , DIMENSION(max_domains) :: auxinput3_begin_h integer , DIMENSION(max_domains) :: auxinput3_begin_m integer , DIMENSION(max_domains) :: auxinput3_begin_s integer , DIMENSION(max_domains) :: auxinput3_begin integer , DIMENSION(max_domains) :: auxinput3_end_y integer , DIMENSION(max_domains) :: auxinput3_end_d integer , DIMENSION(max_domains) :: auxinput3_end_h integer , DIMENSION(max_domains) :: auxinput3_end_m integer , DIMENSION(max_domains) :: auxinput3_end_s integer , DIMENSION(max_domains) :: auxinput3_end integer :: io_form_auxinput3 integer , DIMENSION(max_domains) :: frames_per_auxinput3 character*256 :: auxinput4_inname character*256 :: auxinput4_outname integer , DIMENSION(max_domains) :: auxinput4_interval_y integer , DIMENSION(max_domains) :: auxinput4_interval_d integer , DIMENSION(max_domains) :: auxinput4_interval_h integer , DIMENSION(max_domains) :: auxinput4_interval_m integer , DIMENSION(max_domains) :: auxinput4_interval_s integer , DIMENSION(max_domains) :: auxinput4_interval integer , DIMENSION(max_domains) :: auxinput4_begin_y integer , DIMENSION(max_domains) :: auxinput4_begin_d integer , DIMENSION(max_domains) :: auxinput4_begin_h integer , DIMENSION(max_domains) :: auxinput4_begin_m integer , DIMENSION(max_domains) :: auxinput4_begin_s integer , DIMENSION(max_domains) :: auxinput4_begin integer , DIMENSION(max_domains) :: auxinput4_end_y integer , DIMENSION(max_domains) :: auxinput4_end_d integer , DIMENSION(max_domains) :: auxinput4_end_h integer , DIMENSION(max_domains) :: auxinput4_end_m integer , DIMENSION(max_domains) :: auxinput4_end_s integer , DIMENSION(max_domains) :: auxinput4_end integer :: io_form_auxinput4 integer , DIMENSION(max_domains) :: frames_per_auxinput4 character*256 :: auxinput5_inname character*256 :: auxinput5_outname integer , DIMENSION(max_domains) :: auxinput5_interval_y integer , DIMENSION(max_domains) :: auxinput5_interval_d integer , DIMENSION(max_domains) :: auxinput5_interval_h integer , DIMENSION(max_domains) :: auxinput5_interval_m integer , DIMENSION(max_domains) :: auxinput5_interval_s integer , DIMENSION(max_domains) :: auxinput5_interval integer , DIMENSION(max_domains) :: auxinput5_begin_y integer , DIMENSION(max_domains) :: auxinput5_begin_d integer , DIMENSION(max_domains) :: auxinput5_begin_h integer , DIMENSION(max_domains) :: auxinput5_begin_m integer , DIMENSION(max_domains) :: auxinput5_begin_s integer , DIMENSION(max_domains) :: auxinput5_begin integer , DIMENSION(max_domains) :: auxinput5_end_y integer , DIMENSION(max_domains) :: auxinput5_end_d integer , DIMENSION(max_domains) :: auxinput5_end_h integer , DIMENSION(max_domains) :: auxinput5_end_m integer , DIMENSION(max_domains) :: auxinput5_end_s integer , DIMENSION(max_domains) :: auxinput5_end integer :: io_form_auxinput5 integer , DIMENSION(max_domains) :: frames_per_auxinput5 character*256 :: auxinput6_inname character*256 :: auxinput6_outname integer , DIMENSION(max_domains) :: auxinput6_interval_y integer , DIMENSION(max_domains) :: auxinput6_interval_d integer , DIMENSION(max_domains) :: auxinput6_interval_h integer , DIMENSION(max_domains) :: auxinput6_interval_m integer , DIMENSION(max_domains) :: auxinput6_interval_s integer , DIMENSION(max_domains) :: auxinput6_interval integer , DIMENSION(max_domains) :: auxinput6_begin_y integer , DIMENSION(max_domains) :: auxinput6_begin_d integer , DIMENSION(max_domains) :: auxinput6_begin_h integer , DIMENSION(max_domains) :: auxinput6_begin_m integer , DIMENSION(max_domains) :: auxinput6_begin_s integer , DIMENSION(max_domains) :: auxinput6_begin integer , DIMENSION(max_domains) :: auxinput6_end_y integer , DIMENSION(max_domains) :: auxinput6_end_d integer , DIMENSION(max_domains) :: auxinput6_end_h integer , DIMENSION(max_domains) :: auxinput6_end_m integer , DIMENSION(max_domains) :: auxinput6_end_s integer , DIMENSION(max_domains) :: auxinput6_end integer :: io_form_auxinput6 integer , DIMENSION(max_domains) :: frames_per_auxinput6 character*256 :: auxinput7_inname character*256 :: auxinput7_outname integer , DIMENSION(max_domains) :: auxinput7_interval_y integer , DIMENSION(max_domains) :: auxinput7_interval_d integer , DIMENSION(max_domains) :: auxinput7_interval_h integer , DIMENSION(max_domains) :: auxinput7_interval_m integer , DIMENSION(max_domains) :: auxinput7_interval_s integer , DIMENSION(max_domains) :: auxinput7_interval integer , DIMENSION(max_domains) :: auxinput7_begin_y integer , DIMENSION(max_domains) :: auxinput7_begin_d integer , DIMENSION(max_domains) :: auxinput7_begin_h integer , DIMENSION(max_domains) :: auxinput7_begin_m integer , DIMENSION(max_domains) :: auxinput7_begin_s integer , DIMENSION(max_domains) :: auxinput7_begin integer , DIMENSION(max_domains) :: auxinput7_end_y integer , DIMENSION(max_domains) :: auxinput7_end_d integer , DIMENSION(max_domains) :: auxinput7_end_h integer , DIMENSION(max_domains) :: auxinput7_end_m integer , DIMENSION(max_domains) :: auxinput7_end_s integer , DIMENSION(max_domains) :: auxinput7_end integer :: io_form_auxinput7 integer , DIMENSION(max_domains) :: frames_per_auxinput7 character*256 :: auxinput8_inname character*256 :: auxinput8_outname integer , DIMENSION(max_domains) :: auxinput8_interval_y integer , DIMENSION(max_domains) :: auxinput8_interval_d integer , DIMENSION(max_domains) :: auxinput8_interval_h integer , DIMENSION(max_domains) :: auxinput8_interval_m integer , DIMENSION(max_domains) :: auxinput8_interval_s integer , DIMENSION(max_domains) :: auxinput8_interval integer , DIMENSION(max_domains) :: auxinput8_begin_y integer , DIMENSION(max_domains) :: auxinput8_begin_d integer , DIMENSION(max_domains) :: auxinput8_begin_h integer , DIMENSION(max_domains) :: auxinput8_begin_m integer , DIMENSION(max_domains) :: auxinput8_begin_s integer , DIMENSION(max_domains) :: auxinput8_begin integer , DIMENSION(max_domains) :: auxinput8_end_y integer , DIMENSION(max_domains) :: auxinput8_end_d integer , DIMENSION(max_domains) :: auxinput8_end_h integer , DIMENSION(max_domains) :: auxinput8_end_m integer , DIMENSION(max_domains) :: auxinput8_end_s integer , DIMENSION(max_domains) :: auxinput8_end integer :: io_form_auxinput8 integer , DIMENSION(max_domains) :: frames_per_auxinput8 character*256 :: auxinput9_inname character*256 :: auxinput9_outname integer , DIMENSION(max_domains) :: auxinput9_interval_y integer , DIMENSION(max_domains) :: auxinput9_interval_d integer , DIMENSION(max_domains) :: auxinput9_interval_h integer , DIMENSION(max_domains) :: auxinput9_interval_m integer , DIMENSION(max_domains) :: auxinput9_interval_s integer , DIMENSION(max_domains) :: auxinput9_interval integer , DIMENSION(max_domains) :: auxinput9_begin_y integer , DIMENSION(max_domains) :: auxinput9_begin_d integer , DIMENSION(max_domains) :: auxinput9_begin_h integer , DIMENSION(max_domains) :: auxinput9_begin_m integer , DIMENSION(max_domains) :: auxinput9_begin_s integer , DIMENSION(max_domains) :: auxinput9_begin integer , DIMENSION(max_domains) :: auxinput9_end_y integer , DIMENSION(max_domains) :: auxinput9_end_d integer , DIMENSION(max_domains) :: auxinput9_end_h integer , DIMENSION(max_domains) :: auxinput9_end_m integer , DIMENSION(max_domains) :: auxinput9_end_s integer , DIMENSION(max_domains) :: auxinput9_end integer :: io_form_auxinput9 integer , DIMENSION(max_domains) :: frames_per_auxinput9 character*256 :: auxinput10_inname character*256 :: auxinput10_outname integer , DIMENSION(max_domains) :: auxinput10_interval_y integer , DIMENSION(max_domains) :: auxinput10_interval_d integer , DIMENSION(max_domains) :: auxinput10_interval_h integer , DIMENSION(max_domains) :: auxinput10_interval_m integer , DIMENSION(max_domains) :: auxinput10_interval_s integer , DIMENSION(max_domains) :: auxinput10_interval integer , DIMENSION(max_domains) :: auxinput10_begin_y integer , DIMENSION(max_domains) :: auxinput10_begin_d integer , DIMENSION(max_domains) :: auxinput10_begin_h integer , DIMENSION(max_domains) :: auxinput10_begin_m integer , DIMENSION(max_domains) :: auxinput10_begin_s integer , DIMENSION(max_domains) :: auxinput10_begin integer , DIMENSION(max_domains) :: auxinput10_end_y integer , DIMENSION(max_domains) :: auxinput10_end_d integer , DIMENSION(max_domains) :: auxinput10_end_h integer , DIMENSION(max_domains) :: auxinput10_end_m integer , DIMENSION(max_domains) :: auxinput10_end_s integer , DIMENSION(max_domains) :: auxinput10_end integer :: io_form_auxinput10 integer , DIMENSION(max_domains) :: frames_per_auxinput10 character*256 :: auxinput11_inname character*256 :: auxinput11_outname integer , DIMENSION(max_domains) :: auxinput11_interval_y integer , DIMENSION(max_domains) :: auxinput11_interval_d integer , DIMENSION(max_domains) :: auxinput11_interval_h integer , DIMENSION(max_domains) :: auxinput11_interval_m integer , DIMENSION(max_domains) :: auxinput11_interval_s integer , DIMENSION(max_domains) :: auxinput11_interval integer , DIMENSION(max_domains) :: auxinput11_begin_y integer , DIMENSION(max_domains) :: auxinput11_begin_d integer , DIMENSION(max_domains) :: auxinput11_begin_h integer , DIMENSION(max_domains) :: auxinput11_begin_m integer , DIMENSION(max_domains) :: auxinput11_begin_s integer , DIMENSION(max_domains) :: auxinput11_begin integer , DIMENSION(max_domains) :: auxinput11_end_y integer , DIMENSION(max_domains) :: auxinput11_end_d integer , DIMENSION(max_domains) :: auxinput11_end_h integer , DIMENSION(max_domains) :: auxinput11_end_m integer , DIMENSION(max_domains) :: auxinput11_end_s integer , DIMENSION(max_domains) :: auxinput11_end integer :: io_form_auxinput11 integer , DIMENSION(max_domains) :: frames_per_auxinput11 character*256 :: auxinput12_inname character*256 :: auxinput12_outname integer , DIMENSION(max_domains) :: auxinput12_interval_y integer , DIMENSION(max_domains) :: auxinput12_interval_d integer , DIMENSION(max_domains) :: auxinput12_interval_h integer , DIMENSION(max_domains) :: auxinput12_interval_m integer , DIMENSION(max_domains) :: auxinput12_interval_s integer , DIMENSION(max_domains) :: auxinput12_interval integer , DIMENSION(max_domains) :: auxinput12_begin_y integer , DIMENSION(max_domains) :: auxinput12_begin_d integer , DIMENSION(max_domains) :: auxinput12_begin_h integer , DIMENSION(max_domains) :: auxinput12_begin_m integer , DIMENSION(max_domains) :: auxinput12_begin_s integer , DIMENSION(max_domains) :: auxinput12_begin integer , DIMENSION(max_domains) :: auxinput12_end_y integer , DIMENSION(max_domains) :: auxinput12_end_d integer , DIMENSION(max_domains) :: auxinput12_end_h integer , DIMENSION(max_domains) :: auxinput12_end_m integer , DIMENSION(max_domains) :: auxinput12_end_s integer , DIMENSION(max_domains) :: auxinput12_end integer :: io_form_auxinput12 integer , DIMENSION(max_domains) :: frames_per_auxinput12 character*256 :: auxinput13_inname character*256 :: auxinput13_outname integer , DIMENSION(max_domains) :: auxinput13_interval_y integer , DIMENSION(max_domains) :: auxinput13_interval_d integer , DIMENSION(max_domains) :: auxinput13_interval_h integer , DIMENSION(max_domains) :: auxinput13_interval_m integer , DIMENSION(max_domains) :: auxinput13_interval_s integer , DIMENSION(max_domains) :: auxinput13_interval integer , DIMENSION(max_domains) :: auxinput13_begin_y integer , DIMENSION(max_domains) :: auxinput13_begin_d integer , DIMENSION(max_domains) :: auxinput13_begin_h integer , DIMENSION(max_domains) :: auxinput13_begin_m integer , DIMENSION(max_domains) :: auxinput13_begin_s integer , DIMENSION(max_domains) :: auxinput13_begin integer , DIMENSION(max_domains) :: auxinput13_end_y integer , DIMENSION(max_domains) :: auxinput13_end_d integer , DIMENSION(max_domains) :: auxinput13_end_h integer , DIMENSION(max_domains) :: auxinput13_end_m integer , DIMENSION(max_domains) :: auxinput13_end_s integer , DIMENSION(max_domains) :: auxinput13_end integer :: io_form_auxinput13 integer , DIMENSION(max_domains) :: frames_per_auxinput13 character*256 :: auxinput14_inname character*256 :: auxinput14_outname integer , DIMENSION(max_domains) :: auxinput14_interval_y integer , DIMENSION(max_domains) :: auxinput14_interval_d integer , DIMENSION(max_domains) :: auxinput14_interval_h integer , DIMENSION(max_domains) :: auxinput14_interval_m integer , DIMENSION(max_domains) :: auxinput14_interval_s integer , DIMENSION(max_domains) :: auxinput14_interval integer , DIMENSION(max_domains) :: auxinput14_begin_y integer , DIMENSION(max_domains) :: auxinput14_begin_d integer , DIMENSION(max_domains) :: auxinput14_begin_h integer , DIMENSION(max_domains) :: auxinput14_begin_m integer , DIMENSION(max_domains) :: auxinput14_begin_s integer , DIMENSION(max_domains) :: auxinput14_begin integer , DIMENSION(max_domains) :: auxinput14_end_y integer , DIMENSION(max_domains) :: auxinput14_end_d integer , DIMENSION(max_domains) :: auxinput14_end_h integer , DIMENSION(max_domains) :: auxinput14_end_m integer , DIMENSION(max_domains) :: auxinput14_end_s integer , DIMENSION(max_domains) :: auxinput14_end integer :: io_form_auxinput14 integer , DIMENSION(max_domains) :: frames_per_auxinput14 character*256 :: auxinput15_inname character*256 :: auxinput15_outname integer , DIMENSION(max_domains) :: auxinput15_interval_y integer , DIMENSION(max_domains) :: auxinput15_interval_d integer , DIMENSION(max_domains) :: auxinput15_interval_h integer , DIMENSION(max_domains) :: auxinput15_interval_m integer , DIMENSION(max_domains) :: auxinput15_interval_s integer , DIMENSION(max_domains) :: auxinput15_interval integer , DIMENSION(max_domains) :: auxinput15_begin_y integer , DIMENSION(max_domains) :: auxinput15_begin_d integer , DIMENSION(max_domains) :: auxinput15_begin_h integer , DIMENSION(max_domains) :: auxinput15_begin_m integer , DIMENSION(max_domains) :: auxinput15_begin_s integer , DIMENSION(max_domains) :: auxinput15_begin integer , DIMENSION(max_domains) :: auxinput15_end_y integer , DIMENSION(max_domains) :: auxinput15_end_d integer , DIMENSION(max_domains) :: auxinput15_end_h integer , DIMENSION(max_domains) :: auxinput15_end_m integer , DIMENSION(max_domains) :: auxinput15_end_s integer , DIMENSION(max_domains) :: auxinput15_end integer :: io_form_auxinput15 integer , DIMENSION(max_domains) :: frames_per_auxinput15 character*256 :: auxinput16_inname character*256 :: auxinput16_outname integer , DIMENSION(max_domains) :: auxinput16_interval_y integer , DIMENSION(max_domains) :: auxinput16_interval_d integer , DIMENSION(max_domains) :: auxinput16_interval_h integer , DIMENSION(max_domains) :: auxinput16_interval_m integer , DIMENSION(max_domains) :: auxinput16_interval_s integer , DIMENSION(max_domains) :: auxinput16_interval integer , DIMENSION(max_domains) :: auxinput16_begin_y integer , DIMENSION(max_domains) :: auxinput16_begin_d integer , DIMENSION(max_domains) :: auxinput16_begin_h integer , DIMENSION(max_domains) :: auxinput16_begin_m integer , DIMENSION(max_domains) :: auxinput16_begin_s integer , DIMENSION(max_domains) :: auxinput16_begin integer , DIMENSION(max_domains) :: auxinput16_end_y integer , DIMENSION(max_domains) :: auxinput16_end_d integer , DIMENSION(max_domains) :: auxinput16_end_h integer , DIMENSION(max_domains) :: auxinput16_end_m integer , DIMENSION(max_domains) :: auxinput16_end_s integer , DIMENSION(max_domains) :: auxinput16_end integer :: io_form_auxinput16 integer , DIMENSION(max_domains) :: frames_per_auxinput16 character*256 :: auxinput17_inname character*256 :: auxinput17_outname integer , DIMENSION(max_domains) :: auxinput17_interval_y integer , DIMENSION(max_domains) :: auxinput17_interval_d integer , DIMENSION(max_domains) :: auxinput17_interval_h integer , DIMENSION(max_domains) :: auxinput17_interval_m integer , DIMENSION(max_domains) :: auxinput17_interval_s integer , DIMENSION(max_domains) :: auxinput17_interval integer , DIMENSION(max_domains) :: auxinput17_begin_y integer , DIMENSION(max_domains) :: auxinput17_begin_d integer , DIMENSION(max_domains) :: auxinput17_begin_h integer , DIMENSION(max_domains) :: auxinput17_begin_m integer , DIMENSION(max_domains) :: auxinput17_begin_s integer , DIMENSION(max_domains) :: auxinput17_begin integer , DIMENSION(max_domains) :: auxinput17_end_y integer , DIMENSION(max_domains) :: auxinput17_end_d integer , DIMENSION(max_domains) :: auxinput17_end_h integer , DIMENSION(max_domains) :: auxinput17_end_m integer , DIMENSION(max_domains) :: auxinput17_end_s integer , DIMENSION(max_domains) :: auxinput17_end integer :: io_form_auxinput17 integer , DIMENSION(max_domains) :: frames_per_auxinput17 character*256 :: auxinput18_inname character*256 :: auxinput18_outname integer , DIMENSION(max_domains) :: auxinput18_interval_y integer , DIMENSION(max_domains) :: auxinput18_interval_d integer , DIMENSION(max_domains) :: auxinput18_interval_h integer , DIMENSION(max_domains) :: auxinput18_interval_m integer , DIMENSION(max_domains) :: auxinput18_interval_s integer , DIMENSION(max_domains) :: auxinput18_interval integer , DIMENSION(max_domains) :: auxinput18_begin_y integer , DIMENSION(max_domains) :: auxinput18_begin_d integer , DIMENSION(max_domains) :: auxinput18_begin_h integer , DIMENSION(max_domains) :: auxinput18_begin_m integer , DIMENSION(max_domains) :: auxinput18_begin_s integer , DIMENSION(max_domains) :: auxinput18_begin integer , DIMENSION(max_domains) :: auxinput18_end_y integer , DIMENSION(max_domains) :: auxinput18_end_d integer , DIMENSION(max_domains) :: auxinput18_end_h integer , DIMENSION(max_domains) :: auxinput18_end_m integer , DIMENSION(max_domains) :: auxinput18_end_s integer , DIMENSION(max_domains) :: auxinput18_end integer :: io_form_auxinput18 integer , DIMENSION(max_domains) :: frames_per_auxinput18 character*256 :: auxinput19_inname character*256 :: auxinput19_outname integer , DIMENSION(max_domains) :: auxinput19_interval_y integer , DIMENSION(max_domains) :: auxinput19_interval_d integer , DIMENSION(max_domains) :: auxinput19_interval_h integer , DIMENSION(max_domains) :: auxinput19_interval_m integer , DIMENSION(max_domains) :: auxinput19_interval_s integer , DIMENSION(max_domains) :: auxinput19_interval integer , DIMENSION(max_domains) :: auxinput19_begin_y integer , DIMENSION(max_domains) :: auxinput19_begin_d integer , DIMENSION(max_domains) :: auxinput19_begin_h integer , DIMENSION(max_domains) :: auxinput19_begin_m integer , DIMENSION(max_domains) :: auxinput19_begin_s integer , DIMENSION(max_domains) :: auxinput19_begin integer , DIMENSION(max_domains) :: auxinput19_end_y integer , DIMENSION(max_domains) :: auxinput19_end_d integer , DIMENSION(max_domains) :: auxinput19_end_h integer , DIMENSION(max_domains) :: auxinput19_end_m integer , DIMENSION(max_domains) :: auxinput19_end_s integer , DIMENSION(max_domains) :: auxinput19_end integer :: io_form_auxinput19 integer , DIMENSION(max_domains) :: frames_per_auxinput19 character*256 :: auxinput20_inname character*256 :: auxinput20_outname integer , DIMENSION(max_domains) :: auxinput20_interval_y integer , DIMENSION(max_domains) :: auxinput20_interval_d integer , DIMENSION(max_domains) :: auxinput20_interval_h integer , DIMENSION(max_domains) :: auxinput20_interval_m integer , DIMENSION(max_domains) :: auxinput20_interval_s integer , DIMENSION(max_domains) :: auxinput20_interval integer , DIMENSION(max_domains) :: auxinput20_begin_y integer , DIMENSION(max_domains) :: auxinput20_begin_d integer , DIMENSION(max_domains) :: auxinput20_begin_h integer , DIMENSION(max_domains) :: auxinput20_begin_m integer , DIMENSION(max_domains) :: auxinput20_begin_s integer , DIMENSION(max_domains) :: auxinput20_begin integer , DIMENSION(max_domains) :: auxinput20_end_y integer , DIMENSION(max_domains) :: auxinput20_end_d integer , DIMENSION(max_domains) :: auxinput20_end_h integer , DIMENSION(max_domains) :: auxinput20_end_m integer , DIMENSION(max_domains) :: auxinput20_end_s integer , DIMENSION(max_domains) :: auxinput20_end integer :: io_form_auxinput20 integer , DIMENSION(max_domains) :: frames_per_auxinput20 character*256 :: auxinput21_inname character*256 :: auxinput21_outname integer , DIMENSION(max_domains) :: auxinput21_interval_y integer , DIMENSION(max_domains) :: auxinput21_interval_d integer , DIMENSION(max_domains) :: auxinput21_interval_h integer , DIMENSION(max_domains) :: auxinput21_interval_m integer , DIMENSION(max_domains) :: auxinput21_interval_s integer , DIMENSION(max_domains) :: auxinput21_interval integer , DIMENSION(max_domains) :: auxinput21_begin_y integer , DIMENSION(max_domains) :: auxinput21_begin_d integer , DIMENSION(max_domains) :: auxinput21_begin_h integer , DIMENSION(max_domains) :: auxinput21_begin_m integer , DIMENSION(max_domains) :: auxinput21_begin_s integer , DIMENSION(max_domains) :: auxinput21_begin integer , DIMENSION(max_domains) :: auxinput21_end_y integer , DIMENSION(max_domains) :: auxinput21_end_d integer , DIMENSION(max_domains) :: auxinput21_end_h integer , DIMENSION(max_domains) :: auxinput21_end_m integer , DIMENSION(max_domains) :: auxinput21_end_s integer , DIMENSION(max_domains) :: auxinput21_end integer :: io_form_auxinput21 integer , DIMENSION(max_domains) :: frames_per_auxinput21 character*256 :: auxinput22_inname character*256 :: auxinput22_outname integer , DIMENSION(max_domains) :: auxinput22_interval_y integer , DIMENSION(max_domains) :: auxinput22_interval_d integer , DIMENSION(max_domains) :: auxinput22_interval_h integer , DIMENSION(max_domains) :: auxinput22_interval_m integer , DIMENSION(max_domains) :: auxinput22_interval_s integer , DIMENSION(max_domains) :: auxinput22_interval integer , DIMENSION(max_domains) :: auxinput22_begin_y integer , DIMENSION(max_domains) :: auxinput22_begin_d integer , DIMENSION(max_domains) :: auxinput22_begin_h integer , DIMENSION(max_domains) :: auxinput22_begin_m integer , DIMENSION(max_domains) :: auxinput22_begin_s integer , DIMENSION(max_domains) :: auxinput22_begin integer , DIMENSION(max_domains) :: auxinput22_end_y integer , DIMENSION(max_domains) :: auxinput22_end_d integer , DIMENSION(max_domains) :: auxinput22_end_h integer , DIMENSION(max_domains) :: auxinput22_end_m integer , DIMENSION(max_domains) :: auxinput22_end_s integer , DIMENSION(max_domains) :: auxinput22_end integer :: io_form_auxinput22 integer , DIMENSION(max_domains) :: frames_per_auxinput22 character*256 :: auxinput23_inname character*256 :: auxinput23_outname integer , DIMENSION(max_domains) :: auxinput23_interval_y integer , DIMENSION(max_domains) :: auxinput23_interval_d integer , DIMENSION(max_domains) :: auxinput23_interval_h integer , DIMENSION(max_domains) :: auxinput23_interval_m integer , DIMENSION(max_domains) :: auxinput23_interval_s integer , DIMENSION(max_domains) :: auxinput23_interval integer , DIMENSION(max_domains) :: auxinput23_begin_y integer , DIMENSION(max_domains) :: auxinput23_begin_d integer , DIMENSION(max_domains) :: auxinput23_begin_h integer , DIMENSION(max_domains) :: auxinput23_begin_m integer , DIMENSION(max_domains) :: auxinput23_begin_s integer , DIMENSION(max_domains) :: auxinput23_begin integer , DIMENSION(max_domains) :: auxinput23_end_y integer , DIMENSION(max_domains) :: auxinput23_end_d integer , DIMENSION(max_domains) :: auxinput23_end_h integer , DIMENSION(max_domains) :: auxinput23_end_m integer , DIMENSION(max_domains) :: auxinput23_end_s integer , DIMENSION(max_domains) :: auxinput23_end integer :: io_form_auxinput23 integer , DIMENSION(max_domains) :: frames_per_auxinput23 character*256 :: auxinput24_inname character*256 :: auxinput24_outname integer , DIMENSION(max_domains) :: auxinput24_interval_y integer , DIMENSION(max_domains) :: auxinput24_interval_d integer , DIMENSION(max_domains) :: auxinput24_interval_h integer , DIMENSION(max_domains) :: auxinput24_interval_m integer , DIMENSION(max_domains) :: auxinput24_interval_s integer , DIMENSION(max_domains) :: auxinput24_interval integer , DIMENSION(max_domains) :: auxinput24_begin_y integer , DIMENSION(max_domains) :: auxinput24_begin_d integer , DIMENSION(max_domains) :: auxinput24_begin_h integer , DIMENSION(max_domains) :: auxinput24_begin_m integer , DIMENSION(max_domains) :: auxinput24_begin_s integer , DIMENSION(max_domains) :: auxinput24_begin integer , DIMENSION(max_domains) :: auxinput24_end_y integer , DIMENSION(max_domains) :: auxinput24_end_d integer , DIMENSION(max_domains) :: auxinput24_end_h integer , DIMENSION(max_domains) :: auxinput24_end_m integer , DIMENSION(max_domains) :: auxinput24_end_s integer , DIMENSION(max_domains) :: auxinput24_end integer :: io_form_auxinput24 integer , DIMENSION(max_domains) :: frames_per_auxinput24 integer , DIMENSION(max_domains) :: history_interval integer , DIMENSION(max_domains) :: frames_per_outfile logical :: restart integer :: restart_interval integer :: io_form_input integer :: io_form_history integer :: io_form_restart integer :: io_form_boundary integer :: debug_level logical :: self_test_domain character*256 :: history_outname character*256 :: history_inname logical :: use_netcdf_classic integer , DIMENSION(max_domains) :: history_interval_d integer , DIMENSION(max_domains) :: history_interval_h integer , DIMENSION(max_domains) :: history_interval_m integer , DIMENSION(max_domains) :: history_interval_s integer , DIMENSION(max_domains) :: inputout_interval_d integer , DIMENSION(max_domains) :: inputout_interval_h integer , DIMENSION(max_domains) :: inputout_interval_m integer , DIMENSION(max_domains) :: inputout_interval_s integer , DIMENSION(max_domains) :: inputout_interval integer :: restart_interval_d integer :: restart_interval_h integer :: restart_interval_m integer :: restart_interval_s integer , DIMENSION(max_domains) :: history_begin_y integer , DIMENSION(max_domains) :: history_begin_d integer , DIMENSION(max_domains) :: history_begin_h integer , DIMENSION(max_domains) :: history_begin_m integer , DIMENSION(max_domains) :: history_begin_s integer , DIMENSION(max_domains) :: history_begin integer , DIMENSION(max_domains) :: inputout_begin_y integer , DIMENSION(max_domains) :: inputout_begin_d integer , DIMENSION(max_domains) :: inputout_begin_h integer , DIMENSION(max_domains) :: inputout_begin_m integer , DIMENSION(max_domains) :: inputout_begin_s integer :: restart_begin_y integer :: restart_begin_d integer :: restart_begin_h integer :: restart_begin_m integer :: restart_begin_s integer :: restart_begin integer , DIMENSION(max_domains) :: history_end_y integer , DIMENSION(max_domains) :: history_end_d integer , DIMENSION(max_domains) :: history_end_h integer , DIMENSION(max_domains) :: history_end_m integer , DIMENSION(max_domains) :: history_end_s integer , DIMENSION(max_domains) :: history_end integer , DIMENSION(max_domains) :: inputout_end_y integer , DIMENSION(max_domains) :: inputout_end_d integer , DIMENSION(max_domains) :: inputout_end_h integer , DIMENSION(max_domains) :: inputout_end_m integer , DIMENSION(max_domains) :: inputout_end_s integer :: simulation_start_year integer :: simulation_start_month integer :: simulation_start_day integer :: simulation_start_hour integer :: simulation_start_minute integer :: simulation_start_second logical :: reset_simulation_start integer , DIMENSION(max_domains) :: sr_x integer , DIMENSION(max_domains) :: sr_y character*256 :: sgfdda_inname character*256 :: gfdda_inname integer , DIMENSION(max_domains) :: sgfdda_interval_d integer , DIMENSION(max_domains) :: sgfdda_interval_h integer , DIMENSION(max_domains) :: sgfdda_interval_m integer , DIMENSION(max_domains) :: sgfdda_interval_s integer , DIMENSION(max_domains) :: sgfdda_interval_y integer , DIMENSION(max_domains) :: sgfdda_interval integer , DIMENSION(max_domains) :: gfdda_interval_d integer , DIMENSION(max_domains) :: gfdda_interval_h integer , DIMENSION(max_domains) :: gfdda_interval_m integer , DIMENSION(max_domains) :: gfdda_interval_s integer , DIMENSION(max_domains) :: gfdda_interval_y integer , DIMENSION(max_domains) :: gfdda_interval integer , DIMENSION(max_domains) :: sgfdda_begin_y integer , DIMENSION(max_domains) :: sgfdda_begin_d integer , DIMENSION(max_domains) :: sgfdda_begin_h integer , DIMENSION(max_domains) :: sgfdda_begin_m integer , DIMENSION(max_domains) :: sgfdda_begin_s integer , DIMENSION(max_domains) :: gfdda_begin_y integer , DIMENSION(max_domains) :: gfdda_begin_d integer , DIMENSION(max_domains) :: gfdda_begin_h integer , DIMENSION(max_domains) :: gfdda_begin_m integer , DIMENSION(max_domains) :: gfdda_begin_s integer , DIMENSION(max_domains) :: sgfdda_end_y integer , DIMENSION(max_domains) :: sgfdda_end_d integer , DIMENSION(max_domains) :: sgfdda_end_h integer , DIMENSION(max_domains) :: sgfdda_end_m integer , DIMENSION(max_domains) :: sgfdda_end_s integer , DIMENSION(max_domains) :: gfdda_end_y integer , DIMENSION(max_domains) :: gfdda_end_d integer , DIMENSION(max_domains) :: gfdda_end_h integer , DIMENSION(max_domains) :: gfdda_end_m integer , DIMENSION(max_domains) :: gfdda_end_s integer :: io_form_sgfdda integer :: io_form_gfdda character*256 , DIMENSION(max_domains) :: iofields_filename logical :: ignore_iofields_warning logical :: ncd_nofill character*256 :: emi_inname character*256 :: fireemi_inname character*256 :: input_chem_inname character*256 :: emi_outname character*256 :: fireemi_outname character*256 :: input_chem_outname integer :: io_style_emissions real , DIMENSION(max_domains) :: bioemdt real , DIMENSION(max_domains) :: photdt real , DIMENSION(max_domains) :: chemdt integer :: ne_area integer :: kemit integer :: nmegan integer :: kfuture integer :: kfire integer :: kemit_aircraft integer :: kdvel integer :: ndepvel integer :: kdepvel integer :: erosion_dim integer , DIMENSION(max_domains) :: biomass_emiss_opt integer :: cam_mam_mode integer :: cam_mam_nspec logical :: cam_mp_mam_cpled integer , DIMENSION(max_domains) :: lightning_opt integer , DIMENSION(max_domains) :: lightning_time_step real , DIMENSION(max_domains) :: temp_upper real , DIMENSION(max_domains) :: temp_lower real , DIMENSION(max_domains) :: n_ic real , DIMENSION(max_domains) :: n_cg integer , DIMENSION(max_domains) :: passive_ltng integer :: lflash_data integer , DIMENSION(max_domains) :: flashrate_method character*256 , DIMENSION(max_domains) :: vprm_opt real :: wpeat real :: wflood character*256 , DIMENSION(max_domains) :: term_opt integer , DIMENSION(max_domains) :: chem_conv_tr integer , DIMENSION(max_domains) :: conv_tr_wetscav integer , DIMENSION(max_domains) :: conv_tr_aqchem integer , DIMENSION(max_domains) :: chem_opt integer , DIMENSION(max_domains) :: gaschem_onoff integer , DIMENSION(max_domains) :: aerchem_onoff integer , DIMENSION(max_domains) :: wetscav_onoff integer , DIMENSION(max_domains) :: dustwd_onoff integer , DIMENSION(max_domains) :: cldchem_onoff logical , DIMENSION(max_domains) :: is_full_tuv real , DIMENSION(max_domains) :: lambda_cutoff integer , DIMENSION(max_domains) :: cld_od_opt integer , DIMENSION(max_domains) :: pht_cldfrc_opt integer , DIMENSION(max_domains) :: vertmix_onoff integer , DIMENSION(max_domains) :: chem_in_opt integer , DIMENSION(max_domains) :: phot_opt integer , DIMENSION(max_domains) :: gas_drydep_opt integer , DIMENSION(max_domains) :: aer_drydep_opt integer , DIMENSION(max_domains) :: diagnostic_chem integer , DIMENSION(max_domains) :: aero_diag_opt integer , DIMENSION(max_domains) :: aero_cw_diag_opt integer , DIMENSION(max_domains) :: aer_aerodynres_opt integer , DIMENSION(max_domains) :: emiss_opt integer , DIMENSION(max_domains) :: emiss_opt_vol integer :: dust_opt integer :: dust_schme integer :: dmsemis_opt integer :: seas_opt integer , DIMENSION(max_domains) :: bio_emiss_opt integer , DIMENSION(max_domains) :: biomass_burn_opt integer , DIMENSION(max_domains) :: plumerisefire_frq integer , DIMENSION(max_domains) :: emiss_inpt_opt integer , DIMENSION(max_domains) :: gas_bc_opt integer , DIMENSION(max_domains) :: gas_ic_opt integer , DIMENSION(max_domains) :: aer_bc_opt integer , DIMENSION(max_domains) :: aer_ic_opt logical , DIMENSION(max_domains) :: have_bcs_chem logical , DIMENSION(max_domains) :: have_bcs_tracer logical , DIMENSION(max_domains) :: scale_fire_emiss integer , DIMENSION(max_domains) :: aer_ra_feedback integer , DIMENSION(max_domains) :: aer_op_opt integer :: opt_pars_out integer , DIMENSION(max_domains) :: diagnostic_dep integer , DIMENSION(max_domains) :: aircraft_emiss_opt logical , DIMENSION(max_domains) :: have_bcs_upper real , DIMENSION(max_domains) :: fixed_ubc_press character*256 :: fixed_ubc_inname character*256 :: trop_lev_inname character*256 , DIMENSION(max_domains) :: exo_coldens_inname character*256 , DIMENSION(max_domains) :: wes_seasonal_inname integer , DIMENSION(max_domains) :: chemdiag real :: dust_alpha real :: dust_gamma real :: dust_smtune real :: dust_ustune integer :: dust_dsr integer :: dust_veg integer :: dust_soils integer :: dust_smois real :: emiss_ash_hgt real , DIMENSION(max_domains) :: depo_fact integer :: track_chem_num character*256 , DIMENSION(max_trackchem) :: track_chem_name integer :: track_rad_num integer :: track_tuv_num integer :: track_tuv_lev integer :: n2o5_hetchem real , DIMENSION(max_domains) :: af_lambda_start real , DIMENSION(max_domains) :: af_lambda_end integer , DIMENSION(max_domains) :: lnox_opt logical , DIMENSION(max_domains) :: lnox_passive real , DIMENSION(max_domains) :: ltng_temp_upper real , DIMENSION(max_domains) :: ltng_temp_lower logical :: has_o3_exo_coldens real :: du_at_grnd logical :: scale_o3_to_grnd_exo_coldens logical :: scale_o3_to_du_at_grnd integer , DIMENSION(max_domains) :: irr_opt integer , DIMENSION(max_domains) :: ifire integer , DIMENSION(max_domains) :: fire_boundary_guard integer , DIMENSION(max_domains) :: fire_num_ignitions real , DIMENSION(max_domains) :: fire_ignition_ros1 real , DIMENSION(max_domains) :: fire_ignition_start_lon1 real , DIMENSION(max_domains) :: fire_ignition_start_lat1 real , DIMENSION(max_domains) :: fire_ignition_end_lon1 real , DIMENSION(max_domains) :: fire_ignition_end_lat1 real , DIMENSION(max_domains) :: fire_ignition_radius1 real , DIMENSION(max_domains) :: fire_ignition_start_time1 real , DIMENSION(max_domains) :: fire_ignition_end_time1 real , DIMENSION(max_domains) :: fire_ignition_ros2 real , DIMENSION(max_domains) :: fire_ignition_start_lon2 real , DIMENSION(max_domains) :: fire_ignition_start_lat2 real , DIMENSION(max_domains) :: fire_ignition_end_lon2 real , DIMENSION(max_domains) :: fire_ignition_end_lat2 real , DIMENSION(max_domains) :: fire_ignition_radius2 real , DIMENSION(max_domains) :: fire_ignition_start_time2 real , DIMENSION(max_domains) :: fire_ignition_end_time2 real , DIMENSION(max_domains) :: fire_ignition_ros3 real , DIMENSION(max_domains) :: fire_ignition_start_lon3 real , DIMENSION(max_domains) :: fire_ignition_start_lat3 real , DIMENSION(max_domains) :: fire_ignition_end_lon3 real , DIMENSION(max_domains) :: fire_ignition_end_lat3 real , DIMENSION(max_domains) :: fire_ignition_radius3 real , DIMENSION(max_domains) :: fire_ignition_start_time3 real , DIMENSION(max_domains) :: fire_ignition_end_time3 real , DIMENSION(max_domains) :: fire_ignition_ros4 real , DIMENSION(max_domains) :: fire_ignition_start_lon4 real , DIMENSION(max_domains) :: fire_ignition_start_lat4 real , DIMENSION(max_domains) :: fire_ignition_end_lon4 real , DIMENSION(max_domains) :: fire_ignition_end_lat4 real , DIMENSION(max_domains) :: fire_ignition_radius4 real , DIMENSION(max_domains) :: fire_ignition_start_time4 real , DIMENSION(max_domains) :: fire_ignition_end_time4 real , DIMENSION(max_domains) :: fire_ignition_ros5 real , DIMENSION(max_domains) :: fire_ignition_start_lon5 real , DIMENSION(max_domains) :: fire_ignition_start_lat5 real , DIMENSION(max_domains) :: fire_ignition_end_lon5 real , DIMENSION(max_domains) :: fire_ignition_end_lat5 real , DIMENSION(max_domains) :: fire_ignition_radius5 real , DIMENSION(max_domains) :: fire_ignition_start_time5 real , DIMENSION(max_domains) :: fire_ignition_end_time5 real , DIMENSION(max_domains) :: fire_ignition_start_x1 real , DIMENSION(max_domains) :: fire_ignition_start_y1 real , DIMENSION(max_domains) :: fire_ignition_end_x1 real , DIMENSION(max_domains) :: fire_ignition_end_y1 real , DIMENSION(max_domains) :: fire_ignition_start_x2 real , DIMENSION(max_domains) :: fire_ignition_start_y2 real , DIMENSION(max_domains) :: fire_ignition_end_x2 real , DIMENSION(max_domains) :: fire_ignition_end_y2 real , DIMENSION(max_domains) :: fire_ignition_start_x3 real , DIMENSION(max_domains) :: fire_ignition_start_y3 real , DIMENSION(max_domains) :: fire_ignition_end_x3 real , DIMENSION(max_domains) :: fire_ignition_end_y3 real , DIMENSION(max_domains) :: fire_ignition_start_x4 real , DIMENSION(max_domains) :: fire_ignition_start_y4 real , DIMENSION(max_domains) :: fire_ignition_end_x4 real , DIMENSION(max_domains) :: fire_ignition_end_y4 real , DIMENSION(max_domains) :: fire_ignition_start_x5 real , DIMENSION(max_domains) :: fire_ignition_start_y5 real , DIMENSION(max_domains) :: fire_ignition_end_x5 real , DIMENSION(max_domains) :: fire_ignition_end_y5 real , DIMENSION(max_domains) :: fire_lat_init real , DIMENSION(max_domains) :: fire_lon_init real , DIMENSION(max_domains) :: fire_ign_time integer , DIMENSION(max_domains) :: fire_shape integer , DIMENSION(max_domains) :: fire_sprd_mdl real , DIMENSION(max_domains) :: fire_crwn_hgt real , DIMENSION(max_domains) :: fire_ext_grnd real , DIMENSION(max_domains) :: fire_ext_crwn real , DIMENSION(max_domains) :: fire_wind_height integer , DIMENSION(max_domains) :: fire_fuel_read integer , DIMENSION(max_domains) :: fire_fuel_cat integer , DIMENSION(max_domains) :: fire_print_msg integer , DIMENSION(max_domains) :: fire_print_file integer , DIMENSION(max_domains) :: fire_fuel_left_method integer , DIMENSION(max_domains) :: fire_fuel_left_irl integer , DIMENSION(max_domains) :: fire_fuel_left_jrl real , DIMENSION(max_domains) :: fire_back_weight integer , DIMENSION(max_domains) :: fire_grows_only integer , DIMENSION(max_domains) :: fire_upwinding integer , DIMENSION(max_domains) :: fire_upwind_split real , DIMENSION(max_domains) :: fire_viscosity real , DIMENSION(max_domains) :: fire_lfn_ext_up integer , DIMENSION(max_domains) :: fire_topo_from_atm integer , DIMENSION(max_domains) :: fire_advection integer , DIMENSION(max_domains) :: fire_test_steps real , DIMENSION(max_domains) :: fire_const_time real , DIMENSION(max_domains) :: fire_const_grnhfx real , DIMENSION(max_domains) :: fire_const_grnqfx real , DIMENSION(max_domains) :: fire_atm_feedback integer , DIMENSION(max_domains) :: fire_mountain_type real , DIMENSION(max_domains) :: fire_mountain_height real , DIMENSION(max_domains) :: fire_mountain_start_x real , DIMENSION(max_domains) :: fire_mountain_start_y real , DIMENSION(max_domains) :: fire_mountain_end_x real , DIMENSION(max_domains) :: fire_mountain_end_y real , DIMENSION(max_domains) :: delt_perturbation real , DIMENSION(max_domains) :: xrad_perturbation real , DIMENSION(max_domains) :: yrad_perturbation real , DIMENSION(max_domains) :: zrad_perturbation real , DIMENSION(max_domains) :: hght_perturbation logical , DIMENSION(max_domains) :: stretch_grd logical , DIMENSION(max_domains) :: stretch_hyp real , DIMENSION(max_domains) :: z_grd_scale logical , DIMENSION(max_domains) :: sfc_full_init integer , DIMENSION(max_domains) :: sfc_lu_index real , DIMENSION(max_domains) :: sfc_tsk real , DIMENSION(max_domains) :: sfc_tmn logical , DIMENSION(max_domains) :: fire_read_lu logical , DIMENSION(max_domains) :: fire_read_tsk logical , DIMENSION(max_domains) :: fire_read_tmn logical , DIMENSION(max_domains) :: fire_read_atm_ht logical , DIMENSION(max_domains) :: fire_read_fire_ht logical , DIMENSION(max_domains) :: fire_read_atm_grad logical , DIMENSION(max_domains) :: fire_read_fire_grad real , DIMENSION(max_domains) :: sfc_vegfra real , DIMENSION(max_domains) :: sfc_canwat integer , DIMENSION(max_domains) :: sfc_ivgtyp integer , DIMENSION(max_domains) :: sfc_isltyp integer , DIMENSION(max_domains) :: do_avgflx_em integer , DIMENSION(max_domains) :: do_avgflx_cugd integer :: nens integer , DIMENSION(max_domains) :: skebs integer , DIMENSION(max_domains) :: stoch_force_opt integer :: skebs_vertstruc integer , DIMENSION(max_domains) :: stoch_vertstruc_opt real , DIMENSION(max_domains) :: tot_backscat_psi real , DIMENSION(max_domains) :: tot_backscat_t real :: ztau_psi real :: ztau_t real :: rexponent_psi real :: rexponent_t real :: zsigma2_eps real :: zsigma2_eta integer :: kminforc integer :: lminforc integer :: kminforct integer :: lminforct integer :: kmaxforc integer :: lmaxforc integer :: kmaxforct integer :: lmaxforct integer :: iseed_skebs integer :: kmaxforch integer :: lmaxforch integer :: kmaxforcth integer :: lmaxforcth integer , DIMENSION(max_domains) :: sppt real , DIMENSION(max_domains) :: gridpt_stddev_sppt real , DIMENSION(max_domains) :: stddev_cutoff_sppt real , DIMENSION(max_domains) :: lengthscale_sppt real , DIMENSION(max_domains) :: timescale_sppt integer :: sppt_vertstruc integer :: iseed_sppt integer , DIMENSION(max_domains) :: rand_perturb real , DIMENSION(max_domains) :: gridpt_stddev_rand_pert real , DIMENSION(max_domains) :: stddev_cutoff_rand_pert real , DIMENSION(max_domains) :: lengthscale_rand_pert real , DIMENSION(max_domains) :: timescale_rand_pert integer :: rand_pert_vertstruc integer :: iseed_rand_pert integer , DIMENSION(max_domains) :: spp logical :: hrrr_cycling integer , DIMENSION(max_domains) :: spp_conv real , DIMENSION(max_domains) :: gridpt_stddev_spp_conv real , DIMENSION(max_domains) :: stddev_cutoff_spp_conv real , DIMENSION(max_domains) :: lengthscale_spp_conv real , DIMENSION(max_domains) :: timescale_spp_conv integer :: vertstruc_spp_conv integer :: iseed_spp_conv integer , DIMENSION(max_domains) :: spp_pbl real , DIMENSION(max_domains) :: gridpt_stddev_spp_pbl real , DIMENSION(max_domains) :: stddev_cutoff_spp_pbl real , DIMENSION(max_domains) :: lengthscale_spp_pbl real , DIMENSION(max_domains) :: timescale_spp_pbl integer :: vertstruc_spp_pbl integer :: iseed_spp_pbl integer , DIMENSION(max_domains) :: spp_lsm real , DIMENSION(max_domains) :: gridpt_stddev_spp_lsm real , DIMENSION(max_domains) :: stddev_cutoff_spp_lsm real , DIMENSION(max_domains) :: lengthscale_spp_lsm real , DIMENSION(max_domains) :: timescale_spp_lsm integer :: vertstruc_spp_lsm integer :: iseed_spp_lsm integer :: skebs_on integer :: sppt_on integer :: spp_on integer :: rand_perturb_on integer :: num_stoch_levels integer , DIMENSION(max_domains) :: sfs_opt integer , DIMENSION(max_domains) :: m_opt real , DIMENSION(max_domains) :: lakedepth_default real , DIMENSION(max_domains) :: lake_min_elev integer , DIMENSION(max_domains) :: use_lakedepth integer :: p_lev_diags integer :: p_lev_diags_dfi integer :: num_press_levels real , DIMENSION(max_plevs) :: press_levels integer :: use_tot_or_hyd_p integer :: extrap_below_grnd real :: p_lev_missing real , DIMENSION(max_domains) :: p_lev_interval integer :: z_lev_diags integer :: z_lev_diags_dfi integer :: num_z_levels real , DIMENSION(max_zlevs) :: z_levels real :: z_lev_missing real , DIMENSION(max_domains) :: z_lev_interval integer , DIMENSION(max_domains) :: afwa_diag_opt integer , DIMENSION(max_domains) :: afwa_ptype_opt integer , DIMENSION(max_domains) :: afwa_vil_opt integer , DIMENSION(max_domains) :: afwa_radar_opt integer , DIMENSION(max_domains) :: afwa_severe_opt integer , DIMENSION(max_domains) :: afwa_icing_opt integer , DIMENSION(max_domains) :: afwa_vis_opt integer , DIMENSION(max_domains) :: afwa_cloud_opt integer , DIMENSION(max_domains) :: afwa_therm_opt integer , DIMENSION(max_domains) :: afwa_turb_opt integer , DIMENSION(max_domains) :: afwa_buoy_opt real :: afwa_ptype_ccn_tmp real :: afwa_ptype_tot_melt integer :: afwa_bad_data_check integer :: mean_diag integer :: mean_freq integer :: mean_interval integer :: diurnal_diag integer , DIMENSION(max_domains) :: nssl_ipelec integer :: nssl_isaund integer :: nssl_iscreen real :: nssl_lightrad integer :: nssl_idischarge integer :: nssl_ibrkd real :: nssl_ecrit real :: nssl_disfrac integer :: elec_physics integer :: perturb_bdy integer :: perturb_chem_bdy integer :: num_gca_levels integer :: gca_input_opt integer :: hybrid_opt real :: etac integer :: num_wif_levels integer :: wif_input_opt integer :: last_item_in_struct NAMELIST /time_control/ run_days NAMELIST /time_control/ run_hours NAMELIST /time_control/ run_minutes NAMELIST /time_control/ run_seconds NAMELIST /time_control/ start_year NAMELIST /time_control/ start_month NAMELIST /time_control/ start_day NAMELIST /time_control/ start_hour NAMELIST /time_control/ start_minute NAMELIST /time_control/ start_second NAMELIST /time_control/ end_year NAMELIST /time_control/ end_month NAMELIST /time_control/ end_day NAMELIST /time_control/ end_hour NAMELIST /time_control/ end_minute NAMELIST /time_control/ end_second NAMELIST /time_control/ interval_seconds NAMELIST /time_control/ input_from_file NAMELIST /time_control/ fine_input_stream NAMELIST /time_control/ input_from_hires NAMELIST /time_control/ rsmas_data_path NAMELIST /time_control/ all_ic_times NAMELIST /time_control/ julyr NAMELIST /time_control/ julday NAMELIST /time_control/ gmt NAMELIST /time_control/ input_inname NAMELIST /time_control/ input_outname NAMELIST /time_control/ bdy_inname NAMELIST /time_control/ bdy_outname NAMELIST /time_control/ rst_inname NAMELIST /time_control/ rst_outname NAMELIST /time_control/ write_input NAMELIST /time_control/ write_restart_at_0h NAMELIST /time_control/ write_hist_at_0h_rst NAMELIST /time_control/ adjust_output_times NAMELIST /time_control/ adjust_input_times NAMELIST /time_control/ diag_print NAMELIST /time_control/ nocolons NAMELIST /time_control/ cycling NAMELIST /time_control/ output_diagnostics NAMELIST /time_control/ nwp_diagnostics NAMELIST /time_control/ output_ready_flag NAMELIST /pio_control/ usepio NAMELIST /pio_control/ pioprocs NAMELIST /pio_control/ piostart NAMELIST /pio_control/ piostride NAMELIST /pio_control/ pioshift NAMELIST /dfi_control/ dfi_opt NAMELIST /dfi_control/ dfi_savehydmeteors NAMELIST /dfi_control/ dfi_nfilter NAMELIST /dfi_control/ dfi_write_filtered_input NAMELIST /dfi_control/ dfi_write_dfi_history NAMELIST /dfi_control/ dfi_cutoff_seconds NAMELIST /dfi_control/ dfi_time_dim NAMELIST /dfi_control/ dfi_fwdstop_year NAMELIST /dfi_control/ dfi_fwdstop_month NAMELIST /dfi_control/ dfi_fwdstop_day NAMELIST /dfi_control/ dfi_fwdstop_hour NAMELIST /dfi_control/ dfi_fwdstop_minute NAMELIST /dfi_control/ dfi_fwdstop_second NAMELIST /dfi_control/ dfi_bckstop_year NAMELIST /dfi_control/ dfi_bckstop_month NAMELIST /dfi_control/ dfi_bckstop_day NAMELIST /dfi_control/ dfi_bckstop_hour NAMELIST /dfi_control/ dfi_bckstop_minute NAMELIST /dfi_control/ dfi_bckstop_second NAMELIST /domains/ time_step NAMELIST /domains/ time_step_fract_num NAMELIST /domains/ time_step_fract_den NAMELIST /domains/ time_step_dfi NAMELIST /domains/ min_time_step NAMELIST /domains/ min_time_step_den NAMELIST /domains/ max_time_step NAMELIST /domains/ max_time_step_den NAMELIST /domains/ target_cfl NAMELIST /domains/ target_hcfl NAMELIST /domains/ max_step_increase_pct NAMELIST /domains/ starting_time_step NAMELIST /domains/ starting_time_step_den NAMELIST /domains/ step_to_output_time NAMELIST /domains/ adaptation_domain NAMELIST /domains/ use_adaptive_time_step NAMELIST /domains/ use_adaptive_time_step_dfi NAMELIST /domains/ max_dom NAMELIST /domains/ lats_to_mic NAMELIST /domains/ s_we NAMELIST /domains/ e_we NAMELIST /domains/ s_sn NAMELIST /domains/ e_sn NAMELIST /domains/ s_vert NAMELIST /domains/ e_vert NAMELIST /domains/ num_metgrid_levels NAMELIST /domains/ num_metgrid_soil_levels NAMELIST /domains/ p_top_requested NAMELIST /domains/ interp_theta NAMELIST /domains/ interp_type NAMELIST /domains/ rebalance NAMELIST /domains/ vert_refine_method NAMELIST /domains/ vert_refine_fact NAMELIST /domains/ extrap_type NAMELIST /domains/ t_extrap_type NAMELIST /domains/ hypsometric_opt NAMELIST /domains/ lowest_lev_from_sfc NAMELIST /domains/ use_levels_below_ground NAMELIST /domains/ use_tavg_for_tsk NAMELIST /domains/ use_surface NAMELIST /domains/ lagrange_order NAMELIST /domains/ force_sfc_in_vinterp NAMELIST /domains/ zap_close_levels NAMELIST /domains/ maxw_horiz_pres_diff NAMELIST /domains/ trop_horiz_pres_diff NAMELIST /domains/ maxw_above_this_level NAMELIST /domains/ use_maxw_level NAMELIST /domains/ use_trop_level NAMELIST /domains/ sfcp_to_sfcp NAMELIST /domains/ adjust_heights NAMELIST /domains/ smooth_cg_topo NAMELIST /domains/ nest_interp_coord NAMELIST /domains/ interp_method_type NAMELIST /domains/ aggregate_lu NAMELIST /domains/ rh2qv_wrt_liquid NAMELIST /domains/ rh2qv_method NAMELIST /domains/ qv_max_p_safe NAMELIST /domains/ qv_max_flag NAMELIST /domains/ qv_max_value NAMELIST /domains/ qv_min_p_safe NAMELIST /domains/ qv_min_flag NAMELIST /domains/ qv_min_value NAMELIST /domains/ ideal_init_method NAMELIST /domains/ dx NAMELIST /domains/ dy NAMELIST /domains/ grid_id NAMELIST /domains/ grid_allowed NAMELIST /domains/ parent_id NAMELIST /domains/ i_parent_start NAMELIST /domains/ j_parent_start NAMELIST /domains/ parent_grid_ratio NAMELIST /domains/ parent_time_step_ratio NAMELIST /domains/ feedback NAMELIST /domains/ smooth_option NAMELIST /domains/ blend_width NAMELIST /domains/ ztop NAMELIST /domains/ moad_grid_ratio NAMELIST /domains/ moad_time_step_ratio NAMELIST /domains/ shw NAMELIST /domains/ tile_sz_x NAMELIST /domains/ tile_sz_y NAMELIST /domains/ numtiles NAMELIST /domains/ numtiles_inc NAMELIST /domains/ numtiles_x NAMELIST /domains/ numtiles_y NAMELIST /domains/ tile_strategy NAMELIST /domains/ nproc_x NAMELIST /domains/ nproc_y NAMELIST /domains/ irand NAMELIST /domains/ num_moves NAMELIST /domains/ ts_buf_size NAMELIST /domains/ max_ts_locs NAMELIST /domains/ vortex_interval NAMELIST /domains/ max_vortex_speed NAMELIST /domains/ corral_dist NAMELIST /domains/ track_level NAMELIST /domains/ time_to_move NAMELIST /domains/ move_id NAMELIST /domains/ move_interval NAMELIST /domains/ move_cd_x NAMELIST /domains/ move_cd_y NAMELIST /domains/ swap_x NAMELIST /domains/ swap_y NAMELIST /domains/ cycle_x NAMELIST /domains/ cycle_y NAMELIST /domains/ reorder_mesh NAMELIST /domains/ perturb_input NAMELIST /domains/ eta_levels NAMELIST /domains/ max_dz NAMELIST /domains/ ocean_levels NAMELIST /domains/ ocean_z NAMELIST /domains/ ocean_t NAMELIST /domains/ ocean_s NAMELIST /domains/ num_traj NAMELIST /domains/ max_ts_level NAMELIST /domains/ track_loc_in NAMELIST /domains/ num_ext_model_couple_dom NAMELIST /tc/ insert_bogus_storm NAMELIST /tc/ remove_storm NAMELIST /tc/ num_storm NAMELIST /tc/ latc_loc NAMELIST /tc/ lonc_loc NAMELIST /tc/ vmax_meters_per_second NAMELIST /tc/ rmax NAMELIST /tc/ vmax_ratio NAMELIST /tc/ rankine_lid NAMELIST /physics/ physics_suite NAMELIST /physics/ force_read_thompson NAMELIST /physics/ write_thompson_tables NAMELIST /physics/ mp_physics NAMELIST /physics/ nssl_cccn NAMELIST /physics/ nssl_alphah NAMELIST /physics/ nssl_alphahl NAMELIST /physics/ nssl_cnoh NAMELIST /physics/ nssl_cnohl NAMELIST /physics/ nssl_cnor NAMELIST /physics/ nssl_cnos NAMELIST /physics/ nssl_rho_qh NAMELIST /physics/ nssl_rho_qhl NAMELIST /physics/ nssl_rho_qs NAMELIST /physics/ nudge_lightning NAMELIST /physics/ nudge_light_times NAMELIST /physics/ nudge_light_timee NAMELIST /physics/ nudge_light_int NAMELIST /physics/ path_to_files NAMELIST /physics/ gsfcgce_hail NAMELIST /physics/ gsfcgce_2ice NAMELIST /physics/ progn NAMELIST /physics/ accum_mode NAMELIST /physics/ aitken_mode NAMELIST /physics/ coarse_mode NAMELIST /physics/ do_radar_ref NAMELIST /physics/ ra_lw_physics NAMELIST /physics/ ra_sw_physics NAMELIST /physics/ radt NAMELIST /physics/ naer NAMELIST /physics/ sf_sfclay_physics NAMELIST /physics/ sf_surface_physics NAMELIST /physics/ bl_pbl_physics NAMELIST /physics/ bl_mynn_tkebudget NAMELIST /physics/ ysu_topdown_pblmix NAMELIST /physics/ shinhong_tke_diag NAMELIST /physics/ bl_mynn_tkeadvect NAMELIST /physics/ bl_mynn_cloudpdf NAMELIST /physics/ bl_mynn_mixlength NAMELIST /physics/ bl_mynn_edmf NAMELIST /physics/ bl_mynn_edmf_mom NAMELIST /physics/ bl_mynn_edmf_tke NAMELIST /physics/ bl_mynn_edmf_part NAMELIST /physics/ bl_mynn_cloudmix NAMELIST /physics/ bl_mynn_mixqt NAMELIST /physics/ icloud_bl NAMELIST /physics/ mfshconv NAMELIST /physics/ sf_urban_physics NAMELIST /physics/ bldt NAMELIST /physics/ cu_physics NAMELIST /physics/ shcu_physics NAMELIST /physics/ cu_diag NAMELIST /physics/ kf_edrates NAMELIST /physics/ kfeta_trigger NAMELIST /physics/ nsas_dx_factor NAMELIST /physics/ cudt NAMELIST /physics/ gsmdt NAMELIST /physics/ isfflx NAMELIST /physics/ ifsnow NAMELIST /physics/ icloud NAMELIST /physics/ ideal_xland NAMELIST /physics/ swrad_scat NAMELIST /physics/ surface_input_source NAMELIST /physics/ num_soil_layers NAMELIST /physics/ maxpatch NAMELIST /physics/ num_snow_layers NAMELIST /physics/ num_snso_layers NAMELIST /physics/ num_urban_layers NAMELIST /physics/ num_urban_hi NAMELIST /physics/ num_months NAMELIST /physics/ sf_surface_mosaic NAMELIST /physics/ mosaic_cat NAMELIST /physics/ mosaic_lu NAMELIST /physics/ mosaic_soil NAMELIST /physics/ maxiens NAMELIST /physics/ maxens NAMELIST /physics/ maxens2 NAMELIST /physics/ maxens3 NAMELIST /physics/ ensdim NAMELIST /physics/ cugd_avedx NAMELIST /physics/ clos_choice NAMELIST /physics/ imomentum NAMELIST /physics/ ishallow NAMELIST /physics/ convtrans_avglen_m NAMELIST /physics/ num_land_cat NAMELIST /physics/ num_soil_cat NAMELIST /physics/ mp_zero_out NAMELIST /physics/ mp_zero_out_thresh NAMELIST /physics/ seaice_threshold NAMELIST /physics/ sst_update NAMELIST /physics/ sst_skin NAMELIST /physics/ tmn_update NAMELIST /physics/ usemonalb NAMELIST /physics/ rdmaxalb NAMELIST /physics/ rdlai2d NAMELIST /physics/ ua_phys NAMELIST /physics/ opt_thcnd NAMELIST /physics/ co2tf NAMELIST /physics/ ra_call_offset NAMELIST /physics/ cam_abs_freq_s NAMELIST /physics/ levsiz NAMELIST /physics/ paerlev NAMELIST /physics/ cam_abs_dim1 NAMELIST /physics/ cam_abs_dim2 NAMELIST /physics/ lagday NAMELIST /physics/ no_src_types NAMELIST /physics/ alevsiz NAMELIST /physics/ o3input NAMELIST /physics/ aer_opt NAMELIST /physics/ swint_opt NAMELIST /physics/ aer_type NAMELIST /physics/ aer_aod550_opt NAMELIST /physics/ aer_angexp_opt NAMELIST /physics/ aer_ssa_opt NAMELIST /physics/ aer_asy_opt NAMELIST /physics/ aer_aod550_val NAMELIST /physics/ aer_angexp_val NAMELIST /physics/ aer_ssa_val NAMELIST /physics/ aer_asy_val NAMELIST /physics/ cu_rad_feedback NAMELIST /physics/ shallowcu_forced_ra NAMELIST /physics/ numbins NAMELIST /physics/ thbinsize NAMELIST /physics/ rbinsize NAMELIST /physics/ mindeepfreq NAMELIST /physics/ minshallowfreq NAMELIST /physics/ shcu_aerosols_opt NAMELIST /physics/ pxlsm_smois_init NAMELIST /physics/ omlcall NAMELIST /physics/ sf_ocean_physics NAMELIST /physics/ traj_opt NAMELIST /physics/ dm_has_traj NAMELIST /physics/ tracercall NAMELIST /physics/ omdt NAMELIST /physics/ oml_hml0 NAMELIST /physics/ oml_gamma NAMELIST /physics/ oml_relaxation_time NAMELIST /physics/ isftcflx NAMELIST /physics/ iz0tlnd NAMELIST /physics/ shadlen NAMELIST /physics/ slope_rad NAMELIST /physics/ topo_shading NAMELIST /physics/ topo_wind NAMELIST /physics/ no_mp_heating NAMELIST /physics/ fractional_seaice NAMELIST /physics/ seaice_snowdepth_opt NAMELIST /physics/ seaice_snowdepth_max NAMELIST /physics/ seaice_snowdepth_min NAMELIST /physics/ seaice_albedo_opt NAMELIST /physics/ seaice_albedo_default NAMELIST /physics/ seaice_thickness_opt NAMELIST /physics/ seaice_thickness_default NAMELIST /physics/ tice2tsk_if2cold NAMELIST /physics/ bucket_mm NAMELIST /physics/ bucket_j NAMELIST /physics/ mp_tend_lim NAMELIST /physics/ prec_acc_dt NAMELIST /physics/ grav_settling NAMELIST /physics/ sas_pgcon NAMELIST /physics/ scalar_pblmix NAMELIST /physics/ tracer_pblmix NAMELIST /physics/ use_aero_icbc NAMELIST /physics/ use_rap_aero_icbc NAMELIST /physics/ use_mp_re NAMELIST /physics/ ccn_conc NAMELIST /physics/ hail_opt NAMELIST /noah_mp/ dveg NAMELIST /noah_mp/ opt_crs NAMELIST /noah_mp/ opt_btr NAMELIST /noah_mp/ opt_run NAMELIST /noah_mp/ opt_sfc NAMELIST /noah_mp/ opt_frz NAMELIST /noah_mp/ opt_inf NAMELIST /noah_mp/ opt_rad NAMELIST /noah_mp/ opt_alb NAMELIST /noah_mp/ opt_snf NAMELIST /noah_mp/ opt_tbot NAMELIST /noah_mp/ opt_stc NAMELIST /noah_mp/ opt_gla NAMELIST /noah_mp/ opt_rsf NAMELIST /physics/ wtddt NAMELIST /fdda/ fgdt NAMELIST /fdda/ fgdtzero NAMELIST /fdda/ grid_fdda NAMELIST /fdda/ grid_sfdda NAMELIST /fdda/ if_no_pbl_nudging_uv NAMELIST /fdda/ if_no_pbl_nudging_t NAMELIST /fdda/ if_no_pbl_nudging_ph NAMELIST /fdda/ if_no_pbl_nudging_q NAMELIST /fdda/ if_zfac_uv NAMELIST /fdda/ k_zfac_uv NAMELIST /fdda/ if_zfac_t NAMELIST /fdda/ k_zfac_t NAMELIST /fdda/ if_zfac_ph NAMELIST /fdda/ k_zfac_ph NAMELIST /fdda/ if_zfac_q NAMELIST /fdda/ k_zfac_q NAMELIST /fdda/ dk_zfac_uv NAMELIST /fdda/ dk_zfac_t NAMELIST /fdda/ dk_zfac_ph NAMELIST /fdda/ guv NAMELIST /fdda/ guv_sfc NAMELIST /fdda/ gt NAMELIST /fdda/ gt_sfc NAMELIST /fdda/ gq NAMELIST /fdda/ gq_sfc NAMELIST /fdda/ gph NAMELIST /fdda/ dtramp_min NAMELIST /fdda/ if_ramping NAMELIST /fdda/ rinblw NAMELIST /fdda/ xwavenum NAMELIST /fdda/ ywavenum NAMELIST /fdda/ pxlsm_soil_nudge NAMELIST /fdda/ obs_nudge_opt NAMELIST /fdda/ max_obs NAMELIST /fdda/ fdda_start NAMELIST /fdda/ fdda_end NAMELIST /fdda/ obs_nudge_wind NAMELIST /fdda/ obs_coef_wind NAMELIST /fdda/ obs_nudge_temp NAMELIST /fdda/ obs_coef_temp NAMELIST /fdda/ obs_nudge_mois NAMELIST /fdda/ obs_coef_mois NAMELIST /fdda/ obs_nudge_pstr NAMELIST /fdda/ obs_coef_pstr NAMELIST /fdda/ obs_no_pbl_nudge_uv NAMELIST /fdda/ obs_no_pbl_nudge_t NAMELIST /fdda/ obs_no_pbl_nudge_q NAMELIST /fdda/ obs_sfc_scheme_horiz NAMELIST /fdda/ obs_sfc_scheme_vert NAMELIST /fdda/ obs_max_sndng_gap NAMELIST /fdda/ obs_nudgezfullr1_uv NAMELIST /fdda/ obs_nudgezrampr1_uv NAMELIST /fdda/ obs_nudgezfullr2_uv NAMELIST /fdda/ obs_nudgezrampr2_uv NAMELIST /fdda/ obs_nudgezfullr4_uv NAMELIST /fdda/ obs_nudgezrampr4_uv NAMELIST /fdda/ obs_nudgezfullr1_t NAMELIST /fdda/ obs_nudgezrampr1_t NAMELIST /fdda/ obs_nudgezfullr2_t NAMELIST /fdda/ obs_nudgezrampr2_t NAMELIST /fdda/ obs_nudgezfullr4_t NAMELIST /fdda/ obs_nudgezrampr4_t NAMELIST /fdda/ obs_nudgezfullr1_q NAMELIST /fdda/ obs_nudgezrampr1_q NAMELIST /fdda/ obs_nudgezfullr2_q NAMELIST /fdda/ obs_nudgezrampr2_q NAMELIST /fdda/ obs_nudgezfullr4_q NAMELIST /fdda/ obs_nudgezrampr4_q NAMELIST /fdda/ obs_nudgezfullmin NAMELIST /fdda/ obs_nudgezrampmin NAMELIST /fdda/ obs_nudgezmax NAMELIST /fdda/ obs_sfcfact NAMELIST /fdda/ obs_sfcfacr NAMELIST /fdda/ obs_dpsmx NAMELIST /fdda/ obs_rinxy NAMELIST /fdda/ obs_rinsig NAMELIST /fdda/ obs_twindo NAMELIST /fdda/ obs_npfi NAMELIST /fdda/ obs_ionf NAMELIST /fdda/ obs_idynin NAMELIST /fdda/ obs_dtramp NAMELIST /fdda/ obs_prt_max NAMELIST /fdda/ obs_prt_freq NAMELIST /fdda/ obs_ipf_in4dob NAMELIST /fdda/ obs_ipf_errob NAMELIST /fdda/ obs_ipf_nudob NAMELIST /fdda/ obs_ipf_init NAMELIST /fdda/ obs_scl_neg_qv_innov NAMELIST /scm/ scm_force NAMELIST /scm/ scm_force_dx NAMELIST /scm/ num_force_layers NAMELIST /scm/ scm_lu_index NAMELIST /scm/ scm_isltyp NAMELIST /scm/ scm_vegfra NAMELIST /scm/ scm_canwat NAMELIST /scm/ scm_lat NAMELIST /scm/ scm_lon NAMELIST /scm/ scm_th_t_tend NAMELIST /scm/ scm_qv_t_tend NAMELIST /scm/ scm_th_adv NAMELIST /scm/ scm_wind_adv NAMELIST /scm/ scm_qv_adv NAMELIST /scm/ scm_ql_adv NAMELIST /scm/ scm_vert_adv NAMELIST /scm/ num_force_soil_layers NAMELIST /scm/ scm_soilt_force NAMELIST /scm/ scm_soilq_force NAMELIST /scm/ scm_force_th_largescale NAMELIST /scm/ scm_force_qv_largescale NAMELIST /scm/ scm_force_ql_largescale NAMELIST /scm/ scm_force_wind_largescale NAMELIST /scm/ scm_force_skintemp NAMELIST /scm/ scm_force_flux NAMELIST /dynamics/ dyn_opt NAMELIST /dynamics/ rk_ord NAMELIST /dynamics/ w_damping NAMELIST /dynamics/ diff_opt NAMELIST /dynamics/ diff_opt_dfi NAMELIST /dynamics/ km_opt NAMELIST /dynamics/ km_opt_dfi NAMELIST /dynamics/ damp_opt NAMELIST /dynamics/ rad_nudge NAMELIST /dynamics/ gwd_opt NAMELIST /dynamics/ zdamp NAMELIST /dynamics/ dampcoef NAMELIST /dynamics/ khdif NAMELIST /dynamics/ kvdif NAMELIST /dynamics/ diff_6th_factor NAMELIST /dynamics/ diff_6th_opt NAMELIST /dynamics/ use_theta_m NAMELIST /dynamics/ use_q_diabatic NAMELIST /dynamics/ c_s NAMELIST /dynamics/ c_k NAMELIST /dynamics/ smdiv NAMELIST /dynamics/ emdiv NAMELIST /dynamics/ epssm NAMELIST /dynamics/ non_hydrostatic NAMELIST /dynamics/ use_input_w NAMELIST /dynamics/ time_step_sound NAMELIST /dynamics/ h_mom_adv_order NAMELIST /dynamics/ v_mom_adv_order NAMELIST /dynamics/ h_sca_adv_order NAMELIST /dynamics/ v_sca_adv_order NAMELIST /dynamics/ momentum_adv_opt NAMELIST /dynamics/ moist_adv_opt NAMELIST /dynamics/ moist_adv_dfi_opt NAMELIST /dynamics/ chem_adv_opt NAMELIST /dynamics/ tracer_adv_opt NAMELIST /dynamics/ scalar_adv_opt NAMELIST /dynamics/ tke_adv_opt NAMELIST /dynamics/ top_radiation NAMELIST /dynamics/ mix_isotropic NAMELIST /dynamics/ mix_upper_bound NAMELIST /dynamics/ top_lid NAMELIST /dynamics/ tke_upper_bound NAMELIST /dynamics/ tke_drag_coefficient NAMELIST /dynamics/ tke_heat_flux NAMELIST /dynamics/ pert_coriolis NAMELIST /dynamics/ coriolis2d NAMELIST /dynamics/ mix_full_fields NAMELIST /dynamics/ base_pres NAMELIST /dynamics/ base_temp NAMELIST /dynamics/ base_lapse NAMELIST /dynamics/ iso_temp NAMELIST /dynamics/ base_pres_strat NAMELIST /dynamics/ base_lapse_strat NAMELIST /dynamics/ use_baseparam_fr_nml NAMELIST /dynamics/ fft_filter_lat NAMELIST /dynamics/ coupled_filtering NAMELIST /dynamics/ pos_def NAMELIST /dynamics/ swap_pole_with_next_j NAMELIST /dynamics/ actual_distance_average NAMELIST /dynamics/ rotated_pole NAMELIST /dynamics/ do_coriolis NAMELIST /dynamics/ do_curvature NAMELIST /dynamics/ do_gradp NAMELIST /dynamics/ tracer_opt NAMELIST /dynamics/ tenddiag NAMELIST /bdy_control/ spec_bdy_width NAMELIST /bdy_control/ spec_zone NAMELIST /bdy_control/ relax_zone NAMELIST /bdy_control/ specified NAMELIST /bdy_control/ constant_bc NAMELIST /bdy_control/ periodic_x NAMELIST /bdy_control/ symmetric_xs NAMELIST /bdy_control/ symmetric_xe NAMELIST /bdy_control/ open_xs NAMELIST /bdy_control/ open_xe NAMELIST /bdy_control/ periodic_y NAMELIST /bdy_control/ symmetric_ys NAMELIST /bdy_control/ symmetric_ye NAMELIST /bdy_control/ open_ys NAMELIST /bdy_control/ open_ye NAMELIST /bdy_control/ polar NAMELIST /bdy_control/ nested NAMELIST /bdy_control/ spec_exp NAMELIST /bdy_control/ spec_bdy_final_mu NAMELIST /bdy_control/ real_data_init_type NAMELIST /bdy_control/ have_bcs_moist NAMELIST /bdy_control/ have_bcs_scalar NAMELIST /grib2/ background_proc_id NAMELIST /grib2/ forecast_proc_id NAMELIST /grib2/ production_status NAMELIST /grib2/ compression NAMELIST /physics/ windfarm_opt NAMELIST /physics/ windfarm_ij NAMELIST /physics/ hailcast_opt NAMELIST /physics/ lightning_option NAMELIST /physics/ lightning_dt NAMELIST /physics/ lightning_start_seconds NAMELIST /physics/ flashrate_factor NAMELIST /physics/ iccg_method NAMELIST /physics/ iccg_prescribed_num NAMELIST /physics/ iccg_prescribed_den NAMELIST /physics/ cellcount_method NAMELIST /physics/ cldtop_adjustment NAMELIST /physics/ sf_lake_physics NAMELIST /time_control/ auxinput1_inname NAMELIST /time_control/ io_form_auxinput1 NAMELIST /time_control/ override_restart_timers NAMELIST /time_control/ auxhist1_inname NAMELIST /time_control/ auxhist1_outname NAMELIST /time_control/ auxhist1_interval_y NAMELIST /time_control/ auxhist1_interval_d NAMELIST /time_control/ auxhist1_interval_h NAMELIST /time_control/ auxhist1_interval_m NAMELIST /time_control/ auxhist1_interval_s NAMELIST /time_control/ auxhist1_interval NAMELIST /time_control/ auxhist1_begin_y NAMELIST /time_control/ auxhist1_begin_d NAMELIST /time_control/ auxhist1_begin_h NAMELIST /time_control/ auxhist1_begin_m NAMELIST /time_control/ auxhist1_begin_s NAMELIST /time_control/ auxhist1_begin NAMELIST /time_control/ auxhist1_end_y NAMELIST /time_control/ auxhist1_end_d NAMELIST /time_control/ auxhist1_end_h NAMELIST /time_control/ auxhist1_end_m NAMELIST /time_control/ auxhist1_end_s NAMELIST /time_control/ auxhist1_end NAMELIST /time_control/ io_form_auxhist1 NAMELIST /time_control/ frames_per_auxhist1 NAMELIST /time_control/ auxhist2_inname NAMELIST /time_control/ auxhist2_outname NAMELIST /time_control/ auxhist2_interval_y NAMELIST /time_control/ auxhist2_interval_d NAMELIST /time_control/ auxhist2_interval_h NAMELIST /time_control/ auxhist2_interval_m NAMELIST /time_control/ auxhist2_interval_s NAMELIST /time_control/ auxhist2_interval NAMELIST /time_control/ auxhist2_begin_y NAMELIST /time_control/ auxhist2_begin_d NAMELIST /time_control/ auxhist2_begin_h NAMELIST /time_control/ auxhist2_begin_m NAMELIST /time_control/ auxhist2_begin_s NAMELIST /time_control/ auxhist2_begin NAMELIST /time_control/ auxhist2_end_y NAMELIST /time_control/ auxhist2_end_d NAMELIST /time_control/ auxhist2_end_h NAMELIST /time_control/ auxhist2_end_m NAMELIST /time_control/ auxhist2_end_s NAMELIST /time_control/ auxhist2_end NAMELIST /time_control/ io_form_auxhist2 NAMELIST /time_control/ frames_per_auxhist2 NAMELIST /time_control/ auxhist3_inname NAMELIST /time_control/ auxhist3_outname NAMELIST /time_control/ auxhist3_interval_y NAMELIST /time_control/ auxhist3_interval_d NAMELIST /time_control/ auxhist3_interval_h NAMELIST /time_control/ auxhist3_interval_m NAMELIST /time_control/ auxhist3_interval_s NAMELIST /time_control/ auxhist3_interval NAMELIST /time_control/ auxhist3_begin_y NAMELIST /time_control/ auxhist3_begin_d NAMELIST /time_control/ auxhist3_begin_h NAMELIST /time_control/ auxhist3_begin_m NAMELIST /time_control/ auxhist3_begin_s NAMELIST /time_control/ auxhist3_begin NAMELIST /time_control/ auxhist3_end_y NAMELIST /time_control/ auxhist3_end_d NAMELIST /time_control/ auxhist3_end_h NAMELIST /time_control/ auxhist3_end_m NAMELIST /time_control/ auxhist3_end_s NAMELIST /time_control/ auxhist3_end NAMELIST /time_control/ io_form_auxhist3 NAMELIST /time_control/ frames_per_auxhist3 NAMELIST /time_control/ auxhist4_inname NAMELIST /time_control/ auxhist4_outname NAMELIST /time_control/ auxhist4_interval_y NAMELIST /time_control/ auxhist4_interval_d NAMELIST /time_control/ auxhist4_interval_h NAMELIST /time_control/ auxhist4_interval_m NAMELIST /time_control/ auxhist4_interval_s NAMELIST /time_control/ auxhist4_interval NAMELIST /time_control/ auxhist4_begin_y NAMELIST /time_control/ auxhist4_begin_d NAMELIST /time_control/ auxhist4_begin_h NAMELIST /time_control/ auxhist4_begin_m NAMELIST /time_control/ auxhist4_begin_s NAMELIST /time_control/ auxhist4_begin NAMELIST /time_control/ auxhist4_end_y NAMELIST /time_control/ auxhist4_end_d NAMELIST /time_control/ auxhist4_end_h NAMELIST /time_control/ auxhist4_end_m NAMELIST /time_control/ auxhist4_end_s NAMELIST /time_control/ auxhist4_end NAMELIST /time_control/ io_form_auxhist4 NAMELIST /time_control/ frames_per_auxhist4 NAMELIST /time_control/ auxhist5_inname NAMELIST /time_control/ auxhist5_outname NAMELIST /time_control/ auxhist5_interval_y NAMELIST /time_control/ auxhist5_interval_d NAMELIST /time_control/ auxhist5_interval_h NAMELIST /time_control/ auxhist5_interval_m NAMELIST /time_control/ auxhist5_interval_s NAMELIST /time_control/ auxhist5_interval NAMELIST /time_control/ auxhist5_begin_y NAMELIST /time_control/ auxhist5_begin_d NAMELIST /time_control/ auxhist5_begin_h NAMELIST /time_control/ auxhist5_begin_m NAMELIST /time_control/ auxhist5_begin_s NAMELIST /time_control/ auxhist5_begin NAMELIST /time_control/ auxhist5_end_y NAMELIST /time_control/ auxhist5_end_d NAMELIST /time_control/ auxhist5_end_h NAMELIST /time_control/ auxhist5_end_m NAMELIST /time_control/ auxhist5_end_s NAMELIST /time_control/ auxhist5_end NAMELIST /time_control/ io_form_auxhist5 NAMELIST /time_control/ frames_per_auxhist5 NAMELIST /time_control/ auxhist6_inname NAMELIST /time_control/ auxhist6_outname NAMELIST /time_control/ auxhist6_interval_y NAMELIST /time_control/ auxhist6_interval_d NAMELIST /time_control/ auxhist6_interval_h NAMELIST /time_control/ auxhist6_interval_m NAMELIST /time_control/ auxhist6_interval_s NAMELIST /time_control/ auxhist6_interval NAMELIST /time_control/ auxhist6_begin_y NAMELIST /time_control/ auxhist6_begin_d NAMELIST /time_control/ auxhist6_begin_h NAMELIST /time_control/ auxhist6_begin_m NAMELIST /time_control/ auxhist6_begin_s NAMELIST /time_control/ auxhist6_begin NAMELIST /time_control/ auxhist6_end_y NAMELIST /time_control/ auxhist6_end_d NAMELIST /time_control/ auxhist6_end_h NAMELIST /time_control/ auxhist6_end_m NAMELIST /time_control/ auxhist6_end_s NAMELIST /time_control/ auxhist6_end NAMELIST /time_control/ io_form_auxhist6 NAMELIST /time_control/ frames_per_auxhist6 NAMELIST /time_control/ auxhist7_inname NAMELIST /time_control/ auxhist7_outname NAMELIST /time_control/ auxhist7_interval_y NAMELIST /time_control/ auxhist7_interval_d NAMELIST /time_control/ auxhist7_interval_h NAMELIST /time_control/ auxhist7_interval_m NAMELIST /time_control/ auxhist7_interval_s NAMELIST /time_control/ auxhist7_interval NAMELIST /time_control/ auxhist7_begin_y NAMELIST /time_control/ auxhist7_begin_d NAMELIST /time_control/ auxhist7_begin_h NAMELIST /time_control/ auxhist7_begin_m NAMELIST /time_control/ auxhist7_begin_s NAMELIST /time_control/ auxhist7_begin NAMELIST /time_control/ auxhist7_end_y NAMELIST /time_control/ auxhist7_end_d NAMELIST /time_control/ auxhist7_end_h NAMELIST /time_control/ auxhist7_end_m NAMELIST /time_control/ auxhist7_end_s NAMELIST /time_control/ auxhist7_end NAMELIST /time_control/ io_form_auxhist7 NAMELIST /time_control/ frames_per_auxhist7 NAMELIST /time_control/ auxhist8_inname NAMELIST /time_control/ auxhist8_outname NAMELIST /time_control/ auxhist8_interval_y NAMELIST /time_control/ auxhist8_interval_d NAMELIST /time_control/ auxhist8_interval_h NAMELIST /time_control/ auxhist8_interval_m NAMELIST /time_control/ auxhist8_interval_s NAMELIST /time_control/ auxhist8_interval NAMELIST /time_control/ auxhist8_begin_y NAMELIST /time_control/ auxhist8_begin_d NAMELIST /time_control/ auxhist8_begin_h NAMELIST /time_control/ auxhist8_begin_m NAMELIST /time_control/ auxhist8_begin_s NAMELIST /time_control/ auxhist8_begin NAMELIST /time_control/ auxhist8_end_y NAMELIST /time_control/ auxhist8_end_d NAMELIST /time_control/ auxhist8_end_h NAMELIST /time_control/ auxhist8_end_m NAMELIST /time_control/ auxhist8_end_s NAMELIST /time_control/ auxhist8_end NAMELIST /time_control/ io_form_auxhist8 NAMELIST /time_control/ frames_per_auxhist8 NAMELIST /time_control/ auxhist9_inname NAMELIST /time_control/ auxhist9_outname NAMELIST /time_control/ auxhist9_interval_y NAMELIST /time_control/ auxhist9_interval_d NAMELIST /time_control/ auxhist9_interval_h NAMELIST /time_control/ auxhist9_interval_m NAMELIST /time_control/ auxhist9_interval_s NAMELIST /time_control/ auxhist9_interval NAMELIST /time_control/ auxhist9_begin_y NAMELIST /time_control/ auxhist9_begin_d NAMELIST /time_control/ auxhist9_begin_h NAMELIST /time_control/ auxhist9_begin_m NAMELIST /time_control/ auxhist9_begin_s NAMELIST /time_control/ auxhist9_begin NAMELIST /time_control/ auxhist9_end_y NAMELIST /time_control/ auxhist9_end_d NAMELIST /time_control/ auxhist9_end_h NAMELIST /time_control/ auxhist9_end_m NAMELIST /time_control/ auxhist9_end_s NAMELIST /time_control/ auxhist9_end NAMELIST /time_control/ io_form_auxhist9 NAMELIST /time_control/ frames_per_auxhist9 NAMELIST /time_control/ auxhist10_inname NAMELIST /time_control/ auxhist10_outname NAMELIST /time_control/ auxhist10_interval_y NAMELIST /time_control/ auxhist10_interval_d NAMELIST /time_control/ auxhist10_interval_h NAMELIST /time_control/ auxhist10_interval_m NAMELIST /time_control/ auxhist10_interval_s NAMELIST /time_control/ auxhist10_interval NAMELIST /time_control/ auxhist10_begin_y NAMELIST /time_control/ auxhist10_begin_d NAMELIST /time_control/ auxhist10_begin_h NAMELIST /time_control/ auxhist10_begin_m NAMELIST /time_control/ auxhist10_begin_s NAMELIST /time_control/ auxhist10_begin NAMELIST /time_control/ auxhist10_end_y NAMELIST /time_control/ auxhist10_end_d NAMELIST /time_control/ auxhist10_end_h NAMELIST /time_control/ auxhist10_end_m NAMELIST /time_control/ auxhist10_end_s NAMELIST /time_control/ auxhist10_end NAMELIST /time_control/ io_form_auxhist10 NAMELIST /time_control/ frames_per_auxhist10 NAMELIST /time_control/ auxhist11_inname NAMELIST /time_control/ auxhist11_outname NAMELIST /time_control/ auxhist11_interval_y NAMELIST /time_control/ auxhist11_interval_d NAMELIST /time_control/ auxhist11_interval_h NAMELIST /time_control/ auxhist11_interval_m NAMELIST /time_control/ auxhist11_interval_s NAMELIST /time_control/ auxhist11_interval NAMELIST /time_control/ auxhist11_begin_y NAMELIST /time_control/ auxhist11_begin_d NAMELIST /time_control/ auxhist11_begin_h NAMELIST /time_control/ auxhist11_begin_m NAMELIST /time_control/ auxhist11_begin_s NAMELIST /time_control/ auxhist11_begin NAMELIST /time_control/ auxhist11_end_y NAMELIST /time_control/ auxhist11_end_d NAMELIST /time_control/ auxhist11_end_h NAMELIST /time_control/ auxhist11_end_m NAMELIST /time_control/ auxhist11_end_s NAMELIST /time_control/ auxhist11_end NAMELIST /time_control/ io_form_auxhist11 NAMELIST /time_control/ frames_per_auxhist11 NAMELIST /time_control/ auxhist12_inname NAMELIST /time_control/ auxhist12_outname NAMELIST /time_control/ auxhist12_interval_y NAMELIST /time_control/ auxhist12_interval_d NAMELIST /time_control/ auxhist12_interval_h NAMELIST /time_control/ auxhist12_interval_m NAMELIST /time_control/ auxhist12_interval_s NAMELIST /time_control/ auxhist12_interval NAMELIST /time_control/ auxhist12_begin_y NAMELIST /time_control/ auxhist12_begin_d NAMELIST /time_control/ auxhist12_begin_h NAMELIST /time_control/ auxhist12_begin_m NAMELIST /time_control/ auxhist12_begin_s NAMELIST /time_control/ auxhist12_begin NAMELIST /time_control/ auxhist12_end_y NAMELIST /time_control/ auxhist12_end_d NAMELIST /time_control/ auxhist12_end_h NAMELIST /time_control/ auxhist12_end_m NAMELIST /time_control/ auxhist12_end_s NAMELIST /time_control/ auxhist12_end NAMELIST /time_control/ io_form_auxhist12 NAMELIST /time_control/ frames_per_auxhist12 NAMELIST /time_control/ auxhist13_inname NAMELIST /time_control/ auxhist13_outname NAMELIST /time_control/ auxhist13_interval_y NAMELIST /time_control/ auxhist13_interval_d NAMELIST /time_control/ auxhist13_interval_h NAMELIST /time_control/ auxhist13_interval_m NAMELIST /time_control/ auxhist13_interval_s NAMELIST /time_control/ auxhist13_interval NAMELIST /time_control/ auxhist13_begin_y NAMELIST /time_control/ auxhist13_begin_d NAMELIST /time_control/ auxhist13_begin_h NAMELIST /time_control/ auxhist13_begin_m NAMELIST /time_control/ auxhist13_begin_s NAMELIST /time_control/ auxhist13_begin NAMELIST /time_control/ auxhist13_end_y NAMELIST /time_control/ auxhist13_end_d NAMELIST /time_control/ auxhist13_end_h NAMELIST /time_control/ auxhist13_end_m NAMELIST /time_control/ auxhist13_end_s NAMELIST /time_control/ auxhist13_end NAMELIST /time_control/ io_form_auxhist13 NAMELIST /time_control/ frames_per_auxhist13 NAMELIST /time_control/ auxhist14_inname NAMELIST /time_control/ auxhist14_outname NAMELIST /time_control/ auxhist14_interval_y NAMELIST /time_control/ auxhist14_interval_d NAMELIST /time_control/ auxhist14_interval_h NAMELIST /time_control/ auxhist14_interval_m NAMELIST /time_control/ auxhist14_interval_s NAMELIST /time_control/ auxhist14_interval NAMELIST /time_control/ auxhist14_begin_y NAMELIST /time_control/ auxhist14_begin_d NAMELIST /time_control/ auxhist14_begin_h NAMELIST /time_control/ auxhist14_begin_m NAMELIST /time_control/ auxhist14_begin_s NAMELIST /time_control/ auxhist14_begin NAMELIST /time_control/ auxhist14_end_y NAMELIST /time_control/ auxhist14_end_d NAMELIST /time_control/ auxhist14_end_h NAMELIST /time_control/ auxhist14_end_m NAMELIST /time_control/ auxhist14_end_s NAMELIST /time_control/ auxhist14_end NAMELIST /time_control/ io_form_auxhist14 NAMELIST /time_control/ frames_per_auxhist14 NAMELIST /time_control/ auxhist15_inname NAMELIST /time_control/ auxhist15_outname NAMELIST /time_control/ auxhist15_interval_y NAMELIST /time_control/ auxhist15_interval_d NAMELIST /time_control/ auxhist15_interval_h NAMELIST /time_control/ auxhist15_interval_m NAMELIST /time_control/ auxhist15_interval_s NAMELIST /time_control/ auxhist15_interval NAMELIST /time_control/ auxhist15_begin_y NAMELIST /time_control/ auxhist15_begin_d NAMELIST /time_control/ auxhist15_begin_h NAMELIST /time_control/ auxhist15_begin_m NAMELIST /time_control/ auxhist15_begin_s NAMELIST /time_control/ auxhist15_begin NAMELIST /time_control/ auxhist15_end_y NAMELIST /time_control/ auxhist15_end_d NAMELIST /time_control/ auxhist15_end_h NAMELIST /time_control/ auxhist15_end_m NAMELIST /time_control/ auxhist15_end_s NAMELIST /time_control/ auxhist15_end NAMELIST /time_control/ io_form_auxhist15 NAMELIST /time_control/ frames_per_auxhist15 NAMELIST /time_control/ auxhist16_inname NAMELIST /time_control/ auxhist16_outname NAMELIST /time_control/ auxhist16_interval_y NAMELIST /time_control/ auxhist16_interval_d NAMELIST /time_control/ auxhist16_interval_h NAMELIST /time_control/ auxhist16_interval_m NAMELIST /time_control/ auxhist16_interval_s NAMELIST /time_control/ auxhist16_interval NAMELIST /time_control/ auxhist16_begin_y NAMELIST /time_control/ auxhist16_begin_d NAMELIST /time_control/ auxhist16_begin_h NAMELIST /time_control/ auxhist16_begin_m NAMELIST /time_control/ auxhist16_begin_s NAMELIST /time_control/ auxhist16_begin NAMELIST /time_control/ auxhist16_end_y NAMELIST /time_control/ auxhist16_end_d NAMELIST /time_control/ auxhist16_end_h NAMELIST /time_control/ auxhist16_end_m NAMELIST /time_control/ auxhist16_end_s NAMELIST /time_control/ auxhist16_end NAMELIST /time_control/ io_form_auxhist16 NAMELIST /time_control/ frames_per_auxhist16 NAMELIST /time_control/ auxhist17_inname NAMELIST /time_control/ auxhist17_outname NAMELIST /time_control/ auxhist17_interval_y NAMELIST /time_control/ auxhist17_interval_d NAMELIST /time_control/ auxhist17_interval_h NAMELIST /time_control/ auxhist17_interval_m NAMELIST /time_control/ auxhist17_interval_s NAMELIST /time_control/ auxhist17_interval NAMELIST /time_control/ auxhist17_begin_y NAMELIST /time_control/ auxhist17_begin_d NAMELIST /time_control/ auxhist17_begin_h NAMELIST /time_control/ auxhist17_begin_m NAMELIST /time_control/ auxhist17_begin_s NAMELIST /time_control/ auxhist17_begin NAMELIST /time_control/ auxhist17_end_y NAMELIST /time_control/ auxhist17_end_d NAMELIST /time_control/ auxhist17_end_h NAMELIST /time_control/ auxhist17_end_m NAMELIST /time_control/ auxhist17_end_s NAMELIST /time_control/ auxhist17_end NAMELIST /time_control/ io_form_auxhist17 NAMELIST /time_control/ frames_per_auxhist17 NAMELIST /time_control/ auxhist18_inname NAMELIST /time_control/ auxhist18_outname NAMELIST /time_control/ auxhist18_interval_y NAMELIST /time_control/ auxhist18_interval_d NAMELIST /time_control/ auxhist18_interval_h NAMELIST /time_control/ auxhist18_interval_m NAMELIST /time_control/ auxhist18_interval_s NAMELIST /time_control/ auxhist18_interval NAMELIST /time_control/ auxhist18_begin_y NAMELIST /time_control/ auxhist18_begin_d NAMELIST /time_control/ auxhist18_begin_h NAMELIST /time_control/ auxhist18_begin_m NAMELIST /time_control/ auxhist18_begin_s NAMELIST /time_control/ auxhist18_begin NAMELIST /time_control/ auxhist18_end_y NAMELIST /time_control/ auxhist18_end_d NAMELIST /time_control/ auxhist18_end_h NAMELIST /time_control/ auxhist18_end_m NAMELIST /time_control/ auxhist18_end_s NAMELIST /time_control/ auxhist18_end NAMELIST /time_control/ io_form_auxhist18 NAMELIST /time_control/ frames_per_auxhist18 NAMELIST /time_control/ auxhist19_inname NAMELIST /time_control/ auxhist19_outname NAMELIST /time_control/ auxhist19_interval_y NAMELIST /time_control/ auxhist19_interval_d NAMELIST /time_control/ auxhist19_interval_h NAMELIST /time_control/ auxhist19_interval_m NAMELIST /time_control/ auxhist19_interval_s NAMELIST /time_control/ auxhist19_interval NAMELIST /time_control/ auxhist19_begin_y NAMELIST /time_control/ auxhist19_begin_d NAMELIST /time_control/ auxhist19_begin_h NAMELIST /time_control/ auxhist19_begin_m NAMELIST /time_control/ auxhist19_begin_s NAMELIST /time_control/ auxhist19_begin NAMELIST /time_control/ auxhist19_end_y NAMELIST /time_control/ auxhist19_end_d NAMELIST /time_control/ auxhist19_end_h NAMELIST /time_control/ auxhist19_end_m NAMELIST /time_control/ auxhist19_end_s NAMELIST /time_control/ auxhist19_end NAMELIST /time_control/ io_form_auxhist19 NAMELIST /time_control/ frames_per_auxhist19 NAMELIST /time_control/ auxhist20_inname NAMELIST /time_control/ auxhist20_outname NAMELIST /time_control/ auxhist20_interval_y NAMELIST /time_control/ auxhist20_interval_d NAMELIST /time_control/ auxhist20_interval_h NAMELIST /time_control/ auxhist20_interval_m NAMELIST /time_control/ auxhist20_interval_s NAMELIST /time_control/ auxhist20_interval NAMELIST /time_control/ auxhist20_begin_y NAMELIST /time_control/ auxhist20_begin_d NAMELIST /time_control/ auxhist20_begin_h NAMELIST /time_control/ auxhist20_begin_m NAMELIST /time_control/ auxhist20_begin_s NAMELIST /time_control/ auxhist20_begin NAMELIST /time_control/ auxhist20_end_y NAMELIST /time_control/ auxhist20_end_d NAMELIST /time_control/ auxhist20_end_h NAMELIST /time_control/ auxhist20_end_m NAMELIST /time_control/ auxhist20_end_s NAMELIST /time_control/ auxhist20_end NAMELIST /time_control/ io_form_auxhist20 NAMELIST /time_control/ frames_per_auxhist20 NAMELIST /time_control/ auxhist21_inname NAMELIST /time_control/ auxhist21_outname NAMELIST /time_control/ auxhist21_interval_y NAMELIST /time_control/ auxhist21_interval_d NAMELIST /time_control/ auxhist21_interval_h NAMELIST /time_control/ auxhist21_interval_m NAMELIST /time_control/ auxhist21_interval_s NAMELIST /time_control/ auxhist21_interval NAMELIST /time_control/ auxhist21_begin_y NAMELIST /time_control/ auxhist21_begin_d NAMELIST /time_control/ auxhist21_begin_h NAMELIST /time_control/ auxhist21_begin_m NAMELIST /time_control/ auxhist21_begin_s NAMELIST /time_control/ auxhist21_begin NAMELIST /time_control/ auxhist21_end_y NAMELIST /time_control/ auxhist21_end_d NAMELIST /time_control/ auxhist21_end_h NAMELIST /time_control/ auxhist21_end_m NAMELIST /time_control/ auxhist21_end_s NAMELIST /time_control/ auxhist21_end NAMELIST /time_control/ io_form_auxhist21 NAMELIST /time_control/ frames_per_auxhist21 NAMELIST /time_control/ auxhist22_inname NAMELIST /time_control/ auxhist22_outname NAMELIST /time_control/ auxhist22_interval_y NAMELIST /time_control/ auxhist22_interval_d NAMELIST /time_control/ auxhist22_interval_h NAMELIST /time_control/ auxhist22_interval_m NAMELIST /time_control/ auxhist22_interval_s NAMELIST /time_control/ auxhist22_interval NAMELIST /time_control/ auxhist22_begin_y NAMELIST /time_control/ auxhist22_begin_d NAMELIST /time_control/ auxhist22_begin_h NAMELIST /time_control/ auxhist22_begin_m NAMELIST /time_control/ auxhist22_begin_s NAMELIST /time_control/ auxhist22_begin NAMELIST /time_control/ auxhist22_end_y NAMELIST /time_control/ auxhist22_end_d NAMELIST /time_control/ auxhist22_end_h NAMELIST /time_control/ auxhist22_end_m NAMELIST /time_control/ auxhist22_end_s NAMELIST /time_control/ auxhist22_end NAMELIST /time_control/ io_form_auxhist22 NAMELIST /time_control/ frames_per_auxhist22 NAMELIST /time_control/ auxhist23_inname NAMELIST /time_control/ auxhist23_outname NAMELIST /time_control/ auxhist23_interval_y NAMELIST /time_control/ auxhist23_interval_d NAMELIST /time_control/ auxhist23_interval_h NAMELIST /time_control/ auxhist23_interval_m NAMELIST /time_control/ auxhist23_interval_s NAMELIST /time_control/ auxhist23_interval NAMELIST /time_control/ auxhist23_begin_y NAMELIST /time_control/ auxhist23_begin_d NAMELIST /time_control/ auxhist23_begin_h NAMELIST /time_control/ auxhist23_begin_m NAMELIST /time_control/ auxhist23_begin_s NAMELIST /time_control/ auxhist23_begin NAMELIST /time_control/ auxhist23_end_y NAMELIST /time_control/ auxhist23_end_d NAMELIST /time_control/ auxhist23_end_h NAMELIST /time_control/ auxhist23_end_m NAMELIST /time_control/ auxhist23_end_s NAMELIST /time_control/ auxhist23_end NAMELIST /time_control/ io_form_auxhist23 NAMELIST /time_control/ frames_per_auxhist23 NAMELIST /time_control/ auxhist24_inname NAMELIST /time_control/ auxhist24_outname NAMELIST /time_control/ auxhist24_interval_y NAMELIST /time_control/ auxhist24_interval_d NAMELIST /time_control/ auxhist24_interval_h NAMELIST /time_control/ auxhist24_interval_m NAMELIST /time_control/ auxhist24_interval_s NAMELIST /time_control/ auxhist24_interval NAMELIST /time_control/ auxhist24_begin_y NAMELIST /time_control/ auxhist24_begin_d NAMELIST /time_control/ auxhist24_begin_h NAMELIST /time_control/ auxhist24_begin_m NAMELIST /time_control/ auxhist24_begin_s NAMELIST /time_control/ auxhist24_begin NAMELIST /time_control/ auxhist24_end_y NAMELIST /time_control/ auxhist24_end_d NAMELIST /time_control/ auxhist24_end_h NAMELIST /time_control/ auxhist24_end_m NAMELIST /time_control/ auxhist24_end_s NAMELIST /time_control/ auxhist24_end NAMELIST /time_control/ io_form_auxhist24 NAMELIST /time_control/ frames_per_auxhist24 NAMELIST /time_control/ auxinput1_outname NAMELIST /time_control/ auxinput1_interval_y NAMELIST /time_control/ auxinput1_interval_d NAMELIST /time_control/ auxinput1_interval_h NAMELIST /time_control/ auxinput1_interval_m NAMELIST /time_control/ auxinput1_interval_s NAMELIST /time_control/ auxinput1_interval NAMELIST /time_control/ auxinput1_begin_y NAMELIST /time_control/ auxinput1_begin_d NAMELIST /time_control/ auxinput1_begin_h NAMELIST /time_control/ auxinput1_begin_m NAMELIST /time_control/ auxinput1_begin_s NAMELIST /time_control/ auxinput1_begin NAMELIST /time_control/ auxinput1_end_y NAMELIST /time_control/ auxinput1_end_d NAMELIST /time_control/ auxinput1_end_h NAMELIST /time_control/ auxinput1_end_m NAMELIST /time_control/ auxinput1_end_s NAMELIST /time_control/ auxinput1_end NAMELIST /time_control/ frames_per_auxinput1 NAMELIST /time_control/ auxinput2_inname NAMELIST /time_control/ auxinput2_outname NAMELIST /time_control/ auxinput2_interval_y NAMELIST /time_control/ auxinput2_interval_d NAMELIST /time_control/ auxinput2_interval_h NAMELIST /time_control/ auxinput2_interval_m NAMELIST /time_control/ auxinput2_interval_s NAMELIST /time_control/ auxinput2_interval NAMELIST /time_control/ auxinput2_begin_y NAMELIST /time_control/ auxinput2_begin_d NAMELIST /time_control/ auxinput2_begin_h NAMELIST /time_control/ auxinput2_begin_m NAMELIST /time_control/ auxinput2_begin_s NAMELIST /time_control/ auxinput2_begin NAMELIST /time_control/ auxinput2_end_y NAMELIST /time_control/ auxinput2_end_d NAMELIST /time_control/ auxinput2_end_h NAMELIST /time_control/ auxinput2_end_m NAMELIST /time_control/ auxinput2_end_s NAMELIST /time_control/ auxinput2_end NAMELIST /time_control/ io_form_auxinput2 NAMELIST /time_control/ frames_per_auxinput2 NAMELIST /time_control/ auxinput3_inname NAMELIST /time_control/ auxinput3_outname NAMELIST /time_control/ auxinput3_interval_y NAMELIST /time_control/ auxinput3_interval_d NAMELIST /time_control/ auxinput3_interval_h NAMELIST /time_control/ auxinput3_interval_m NAMELIST /time_control/ auxinput3_interval_s NAMELIST /time_control/ auxinput3_interval NAMELIST /time_control/ auxinput3_begin_y NAMELIST /time_control/ auxinput3_begin_d NAMELIST /time_control/ auxinput3_begin_h NAMELIST /time_control/ auxinput3_begin_m NAMELIST /time_control/ auxinput3_begin_s NAMELIST /time_control/ auxinput3_begin NAMELIST /time_control/ auxinput3_end_y NAMELIST /time_control/ auxinput3_end_d NAMELIST /time_control/ auxinput3_end_h NAMELIST /time_control/ auxinput3_end_m NAMELIST /time_control/ auxinput3_end_s NAMELIST /time_control/ auxinput3_end NAMELIST /time_control/ io_form_auxinput3 NAMELIST /time_control/ frames_per_auxinput3 NAMELIST /time_control/ auxinput4_inname NAMELIST /time_control/ auxinput4_outname NAMELIST /time_control/ auxinput4_interval_y NAMELIST /time_control/ auxinput4_interval_d NAMELIST /time_control/ auxinput4_interval_h NAMELIST /time_control/ auxinput4_interval_m NAMELIST /time_control/ auxinput4_interval_s NAMELIST /time_control/ auxinput4_interval NAMELIST /time_control/ auxinput4_begin_y NAMELIST /time_control/ auxinput4_begin_d NAMELIST /time_control/ auxinput4_begin_h NAMELIST /time_control/ auxinput4_begin_m NAMELIST /time_control/ auxinput4_begin_s NAMELIST /time_control/ auxinput4_begin NAMELIST /time_control/ auxinput4_end_y NAMELIST /time_control/ auxinput4_end_d NAMELIST /time_control/ auxinput4_end_h NAMELIST /time_control/ auxinput4_end_m NAMELIST /time_control/ auxinput4_end_s NAMELIST /time_control/ auxinput4_end NAMELIST /time_control/ io_form_auxinput4 NAMELIST /time_control/ frames_per_auxinput4 NAMELIST /time_control/ auxinput5_inname NAMELIST /time_control/ auxinput5_outname NAMELIST /time_control/ auxinput5_interval_y NAMELIST /time_control/ auxinput5_interval_d NAMELIST /time_control/ auxinput5_interval_h NAMELIST /time_control/ auxinput5_interval_m NAMELIST /time_control/ auxinput5_interval_s NAMELIST /time_control/ auxinput5_interval NAMELIST /time_control/ auxinput5_begin_y NAMELIST /time_control/ auxinput5_begin_d NAMELIST /time_control/ auxinput5_begin_h NAMELIST /time_control/ auxinput5_begin_m NAMELIST /time_control/ auxinput5_begin_s NAMELIST /time_control/ auxinput5_begin NAMELIST /time_control/ auxinput5_end_y NAMELIST /time_control/ auxinput5_end_d NAMELIST /time_control/ auxinput5_end_h NAMELIST /time_control/ auxinput5_end_m NAMELIST /time_control/ auxinput5_end_s NAMELIST /time_control/ auxinput5_end NAMELIST /time_control/ io_form_auxinput5 NAMELIST /time_control/ frames_per_auxinput5 NAMELIST /time_control/ auxinput6_inname NAMELIST /time_control/ auxinput6_outname NAMELIST /time_control/ auxinput6_interval_y NAMELIST /time_control/ auxinput6_interval_d NAMELIST /time_control/ auxinput6_interval_h NAMELIST /time_control/ auxinput6_interval_m NAMELIST /time_control/ auxinput6_interval_s NAMELIST /time_control/ auxinput6_interval NAMELIST /time_control/ auxinput6_begin_y NAMELIST /time_control/ auxinput6_begin_d NAMELIST /time_control/ auxinput6_begin_h NAMELIST /time_control/ auxinput6_begin_m NAMELIST /time_control/ auxinput6_begin_s NAMELIST /time_control/ auxinput6_begin NAMELIST /time_control/ auxinput6_end_y NAMELIST /time_control/ auxinput6_end_d NAMELIST /time_control/ auxinput6_end_h NAMELIST /time_control/ auxinput6_end_m NAMELIST /time_control/ auxinput6_end_s NAMELIST /time_control/ auxinput6_end NAMELIST /time_control/ io_form_auxinput6 NAMELIST /time_control/ frames_per_auxinput6 NAMELIST /time_control/ auxinput7_inname NAMELIST /time_control/ auxinput7_outname NAMELIST /time_control/ auxinput7_interval_y NAMELIST /time_control/ auxinput7_interval_d NAMELIST /time_control/ auxinput7_interval_h NAMELIST /time_control/ auxinput7_interval_m NAMELIST /time_control/ auxinput7_interval_s NAMELIST /time_control/ auxinput7_interval NAMELIST /time_control/ auxinput7_begin_y NAMELIST /time_control/ auxinput7_begin_d NAMELIST /time_control/ auxinput7_begin_h NAMELIST /time_control/ auxinput7_begin_m NAMELIST /time_control/ auxinput7_begin_s NAMELIST /time_control/ auxinput7_begin NAMELIST /time_control/ auxinput7_end_y NAMELIST /time_control/ auxinput7_end_d NAMELIST /time_control/ auxinput7_end_h NAMELIST /time_control/ auxinput7_end_m NAMELIST /time_control/ auxinput7_end_s NAMELIST /time_control/ auxinput7_end NAMELIST /time_control/ io_form_auxinput7 NAMELIST /time_control/ frames_per_auxinput7 NAMELIST /time_control/ auxinput8_inname NAMELIST /time_control/ auxinput8_outname NAMELIST /time_control/ auxinput8_interval_y NAMELIST /time_control/ auxinput8_interval_d NAMELIST /time_control/ auxinput8_interval_h NAMELIST /time_control/ auxinput8_interval_m NAMELIST /time_control/ auxinput8_interval_s NAMELIST /time_control/ auxinput8_interval NAMELIST /time_control/ auxinput8_begin_y NAMELIST /time_control/ auxinput8_begin_d NAMELIST /time_control/ auxinput8_begin_h NAMELIST /time_control/ auxinput8_begin_m NAMELIST /time_control/ auxinput8_begin_s NAMELIST /time_control/ auxinput8_begin NAMELIST /time_control/ auxinput8_end_y NAMELIST /time_control/ auxinput8_end_d NAMELIST /time_control/ auxinput8_end_h NAMELIST /time_control/ auxinput8_end_m NAMELIST /time_control/ auxinput8_end_s NAMELIST /time_control/ auxinput8_end NAMELIST /time_control/ io_form_auxinput8 NAMELIST /time_control/ frames_per_auxinput8 NAMELIST /time_control/ auxinput9_inname NAMELIST /time_control/ auxinput9_outname NAMELIST /time_control/ auxinput9_interval_y NAMELIST /time_control/ auxinput9_interval_d NAMELIST /time_control/ auxinput9_interval_h NAMELIST /time_control/ auxinput9_interval_m NAMELIST /time_control/ auxinput9_interval_s NAMELIST /time_control/ auxinput9_interval NAMELIST /time_control/ auxinput9_begin_y NAMELIST /time_control/ auxinput9_begin_d NAMELIST /time_control/ auxinput9_begin_h NAMELIST /time_control/ auxinput9_begin_m NAMELIST /time_control/ auxinput9_begin_s NAMELIST /time_control/ auxinput9_begin NAMELIST /time_control/ auxinput9_end_y NAMELIST /time_control/ auxinput9_end_d NAMELIST /time_control/ auxinput9_end_h NAMELIST /time_control/ auxinput9_end_m NAMELIST /time_control/ auxinput9_end_s NAMELIST /time_control/ auxinput9_end NAMELIST /time_control/ io_form_auxinput9 NAMELIST /time_control/ frames_per_auxinput9 NAMELIST /time_control/ auxinput10_inname NAMELIST /time_control/ auxinput10_outname NAMELIST /time_control/ auxinput10_interval_y NAMELIST /time_control/ auxinput10_interval_d NAMELIST /time_control/ auxinput10_interval_h NAMELIST /time_control/ auxinput10_interval_m NAMELIST /time_control/ auxinput10_interval_s NAMELIST /time_control/ auxinput10_interval NAMELIST /time_control/ auxinput10_begin_y NAMELIST /time_control/ auxinput10_begin_d NAMELIST /time_control/ auxinput10_begin_h NAMELIST /time_control/ auxinput10_begin_m NAMELIST /time_control/ auxinput10_begin_s NAMELIST /time_control/ auxinput10_begin NAMELIST /time_control/ auxinput10_end_y NAMELIST /time_control/ auxinput10_end_d NAMELIST /time_control/ auxinput10_end_h NAMELIST /time_control/ auxinput10_end_m NAMELIST /time_control/ auxinput10_end_s NAMELIST /time_control/ auxinput10_end NAMELIST /time_control/ io_form_auxinput10 NAMELIST /time_control/ frames_per_auxinput10 NAMELIST /time_control/ auxinput11_inname NAMELIST /time_control/ auxinput11_outname NAMELIST /time_control/ auxinput11_interval_y NAMELIST /time_control/ auxinput11_interval_d NAMELIST /time_control/ auxinput11_interval_h NAMELIST /time_control/ auxinput11_interval_m NAMELIST /time_control/ auxinput11_interval_s NAMELIST /time_control/ auxinput11_interval NAMELIST /time_control/ auxinput11_begin_y NAMELIST /time_control/ auxinput11_begin_d NAMELIST /time_control/ auxinput11_begin_h NAMELIST /time_control/ auxinput11_begin_m NAMELIST /time_control/ auxinput11_begin_s NAMELIST /time_control/ auxinput11_begin NAMELIST /time_control/ auxinput11_end_y NAMELIST /time_control/ auxinput11_end_d NAMELIST /time_control/ auxinput11_end_h NAMELIST /time_control/ auxinput11_end_m NAMELIST /time_control/ auxinput11_end_s NAMELIST /time_control/ auxinput11_end NAMELIST /time_control/ io_form_auxinput11 NAMELIST /time_control/ frames_per_auxinput11 NAMELIST /time_control/ auxinput12_inname NAMELIST /time_control/ auxinput12_outname NAMELIST /time_control/ auxinput12_interval_y NAMELIST /time_control/ auxinput12_interval_d NAMELIST /time_control/ auxinput12_interval_h NAMELIST /time_control/ auxinput12_interval_m NAMELIST /time_control/ auxinput12_interval_s NAMELIST /time_control/ auxinput12_interval NAMELIST /time_control/ auxinput12_begin_y NAMELIST /time_control/ auxinput12_begin_d NAMELIST /time_control/ auxinput12_begin_h NAMELIST /time_control/ auxinput12_begin_m NAMELIST /time_control/ auxinput12_begin_s NAMELIST /time_control/ auxinput12_begin NAMELIST /time_control/ auxinput12_end_y NAMELIST /time_control/ auxinput12_end_d NAMELIST /time_control/ auxinput12_end_h NAMELIST /time_control/ auxinput12_end_m NAMELIST /time_control/ auxinput12_end_s NAMELIST /time_control/ auxinput12_end NAMELIST /time_control/ io_form_auxinput12 NAMELIST /time_control/ frames_per_auxinput12 NAMELIST /time_control/ auxinput13_inname NAMELIST /time_control/ auxinput13_outname NAMELIST /time_control/ auxinput13_interval_y NAMELIST /time_control/ auxinput13_interval_d NAMELIST /time_control/ auxinput13_interval_h NAMELIST /time_control/ auxinput13_interval_m NAMELIST /time_control/ auxinput13_interval_s NAMELIST /time_control/ auxinput13_interval NAMELIST /time_control/ auxinput13_begin_y NAMELIST /time_control/ auxinput13_begin_d NAMELIST /time_control/ auxinput13_begin_h NAMELIST /time_control/ auxinput13_begin_m NAMELIST /time_control/ auxinput13_begin_s NAMELIST /time_control/ auxinput13_begin NAMELIST /time_control/ auxinput13_end_y NAMELIST /time_control/ auxinput13_end_d NAMELIST /time_control/ auxinput13_end_h NAMELIST /time_control/ auxinput13_end_m NAMELIST /time_control/ auxinput13_end_s NAMELIST /time_control/ auxinput13_end NAMELIST /time_control/ io_form_auxinput13 NAMELIST /time_control/ frames_per_auxinput13 NAMELIST /time_control/ auxinput14_inname NAMELIST /time_control/ auxinput14_outname NAMELIST /time_control/ auxinput14_interval_y NAMELIST /time_control/ auxinput14_interval_d NAMELIST /time_control/ auxinput14_interval_h NAMELIST /time_control/ auxinput14_interval_m NAMELIST /time_control/ auxinput14_interval_s NAMELIST /time_control/ auxinput14_interval NAMELIST /time_control/ auxinput14_begin_y NAMELIST /time_control/ auxinput14_begin_d NAMELIST /time_control/ auxinput14_begin_h NAMELIST /time_control/ auxinput14_begin_m NAMELIST /time_control/ auxinput14_begin_s NAMELIST /time_control/ auxinput14_begin NAMELIST /time_control/ auxinput14_end_y NAMELIST /time_control/ auxinput14_end_d NAMELIST /time_control/ auxinput14_end_h NAMELIST /time_control/ auxinput14_end_m NAMELIST /time_control/ auxinput14_end_s NAMELIST /time_control/ auxinput14_end NAMELIST /time_control/ io_form_auxinput14 NAMELIST /time_control/ frames_per_auxinput14 NAMELIST /time_control/ auxinput15_inname NAMELIST /time_control/ auxinput15_outname NAMELIST /time_control/ auxinput15_interval_y NAMELIST /time_control/ auxinput15_interval_d NAMELIST /time_control/ auxinput15_interval_h NAMELIST /time_control/ auxinput15_interval_m NAMELIST /time_control/ auxinput15_interval_s NAMELIST /time_control/ auxinput15_interval NAMELIST /time_control/ auxinput15_begin_y NAMELIST /time_control/ auxinput15_begin_d NAMELIST /time_control/ auxinput15_begin_h NAMELIST /time_control/ auxinput15_begin_m NAMELIST /time_control/ auxinput15_begin_s NAMELIST /time_control/ auxinput15_begin NAMELIST /time_control/ auxinput15_end_y NAMELIST /time_control/ auxinput15_end_d NAMELIST /time_control/ auxinput15_end_h NAMELIST /time_control/ auxinput15_end_m NAMELIST /time_control/ auxinput15_end_s NAMELIST /time_control/ auxinput15_end NAMELIST /time_control/ io_form_auxinput15 NAMELIST /time_control/ frames_per_auxinput15 NAMELIST /time_control/ auxinput16_inname NAMELIST /time_control/ auxinput16_outname NAMELIST /time_control/ auxinput16_interval_y NAMELIST /time_control/ auxinput16_interval_d NAMELIST /time_control/ auxinput16_interval_h NAMELIST /time_control/ auxinput16_interval_m NAMELIST /time_control/ auxinput16_interval_s NAMELIST /time_control/ auxinput16_interval NAMELIST /time_control/ auxinput16_begin_y NAMELIST /time_control/ auxinput16_begin_d NAMELIST /time_control/ auxinput16_begin_h NAMELIST /time_control/ auxinput16_begin_m NAMELIST /time_control/ auxinput16_begin_s NAMELIST /time_control/ auxinput16_begin NAMELIST /time_control/ auxinput16_end_y NAMELIST /time_control/ auxinput16_end_d NAMELIST /time_control/ auxinput16_end_h NAMELIST /time_control/ auxinput16_end_m NAMELIST /time_control/ auxinput16_end_s NAMELIST /time_control/ auxinput16_end NAMELIST /time_control/ io_form_auxinput16 NAMELIST /time_control/ frames_per_auxinput16 NAMELIST /time_control/ auxinput17_inname NAMELIST /time_control/ auxinput17_outname NAMELIST /time_control/ auxinput17_interval_y NAMELIST /time_control/ auxinput17_interval_d NAMELIST /time_control/ auxinput17_interval_h NAMELIST /time_control/ auxinput17_interval_m NAMELIST /time_control/ auxinput17_interval_s NAMELIST /time_control/ auxinput17_interval NAMELIST /time_control/ auxinput17_begin_y NAMELIST /time_control/ auxinput17_begin_d NAMELIST /time_control/ auxinput17_begin_h NAMELIST /time_control/ auxinput17_begin_m NAMELIST /time_control/ auxinput17_begin_s NAMELIST /time_control/ auxinput17_begin NAMELIST /time_control/ auxinput17_end_y NAMELIST /time_control/ auxinput17_end_d NAMELIST /time_control/ auxinput17_end_h NAMELIST /time_control/ auxinput17_end_m NAMELIST /time_control/ auxinput17_end_s NAMELIST /time_control/ auxinput17_end NAMELIST /time_control/ io_form_auxinput17 NAMELIST /time_control/ frames_per_auxinput17 NAMELIST /time_control/ auxinput18_inname NAMELIST /time_control/ auxinput18_outname NAMELIST /time_control/ auxinput18_interval_y NAMELIST /time_control/ auxinput18_interval_d NAMELIST /time_control/ auxinput18_interval_h NAMELIST /time_control/ auxinput18_interval_m NAMELIST /time_control/ auxinput18_interval_s NAMELIST /time_control/ auxinput18_interval NAMELIST /time_control/ auxinput18_begin_y NAMELIST /time_control/ auxinput18_begin_d NAMELIST /time_control/ auxinput18_begin_h NAMELIST /time_control/ auxinput18_begin_m NAMELIST /time_control/ auxinput18_begin_s NAMELIST /time_control/ auxinput18_begin NAMELIST /time_control/ auxinput18_end_y NAMELIST /time_control/ auxinput18_end_d NAMELIST /time_control/ auxinput18_end_h NAMELIST /time_control/ auxinput18_end_m NAMELIST /time_control/ auxinput18_end_s NAMELIST /time_control/ auxinput18_end NAMELIST /time_control/ io_form_auxinput18 NAMELIST /time_control/ frames_per_auxinput18 NAMELIST /time_control/ auxinput19_inname NAMELIST /time_control/ auxinput19_outname NAMELIST /time_control/ auxinput19_interval_y NAMELIST /time_control/ auxinput19_interval_d NAMELIST /time_control/ auxinput19_interval_h NAMELIST /time_control/ auxinput19_interval_m NAMELIST /time_control/ auxinput19_interval_s NAMELIST /time_control/ auxinput19_interval NAMELIST /time_control/ auxinput19_begin_y NAMELIST /time_control/ auxinput19_begin_d NAMELIST /time_control/ auxinput19_begin_h NAMELIST /time_control/ auxinput19_begin_m NAMELIST /time_control/ auxinput19_begin_s NAMELIST /time_control/ auxinput19_begin NAMELIST /time_control/ auxinput19_end_y NAMELIST /time_control/ auxinput19_end_d NAMELIST /time_control/ auxinput19_end_h NAMELIST /time_control/ auxinput19_end_m NAMELIST /time_control/ auxinput19_end_s NAMELIST /time_control/ auxinput19_end NAMELIST /time_control/ io_form_auxinput19 NAMELIST /time_control/ frames_per_auxinput19 NAMELIST /time_control/ auxinput20_inname NAMELIST /time_control/ auxinput20_outname NAMELIST /time_control/ auxinput20_interval_y NAMELIST /time_control/ auxinput20_interval_d NAMELIST /time_control/ auxinput20_interval_h NAMELIST /time_control/ auxinput20_interval_m NAMELIST /time_control/ auxinput20_interval_s NAMELIST /time_control/ auxinput20_interval NAMELIST /time_control/ auxinput20_begin_y NAMELIST /time_control/ auxinput20_begin_d NAMELIST /time_control/ auxinput20_begin_h NAMELIST /time_control/ auxinput20_begin_m NAMELIST /time_control/ auxinput20_begin_s NAMELIST /time_control/ auxinput20_begin NAMELIST /time_control/ auxinput20_end_y NAMELIST /time_control/ auxinput20_end_d NAMELIST /time_control/ auxinput20_end_h NAMELIST /time_control/ auxinput20_end_m NAMELIST /time_control/ auxinput20_end_s NAMELIST /time_control/ auxinput20_end NAMELIST /time_control/ io_form_auxinput20 NAMELIST /time_control/ frames_per_auxinput20 NAMELIST /time_control/ auxinput21_inname NAMELIST /time_control/ auxinput21_outname NAMELIST /time_control/ auxinput21_interval_y NAMELIST /time_control/ auxinput21_interval_d NAMELIST /time_control/ auxinput21_interval_h NAMELIST /time_control/ auxinput21_interval_m NAMELIST /time_control/ auxinput21_interval_s NAMELIST /time_control/ auxinput21_interval NAMELIST /time_control/ auxinput21_begin_y NAMELIST /time_control/ auxinput21_begin_d NAMELIST /time_control/ auxinput21_begin_h NAMELIST /time_control/ auxinput21_begin_m NAMELIST /time_control/ auxinput21_begin_s NAMELIST /time_control/ auxinput21_begin NAMELIST /time_control/ auxinput21_end_y NAMELIST /time_control/ auxinput21_end_d NAMELIST /time_control/ auxinput21_end_h NAMELIST /time_control/ auxinput21_end_m NAMELIST /time_control/ auxinput21_end_s NAMELIST /time_control/ auxinput21_end NAMELIST /time_control/ io_form_auxinput21 NAMELIST /time_control/ frames_per_auxinput21 NAMELIST /time_control/ auxinput22_inname NAMELIST /time_control/ auxinput22_outname NAMELIST /time_control/ auxinput22_interval_y NAMELIST /time_control/ auxinput22_interval_d NAMELIST /time_control/ auxinput22_interval_h NAMELIST /time_control/ auxinput22_interval_m NAMELIST /time_control/ auxinput22_interval_s NAMELIST /time_control/ auxinput22_interval NAMELIST /time_control/ auxinput22_begin_y NAMELIST /time_control/ auxinput22_begin_d NAMELIST /time_control/ auxinput22_begin_h NAMELIST /time_control/ auxinput22_begin_m NAMELIST /time_control/ auxinput22_begin_s NAMELIST /time_control/ auxinput22_begin NAMELIST /time_control/ auxinput22_end_y NAMELIST /time_control/ auxinput22_end_d NAMELIST /time_control/ auxinput22_end_h NAMELIST /time_control/ auxinput22_end_m NAMELIST /time_control/ auxinput22_end_s NAMELIST /time_control/ auxinput22_end NAMELIST /time_control/ io_form_auxinput22 NAMELIST /time_control/ frames_per_auxinput22 NAMELIST /time_control/ auxinput23_inname NAMELIST /time_control/ auxinput23_outname NAMELIST /time_control/ auxinput23_interval_y NAMELIST /time_control/ auxinput23_interval_d NAMELIST /time_control/ auxinput23_interval_h NAMELIST /time_control/ auxinput23_interval_m NAMELIST /time_control/ auxinput23_interval_s NAMELIST /time_control/ auxinput23_interval NAMELIST /time_control/ auxinput23_begin_y NAMELIST /time_control/ auxinput23_begin_d NAMELIST /time_control/ auxinput23_begin_h NAMELIST /time_control/ auxinput23_begin_m NAMELIST /time_control/ auxinput23_begin_s NAMELIST /time_control/ auxinput23_begin NAMELIST /time_control/ auxinput23_end_y NAMELIST /time_control/ auxinput23_end_d NAMELIST /time_control/ auxinput23_end_h NAMELIST /time_control/ auxinput23_end_m NAMELIST /time_control/ auxinput23_end_s NAMELIST /time_control/ auxinput23_end NAMELIST /time_control/ io_form_auxinput23 NAMELIST /time_control/ frames_per_auxinput23 NAMELIST /time_control/ auxinput24_inname NAMELIST /time_control/ auxinput24_outname NAMELIST /time_control/ auxinput24_interval_y NAMELIST /time_control/ auxinput24_interval_d NAMELIST /time_control/ auxinput24_interval_h NAMELIST /time_control/ auxinput24_interval_m NAMELIST /time_control/ auxinput24_interval_s NAMELIST /time_control/ auxinput24_interval NAMELIST /time_control/ auxinput24_begin_y NAMELIST /time_control/ auxinput24_begin_d NAMELIST /time_control/ auxinput24_begin_h NAMELIST /time_control/ auxinput24_begin_m NAMELIST /time_control/ auxinput24_begin_s NAMELIST /time_control/ auxinput24_begin NAMELIST /time_control/ auxinput24_end_y NAMELIST /time_control/ auxinput24_end_d NAMELIST /time_control/ auxinput24_end_h NAMELIST /time_control/ auxinput24_end_m NAMELIST /time_control/ auxinput24_end_s NAMELIST /time_control/ auxinput24_end NAMELIST /time_control/ io_form_auxinput24 NAMELIST /time_control/ frames_per_auxinput24 NAMELIST /time_control/ history_interval NAMELIST /time_control/ frames_per_outfile NAMELIST /time_control/ restart NAMELIST /time_control/ restart_interval NAMELIST /time_control/ io_form_input NAMELIST /time_control/ io_form_history NAMELIST /time_control/ io_form_restart NAMELIST /time_control/ io_form_boundary NAMELIST /time_control/ debug_level NAMELIST /time_control/ self_test_domain NAMELIST /time_control/ history_outname NAMELIST /time_control/ history_inname NAMELIST /time_control/ use_netcdf_classic NAMELIST /time_control/ history_interval_d NAMELIST /time_control/ history_interval_h NAMELIST /time_control/ history_interval_m NAMELIST /time_control/ history_interval_s NAMELIST /time_control/ inputout_interval_d NAMELIST /time_control/ inputout_interval_h NAMELIST /time_control/ inputout_interval_m NAMELIST /time_control/ inputout_interval_s NAMELIST /time_control/ inputout_interval NAMELIST /time_control/ restart_interval_d NAMELIST /time_control/ restart_interval_h NAMELIST /time_control/ restart_interval_m NAMELIST /time_control/ restart_interval_s NAMELIST /time_control/ history_begin_y NAMELIST /time_control/ history_begin_d NAMELIST /time_control/ history_begin_h NAMELIST /time_control/ history_begin_m NAMELIST /time_control/ history_begin_s NAMELIST /time_control/ history_begin NAMELIST /time_control/ inputout_begin_y NAMELIST /time_control/ inputout_begin_d NAMELIST /time_control/ inputout_begin_h NAMELIST /time_control/ inputout_begin_m NAMELIST /time_control/ inputout_begin_s NAMELIST /time_control/ restart_begin_y NAMELIST /time_control/ restart_begin_d NAMELIST /time_control/ restart_begin_h NAMELIST /time_control/ restart_begin_m NAMELIST /time_control/ restart_begin_s NAMELIST /time_control/ restart_begin NAMELIST /time_control/ history_end_y NAMELIST /time_control/ history_end_d NAMELIST /time_control/ history_end_h NAMELIST /time_control/ history_end_m NAMELIST /time_control/ history_end_s NAMELIST /time_control/ history_end NAMELIST /time_control/ inputout_end_y NAMELIST /time_control/ inputout_end_d NAMELIST /time_control/ inputout_end_h NAMELIST /time_control/ inputout_end_m NAMELIST /time_control/ inputout_end_s NAMELIST /time_control/ reset_simulation_start NAMELIST /domains/ sr_x NAMELIST /domains/ sr_y NAMELIST /fdda/ sgfdda_inname NAMELIST /fdda/ gfdda_inname NAMELIST /fdda/ sgfdda_interval_d NAMELIST /fdda/ sgfdda_interval_h NAMELIST /fdda/ sgfdda_interval_m NAMELIST /fdda/ sgfdda_interval_s NAMELIST /fdda/ sgfdda_interval_y NAMELIST /fdda/ sgfdda_interval NAMELIST /fdda/ gfdda_interval_d NAMELIST /fdda/ gfdda_interval_h NAMELIST /fdda/ gfdda_interval_m NAMELIST /fdda/ gfdda_interval_s NAMELIST /fdda/ gfdda_interval_y NAMELIST /fdda/ gfdda_interval NAMELIST /fdda/ sgfdda_begin_y NAMELIST /fdda/ sgfdda_begin_d NAMELIST /fdda/ sgfdda_begin_h NAMELIST /fdda/ sgfdda_begin_m NAMELIST /fdda/ sgfdda_begin_s NAMELIST /fdda/ gfdda_begin_y NAMELIST /fdda/ gfdda_begin_d NAMELIST /fdda/ gfdda_begin_h NAMELIST /fdda/ gfdda_begin_m NAMELIST /fdda/ gfdda_begin_s NAMELIST /fdda/ sgfdda_end_y NAMELIST /fdda/ sgfdda_end_d NAMELIST /fdda/ sgfdda_end_h NAMELIST /fdda/ sgfdda_end_m NAMELIST /fdda/ sgfdda_end_s NAMELIST /fdda/ gfdda_end_y NAMELIST /fdda/ gfdda_end_d NAMELIST /fdda/ gfdda_end_h NAMELIST /fdda/ gfdda_end_m NAMELIST /fdda/ gfdda_end_s NAMELIST /fdda/ io_form_sgfdda NAMELIST /fdda/ io_form_gfdda NAMELIST /time_control/ iofields_filename NAMELIST /time_control/ ignore_iofields_warning NAMELIST /time_control/ ncd_nofill NAMELIST /chem/ emi_inname NAMELIST /chem/ fireemi_inname NAMELIST /chem/ input_chem_inname NAMELIST /chem/ emi_outname NAMELIST /chem/ fireemi_outname NAMELIST /chem/ input_chem_outname NAMELIST /chem/ io_style_emissions NAMELIST /chem/ bioemdt NAMELIST /chem/ photdt NAMELIST /chem/ chemdt NAMELIST /chem/ ne_area NAMELIST /chem/ kemit NAMELIST /chem/ nmegan NAMELIST /chem/ kfuture NAMELIST /chem/ kfire NAMELIST /chem/ kemit_aircraft NAMELIST /chem/ kdvel NAMELIST /chem/ ndepvel NAMELIST /chem/ kdepvel NAMELIST /chem/ erosion_dim NAMELIST /chem/ biomass_emiss_opt NAMELIST /chem/ cam_mam_mode NAMELIST /chem/ cam_mam_nspec NAMELIST /chem/ cam_mp_mam_cpled NAMELIST /chem/ lightning_opt NAMELIST /chem/ lightning_time_step NAMELIST /chem/ temp_upper NAMELIST /chem/ temp_lower NAMELIST /chem/ n_ic NAMELIST /chem/ n_cg NAMELIST /chem/ passive_ltng NAMELIST /chem/ lflash_data NAMELIST /chem/ flashrate_method NAMELIST /chem/ vprm_opt NAMELIST /chem/ wpeat NAMELIST /chem/ wflood NAMELIST /chem/ term_opt NAMELIST /chem/ chem_conv_tr NAMELIST /chem/ conv_tr_wetscav NAMELIST /chem/ conv_tr_aqchem NAMELIST /chem/ chem_opt NAMELIST /chem/ gaschem_onoff NAMELIST /chem/ aerchem_onoff NAMELIST /chem/ wetscav_onoff NAMELIST /chem/ dustwd_onoff NAMELIST /chem/ cldchem_onoff NAMELIST /chem/ is_full_tuv NAMELIST /chem/ lambda_cutoff NAMELIST /chem/ cld_od_opt NAMELIST /chem/ pht_cldfrc_opt NAMELIST /chem/ vertmix_onoff NAMELIST /chem/ chem_in_opt NAMELIST /chem/ phot_opt NAMELIST /chem/ gas_drydep_opt NAMELIST /chem/ aer_drydep_opt NAMELIST /chem/ diagnostic_chem NAMELIST /chem/ aero_diag_opt NAMELIST /chem/ aero_cw_diag_opt NAMELIST /chem/ aer_aerodynres_opt NAMELIST /chem/ emiss_opt NAMELIST /chem/ emiss_opt_vol NAMELIST /chem/ dust_opt NAMELIST /chem/ dust_schme NAMELIST /chem/ dmsemis_opt NAMELIST /chem/ seas_opt NAMELIST /chem/ bio_emiss_opt NAMELIST /chem/ biomass_burn_opt NAMELIST /chem/ plumerisefire_frq NAMELIST /chem/ emiss_inpt_opt NAMELIST /chem/ gas_bc_opt NAMELIST /chem/ gas_ic_opt NAMELIST /chem/ aer_bc_opt NAMELIST /chem/ aer_ic_opt NAMELIST /chem/ have_bcs_chem NAMELIST /chem/ have_bcs_tracer NAMELIST /chem/ scale_fire_emiss NAMELIST /chem/ aer_ra_feedback NAMELIST /chem/ aer_op_opt NAMELIST /chem/ opt_pars_out NAMELIST /chem/ diagnostic_dep NAMELIST /chem/ aircraft_emiss_opt NAMELIST /chem/ have_bcs_upper NAMELIST /chem/ fixed_ubc_press NAMELIST /chem/ fixed_ubc_inname NAMELIST /chem/ trop_lev_inname NAMELIST /chem/ exo_coldens_inname NAMELIST /chem/ wes_seasonal_inname NAMELIST /chem/ chemdiag NAMELIST /chem/ dust_alpha NAMELIST /chem/ dust_gamma NAMELIST /chem/ dust_smtune NAMELIST /chem/ dust_ustune NAMELIST /chem/ dust_dsr NAMELIST /chem/ dust_veg NAMELIST /chem/ dust_soils NAMELIST /chem/ dust_smois NAMELIST /chem/ emiss_ash_hgt NAMELIST /chem/ depo_fact NAMELIST /chem/ track_chem_num NAMELIST /chem/ track_chem_name NAMELIST /chem/ track_rad_num NAMELIST /chem/ track_tuv_num NAMELIST /chem/ track_tuv_lev NAMELIST /chem/ n2o5_hetchem NAMELIST /chem/ af_lambda_start NAMELIST /chem/ af_lambda_end NAMELIST /chem/ lnox_opt NAMELIST /chem/ lnox_passive NAMELIST /physics/ ltng_temp_upper NAMELIST /physics/ ltng_temp_lower NAMELIST /chem/ has_o3_exo_coldens NAMELIST /chem/ du_at_grnd NAMELIST /chem/ scale_o3_to_grnd_exo_coldens NAMELIST /chem/ scale_o3_to_du_at_grnd NAMELIST /chem/ irr_opt NAMELIST /fire/ ifire NAMELIST /fire/ fire_boundary_guard NAMELIST /fire/ fire_num_ignitions NAMELIST /fire/ fire_ignition_ros1 NAMELIST /fire/ fire_ignition_start_lon1 NAMELIST /fire/ fire_ignition_start_lat1 NAMELIST /fire/ fire_ignition_end_lon1 NAMELIST /fire/ fire_ignition_end_lat1 NAMELIST /fire/ fire_ignition_radius1 NAMELIST /fire/ fire_ignition_start_time1 NAMELIST /fire/ fire_ignition_end_time1 NAMELIST /fire/ fire_ignition_ros2 NAMELIST /fire/ fire_ignition_start_lon2 NAMELIST /fire/ fire_ignition_start_lat2 NAMELIST /fire/ fire_ignition_end_lon2 NAMELIST /fire/ fire_ignition_end_lat2 NAMELIST /fire/ fire_ignition_radius2 NAMELIST /fire/ fire_ignition_start_time2 NAMELIST /fire/ fire_ignition_end_time2 NAMELIST /fire/ fire_ignition_ros3 NAMELIST /fire/ fire_ignition_start_lon3 NAMELIST /fire/ fire_ignition_start_lat3 NAMELIST /fire/ fire_ignition_end_lon3 NAMELIST /fire/ fire_ignition_end_lat3 NAMELIST /fire/ fire_ignition_radius3 NAMELIST /fire/ fire_ignition_start_time3 NAMELIST /fire/ fire_ignition_end_time3 NAMELIST /fire/ fire_ignition_ros4 NAMELIST /fire/ fire_ignition_start_lon4 NAMELIST /fire/ fire_ignition_start_lat4 NAMELIST /fire/ fire_ignition_end_lon4 NAMELIST /fire/ fire_ignition_end_lat4 NAMELIST /fire/ fire_ignition_radius4 NAMELIST /fire/ fire_ignition_start_time4 NAMELIST /fire/ fire_ignition_end_time4 NAMELIST /fire/ fire_ignition_ros5 NAMELIST /fire/ fire_ignition_start_lon5 NAMELIST /fire/ fire_ignition_start_lat5 NAMELIST /fire/ fire_ignition_end_lon5 NAMELIST /fire/ fire_ignition_end_lat5 NAMELIST /fire/ fire_ignition_radius5 NAMELIST /fire/ fire_ignition_start_time5 NAMELIST /fire/ fire_ignition_end_time5 NAMELIST /fire/ fire_ignition_start_x1 NAMELIST /fire/ fire_ignition_start_y1 NAMELIST /fire/ fire_ignition_end_x1 NAMELIST /fire/ fire_ignition_end_y1 NAMELIST /fire/ fire_ignition_start_x2 NAMELIST /fire/ fire_ignition_start_y2 NAMELIST /fire/ fire_ignition_end_x2 NAMELIST /fire/ fire_ignition_end_y2 NAMELIST /fire/ fire_ignition_start_x3 NAMELIST /fire/ fire_ignition_start_y3 NAMELIST /fire/ fire_ignition_end_x3 NAMELIST /fire/ fire_ignition_end_y3 NAMELIST /fire/ fire_ignition_start_x4 NAMELIST /fire/ fire_ignition_start_y4 NAMELIST /fire/ fire_ignition_end_x4 NAMELIST /fire/ fire_ignition_end_y4 NAMELIST /fire/ fire_ignition_start_x5 NAMELIST /fire/ fire_ignition_start_y5 NAMELIST /fire/ fire_ignition_end_x5 NAMELIST /fire/ fire_ignition_end_y5 NAMELIST /fire/ fire_lat_init NAMELIST /fire/ fire_lon_init NAMELIST /fire/ fire_ign_time NAMELIST /fire/ fire_shape NAMELIST /fire/ fire_sprd_mdl NAMELIST /fire/ fire_crwn_hgt NAMELIST /fire/ fire_ext_grnd NAMELIST /fire/ fire_ext_crwn NAMELIST /fire/ fire_wind_height NAMELIST /fire/ fire_fuel_read NAMELIST /fire/ fire_fuel_cat NAMELIST /fire/ fire_print_msg NAMELIST /fire/ fire_print_file NAMELIST /fire/ fire_fuel_left_method NAMELIST /fire/ fire_fuel_left_irl NAMELIST /fire/ fire_fuel_left_jrl NAMELIST /fire/ fire_back_weight NAMELIST /fire/ fire_grows_only NAMELIST /fire/ fire_upwinding NAMELIST /fire/ fire_upwind_split NAMELIST /fire/ fire_viscosity NAMELIST /fire/ fire_lfn_ext_up NAMELIST /fire/ fire_topo_from_atm NAMELIST /fire/ fire_advection NAMELIST /fire/ fire_test_steps NAMELIST /fire/ fire_const_time NAMELIST /fire/ fire_const_grnhfx NAMELIST /fire/ fire_const_grnqfx NAMELIST /fire/ fire_atm_feedback NAMELIST /fire/ fire_mountain_type NAMELIST /fire/ fire_mountain_height NAMELIST /fire/ fire_mountain_start_x NAMELIST /fire/ fire_mountain_start_y NAMELIST /fire/ fire_mountain_end_x NAMELIST /fire/ fire_mountain_end_y NAMELIST /fire/ delt_perturbation NAMELIST /fire/ xrad_perturbation NAMELIST /fire/ yrad_perturbation NAMELIST /fire/ zrad_perturbation NAMELIST /fire/ hght_perturbation NAMELIST /fire/ stretch_grd NAMELIST /fire/ stretch_hyp NAMELIST /fire/ z_grd_scale NAMELIST /fire/ sfc_full_init NAMELIST /fire/ sfc_lu_index NAMELIST /fire/ sfc_tsk NAMELIST /fire/ sfc_tmn NAMELIST /fire/ fire_read_lu NAMELIST /fire/ fire_read_tsk NAMELIST /fire/ fire_read_tmn NAMELIST /fire/ fire_read_atm_ht NAMELIST /fire/ fire_read_fire_ht NAMELIST /fire/ fire_read_atm_grad NAMELIST /fire/ fire_read_fire_grad NAMELIST /fire/ sfc_vegfra NAMELIST /fire/ sfc_canwat NAMELIST /fire/ sfc_ivgtyp NAMELIST /fire/ sfc_isltyp NAMELIST /dynamics/ do_avgflx_em NAMELIST /dynamics/ do_avgflx_cugd NAMELIST /stoch/ nens NAMELIST /stoch/ skebs NAMELIST /stoch/ stoch_force_opt NAMELIST /stoch/ skebs_vertstruc NAMELIST /stoch/ stoch_vertstruc_opt NAMELIST /stoch/ tot_backscat_psi NAMELIST /stoch/ tot_backscat_t NAMELIST /stoch/ ztau_psi NAMELIST /stoch/ ztau_t NAMELIST /stoch/ rexponent_psi NAMELIST /stoch/ rexponent_t NAMELIST /stoch/ zsigma2_eps NAMELIST /stoch/ zsigma2_eta NAMELIST /stoch/ kminforc NAMELIST /stoch/ lminforc NAMELIST /stoch/ kminforct NAMELIST /stoch/ lminforct NAMELIST /stoch/ kmaxforc NAMELIST /stoch/ lmaxforc NAMELIST /stoch/ kmaxforct NAMELIST /stoch/ lmaxforct NAMELIST /stoch/ iseed_skebs NAMELIST /stoch/ sppt NAMELIST /stoch/ gridpt_stddev_sppt NAMELIST /stoch/ stddev_cutoff_sppt NAMELIST /stoch/ lengthscale_sppt NAMELIST /stoch/ timescale_sppt NAMELIST /stoch/ sppt_vertstruc NAMELIST /stoch/ iseed_sppt NAMELIST /stoch/ rand_perturb NAMELIST /stoch/ gridpt_stddev_rand_pert NAMELIST /stoch/ stddev_cutoff_rand_pert NAMELIST /stoch/ lengthscale_rand_pert NAMELIST /stoch/ timescale_rand_pert NAMELIST /stoch/ rand_pert_vertstruc NAMELIST /stoch/ iseed_rand_pert NAMELIST /stoch/ spp NAMELIST /stoch/ hrrr_cycling NAMELIST /stoch/ spp_conv NAMELIST /stoch/ gridpt_stddev_spp_conv NAMELIST /stoch/ stddev_cutoff_spp_conv NAMELIST /stoch/ lengthscale_spp_conv NAMELIST /stoch/ timescale_spp_conv NAMELIST /stoch/ vertstruc_spp_conv NAMELIST /stoch/ iseed_spp_conv NAMELIST /stoch/ spp_pbl NAMELIST /stoch/ gridpt_stddev_spp_pbl NAMELIST /stoch/ stddev_cutoff_spp_pbl NAMELIST /stoch/ lengthscale_spp_pbl NAMELIST /stoch/ timescale_spp_pbl NAMELIST /stoch/ vertstruc_spp_pbl NAMELIST /stoch/ iseed_spp_pbl NAMELIST /stoch/ spp_lsm NAMELIST /stoch/ gridpt_stddev_spp_lsm NAMELIST /stoch/ stddev_cutoff_spp_lsm NAMELIST /stoch/ lengthscale_spp_lsm NAMELIST /stoch/ timescale_spp_lsm NAMELIST /stoch/ vertstruc_spp_lsm NAMELIST /stoch/ iseed_spp_lsm NAMELIST /dynamics/ sfs_opt NAMELIST /dynamics/ m_opt NAMELIST /physics/ lakedepth_default NAMELIST /physics/ lake_min_elev NAMELIST /physics/ use_lakedepth NAMELIST /diags/ p_lev_diags NAMELIST /diags/ p_lev_diags_dfi NAMELIST /diags/ num_press_levels NAMELIST /diags/ press_levels NAMELIST /diags/ use_tot_or_hyd_p NAMELIST /diags/ extrap_below_grnd NAMELIST /diags/ p_lev_missing NAMELIST /diags/ z_lev_diags NAMELIST /diags/ z_lev_diags_dfi NAMELIST /diags/ num_z_levels NAMELIST /diags/ z_levels NAMELIST /diags/ z_lev_missing NAMELIST /afwa/ afwa_diag_opt NAMELIST /afwa/ afwa_ptype_opt NAMELIST /afwa/ afwa_vil_opt NAMELIST /afwa/ afwa_radar_opt NAMELIST /afwa/ afwa_severe_opt NAMELIST /afwa/ afwa_icing_opt NAMELIST /afwa/ afwa_vis_opt NAMELIST /afwa/ afwa_cloud_opt NAMELIST /afwa/ afwa_therm_opt NAMELIST /afwa/ afwa_turb_opt NAMELIST /afwa/ afwa_buoy_opt NAMELIST /afwa/ afwa_ptype_ccn_tmp NAMELIST /afwa/ afwa_ptype_tot_melt NAMELIST /afwa/ afwa_bad_data_check NAMELIST /time_control/ mean_diag NAMELIST /time_control/ mean_freq NAMELIST /time_control/ mean_interval NAMELIST /time_control/ diurnal_diag NAMELIST /physics/ nssl_ipelec NAMELIST /physics/ nssl_isaund NAMELIST /physics/ nssl_iscreen NAMELIST /physics/ nssl_lightrad NAMELIST /physics/ nssl_idischarge NAMELIST /physics/ nssl_ibrkd NAMELIST /physics/ nssl_ecrit NAMELIST /physics/ nssl_disfrac NAMELIST /physics/ elec_physics NAMELIST /stoch/ perturb_bdy NAMELIST /stoch/ perturb_chem_bdy NAMELIST /domains/ num_gca_levels NAMELIST /domains/ gca_input_opt NAMELIST /dynamics/ hybrid_opt NAMELIST /dynamics/ etac NAMELIST /domains/ num_wif_levels NAMELIST /domains/ wif_input_opt OPEN ( UNIT = nml_read_unit , & FILE = "namelist.input" , & FORM = "FORMATTED" , & STATUS = "OLD" , & IOSTAT = io_status ) IF ( io_status .NE. 0 ) THEN CALL wrf_error_fatal3("",9041,& 'ERROR OPENING namelist.input' ) ENDIF OPEN ( UNIT = nml_write_unit , & FILE = "namelist.output" , & FORM = "FORMATTED" , & STATUS = "REPLACE" , & IOSTAT = io_status ) IF ( io_status .NE. 0 ) THEN CALL wrf_error_fatal3("",9052,& 'ERROR OPENING namelist.output' ) ENDIF run_days = 0 run_hours = 0 run_minutes = 0 run_seconds = 0 start_year = 1993 start_month = 03 start_day = 13 start_hour = 12 start_minute = 00 start_second = 00 end_year = 1993 end_month = 03 end_day = 14 end_hour = 12 end_minute = 00 end_second = 00 interval_seconds = 43200 input_from_file = .false. fine_input_stream = 0 input_from_hires = .false. rsmas_data_path = "." all_ic_times = .false. julyr = 0 julday = 1 gmt = 0. input_inname = "wrfinput_d" input_outname = "wrfinput_d" bdy_inname = "wrfbdy_d" bdy_outname = "wrfbdy_d" rst_inname = "wrfrst_d_" rst_outname = "wrfrst_d_" write_input = .false. write_restart_at_0h = .false. write_hist_at_0h_rst = .false. adjust_output_times = .false. adjust_input_times = .false. diag_print = 0 nocolons = .false. cycling = .false. output_diagnostics = 0 nwp_diagnostics = 0 output_ready_flag = .false. usepio = .false. pioprocs = 0 piostart = 1 piostride = 1 pioshift = 1 dfi_opt = 0 dfi_savehydmeteors = 0 dfi_nfilter = 7 dfi_write_filtered_input = .true. dfi_write_dfi_history = .false. dfi_cutoff_seconds = 3600 dfi_time_dim = 1000 dfi_fwdstop_year = 2004 dfi_fwdstop_month = 03 dfi_fwdstop_day = 13 dfi_fwdstop_hour = 12 dfi_fwdstop_minute = 00 dfi_fwdstop_second = 00 dfi_bckstop_year = 2004 dfi_bckstop_month = 03 dfi_bckstop_day = 14 dfi_bckstop_hour = 12 dfi_bckstop_minute = 00 dfi_bckstop_second = 00 time_step = -1 time_step_fract_num = 0 time_step_fract_den = 1 time_step_dfi = -1 min_time_step = -1 min_time_step_den = 0 max_time_step = -1 max_time_step_den = 0 target_cfl = 1.2 target_hcfl = 0.84 max_step_increase_pct = 5 starting_time_step = -1 starting_time_step_den = 0 step_to_output_time = .true. adaptation_domain = 1 use_adaptive_time_step = .false. use_adaptive_time_step_dfi = .false. max_dom = 1 lats_to_mic = 0 s_we = 1 e_we = 32 s_sn = 1 e_sn = 32 s_vert = 1 e_vert = 31 num_metgrid_levels = 27 num_metgrid_soil_levels = 4 p_top_requested = 5000 interp_theta = .false. interp_type = 2 rebalance = 0 vert_refine_method = 0 vert_refine_fact = 1 extrap_type = 2 t_extrap_type = 2 hypsometric_opt = 2 lowest_lev_from_sfc = .false. use_levels_below_ground = .true. use_tavg_for_tsk = .false. use_surface = .true. lagrange_order = 2 force_sfc_in_vinterp = 1 zap_close_levels = 500 maxw_horiz_pres_diff = 5000 trop_horiz_pres_diff = 5000 maxw_above_this_level = 30000 use_maxw_level = 0 use_trop_level = 0 sfcp_to_sfcp = .false. adjust_heights = .false. smooth_cg_topo = .false. nest_interp_coord = 0 interp_method_type = 2 aggregate_lu = .false. rh2qv_wrt_liquid = .true. rh2qv_method = 1 qv_max_p_safe = 10000 qv_max_flag = 1.e-5 qv_max_value = 3.e-6 qv_min_p_safe = 110000 qv_min_flag = 1.e-6 qv_min_value = 1.e-6 ideal_init_method = 1 dx = 200 dy = 200 grid_id = 1 grid_allowed = .true. parent_id = 0 i_parent_start = 1 j_parent_start = 1 parent_grid_ratio = 1 parent_time_step_ratio = 1 feedback = 1 smooth_option = 2 blend_width = 5 ztop = 15000. moad_grid_ratio = 1 moad_time_step_ratio = 1 shw = 2 tile_sz_x = 0 tile_sz_y = 0 numtiles = 1 numtiles_inc = 0 numtiles_x = 0 numtiles_y = 0 tile_strategy = 0 nproc_x = -1 nproc_y = -1 irand = 0 dt = 2. fft_used = 0 cu_used = 0 shcu_used = 0 cam_used = 0 alloc_qndropsource = 0 num_moves = 0 ts_buf_size = 200 max_ts_locs = 5 vortex_interval = 15 max_vortex_speed = 40 corral_dist = 8 track_level = 50000 time_to_move = 0. move_id = 0 move_interval = 999999999 move_cd_x = 0 move_cd_y = 0 swap_x = .false. swap_y = .false. cycle_x = .false. cycle_y = .false. reorder_mesh = .false. perturb_input = .false. eta_levels = -1. max_dz = 1000. ocean_levels = 30 ocean_z = -1 ocean_t = -1 ocean_s = -1 num_traj = 1000 max_ts_level = 15 track_loc_in = 0 num_ext_model_couple_dom = 1 insert_bogus_storm = .false. remove_storm = .false. num_storm = 1 latc_loc = -999. lonc_loc = -999. vmax_meters_per_second = -999. rmax = -999. vmax_ratio = -999. rankine_lid = -999. physics_suite = "none" force_read_thompson = .false. write_thompson_tables = .true. mp_physics = -1 nssl_cccn = 0.5e9 nssl_alphah = 0 nssl_alphahl = 1 nssl_cnoh = 4.e5 nssl_cnohl = 4.e4 nssl_cnor = 8.e5 nssl_cnos = 3.e6 nssl_rho_qh = 500. nssl_rho_qhl = 900. nssl_rho_qs = 100. nudge_lightning = 0 nudge_light_times = 0 nudge_light_timee = 7200 nudge_light_int = 600 path_to_files = "~/WRFV3/" gsfcgce_hail = 0 gsfcgce_2ice = 0 progn = 0 accum_mode = 1000.0e6 aitken_mode = 300.0e6 coarse_mode = 0.2e6 do_radar_ref = 0 compute_radar_ref = 0 ra_lw_physics = -1 ra_sw_physics = -1 radt = 0 naer = 1e9 sf_sfclay_physics = -1 sf_surface_physics = -1 bl_pbl_physics = -1 bl_mynn_tkebudget = 0 ysu_topdown_pblmix = 0 shinhong_tke_diag = 0 bl_mynn_tkeadvect = .false. bl_mynn_cloudpdf = 2 bl_mynn_mixlength = 1 bl_mynn_edmf = 0 bl_mynn_edmf_mom = 1 bl_mynn_edmf_tke = 0 bl_mynn_edmf_part = 0 bl_mynn_cloudmix = 1 bl_mynn_mixqt = 0 icloud_bl = 1 mfshconv = 1 sf_urban_physics = 0 bldt = 0 cu_physics = -1 shcu_physics = 0 cu_diag = 0 kf_edrates = 0 kfeta_trigger = 1 nsas_dx_factor = 0 cudt = 0 gsmdt = 0 isfflx = 1 ifsnow = 1 icloud = 1 ideal_xland = 1 swrad_scat = 1 surface_input_source = 3 num_soil_layers = 5 maxpatch = 10 num_snow_layers = 3 num_snso_layers = 7 num_urban_layers = 400 num_urban_hi = 15 num_months = 12 sf_surface_mosaic = 0 mosaic_cat = 3 mosaic_cat_soil = 12 mosaic_lu = 0 mosaic_soil = 0 maxiens = 1 maxens = 3 maxens2 = 3 maxens3 = 16 ensdim = 144 cugd_avedx = 1 clos_choice = 0 imomentum = 0 ishallow = 0 convtrans_avglen_m = 30 num_land_cat = 21 num_soil_cat = 16 mp_zero_out = 0 mp_zero_out_thresh = 1.e-8 seaice_threshold = 100 sst_update = 0 sst_skin = 0 tmn_update = 0 usemonalb = .false. rdmaxalb = .true. rdlai2d = .false. ua_phys = .false. opt_thcnd = 1 co2tf = 1 ra_call_offset = 0 cam_abs_freq_s = 21600. levsiz = 1 paerlev = 1 cam_abs_dim1 = 1 cam_abs_dim2 = 1 lagday = 150 no_src_types = 1 alevsiz = 1 o3input = 2 aer_opt = 0 swint_opt = 0 aer_type = 1 aer_aod550_opt = 1 aer_angexp_opt = 1 aer_ssa_opt = 1 aer_asy_opt = 1 aer_aod550_val = 0.12 aer_angexp_val = 1.3 aer_ssa_val = 0.85 aer_asy_val = 0.90 cu_rad_feedback = .false. shallowcu_forced_ra = .false. numbins = 1 thbinsize = 1 rbinsize = 1 mindeepfreq = 1 minshallowfreq = 1 shcu_aerosols_opt = 0 icloud_cu = 0 pxlsm_smois_init = 1 omlcall = 0 sf_ocean_physics = 0 traj_opt = 0 dm_has_traj = .false. tracercall = 0 omdt = 1 oml_hml0 = 50 oml_gamma = 0.14 oml_relaxation_time = 0. isftcflx = 0 iz0tlnd = 0 shadlen = 25000. slope_rad = 0 topo_shading = 0 topo_wind = 0 no_mp_heating = 0 fractional_seaice = 0 seaice_snowdepth_opt = 0 seaice_snowdepth_max = 1.e10 seaice_snowdepth_min = 0.001 seaice_albedo_opt = 0 seaice_albedo_default = 0.65 seaice_thickness_opt = 0 seaice_thickness_default = 3.0 tice2tsk_if2cold = .false. bucket_mm = -1. bucket_j = -1. mp_tend_lim = 10. prec_acc_dt = 0. prec_acc_opt = 0 bucketr_opt = 0 bucketf_opt = 0 process_time_series = 0 grav_settling = 0 sas_pgcon = 0.55 scalar_pblmix = 0 tracer_pblmix = 1 use_aero_icbc = .false. use_rap_aero_icbc = .false. use_mp_re = 1 ccn_conc = 1.0e8 hail_opt = 0 dveg = 4 opt_crs = 1 opt_btr = 1 opt_run = 3 opt_sfc = 1 opt_frz = 1 opt_inf = 1 opt_rad = 3 opt_alb = 2 opt_snf = 1 opt_tbot = 2 opt_stc = 1 opt_gla = 1 opt_rsf = 1 wtddt = 30. wrf_hydro = 0 fgdt = 0 fgdtzero = 0 grid_fdda = 0 grid_sfdda = 0 if_no_pbl_nudging_uv = 0 if_no_pbl_nudging_t = 0 if_no_pbl_nudging_ph = 0 if_no_pbl_nudging_q = 0 if_zfac_uv = 0 k_zfac_uv = 0 if_zfac_t = 0 k_zfac_t = 0 if_zfac_ph = 0 k_zfac_ph = 0 if_zfac_q = 0 k_zfac_q = 0 dk_zfac_uv = 1 dk_zfac_t = 1 dk_zfac_ph = 1 guv = 0 guv_sfc = 0 gt = 0 gt_sfc = 0 gq = 0 gq_sfc = 0 gph = 0 dtramp_min = 0 if_ramping = 0 rinblw = 0 xwavenum = 0 ywavenum = 0 pxlsm_soil_nudge = 0 fasdas = 0 obs_nudge_opt = 0 max_obs = 0 fdda_start = 0 fdda_end = 0 obs_nudge_wind = 0 obs_coef_wind = 0 obs_nudge_temp = 0 obs_coef_temp = 0 obs_nudge_mois = 0 obs_coef_mois = 0 obs_nudge_pstr = 0 obs_coef_pstr = 0 obs_no_pbl_nudge_uv = 0 obs_no_pbl_nudge_t = 0 obs_no_pbl_nudge_q = 0 obs_sfc_scheme_horiz = 0 obs_sfc_scheme_vert = 0 obs_max_sndng_gap = 20 obs_nudgezfullr1_uv = 50 obs_nudgezrampr1_uv = 50 obs_nudgezfullr2_uv = 50 obs_nudgezrampr2_uv = 50 obs_nudgezfullr4_uv = -5000 obs_nudgezrampr4_uv = 50 obs_nudgezfullr1_t = 50 obs_nudgezrampr1_t = 50 obs_nudgezfullr2_t = 50 obs_nudgezrampr2_t = 50 obs_nudgezfullr4_t = -5000 obs_nudgezrampr4_t = 50 obs_nudgezfullr1_q = 50 obs_nudgezrampr1_q = 50 obs_nudgezfullr2_q = 50 obs_nudgezrampr2_q = 50 obs_nudgezfullr4_q = -5000 obs_nudgezrampr4_q = 50 obs_nudgezfullmin = 50 obs_nudgezrampmin = 50 obs_nudgezmax = 3000 obs_sfcfact = 1.0 obs_sfcfacr = 1.0 obs_dpsmx = 7.5 obs_rinxy = 0 obs_rinsig = 0 obs_twindo = 0 obs_npfi = 0 obs_ionf = 1 obs_idynin = 0 obs_dtramp = 0 obs_prt_max = 1000 obs_prt_freq = 1000 obs_ipf_in4dob = .false. obs_ipf_errob = .false. obs_ipf_nudob = .false. obs_ipf_init = .true. obs_scl_neg_qv_innov = 0 scm_force = 0 scm_force_dx = 4000. num_force_layers = 8 scm_lu_index = 2 scm_isltyp = 4 scm_vegfra = 0.5 scm_canwat = 0.0 scm_lat = 36.605 scm_lon = -97.485 scm_th_t_tend = .true. scm_qv_t_tend = .true. scm_th_adv = .true. scm_wind_adv = .true. scm_qv_adv = .true. scm_ql_adv = .false. scm_vert_adv = .true. num_force_soil_layers = 5 scm_soilt_force = .false. scm_soilq_force = .false. scm_force_th_largescale = .false. scm_force_qv_largescale = .false. scm_force_ql_largescale = .false. scm_force_wind_largescale = .false. scm_force_skintemp = 0 scm_force_flux = 0 dyn_opt = 2 rk_ord = 3 w_damping = 0 diff_opt = -1 diff_opt_dfi = 0 km_opt = -1 km_opt_dfi = 1 damp_opt = 0 rad_nudge = 0 gwd_opt = 0 zdamp = 5000. dampcoef = 0. khdif = 0 kvdif = 0 diff_6th_factor = 0.12 diff_6th_opt = 0 use_theta_m = 0 use_q_diabatic = 0 c_s = 0.25 c_k = 0.15 smdiv = 0.1 emdiv = 0.01 epssm = .1 non_hydrostatic = .true. use_input_w = .false. time_step_sound = 0 h_mom_adv_order = 5 v_mom_adv_order = 3 h_sca_adv_order = 5 v_sca_adv_order = 3 momentum_adv_opt = 1 moist_adv_opt = 1 moist_adv_dfi_opt = 0 chem_adv_opt = 1 tracer_adv_opt = 1 scalar_adv_opt = 1 tke_adv_opt = 1 top_radiation = .false. mix_isotropic = 0 mix_upper_bound = 0.1 top_lid = .false. tke_upper_bound = 1000. tke_drag_coefficient = 0. tke_heat_flux = 0. pert_coriolis = .false. coriolis2d = .false. mix_full_fields = .false. base_pres = 100000. base_temp = 290. base_lapse = 50. iso_temp = 200.00 base_pres_strat = 0. base_lapse_strat = -11. use_baseparam_fr_nml = .false. fft_filter_lat = 91. coupled_filtering = .true. pos_def = .false. swap_pole_with_next_j = .false. actual_distance_average = .false. rotated_pole = .false. do_coriolis = .true. do_curvature = .true. do_gradp = .true. tracer_opt = 0 tenddiag = 0 spec_bdy_width = 5 spec_zone = 1 relax_zone = 4 specified = .false. constant_bc = .false. periodic_x = .false. symmetric_xs = .false. symmetric_xe = .false. open_xs = .false. open_xe = .false. periodic_y = .false. symmetric_ys = .false. symmetric_ye = .false. open_ys = .false. open_ye = .false. polar = .false. nested = .false. spec_exp = 0. spec_bdy_final_mu = 1 real_data_init_type = 1 have_bcs_moist = .false. have_bcs_scalar = .false. background_proc_id = 255 forecast_proc_id = 255 production_status = 255 compression = 40 nobs_ndg_vars = 6 nobs_err_flds = 10 cen_lat = 0 cen_lon = 0 truelat1 = 0 truelat2 = 0 moad_cen_lat = 0 stand_lon = 0 pole_lat = 0 pole_lon = 0 flag_metgrid = 0 flag_snow = 0 flag_psfc = 0 flag_sm000010 = 0 flag_sm010040 = 0 flag_sm040100 = 0 flag_sm100200 = 0 flag_st000010 = 0 flag_st010040 = 0 flag_st040100 = 0 flag_st100200 = 0 flag_soil_layers = 0 flag_slp = 0 flag_soilhgt = 0 flag_mf_xy = 0 flag_um_soil = 0 bdyfrq = 0 mminlu = " " iswater = 0 islake = 0 isice = 0 isurban = 0 isoilwater = 0 map_proj = 0 use_wps_input = 0 dfi_stage = 3 mp_physics_dfi = -1 bl_pbl_physics_dfi = -1 windfarm_opt = 0 windfarm_ij = 0 hailcast_opt = 0 lightning_option = 0 lightning_dt = 0. lightning_start_seconds = 0. flashrate_factor = 1.0 iccg_method = 0 iccg_prescribed_num = 0.0 iccg_prescribed_den = 1.0 cellcount_method = 0 cldtop_adjustment = 0. sf_lake_physics = 0 auxinput1_inname = "met_em.d." io_form_auxinput1 = 2 override_restart_timers = .false. auxhist1_inname = "auxhist1_d_" auxhist1_outname = "auxhist1_d_" auxhist1_interval_y = 0 auxhist1_interval_d = 0 auxhist1_interval_h = 0 auxhist1_interval_m = 0 auxhist1_interval_s = 0 auxhist1_interval = 0 auxhist1_begin_y = 0 auxhist1_begin_d = 0 auxhist1_begin_h = 0 auxhist1_begin_m = 0 auxhist1_begin_s = 0 auxhist1_begin = 0 auxhist1_end_y = 0 auxhist1_end_d = 0 auxhist1_end_h = 0 auxhist1_end_m = 0 auxhist1_end_s = 0 auxhist1_end = 0 io_form_auxhist1 = 0 frames_per_auxhist1 = 999999 auxhist2_inname = "auxhist2_d_" auxhist2_outname = "auxhist2_d_" auxhist2_interval_y = 0 auxhist2_interval_d = 0 auxhist2_interval_h = 0 auxhist2_interval_m = 0 auxhist2_interval_s = 0 auxhist2_interval = 0 auxhist2_begin_y = 0 auxhist2_begin_d = 0 auxhist2_begin_h = 0 auxhist2_begin_m = 0 auxhist2_begin_s = 0 auxhist2_begin = 0 auxhist2_end_y = 0 auxhist2_end_d = 0 auxhist2_end_h = 0 auxhist2_end_m = 0 auxhist2_end_s = 0 auxhist2_end = 0 io_form_auxhist2 = 0 frames_per_auxhist2 = 999999 auxhist3_inname = "auxhist3_d_" auxhist3_outname = "auxhist3_d_" auxhist3_interval_y = 0 auxhist3_interval_d = 0 auxhist3_interval_h = 0 auxhist3_interval_m = 0 auxhist3_interval_s = 0 auxhist3_interval = 0 auxhist3_begin_y = 0 auxhist3_begin_d = 0 auxhist3_begin_h = 0 auxhist3_begin_m = 0 auxhist3_begin_s = 0 auxhist3_begin = 0 auxhist3_end_y = 0 auxhist3_end_d = 0 auxhist3_end_h = 0 auxhist3_end_m = 0 auxhist3_end_s = 0 auxhist3_end = 0 io_form_auxhist3 = 0 frames_per_auxhist3 = 999999 auxhist4_inname = "auxhist4_d_" auxhist4_outname = "auxhist4_d_" auxhist4_interval_y = 0 auxhist4_interval_d = 0 auxhist4_interval_h = 0 auxhist4_interval_m = 0 auxhist4_interval_s = 0 auxhist4_interval = 0 auxhist4_begin_y = 0 auxhist4_begin_d = 0 auxhist4_begin_h = 0 auxhist4_begin_m = 0 auxhist4_begin_s = 0 auxhist4_begin = 0 auxhist4_end_y = 0 auxhist4_end_d = 0 auxhist4_end_h = 0 auxhist4_end_m = 0 auxhist4_end_s = 0 auxhist4_end = 0 io_form_auxhist4 = 0 frames_per_auxhist4 = 999999 auxhist5_inname = "auxhist5_d_" auxhist5_outname = "auxhist5_d_" auxhist5_interval_y = 0 auxhist5_interval_d = 0 auxhist5_interval_h = 0 auxhist5_interval_m = 0 auxhist5_interval_s = 0 auxhist5_interval = 0 auxhist5_begin_y = 0 auxhist5_begin_d = 0 auxhist5_begin_h = 0 auxhist5_begin_m = 0 auxhist5_begin_s = 0 auxhist5_begin = 0 auxhist5_end_y = 0 auxhist5_end_d = 0 auxhist5_end_h = 0 auxhist5_end_m = 0 auxhist5_end_s = 0 auxhist5_end = 0 io_form_auxhist5 = 0 frames_per_auxhist5 = 999999 auxhist6_inname = "auxhist6_d_" auxhist6_outname = "auxhist6_d_" auxhist6_interval_y = 0 auxhist6_interval_d = 0 auxhist6_interval_h = 0 auxhist6_interval_m = 0 auxhist6_interval_s = 0 auxhist6_interval = 0 auxhist6_begin_y = 0 auxhist6_begin_d = 0 auxhist6_begin_h = 0 auxhist6_begin_m = 0 auxhist6_begin_s = 0 auxhist6_begin = 0 auxhist6_end_y = 0 auxhist6_end_d = 0 auxhist6_end_h = 0 auxhist6_end_m = 0 auxhist6_end_s = 0 auxhist6_end = 0 io_form_auxhist6 = 0 frames_per_auxhist6 = 999999 auxhist7_inname = "auxhist7_d_" auxhist7_outname = "auxhist7_d_" auxhist7_interval_y = 0 auxhist7_interval_d = 0 auxhist7_interval_h = 0 auxhist7_interval_m = 0 auxhist7_interval_s = 0 auxhist7_interval = 0 auxhist7_begin_y = 0 auxhist7_begin_d = 0 auxhist7_begin_h = 0 auxhist7_begin_m = 0 auxhist7_begin_s = 0 auxhist7_begin = 0 auxhist7_end_y = 0 auxhist7_end_d = 0 auxhist7_end_h = 0 auxhist7_end_m = 0 auxhist7_end_s = 0 auxhist7_end = 0 io_form_auxhist7 = 0 frames_per_auxhist7 = 999999 auxhist8_inname = "auxhist8_d_" auxhist8_outname = "auxhist8_d_" auxhist8_interval_y = 0 auxhist8_interval_d = 0 auxhist8_interval_h = 0 auxhist8_interval_m = 0 auxhist8_interval_s = 0 auxhist8_interval = 0 auxhist8_begin_y = 0 auxhist8_begin_d = 0 auxhist8_begin_h = 0 auxhist8_begin_m = 0 auxhist8_begin_s = 0 auxhist8_begin = 0 auxhist8_end_y = 0 auxhist8_end_d = 0 auxhist8_end_h = 0 auxhist8_end_m = 0 auxhist8_end_s = 0 auxhist8_end = 0 io_form_auxhist8 = 0 frames_per_auxhist8 = 999999 auxhist9_inname = "auxhist9_d_" auxhist9_outname = "auxhist9_d_" auxhist9_interval_y = 0 auxhist9_interval_d = 0 auxhist9_interval_h = 0 auxhist9_interval_m = 0 auxhist9_interval_s = 0 auxhist9_interval = 0 auxhist9_begin_y = 0 auxhist9_begin_d = 0 auxhist9_begin_h = 0 auxhist9_begin_m = 0 auxhist9_begin_s = 0 auxhist9_begin = 0 auxhist9_end_y = 0 auxhist9_end_d = 0 auxhist9_end_h = 0 auxhist9_end_m = 0 auxhist9_end_s = 0 auxhist9_end = 0 io_form_auxhist9 = 0 frames_per_auxhist9 = 999999 auxhist10_inname = "auxhist10_d_" auxhist10_outname = "auxhist10_d_" auxhist10_interval_y = 0 auxhist10_interval_d = 0 auxhist10_interval_h = 0 auxhist10_interval_m = 0 auxhist10_interval_s = 0 auxhist10_interval = 0 auxhist10_begin_y = 0 auxhist10_begin_d = 0 auxhist10_begin_h = 0 auxhist10_begin_m = 0 auxhist10_begin_s = 0 auxhist10_begin = 0 auxhist10_end_y = 0 auxhist10_end_d = 0 auxhist10_end_h = 0 auxhist10_end_m = 0 auxhist10_end_s = 0 auxhist10_end = 0 io_form_auxhist10 = 0 frames_per_auxhist10 = 999999 auxhist11_inname = "auxhist11_d_" auxhist11_outname = "auxhist11_d_" auxhist11_interval_y = 0 auxhist11_interval_d = 0 auxhist11_interval_h = 0 auxhist11_interval_m = 0 auxhist11_interval_s = 0 auxhist11_interval = 0 auxhist11_begin_y = 0 auxhist11_begin_d = 0 auxhist11_begin_h = 0 auxhist11_begin_m = 0 auxhist11_begin_s = 0 auxhist11_begin = 0 auxhist11_end_y = 0 auxhist11_end_d = 0 auxhist11_end_h = 0 auxhist11_end_m = 0 auxhist11_end_s = 0 auxhist11_end = 0 io_form_auxhist11 = 0 frames_per_auxhist11 = 999999 auxhist12_inname = "auxhist12_d_" auxhist12_outname = "auxhist12_d_" auxhist12_interval_y = 0 auxhist12_interval_d = 0 auxhist12_interval_h = 0 auxhist12_interval_m = 0 auxhist12_interval_s = 0 auxhist12_interval = 0 auxhist12_begin_y = 0 auxhist12_begin_d = 0 auxhist12_begin_h = 0 auxhist12_begin_m = 0 auxhist12_begin_s = 0 auxhist12_begin = 0 auxhist12_end_y = 0 auxhist12_end_d = 0 auxhist12_end_h = 0 auxhist12_end_m = 0 auxhist12_end_s = 0 auxhist12_end = 0 io_form_auxhist12 = 0 frames_per_auxhist12 = 999999 auxhist13_inname = "auxhist13_d_" auxhist13_outname = "auxhist13_d_" auxhist13_interval_y = 0 auxhist13_interval_d = 0 auxhist13_interval_h = 0 auxhist13_interval_m = 0 auxhist13_interval_s = 0 auxhist13_interval = 0 auxhist13_begin_y = 0 auxhist13_begin_d = 0 auxhist13_begin_h = 0 auxhist13_begin_m = 0 auxhist13_begin_s = 0 auxhist13_begin = 0 auxhist13_end_y = 0 auxhist13_end_d = 0 auxhist13_end_h = 0 auxhist13_end_m = 0 auxhist13_end_s = 0 auxhist13_end = 0 io_form_auxhist13 = 0 frames_per_auxhist13 = 999999 auxhist14_inname = "auxhist14_d_" auxhist14_outname = "auxhist14_d_" auxhist14_interval_y = 0 auxhist14_interval_d = 0 auxhist14_interval_h = 0 auxhist14_interval_m = 0 auxhist14_interval_s = 0 auxhist14_interval = 0 auxhist14_begin_y = 0 auxhist14_begin_d = 0 auxhist14_begin_h = 0 auxhist14_begin_m = 0 auxhist14_begin_s = 0 auxhist14_begin = 0 auxhist14_end_y = 0 auxhist14_end_d = 0 auxhist14_end_h = 0 auxhist14_end_m = 0 auxhist14_end_s = 0 auxhist14_end = 0 io_form_auxhist14 = 0 frames_per_auxhist14 = 999999 auxhist15_inname = "auxhist15_d_" auxhist15_outname = "auxhist15_d_" auxhist15_interval_y = 0 auxhist15_interval_d = 0 auxhist15_interval_h = 0 auxhist15_interval_m = 0 auxhist15_interval_s = 0 auxhist15_interval = 0 auxhist15_begin_y = 0 auxhist15_begin_d = 0 auxhist15_begin_h = 0 auxhist15_begin_m = 0 auxhist15_begin_s = 0 auxhist15_begin = 0 auxhist15_end_y = 0 auxhist15_end_d = 0 auxhist15_end_h = 0 auxhist15_end_m = 0 auxhist15_end_s = 0 auxhist15_end = 0 io_form_auxhist15 = 0 frames_per_auxhist15 = 999999 auxhist16_inname = "auxhist16_d_" auxhist16_outname = "auxhist16_d_" auxhist16_interval_y = 0 auxhist16_interval_d = 0 auxhist16_interval_h = 0 auxhist16_interval_m = 0 auxhist16_interval_s = 0 auxhist16_interval = 0 auxhist16_begin_y = 0 auxhist16_begin_d = 0 auxhist16_begin_h = 0 auxhist16_begin_m = 0 auxhist16_begin_s = 0 auxhist16_begin = 0 auxhist16_end_y = 0 auxhist16_end_d = 0 auxhist16_end_h = 0 auxhist16_end_m = 0 auxhist16_end_s = 0 auxhist16_end = 0 io_form_auxhist16 = 0 frames_per_auxhist16 = 999999 auxhist17_inname = "auxhist17_d_" auxhist17_outname = "auxhist17_d_" auxhist17_interval_y = 0 auxhist17_interval_d = 0 auxhist17_interval_h = 0 auxhist17_interval_m = 0 auxhist17_interval_s = 0 auxhist17_interval = 0 auxhist17_begin_y = 0 auxhist17_begin_d = 0 auxhist17_begin_h = 0 auxhist17_begin_m = 0 auxhist17_begin_s = 0 auxhist17_begin = 0 auxhist17_end_y = 0 auxhist17_end_d = 0 auxhist17_end_h = 0 auxhist17_end_m = 0 auxhist17_end_s = 0 auxhist17_end = 0 io_form_auxhist17 = 0 frames_per_auxhist17 = 999999 auxhist18_inname = "auxhist18_d_" auxhist18_outname = "auxhist18_d_" auxhist18_interval_y = 0 auxhist18_interval_d = 0 auxhist18_interval_h = 0 auxhist18_interval_m = 0 auxhist18_interval_s = 0 auxhist18_interval = 0 auxhist18_begin_y = 0 auxhist18_begin_d = 0 auxhist18_begin_h = 0 auxhist18_begin_m = 0 auxhist18_begin_s = 0 auxhist18_begin = 0 auxhist18_end_y = 0 auxhist18_end_d = 0 auxhist18_end_h = 0 auxhist18_end_m = 0 auxhist18_end_s = 0 auxhist18_end = 0 io_form_auxhist18 = 0 frames_per_auxhist18 = 999999 auxhist19_inname = "auxhist19_d_" auxhist19_outname = "auxhist19_d_" auxhist19_interval_y = 0 auxhist19_interval_d = 0 auxhist19_interval_h = 0 auxhist19_interval_m = 0 auxhist19_interval_s = 0 auxhist19_interval = 0 auxhist19_begin_y = 0 auxhist19_begin_d = 0 auxhist19_begin_h = 0 auxhist19_begin_m = 0 auxhist19_begin_s = 0 auxhist19_begin = 0 auxhist19_end_y = 0 auxhist19_end_d = 0 auxhist19_end_h = 0 auxhist19_end_m = 0 auxhist19_end_s = 0 auxhist19_end = 0 io_form_auxhist19 = 0 frames_per_auxhist19 = 999999 auxhist20_inname = "auxhist20_d_" auxhist20_outname = "auxhist20_d_" auxhist20_interval_y = 0 auxhist20_interval_d = 0 auxhist20_interval_h = 0 auxhist20_interval_m = 0 auxhist20_interval_s = 0 auxhist20_interval = 0 auxhist20_begin_y = 0 auxhist20_begin_d = 0 auxhist20_begin_h = 0 auxhist20_begin_m = 0 auxhist20_begin_s = 0 auxhist20_begin = 0 auxhist20_end_y = 0 auxhist20_end_d = 0 auxhist20_end_h = 0 auxhist20_end_m = 0 auxhist20_end_s = 0 auxhist20_end = 0 io_form_auxhist20 = 0 frames_per_auxhist20 = 999999 auxhist21_inname = "auxhist21_d_" auxhist21_outname = "auxhist21_d_" auxhist21_interval_y = 0 auxhist21_interval_d = 0 auxhist21_interval_h = 0 auxhist21_interval_m = 0 auxhist21_interval_s = 0 auxhist21_interval = 0 auxhist21_begin_y = 0 auxhist21_begin_d = 0 auxhist21_begin_h = 0 auxhist21_begin_m = 0 auxhist21_begin_s = 0 auxhist21_begin = 0 auxhist21_end_y = 0 auxhist21_end_d = 0 auxhist21_end_h = 0 auxhist21_end_m = 0 auxhist21_end_s = 0 auxhist21_end = 0 io_form_auxhist21 = 0 frames_per_auxhist21 = 999999 auxhist22_inname = "auxhist22_d_" auxhist22_outname = "auxhist22_d_" auxhist22_interval_y = 0 auxhist22_interval_d = 0 auxhist22_interval_h = 0 auxhist22_interval_m = 0 auxhist22_interval_s = 0 auxhist22_interval = 0 auxhist22_begin_y = 0 auxhist22_begin_d = 0 auxhist22_begin_h = 0 auxhist22_begin_m = 0 auxhist22_begin_s = 0 auxhist22_begin = 0 auxhist22_end_y = 0 auxhist22_end_d = 0 auxhist22_end_h = 0 auxhist22_end_m = 0 auxhist22_end_s = 0 auxhist22_end = 0 io_form_auxhist22 = 0 frames_per_auxhist22 = 999999 auxhist23_inname = "auxhist23_d_" auxhist23_outname = "auxhist23_d_" auxhist23_interval_y = 0 auxhist23_interval_d = 0 auxhist23_interval_h = 0 auxhist23_interval_m = 0 auxhist23_interval_s = 0 auxhist23_interval = 0 auxhist23_begin_y = 0 auxhist23_begin_d = 0 auxhist23_begin_h = 0 auxhist23_begin_m = 0 auxhist23_begin_s = 0 auxhist23_begin = 0 auxhist23_end_y = 0 auxhist23_end_d = 0 auxhist23_end_h = 0 auxhist23_end_m = 0 auxhist23_end_s = 0 auxhist23_end = 0 io_form_auxhist23 = 0 frames_per_auxhist23 = 999999 auxhist24_inname = "auxhist24_d_" auxhist24_outname = "auxhist24_d_" auxhist24_interval_y = 0 auxhist24_interval_d = 0 auxhist24_interval_h = 0 auxhist24_interval_m = 0 auxhist24_interval_s = 0 auxhist24_interval = 0 auxhist24_begin_y = 0 auxhist24_begin_d = 0 auxhist24_begin_h = 0 auxhist24_begin_m = 0 auxhist24_begin_s = 0 auxhist24_begin = 0 auxhist24_end_y = 0 auxhist24_end_d = 0 auxhist24_end_h = 0 auxhist24_end_m = 0 auxhist24_end_s = 0 auxhist24_end = 0 io_form_auxhist24 = 0 frames_per_auxhist24 = 999999 auxinput1_outname = "auxinput1_d_" auxinput1_interval_y = 0 auxinput1_interval_d = 0 auxinput1_interval_h = 0 auxinput1_interval_m = 0 auxinput1_interval_s = 0 auxinput1_interval = 0 auxinput1_begin_y = 0 auxinput1_begin_d = 0 auxinput1_begin_h = 0 auxinput1_begin_m = 0 auxinput1_begin_s = 0 auxinput1_begin = 0 auxinput1_end_y = 0 auxinput1_end_d = 0 auxinput1_end_h = 0 auxinput1_end_m = 0 auxinput1_end_s = 0 auxinput1_end = 0 frames_per_auxinput1 = 999999 auxinput2_inname = "auxinput2_d_" auxinput2_outname = "auxinput2_d_" auxinput2_interval_y = 0 auxinput2_interval_d = 0 auxinput2_interval_h = 0 auxinput2_interval_m = 0 auxinput2_interval_s = 0 auxinput2_interval = 0 auxinput2_begin_y = 0 auxinput2_begin_d = 0 auxinput2_begin_h = 0 auxinput2_begin_m = 0 auxinput2_begin_s = 0 auxinput2_begin = 0 auxinput2_end_y = 0 auxinput2_end_d = 0 auxinput2_end_h = 0 auxinput2_end_m = 0 auxinput2_end_s = 0 auxinput2_end = 0 io_form_auxinput2 = 0 frames_per_auxinput2 = 999999 auxinput3_inname = "auxinput3_d_" auxinput3_outname = "auxinput3_d_" auxinput3_interval_y = 0 auxinput3_interval_d = 0 auxinput3_interval_h = 0 auxinput3_interval_m = 0 auxinput3_interval_s = 0 auxinput3_interval = 0 auxinput3_begin_y = 0 auxinput3_begin_d = 0 auxinput3_begin_h = 0 auxinput3_begin_m = 0 auxinput3_begin_s = 0 auxinput3_begin = 0 auxinput3_end_y = 0 auxinput3_end_d = 0 auxinput3_end_h = 0 auxinput3_end_m = 0 auxinput3_end_s = 0 auxinput3_end = 0 io_form_auxinput3 = 0 frames_per_auxinput3 = 999999 auxinput4_inname = "auxinput4_d_" auxinput4_outname = "auxinput4_d_" auxinput4_interval_y = 0 auxinput4_interval_d = 0 auxinput4_interval_h = 0 auxinput4_interval_m = 0 auxinput4_interval_s = 0 auxinput4_interval = 0 auxinput4_begin_y = 0 auxinput4_begin_d = 0 auxinput4_begin_h = 0 auxinput4_begin_m = 0 auxinput4_begin_s = 0 auxinput4_begin = 0 auxinput4_end_y = 0 auxinput4_end_d = 0 auxinput4_end_h = 0 auxinput4_end_m = 0 auxinput4_end_s = 0 auxinput4_end = 0 io_form_auxinput4 = 0 frames_per_auxinput4 = 999999 auxinput5_inname = "auxinput5_d_" auxinput5_outname = "auxinput5_d_" auxinput5_interval_y = 0 auxinput5_interval_d = 0 auxinput5_interval_h = 0 auxinput5_interval_m = 0 auxinput5_interval_s = 0 auxinput5_interval = 0 auxinput5_begin_y = 0 auxinput5_begin_d = 0 auxinput5_begin_h = 0 auxinput5_begin_m = 0 auxinput5_begin_s = 0 auxinput5_begin = 0 auxinput5_end_y = 0 auxinput5_end_d = 0 auxinput5_end_h = 0 auxinput5_end_m = 0 auxinput5_end_s = 0 auxinput5_end = 0 io_form_auxinput5 = 0 frames_per_auxinput5 = 999999 auxinput6_inname = "auxinput6_d_" auxinput6_outname = "auxinput6_d_" auxinput6_interval_y = 0 auxinput6_interval_d = 0 auxinput6_interval_h = 0 auxinput6_interval_m = 0 auxinput6_interval_s = 0 auxinput6_interval = 0 auxinput6_begin_y = 0 auxinput6_begin_d = 0 auxinput6_begin_h = 0 auxinput6_begin_m = 0 auxinput6_begin_s = 0 auxinput6_begin = 0 auxinput6_end_y = 0 auxinput6_end_d = 0 auxinput6_end_h = 0 auxinput6_end_m = 0 auxinput6_end_s = 0 auxinput6_end = 0 io_form_auxinput6 = 0 frames_per_auxinput6 = 999999 auxinput7_inname = "auxinput7_d_" auxinput7_outname = "auxinput7_d_" auxinput7_interval_y = 0 auxinput7_interval_d = 0 auxinput7_interval_h = 0 auxinput7_interval_m = 0 auxinput7_interval_s = 0 auxinput7_interval = 0 auxinput7_begin_y = 0 auxinput7_begin_d = 0 auxinput7_begin_h = 0 auxinput7_begin_m = 0 auxinput7_begin_s = 0 auxinput7_begin = 0 auxinput7_end_y = 0 auxinput7_end_d = 0 auxinput7_end_h = 0 auxinput7_end_m = 0 auxinput7_end_s = 0 auxinput7_end = 0 io_form_auxinput7 = 0 frames_per_auxinput7 = 999999 auxinput8_inname = "auxinput8_d_" auxinput8_outname = "auxinput8_d_" auxinput8_interval_y = 0 auxinput8_interval_d = 0 auxinput8_interval_h = 0 auxinput8_interval_m = 0 auxinput8_interval_s = 0 auxinput8_interval = 0 auxinput8_begin_y = 0 auxinput8_begin_d = 0 auxinput8_begin_h = 0 auxinput8_begin_m = 0 auxinput8_begin_s = 0 auxinput8_begin = 0 auxinput8_end_y = 0 auxinput8_end_d = 0 auxinput8_end_h = 0 auxinput8_end_m = 0 auxinput8_end_s = 0 auxinput8_end = 0 io_form_auxinput8 = 0 frames_per_auxinput8 = 999999 auxinput9_inname = "auxinput9_d_" auxinput9_outname = "auxinput9_d_" auxinput9_interval_y = 0 auxinput9_interval_d = 0 auxinput9_interval_h = 0 auxinput9_interval_m = 0 auxinput9_interval_s = 0 auxinput9_interval = 0 auxinput9_begin_y = 0 auxinput9_begin_d = 0 auxinput9_begin_h = 0 auxinput9_begin_m = 0 auxinput9_begin_s = 0 auxinput9_begin = 0 auxinput9_end_y = 0 auxinput9_end_d = 0 auxinput9_end_h = 0 auxinput9_end_m = 0 auxinput9_end_s = 0 auxinput9_end = 0 io_form_auxinput9 = 0 frames_per_auxinput9 = 999999 auxinput10_inname = "auxinput10_d_" auxinput10_outname = "auxinput10_d_" auxinput10_interval_y = 0 auxinput10_interval_d = 0 auxinput10_interval_h = 0 auxinput10_interval_m = 0 auxinput10_interval_s = 0 auxinput10_interval = 0 auxinput10_begin_y = 0 auxinput10_begin_d = 0 auxinput10_begin_h = 0 auxinput10_begin_m = 0 auxinput10_begin_s = 0 auxinput10_begin = 0 auxinput10_end_y = 0 auxinput10_end_d = 0 auxinput10_end_h = 0 auxinput10_end_m = 0 auxinput10_end_s = 0 auxinput10_end = 0 io_form_auxinput10 = 0 frames_per_auxinput10 = 999999 auxinput11_inname = "auxinput11_d_" auxinput11_outname = "auxinput11_d_" auxinput11_interval_y = 0 auxinput11_interval_d = 0 auxinput11_interval_h = 0 auxinput11_interval_m = 0 auxinput11_interval_s = 0 auxinput11_interval = 0 auxinput11_begin_y = 0 auxinput11_begin_d = 0 auxinput11_begin_h = 0 auxinput11_begin_m = 0 auxinput11_begin_s = 0 auxinput11_begin = 0 auxinput11_end_y = 0 auxinput11_end_d = 0 auxinput11_end_h = 0 auxinput11_end_m = 0 auxinput11_end_s = 0 auxinput11_end = 0 io_form_auxinput11 = 0 frames_per_auxinput11 = 999999 auxinput12_inname = "auxinput12_d_" auxinput12_outname = "auxinput12_d_" auxinput12_interval_y = 0 auxinput12_interval_d = 0 auxinput12_interval_h = 0 auxinput12_interval_m = 0 auxinput12_interval_s = 0 auxinput12_interval = 0 auxinput12_begin_y = 0 auxinput12_begin_d = 0 auxinput12_begin_h = 0 auxinput12_begin_m = 0 auxinput12_begin_s = 0 auxinput12_begin = 0 auxinput12_end_y = 0 auxinput12_end_d = 0 auxinput12_end_h = 0 auxinput12_end_m = 0 auxinput12_end_s = 0 auxinput12_end = 0 io_form_auxinput12 = 0 frames_per_auxinput12 = 999999 auxinput13_inname = "auxinput13_d_" auxinput13_outname = "auxinput13_d_" auxinput13_interval_y = 0 auxinput13_interval_d = 0 auxinput13_interval_h = 0 auxinput13_interval_m = 0 auxinput13_interval_s = 0 auxinput13_interval = 0 auxinput13_begin_y = 0 auxinput13_begin_d = 0 auxinput13_begin_h = 0 auxinput13_begin_m = 0 auxinput13_begin_s = 0 auxinput13_begin = 0 auxinput13_end_y = 0 auxinput13_end_d = 0 auxinput13_end_h = 0 auxinput13_end_m = 0 auxinput13_end_s = 0 auxinput13_end = 0 io_form_auxinput13 = 0 frames_per_auxinput13 = 999999 auxinput14_inname = "auxinput14_d_" auxinput14_outname = "auxinput14_d_" auxinput14_interval_y = 0 auxinput14_interval_d = 0 auxinput14_interval_h = 0 auxinput14_interval_m = 0 auxinput14_interval_s = 0 auxinput14_interval = 0 auxinput14_begin_y = 0 auxinput14_begin_d = 0 auxinput14_begin_h = 0 auxinput14_begin_m = 0 auxinput14_begin_s = 0 auxinput14_begin = 0 auxinput14_end_y = 0 auxinput14_end_d = 0 auxinput14_end_h = 0 auxinput14_end_m = 0 auxinput14_end_s = 0 auxinput14_end = 0 io_form_auxinput14 = 0 frames_per_auxinput14 = 999999 auxinput15_inname = "auxinput15_d_" auxinput15_outname = "auxinput15_d_" auxinput15_interval_y = 0 auxinput15_interval_d = 0 auxinput15_interval_h = 0 auxinput15_interval_m = 0 auxinput15_interval_s = 0 auxinput15_interval = 0 auxinput15_begin_y = 0 auxinput15_begin_d = 0 auxinput15_begin_h = 0 auxinput15_begin_m = 0 auxinput15_begin_s = 0 auxinput15_begin = 0 auxinput15_end_y = 0 auxinput15_end_d = 0 auxinput15_end_h = 0 auxinput15_end_m = 0 auxinput15_end_s = 0 auxinput15_end = 0 io_form_auxinput15 = 0 frames_per_auxinput15 = 999999 auxinput16_inname = "auxinput16_d_" auxinput16_outname = "auxinput16_d_" auxinput16_interval_y = 0 auxinput16_interval_d = 0 auxinput16_interval_h = 0 auxinput16_interval_m = 0 auxinput16_interval_s = 0 auxinput16_interval = 0 auxinput16_begin_y = 0 auxinput16_begin_d = 0 auxinput16_begin_h = 0 auxinput16_begin_m = 0 auxinput16_begin_s = 0 auxinput16_begin = 0 auxinput16_end_y = 0 auxinput16_end_d = 0 auxinput16_end_h = 0 auxinput16_end_m = 0 auxinput16_end_s = 0 auxinput16_end = 0 io_form_auxinput16 = 0 frames_per_auxinput16 = 999999 auxinput17_inname = "auxinput17_d_" auxinput17_outname = "auxinput17_d_" auxinput17_interval_y = 0 auxinput17_interval_d = 0 auxinput17_interval_h = 0 auxinput17_interval_m = 0 auxinput17_interval_s = 0 auxinput17_interval = 0 auxinput17_begin_y = 0 auxinput17_begin_d = 0 auxinput17_begin_h = 0 auxinput17_begin_m = 0 auxinput17_begin_s = 0 auxinput17_begin = 0 auxinput17_end_y = 0 auxinput17_end_d = 0 auxinput17_end_h = 0 auxinput17_end_m = 0 auxinput17_end_s = 0 auxinput17_end = 0 io_form_auxinput17 = 0 frames_per_auxinput17 = 999999 auxinput18_inname = "auxinput18_d_" auxinput18_outname = "auxinput18_d_" auxinput18_interval_y = 0 auxinput18_interval_d = 0 auxinput18_interval_h = 0 auxinput18_interval_m = 0 auxinput18_interval_s = 0 auxinput18_interval = 0 auxinput18_begin_y = 0 auxinput18_begin_d = 0 auxinput18_begin_h = 0 auxinput18_begin_m = 0 auxinput18_begin_s = 0 auxinput18_begin = 0 auxinput18_end_y = 0 auxinput18_end_d = 0 auxinput18_end_h = 0 auxinput18_end_m = 0 auxinput18_end_s = 0 auxinput18_end = 0 io_form_auxinput18 = 0 frames_per_auxinput18 = 999999 auxinput19_inname = "auxinput19_d_" auxinput19_outname = "auxinput19_d_" auxinput19_interval_y = 0 auxinput19_interval_d = 0 auxinput19_interval_h = 0 auxinput19_interval_m = 0 auxinput19_interval_s = 0 auxinput19_interval = 0 auxinput19_begin_y = 0 auxinput19_begin_d = 0 auxinput19_begin_h = 0 auxinput19_begin_m = 0 auxinput19_begin_s = 0 auxinput19_begin = 0 auxinput19_end_y = 0 auxinput19_end_d = 0 auxinput19_end_h = 0 auxinput19_end_m = 0 auxinput19_end_s = 0 auxinput19_end = 0 io_form_auxinput19 = 0 frames_per_auxinput19 = 999999 auxinput20_inname = "auxinput20_d_" auxinput20_outname = "auxinput20_d_" auxinput20_interval_y = 0 auxinput20_interval_d = 0 auxinput20_interval_h = 0 auxinput20_interval_m = 0 auxinput20_interval_s = 0 auxinput20_interval = 0 auxinput20_begin_y = 0 auxinput20_begin_d = 0 auxinput20_begin_h = 0 auxinput20_begin_m = 0 auxinput20_begin_s = 0 auxinput20_begin = 0 auxinput20_end_y = 0 auxinput20_end_d = 0 auxinput20_end_h = 0 auxinput20_end_m = 0 auxinput20_end_s = 0 auxinput20_end = 0 io_form_auxinput20 = 0 frames_per_auxinput20 = 999999 auxinput21_inname = "auxinput21_d_" auxinput21_outname = "auxinput21_d_" auxinput21_interval_y = 0 auxinput21_interval_d = 0 auxinput21_interval_h = 0 auxinput21_interval_m = 0 auxinput21_interval_s = 0 auxinput21_interval = 0 auxinput21_begin_y = 0 auxinput21_begin_d = 0 auxinput21_begin_h = 0 auxinput21_begin_m = 0 auxinput21_begin_s = 0 auxinput21_begin = 0 auxinput21_end_y = 0 auxinput21_end_d = 0 auxinput21_end_h = 0 auxinput21_end_m = 0 auxinput21_end_s = 0 auxinput21_end = 0 io_form_auxinput21 = 0 frames_per_auxinput21 = 999999 auxinput22_inname = "auxinput22_d_" auxinput22_outname = "auxinput22_d_" auxinput22_interval_y = 0 auxinput22_interval_d = 0 auxinput22_interval_h = 0 auxinput22_interval_m = 0 auxinput22_interval_s = 0 auxinput22_interval = 0 auxinput22_begin_y = 0 auxinput22_begin_d = 0 auxinput22_begin_h = 0 auxinput22_begin_m = 0 auxinput22_begin_s = 0 auxinput22_begin = 0 auxinput22_end_y = 0 auxinput22_end_d = 0 auxinput22_end_h = 0 auxinput22_end_m = 0 auxinput22_end_s = 0 auxinput22_end = 0 io_form_auxinput22 = 0 frames_per_auxinput22 = 999999 auxinput23_inname = "auxinput23_d_" auxinput23_outname = "auxinput23_d_" auxinput23_interval_y = 0 auxinput23_interval_d = 0 auxinput23_interval_h = 0 auxinput23_interval_m = 0 auxinput23_interval_s = 0 auxinput23_interval = 0 auxinput23_begin_y = 0 auxinput23_begin_d = 0 auxinput23_begin_h = 0 auxinput23_begin_m = 0 auxinput23_begin_s = 0 auxinput23_begin = 0 auxinput23_end_y = 0 auxinput23_end_d = 0 auxinput23_end_h = 0 auxinput23_end_m = 0 auxinput23_end_s = 0 auxinput23_end = 0 io_form_auxinput23 = 0 frames_per_auxinput23 = 999999 auxinput24_inname = "auxinput24_d_" auxinput24_outname = "auxinput24_d_" auxinput24_interval_y = 0 auxinput24_interval_d = 0 auxinput24_interval_h = 0 auxinput24_interval_m = 0 auxinput24_interval_s = 0 auxinput24_interval = 0 auxinput24_begin_y = 0 auxinput24_begin_d = 0 auxinput24_begin_h = 0 auxinput24_begin_m = 0 auxinput24_begin_s = 0 auxinput24_begin = 0 auxinput24_end_y = 0 auxinput24_end_d = 0 auxinput24_end_h = 0 auxinput24_end_m = 0 auxinput24_end_s = 0 auxinput24_end = 0 io_form_auxinput24 = 0 frames_per_auxinput24 = 999999 history_interval = 0 frames_per_outfile = 10 restart = .false. restart_interval = 0 io_form_input = 2 io_form_history = 2 io_form_restart = 2 io_form_boundary = 2 debug_level = 0 self_test_domain = .false. history_outname = "wrfout_d_" history_inname = "wrfhist_d_" use_netcdf_classic = .false. history_interval_d = 0 history_interval_h = 0 history_interval_m = 0 history_interval_s = 0 inputout_interval_d = 0 inputout_interval_h = 0 inputout_interval_m = 0 inputout_interval_s = 0 inputout_interval = 0 restart_interval_d = 0 restart_interval_h = 0 restart_interval_m = 0 restart_interval_s = 0 history_begin_y = 0 history_begin_d = 0 history_begin_h = 0 history_begin_m = 0 history_begin_s = 0 history_begin = 0 inputout_begin_y = 0 inputout_begin_d = 0 inputout_begin_h = 0 inputout_begin_m = 0 inputout_begin_s = 0 restart_begin_y = 0 restart_begin_d = 0 restart_begin_h = 0 restart_begin_m = 0 restart_begin_s = 0 restart_begin = 0 history_end_y = 0 history_end_d = 0 history_end_h = 0 history_end_m = 0 history_end_s = 0 history_end = 0 inputout_end_y = 0 inputout_end_d = 0 inputout_end_h = 0 inputout_end_m = 0 inputout_end_s = 0 simulation_start_year = 0 simulation_start_month = 0 simulation_start_day = 0 simulation_start_hour = 0 simulation_start_minute = 0 simulation_start_second = 0 reset_simulation_start = .false. sr_x = 0 sr_y = 0 sgfdda_inname = "sgfdda_d" gfdda_inname = "gfdda_d" sgfdda_interval_d = 0 sgfdda_interval_h = 0 sgfdda_interval_m = 0 sgfdda_interval_s = 0 sgfdda_interval_y = 0 sgfdda_interval = 0 gfdda_interval_d = 0 gfdda_interval_h = 0 gfdda_interval_m = 0 gfdda_interval_s = 0 gfdda_interval_y = 0 gfdda_interval = 0 sgfdda_begin_y = 0 sgfdda_begin_d = 0 sgfdda_begin_h = 0 sgfdda_begin_m = 0 sgfdda_begin_s = 0 gfdda_begin_y = 0 gfdda_begin_d = 0 gfdda_begin_h = 0 gfdda_begin_m = 0 gfdda_begin_s = 0 sgfdda_end_y = 0 sgfdda_end_d = 0 sgfdda_end_h = 0 sgfdda_end_m = 0 sgfdda_end_s = 0 gfdda_end_y = 0 gfdda_end_d = 0 gfdda_end_h = 0 gfdda_end_m = 0 gfdda_end_s = 0 io_form_sgfdda = 2 io_form_gfdda = 2 iofields_filename = "NONE_SPECIFIED" ignore_iofields_warning = .true. ncd_nofill = .true. emi_inname = "wrfchemi_d_" fireemi_inname = "wrffirechemi_d_" input_chem_inname = "wrf_chem_input_d_" emi_outname = "wrfchemi_d_" fireemi_outname = "wrffirechemi_out_d_" input_chem_outname = "wrf_chem_input_d_" io_style_emissions = 1 bioemdt = 0 photdt = 0 chemdt = 0 ne_area = 41 kemit = 9 nmegan = 138 kfuture = 1 kfire = 1 kemit_aircraft = 1 kdvel = 1 ndepvel = 140 kdepvel = 1 erosion_dim = 3 biomass_emiss_opt = 0 cam_mam_mode = 3 cam_mam_nspec = 85 cam_mp_mam_cpled = .true. lightning_opt = 0 lightning_time_step = 0 temp_upper = -45. temp_lower = -15. n_ic = 0. n_cg = 0. passive_ltng = 1 lflash_data = 1 flashrate_method = 1 vprm_opt = "VPRM_param_US" wpeat = 0.05 wflood = 0.19 term_opt = "CH4_termite_NW" chem_conv_tr = 1 conv_tr_wetscav = 1 conv_tr_aqchem = 1 chem_opt = 0 gaschem_onoff = 1 aerchem_onoff = 1 wetscav_onoff = 0 dustwd_onoff = 0 cldchem_onoff = 0 is_full_tuv = .true. lambda_cutoff = 250. cld_od_opt = 1 pht_cldfrc_opt = 1 vertmix_onoff = 1 chem_in_opt = 0 phot_opt = 0 gas_drydep_opt = 1 aer_drydep_opt = 1 diagnostic_chem = 1 aero_diag_opt = 0 aero_cw_diag_opt = 0 aer_aerodynres_opt = 1 emiss_opt = 4 emiss_opt_vol = 0 dust_opt = 0 dust_schme = 2 dmsemis_opt = 0 seas_opt = 0 bio_emiss_opt = 0 biomass_burn_opt = 0 plumerisefire_frq = 180 emiss_inpt_opt = 1 gas_bc_opt = 1 gas_ic_opt = 1 aer_bc_opt = 1 aer_ic_opt = 1 have_bcs_chem = .false. have_bcs_tracer = .false. scale_fire_emiss = .false. aer_ra_feedback = 0 aer_op_opt = 1 opt_pars_out = 0 diagnostic_dep = 0 aircraft_emiss_opt = 0 have_bcs_upper = .false. fixed_ubc_press = 50. fixed_ubc_inname = " " trop_lev_inname = "clim_p_trop.nc" exo_coldens_inname = "exo_coldens_" wes_seasonal_inname = "wrf_season_wes_usgs_.nc" chemdiag = 0 dust_alpha = 1. dust_gamma = 1. dust_smtune = 1. dust_ustune = 1. dust_dsr = 0 dust_veg = 0 dust_soils = 0 dust_smois = 0 emiss_ash_hgt = 0. depo_fact = 0.25 track_chem_num = 0 track_rad_num = 17 track_tuv_num = 58 track_tuv_lev = 51 n2o5_hetchem = 0 af_lambda_start = 200. af_lambda_end = 340. lnox_opt = 0 lnox_passive = .false. ltng_temp_upper = -45. ltng_temp_lower = -15. has_o3_exo_coldens = .false. du_at_grnd = 300. scale_o3_to_grnd_exo_coldens = .false. scale_o3_to_du_at_grnd = .false. irr_opt = 0 ifire = 0 fire_boundary_guard = 2 fire_num_ignitions = 0 fire_ignition_ros1 = 0.01 fire_ignition_start_lon1 = 0. fire_ignition_start_lat1 = 0. fire_ignition_end_lon1 = 0. fire_ignition_end_lat1 = 0. fire_ignition_radius1 = 0. fire_ignition_start_time1 = 0. fire_ignition_end_time1 = 0. fire_ignition_ros2 = 0.01 fire_ignition_start_lon2 = 0. fire_ignition_start_lat2 = 0. fire_ignition_end_lon2 = 0. fire_ignition_end_lat2 = 0. fire_ignition_radius2 = 0. fire_ignition_start_time2 = 0. fire_ignition_end_time2 = 0. fire_ignition_ros3 = 0.01 fire_ignition_start_lon3 = 0. fire_ignition_start_lat3 = 0. fire_ignition_end_lon3 = 0. fire_ignition_end_lat3 = 0. fire_ignition_radius3 = 0. fire_ignition_start_time3 = 0. fire_ignition_end_time3 = 0. fire_ignition_ros4 = 0.01 fire_ignition_start_lon4 = 0. fire_ignition_start_lat4 = 0. fire_ignition_end_lon4 = 0. fire_ignition_end_lat4 = 0. fire_ignition_radius4 = 0. fire_ignition_start_time4 = 0. fire_ignition_end_time4 = 0. fire_ignition_ros5 = 0.01 fire_ignition_start_lon5 = 0. fire_ignition_start_lat5 = 0. fire_ignition_end_lon5 = 0. fire_ignition_end_lat5 = 0. fire_ignition_radius5 = 0. fire_ignition_start_time5 = 0. fire_ignition_end_time5 = 0. fire_ignition_start_x1 = 0. fire_ignition_start_y1 = 0. fire_ignition_end_x1 = 0. fire_ignition_end_y1 = 0. fire_ignition_start_x2 = 0. fire_ignition_start_y2 = 0. fire_ignition_end_x2 = 0. fire_ignition_end_y2 = 0. fire_ignition_start_x3 = 0. fire_ignition_start_y3 = 0. fire_ignition_end_x3 = 0. fire_ignition_end_y3 = 0. fire_ignition_start_x4 = 0. fire_ignition_start_y4 = 0. fire_ignition_end_x4 = 0. fire_ignition_end_y4 = 0. fire_ignition_start_x5 = 0. fire_ignition_start_y5 = 0. fire_ignition_end_x5 = 0. fire_ignition_end_y5 = 0. fire_lat_init = 0. fire_lon_init = 0. fire_ign_time = 0. fire_shape = 0 fire_sprd_mdl = 1 fire_crwn_hgt = 15. fire_ext_grnd = 50. fire_ext_crwn = 50. fire_wind_height = 6.096 fire_fuel_read = -1 fire_fuel_cat = 1 fire_print_msg = 0 fire_print_file = 0 fire_fuel_left_method = 1 fire_fuel_left_irl = 2 fire_fuel_left_jrl = 2 fire_back_weight = 0.5 fire_grows_only = 1 fire_upwinding = 3 fire_upwind_split = 0 fire_viscosity = 0.4 fire_lfn_ext_up = 1.0 fire_topo_from_atm = 1 fire_advection = 1 fire_test_steps = 0 fire_const_time = -1. fire_const_grnhfx = 0. fire_const_grnqfx = 0. fire_atm_feedback = 1. fire_mountain_type = 0 fire_mountain_height = 500. fire_mountain_start_x = 100. fire_mountain_start_y = 100. fire_mountain_end_x = 100. fire_mountain_end_y = 100. delt_perturbation = 0. xrad_perturbation = 0. yrad_perturbation = 0. zrad_perturbation = 0. hght_perturbation = 0. stretch_grd = .true. stretch_hyp = .false. z_grd_scale = 0.40 sfc_full_init = .false. sfc_lu_index = 28 sfc_tsk = 285.0 sfc_tmn = 285.0 fire_read_lu = .false. fire_read_tsk = .false. fire_read_tmn = .false. fire_read_atm_ht = .false. fire_read_fire_ht = .false. fire_read_atm_grad = .false. fire_read_fire_grad = .false. sfc_vegfra = 0.5 sfc_canwat = 0 sfc_ivgtyp = 18 sfc_isltyp = 7 do_avgflx_em = 0 do_avgflx_cugd = 0 nens = 1 skebs = 0 stoch_force_opt = 0 skebs_vertstruc = 0 stoch_vertstruc_opt = 0 tot_backscat_psi = 1.0e-05 tot_backscat_t = 1.0e-06 ztau_psi = 10800.0 ztau_t = 10800.0 rexponent_psi = -1.83 rexponent_t = -1.83 zsigma2_eps = 0.0833 zsigma2_eta = 0.0833 kminforc = 1 lminforc = 1 kminforct = 1 lminforct = 1 kmaxforc = 1000000 lmaxforc = 1000000 kmaxforct = 1000000 lmaxforct = 1000000 iseed_skebs = 811 kmaxforch = 0 lmaxforch = 0 kmaxforcth = 0 lmaxforcth = 0 sppt = 0 gridpt_stddev_sppt = 0.5 stddev_cutoff_sppt = 2.0 lengthscale_sppt = 150000.0 timescale_sppt = 21600.0 sppt_vertstruc = 0 iseed_sppt = 53 rand_perturb = 0 gridpt_stddev_rand_pert = 0.03 stddev_cutoff_rand_pert = 3.0 lengthscale_rand_pert = 500000.0 timescale_rand_pert = 21600.0 rand_pert_vertstruc = 0 iseed_rand_pert = 17 spp = 0 hrrr_cycling = .false. spp_conv = 0 gridpt_stddev_spp_conv = 0.3 stddev_cutoff_spp_conv = 3.0 lengthscale_spp_conv = 150000.0 timescale_spp_conv = 21600.0 vertstruc_spp_conv = 0 iseed_spp_conv = 171 spp_pbl = 0 gridpt_stddev_spp_pbl = 0.15 stddev_cutoff_spp_pbl = 2.0 lengthscale_spp_pbl = 700000.0 timescale_spp_pbl = 21600.0 vertstruc_spp_pbl = 0 iseed_spp_pbl = 217 spp_lsm = 0 gridpt_stddev_spp_lsm = 0.3 stddev_cutoff_spp_lsm = 3.0 lengthscale_spp_lsm = 50000.0 timescale_spp_lsm = 86400.0 vertstruc_spp_lsm = 0 iseed_spp_lsm = 317 skebs_on = 0 sppt_on = 0 spp_on = 0 rand_perturb_on = 0 num_stoch_levels = 1 sfs_opt = 0 m_opt = 0 lakedepth_default = 50 lake_min_elev = 5 use_lakedepth = 1 p_lev_diags = 0 p_lev_diags_dfi = 0 num_press_levels = 0 press_levels = 0 use_tot_or_hyd_p = 2 extrap_below_grnd = 1 p_lev_missing = -999 p_lev_interval = 0 z_lev_diags = 0 z_lev_diags_dfi = 0 num_z_levels = 0 z_levels = 0 z_lev_missing = -999 z_lev_interval = 0 afwa_diag_opt = 0 afwa_ptype_opt = 0 afwa_vil_opt = 0 afwa_radar_opt = 0 afwa_severe_opt = 0 afwa_icing_opt = 0 afwa_vis_opt = 0 afwa_cloud_opt = 0 afwa_therm_opt = 0 afwa_turb_opt = 0 afwa_buoy_opt = 0 afwa_ptype_ccn_tmp = 264.15 afwa_ptype_tot_melt = 50.0 afwa_bad_data_check = 0 mean_diag = 0 mean_freq = 0 mean_interval = 0 diurnal_diag = 0 nssl_ipelec = 0 nssl_isaund = 12 nssl_iscreen = 0 nssl_lightrad = 12000 nssl_idischarge = 1 nssl_ibrkd = 4 nssl_ecrit = 120000 nssl_disfrac = 0.3 elec_physics = 0 perturb_bdy = 0 perturb_chem_bdy = 0 num_gca_levels = 27 gca_input_opt = 0 hybrid_opt = 0 etac = 0.2 num_wif_levels = 27 wif_input_opt = 0 nml_read_error = .FALSE. NML_LOOP : DO i=1,17 REWIND ( UNIT = nml_read_unit ) SELECT CASE ( i ) CASE ( 1 ) nml_name = "time_control" READ ( UNIT = nml_read_unit , NML = time_control , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = time_control ) CYCLE NML_LOOP CASE ( 2 ) nml_name = "pio_control" READ ( UNIT = nml_read_unit , NML = pio_control , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = pio_control ) CYCLE NML_LOOP CASE ( 3 ) nml_name = "dfi_control" READ ( UNIT = nml_read_unit , NML = dfi_control , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = dfi_control ) CYCLE NML_LOOP CASE ( 4 ) nml_name = "domains" READ ( UNIT = nml_read_unit , NML = domains , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = domains ) CYCLE NML_LOOP CASE ( 5 ) nml_name = "tc" READ ( UNIT = nml_read_unit , NML = tc , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = tc ) CYCLE NML_LOOP CASE ( 6 ) nml_name = "physics" READ ( UNIT = nml_read_unit , NML = physics , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = physics ) CYCLE NML_LOOP CASE ( 7 ) nml_name = "noah_mp" READ ( UNIT = nml_read_unit , NML = noah_mp , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = noah_mp ) CYCLE NML_LOOP CASE ( 8 ) nml_name = "fdda" READ ( UNIT = nml_read_unit , NML = fdda , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = fdda ) CYCLE NML_LOOP CASE ( 9 ) nml_name = "scm" READ ( UNIT = nml_read_unit , NML = scm , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = scm ) CYCLE NML_LOOP CASE ( 10 ) nml_name = "dynamics" READ ( UNIT = nml_read_unit , NML = dynamics , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = dynamics ) CYCLE NML_LOOP CASE ( 11 ) nml_name = "bdy_control" READ ( UNIT = nml_read_unit , NML = bdy_control , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = bdy_control ) CYCLE NML_LOOP CASE ( 12 ) nml_name = "grib2" READ ( UNIT = nml_read_unit , NML = grib2 , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = grib2 ) CYCLE NML_LOOP CASE ( 13 ) nml_name = "chem" READ ( UNIT = nml_read_unit , NML = chem , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = chem ) CYCLE NML_LOOP CASE ( 14 ) nml_name = "fire" READ ( UNIT = nml_read_unit , NML = fire , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = fire ) CYCLE NML_LOOP CASE ( 15 ) nml_name = "stoch" READ ( UNIT = nml_read_unit , NML = stoch , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = stoch ) CYCLE NML_LOOP CASE ( 16 ) nml_name = "diags" READ ( UNIT = nml_read_unit , NML = diags , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = diags ) CYCLE NML_LOOP CASE ( 17 ) nml_name = "afwa" READ ( UNIT = nml_read_unit , NML = afwa , ERR=9201, END=9202 ) WRITE ( UNIT = nml_write_unit, NML = afwa ) CYCLE NML_LOOP END SELECT 9201 CALL wrf_message(" ------ ERROR while reading namelist "//TRIM(nml_name)//" ------") nml_read_error = .TRUE. CALL wrf_alt_nml_obsolete(nml_read_unit, TRIM(nml_name)) CYCLE NML_LOOP 9202 CALL wrf_debug(1,"Namelist "//TRIM(nml_name)//" not found in namelist.input.") CALL wrf_debug(1," --> Using registry defaults for variables in "//TRIM(nml_name)) END DO NML_LOOP IF ( nml_read_error ) CALL wrf_error_fatal3("",11334,& "ERRORS while reading one or more namelists from namelist.input.") DO i = 1, max_dom mp_physics(i) = mp_physics(max_dom) ENDDO model_config_rec % run_days = run_days model_config_rec % run_hours = run_hours model_config_rec % run_minutes = run_minutes model_config_rec % run_seconds = run_seconds model_config_rec % start_year = start_year model_config_rec % start_month = start_month model_config_rec % start_day = start_day model_config_rec % start_hour = start_hour model_config_rec % start_minute = start_minute model_config_rec % start_second = start_second model_config_rec % end_year = end_year model_config_rec % end_month = end_month model_config_rec % end_day = end_day model_config_rec % end_hour = end_hour model_config_rec % end_minute = end_minute model_config_rec % end_second = end_second model_config_rec % interval_seconds = interval_seconds model_config_rec % input_from_file = input_from_file model_config_rec % fine_input_stream = fine_input_stream model_config_rec % input_from_hires = input_from_hires model_config_rec % rsmas_data_path = rsmas_data_path model_config_rec % all_ic_times = all_ic_times model_config_rec % julyr = julyr model_config_rec % julday = julday model_config_rec % gmt = gmt model_config_rec % input_inname = input_inname model_config_rec % input_outname = input_outname model_config_rec % bdy_inname = bdy_inname model_config_rec % bdy_outname = bdy_outname model_config_rec % rst_inname = rst_inname model_config_rec % rst_outname = rst_outname model_config_rec % write_input = write_input model_config_rec % write_restart_at_0h = write_restart_at_0h model_config_rec % write_hist_at_0h_rst = write_hist_at_0h_rst model_config_rec % adjust_output_times = adjust_output_times model_config_rec % adjust_input_times = adjust_input_times model_config_rec % diag_print = diag_print model_config_rec % nocolons = nocolons model_config_rec % cycling = cycling model_config_rec % output_diagnostics = output_diagnostics model_config_rec % nwp_diagnostics = nwp_diagnostics model_config_rec % output_ready_flag = output_ready_flag model_config_rec % usepio = usepio model_config_rec % pioprocs = pioprocs model_config_rec % piostart = piostart model_config_rec % piostride = piostride model_config_rec % pioshift = pioshift model_config_rec % dfi_opt = dfi_opt model_config_rec % dfi_savehydmeteors = dfi_savehydmeteors model_config_rec % dfi_nfilter = dfi_nfilter model_config_rec % dfi_write_filtered_input = dfi_write_filtered_input model_config_rec % dfi_write_dfi_history = dfi_write_dfi_history model_config_rec % dfi_cutoff_seconds = dfi_cutoff_seconds model_config_rec % dfi_time_dim = dfi_time_dim model_config_rec % dfi_fwdstop_year = dfi_fwdstop_year model_config_rec % dfi_fwdstop_month = dfi_fwdstop_month model_config_rec % dfi_fwdstop_day = dfi_fwdstop_day model_config_rec % dfi_fwdstop_hour = dfi_fwdstop_hour model_config_rec % dfi_fwdstop_minute = dfi_fwdstop_minute model_config_rec % dfi_fwdstop_second = dfi_fwdstop_second model_config_rec % dfi_bckstop_year = dfi_bckstop_year model_config_rec % dfi_bckstop_month = dfi_bckstop_month model_config_rec % dfi_bckstop_day = dfi_bckstop_day model_config_rec % dfi_bckstop_hour = dfi_bckstop_hour model_config_rec % dfi_bckstop_minute = dfi_bckstop_minute model_config_rec % dfi_bckstop_second = dfi_bckstop_second model_config_rec % time_step = time_step model_config_rec % time_step_fract_num = time_step_fract_num model_config_rec % time_step_fract_den = time_step_fract_den model_config_rec % time_step_dfi = time_step_dfi model_config_rec % min_time_step = min_time_step model_config_rec % min_time_step_den = min_time_step_den model_config_rec % max_time_step = max_time_step model_config_rec % max_time_step_den = max_time_step_den model_config_rec % target_cfl = target_cfl model_config_rec % target_hcfl = target_hcfl model_config_rec % max_step_increase_pct = max_step_increase_pct model_config_rec % starting_time_step = starting_time_step model_config_rec % starting_time_step_den = starting_time_step_den model_config_rec % step_to_output_time = step_to_output_time model_config_rec % adaptation_domain = adaptation_domain model_config_rec % use_adaptive_time_step = use_adaptive_time_step model_config_rec % use_adaptive_time_step_dfi = use_adaptive_time_step_dfi model_config_rec % max_dom = max_dom model_config_rec % lats_to_mic = lats_to_mic model_config_rec % s_we = s_we model_config_rec % e_we = e_we model_config_rec % s_sn = s_sn model_config_rec % e_sn = e_sn model_config_rec % s_vert = s_vert model_config_rec % e_vert = e_vert model_config_rec % num_metgrid_levels = num_metgrid_levels model_config_rec % num_metgrid_soil_levels = num_metgrid_soil_levels model_config_rec % p_top_requested = p_top_requested model_config_rec % interp_theta = interp_theta model_config_rec % interp_type = interp_type model_config_rec % rebalance = rebalance model_config_rec % vert_refine_method = vert_refine_method model_config_rec % vert_refine_fact = vert_refine_fact model_config_rec % extrap_type = extrap_type model_config_rec % t_extrap_type = t_extrap_type model_config_rec % hypsometric_opt = hypsometric_opt model_config_rec % lowest_lev_from_sfc = lowest_lev_from_sfc model_config_rec % use_levels_below_ground = use_levels_below_ground model_config_rec % use_tavg_for_tsk = use_tavg_for_tsk model_config_rec % use_surface = use_surface model_config_rec % lagrange_order = lagrange_order model_config_rec % force_sfc_in_vinterp = force_sfc_in_vinterp model_config_rec % zap_close_levels = zap_close_levels model_config_rec % maxw_horiz_pres_diff = maxw_horiz_pres_diff model_config_rec % trop_horiz_pres_diff = trop_horiz_pres_diff model_config_rec % maxw_above_this_level = maxw_above_this_level model_config_rec % use_maxw_level = use_maxw_level model_config_rec % use_trop_level = use_trop_level model_config_rec % sfcp_to_sfcp = sfcp_to_sfcp model_config_rec % adjust_heights = adjust_heights model_config_rec % smooth_cg_topo = smooth_cg_topo model_config_rec % nest_interp_coord = nest_interp_coord model_config_rec % interp_method_type = interp_method_type model_config_rec % aggregate_lu = aggregate_lu model_config_rec % rh2qv_wrt_liquid = rh2qv_wrt_liquid model_config_rec % rh2qv_method = rh2qv_method model_config_rec % qv_max_p_safe = qv_max_p_safe model_config_rec % qv_max_flag = qv_max_flag model_config_rec % qv_max_value = qv_max_value model_config_rec % qv_min_p_safe = qv_min_p_safe model_config_rec % qv_min_flag = qv_min_flag model_config_rec % qv_min_value = qv_min_value model_config_rec % ideal_init_method = ideal_init_method model_config_rec % dx = dx model_config_rec % dy = dy model_config_rec % grid_id = grid_id model_config_rec % grid_allowed = grid_allowed model_config_rec % parent_id = parent_id model_config_rec % i_parent_start = i_parent_start model_config_rec % j_parent_start = j_parent_start model_config_rec % parent_grid_ratio = parent_grid_ratio model_config_rec % parent_time_step_ratio = parent_time_step_ratio model_config_rec % feedback = feedback model_config_rec % smooth_option = smooth_option model_config_rec % blend_width = blend_width model_config_rec % ztop = ztop model_config_rec % moad_grid_ratio = moad_grid_ratio model_config_rec % moad_time_step_ratio = moad_time_step_ratio model_config_rec % shw = shw model_config_rec % tile_sz_x = tile_sz_x model_config_rec % tile_sz_y = tile_sz_y model_config_rec % numtiles = numtiles model_config_rec % numtiles_inc = numtiles_inc model_config_rec % numtiles_x = numtiles_x model_config_rec % numtiles_y = numtiles_y model_config_rec % tile_strategy = tile_strategy model_config_rec % nproc_x = nproc_x model_config_rec % nproc_y = nproc_y model_config_rec % irand = irand model_config_rec % dt = dt model_config_rec % fft_used = fft_used model_config_rec % cu_used = cu_used model_config_rec % shcu_used = shcu_used model_config_rec % cam_used = cam_used model_config_rec % alloc_qndropsource = alloc_qndropsource model_config_rec % num_moves = num_moves model_config_rec % ts_buf_size = ts_buf_size model_config_rec % max_ts_locs = max_ts_locs model_config_rec % vortex_interval = vortex_interval model_config_rec % max_vortex_speed = max_vortex_speed model_config_rec % corral_dist = corral_dist model_config_rec % track_level = track_level model_config_rec % time_to_move = time_to_move model_config_rec % move_id = move_id model_config_rec % move_interval = move_interval model_config_rec % move_cd_x = move_cd_x model_config_rec % move_cd_y = move_cd_y model_config_rec % swap_x = swap_x model_config_rec % swap_y = swap_y model_config_rec % cycle_x = cycle_x model_config_rec % cycle_y = cycle_y model_config_rec % reorder_mesh = reorder_mesh model_config_rec % perturb_input = perturb_input model_config_rec % eta_levels = eta_levels model_config_rec % max_dz = max_dz model_config_rec % ocean_levels = ocean_levels model_config_rec % ocean_z = ocean_z model_config_rec % ocean_t = ocean_t model_config_rec % ocean_s = ocean_s model_config_rec % num_traj = num_traj model_config_rec % max_ts_level = max_ts_level model_config_rec % track_loc_in = track_loc_in model_config_rec % num_ext_model_couple_dom = num_ext_model_couple_dom model_config_rec % insert_bogus_storm = insert_bogus_storm model_config_rec % remove_storm = remove_storm model_config_rec % num_storm = num_storm model_config_rec % latc_loc = latc_loc model_config_rec % lonc_loc = lonc_loc model_config_rec % vmax_meters_per_second = vmax_meters_per_second model_config_rec % rmax = rmax model_config_rec % vmax_ratio = vmax_ratio model_config_rec % rankine_lid = rankine_lid model_config_rec % physics_suite = physics_suite model_config_rec % force_read_thompson = force_read_thompson model_config_rec % write_thompson_tables = write_thompson_tables model_config_rec % mp_physics = mp_physics model_config_rec % nssl_cccn = nssl_cccn model_config_rec % nssl_alphah = nssl_alphah model_config_rec % nssl_alphahl = nssl_alphahl model_config_rec % nssl_cnoh = nssl_cnoh model_config_rec % nssl_cnohl = nssl_cnohl model_config_rec % nssl_cnor = nssl_cnor model_config_rec % nssl_cnos = nssl_cnos model_config_rec % nssl_rho_qh = nssl_rho_qh model_config_rec % nssl_rho_qhl = nssl_rho_qhl model_config_rec % nssl_rho_qs = nssl_rho_qs model_config_rec % nudge_lightning = nudge_lightning model_config_rec % nudge_light_times = nudge_light_times model_config_rec % nudge_light_timee = nudge_light_timee model_config_rec % nudge_light_int = nudge_light_int model_config_rec % path_to_files = path_to_files model_config_rec % gsfcgce_hail = gsfcgce_hail model_config_rec % gsfcgce_2ice = gsfcgce_2ice model_config_rec % progn = progn model_config_rec % accum_mode = accum_mode model_config_rec % aitken_mode = aitken_mode model_config_rec % coarse_mode = coarse_mode model_config_rec % do_radar_ref = do_radar_ref model_config_rec % compute_radar_ref = compute_radar_ref model_config_rec % ra_lw_physics = ra_lw_physics model_config_rec % ra_sw_physics = ra_sw_physics model_config_rec % radt = radt model_config_rec % naer = naer model_config_rec % sf_sfclay_physics = sf_sfclay_physics model_config_rec % sf_surface_physics = sf_surface_physics model_config_rec % bl_pbl_physics = bl_pbl_physics model_config_rec % bl_mynn_tkebudget = bl_mynn_tkebudget model_config_rec % ysu_topdown_pblmix = ysu_topdown_pblmix model_config_rec % shinhong_tke_diag = shinhong_tke_diag model_config_rec % bl_mynn_tkeadvect = bl_mynn_tkeadvect model_config_rec % bl_mynn_cloudpdf = bl_mynn_cloudpdf model_config_rec % bl_mynn_mixlength = bl_mynn_mixlength model_config_rec % bl_mynn_edmf = bl_mynn_edmf model_config_rec % bl_mynn_edmf_mom = bl_mynn_edmf_mom model_config_rec % bl_mynn_edmf_tke = bl_mynn_edmf_tke model_config_rec % bl_mynn_edmf_part = bl_mynn_edmf_part model_config_rec % bl_mynn_cloudmix = bl_mynn_cloudmix model_config_rec % bl_mynn_mixqt = bl_mynn_mixqt model_config_rec % icloud_bl = icloud_bl model_config_rec % mfshconv = mfshconv model_config_rec % sf_urban_physics = sf_urban_physics model_config_rec % bldt = bldt model_config_rec % cu_physics = cu_physics model_config_rec % shcu_physics = shcu_physics model_config_rec % cu_diag = cu_diag model_config_rec % kf_edrates = kf_edrates model_config_rec % kfeta_trigger = kfeta_trigger model_config_rec % nsas_dx_factor = nsas_dx_factor model_config_rec % cudt = cudt model_config_rec % gsmdt = gsmdt model_config_rec % isfflx = isfflx model_config_rec % ifsnow = ifsnow model_config_rec % icloud = icloud model_config_rec % ideal_xland = ideal_xland model_config_rec % swrad_scat = swrad_scat model_config_rec % surface_input_source = surface_input_source model_config_rec % num_soil_layers = num_soil_layers model_config_rec % maxpatch = maxpatch model_config_rec % num_snow_layers = num_snow_layers model_config_rec % num_snso_layers = num_snso_layers model_config_rec % num_urban_layers = num_urban_layers model_config_rec % num_urban_hi = num_urban_hi model_config_rec % num_months = num_months model_config_rec % sf_surface_mosaic = sf_surface_mosaic model_config_rec % mosaic_cat = mosaic_cat model_config_rec % mosaic_cat_soil = mosaic_cat_soil model_config_rec % mosaic_lu = mosaic_lu model_config_rec % mosaic_soil = mosaic_soil model_config_rec % maxiens = maxiens model_config_rec % maxens = maxens model_config_rec % maxens2 = maxens2 model_config_rec % maxens3 = maxens3 model_config_rec % ensdim = ensdim model_config_rec % cugd_avedx = cugd_avedx model_config_rec % clos_choice = clos_choice model_config_rec % imomentum = imomentum model_config_rec % ishallow = ishallow model_config_rec % convtrans_avglen_m = convtrans_avglen_m model_config_rec % num_land_cat = num_land_cat model_config_rec % num_soil_cat = num_soil_cat model_config_rec % mp_zero_out = mp_zero_out model_config_rec % mp_zero_out_thresh = mp_zero_out_thresh model_config_rec % seaice_threshold = seaice_threshold model_config_rec % sst_update = sst_update model_config_rec % sst_skin = sst_skin model_config_rec % tmn_update = tmn_update model_config_rec % usemonalb = usemonalb model_config_rec % rdmaxalb = rdmaxalb model_config_rec % rdlai2d = rdlai2d model_config_rec % ua_phys = ua_phys model_config_rec % opt_thcnd = opt_thcnd model_config_rec % co2tf = co2tf model_config_rec % ra_call_offset = ra_call_offset model_config_rec % cam_abs_freq_s = cam_abs_freq_s model_config_rec % levsiz = levsiz model_config_rec % paerlev = paerlev model_config_rec % cam_abs_dim1 = cam_abs_dim1 model_config_rec % cam_abs_dim2 = cam_abs_dim2 model_config_rec % lagday = lagday model_config_rec % no_src_types = no_src_types model_config_rec % alevsiz = alevsiz model_config_rec % o3input = o3input model_config_rec % aer_opt = aer_opt model_config_rec % swint_opt = swint_opt model_config_rec % aer_type = aer_type model_config_rec % aer_aod550_opt = aer_aod550_opt model_config_rec % aer_angexp_opt = aer_angexp_opt model_config_rec % aer_ssa_opt = aer_ssa_opt model_config_rec % aer_asy_opt = aer_asy_opt model_config_rec % aer_aod550_val = aer_aod550_val model_config_rec % aer_angexp_val = aer_angexp_val model_config_rec % aer_ssa_val = aer_ssa_val model_config_rec % aer_asy_val = aer_asy_val model_config_rec % cu_rad_feedback = cu_rad_feedback model_config_rec % shallowcu_forced_ra = shallowcu_forced_ra model_config_rec % numbins = numbins model_config_rec % thbinsize = thbinsize model_config_rec % rbinsize = rbinsize model_config_rec % mindeepfreq = mindeepfreq model_config_rec % minshallowfreq = minshallowfreq model_config_rec % shcu_aerosols_opt = shcu_aerosols_opt model_config_rec % icloud_cu = icloud_cu model_config_rec % pxlsm_smois_init = pxlsm_smois_init model_config_rec % omlcall = omlcall model_config_rec % sf_ocean_physics = sf_ocean_physics model_config_rec % traj_opt = traj_opt model_config_rec % dm_has_traj = dm_has_traj model_config_rec % tracercall = tracercall model_config_rec % omdt = omdt model_config_rec % oml_hml0 = oml_hml0 model_config_rec % oml_gamma = oml_gamma model_config_rec % oml_relaxation_time = oml_relaxation_time model_config_rec % isftcflx = isftcflx model_config_rec % iz0tlnd = iz0tlnd model_config_rec % shadlen = shadlen model_config_rec % slope_rad = slope_rad model_config_rec % topo_shading = topo_shading model_config_rec % topo_wind = topo_wind model_config_rec % no_mp_heating = no_mp_heating model_config_rec % fractional_seaice = fractional_seaice model_config_rec % seaice_snowdepth_opt = seaice_snowdepth_opt model_config_rec % seaice_snowdepth_max = seaice_snowdepth_max model_config_rec % seaice_snowdepth_min = seaice_snowdepth_min model_config_rec % seaice_albedo_opt = seaice_albedo_opt model_config_rec % seaice_albedo_default = seaice_albedo_default model_config_rec % seaice_thickness_opt = seaice_thickness_opt model_config_rec % seaice_thickness_default = seaice_thickness_default model_config_rec % tice2tsk_if2cold = tice2tsk_if2cold model_config_rec % bucket_mm = bucket_mm model_config_rec % bucket_j = bucket_j model_config_rec % mp_tend_lim = mp_tend_lim model_config_rec % prec_acc_dt = prec_acc_dt model_config_rec % prec_acc_opt = prec_acc_opt model_config_rec % bucketr_opt = bucketr_opt model_config_rec % bucketf_opt = bucketf_opt model_config_rec % process_time_series = process_time_series model_config_rec % grav_settling = grav_settling model_config_rec % sas_pgcon = sas_pgcon model_config_rec % scalar_pblmix = scalar_pblmix model_config_rec % tracer_pblmix = tracer_pblmix model_config_rec % use_aero_icbc = use_aero_icbc model_config_rec % use_rap_aero_icbc = use_rap_aero_icbc model_config_rec % use_mp_re = use_mp_re model_config_rec % ccn_conc = ccn_conc model_config_rec % hail_opt = hail_opt model_config_rec % dveg = dveg model_config_rec % opt_crs = opt_crs model_config_rec % opt_btr = opt_btr model_config_rec % opt_run = opt_run model_config_rec % opt_sfc = opt_sfc model_config_rec % opt_frz = opt_frz model_config_rec % opt_inf = opt_inf model_config_rec % opt_rad = opt_rad model_config_rec % opt_alb = opt_alb model_config_rec % opt_snf = opt_snf model_config_rec % opt_tbot = opt_tbot model_config_rec % opt_stc = opt_stc model_config_rec % opt_gla = opt_gla model_config_rec % opt_rsf = opt_rsf model_config_rec % wtddt = wtddt model_config_rec % wrf_hydro = wrf_hydro model_config_rec % fgdt = fgdt model_config_rec % fgdtzero = fgdtzero model_config_rec % grid_fdda = grid_fdda model_config_rec % grid_sfdda = grid_sfdda model_config_rec % if_no_pbl_nudging_uv = if_no_pbl_nudging_uv model_config_rec % if_no_pbl_nudging_t = if_no_pbl_nudging_t model_config_rec % if_no_pbl_nudging_ph = if_no_pbl_nudging_ph model_config_rec % if_no_pbl_nudging_q = if_no_pbl_nudging_q model_config_rec % if_zfac_uv = if_zfac_uv model_config_rec % k_zfac_uv = k_zfac_uv model_config_rec % if_zfac_t = if_zfac_t model_config_rec % k_zfac_t = k_zfac_t model_config_rec % if_zfac_ph = if_zfac_ph model_config_rec % k_zfac_ph = k_zfac_ph model_config_rec % if_zfac_q = if_zfac_q model_config_rec % k_zfac_q = k_zfac_q model_config_rec % dk_zfac_uv = dk_zfac_uv model_config_rec % dk_zfac_t = dk_zfac_t model_config_rec % dk_zfac_ph = dk_zfac_ph model_config_rec % guv = guv model_config_rec % guv_sfc = guv_sfc model_config_rec % gt = gt model_config_rec % gt_sfc = gt_sfc model_config_rec % gq = gq model_config_rec % gq_sfc = gq_sfc model_config_rec % gph = gph model_config_rec % dtramp_min = dtramp_min model_config_rec % if_ramping = if_ramping model_config_rec % rinblw = rinblw model_config_rec % xwavenum = xwavenum model_config_rec % ywavenum = ywavenum model_config_rec % pxlsm_soil_nudge = pxlsm_soil_nudge model_config_rec % fasdas = fasdas model_config_rec % obs_nudge_opt = obs_nudge_opt model_config_rec % max_obs = max_obs model_config_rec % fdda_start = fdda_start model_config_rec % fdda_end = fdda_end model_config_rec % obs_nudge_wind = obs_nudge_wind model_config_rec % obs_coef_wind = obs_coef_wind model_config_rec % obs_nudge_temp = obs_nudge_temp model_config_rec % obs_coef_temp = obs_coef_temp model_config_rec % obs_nudge_mois = obs_nudge_mois model_config_rec % obs_coef_mois = obs_coef_mois model_config_rec % obs_nudge_pstr = obs_nudge_pstr model_config_rec % obs_coef_pstr = obs_coef_pstr model_config_rec % obs_no_pbl_nudge_uv = obs_no_pbl_nudge_uv model_config_rec % obs_no_pbl_nudge_t = obs_no_pbl_nudge_t model_config_rec % obs_no_pbl_nudge_q = obs_no_pbl_nudge_q model_config_rec % obs_sfc_scheme_horiz = obs_sfc_scheme_horiz model_config_rec % obs_sfc_scheme_vert = obs_sfc_scheme_vert model_config_rec % obs_max_sndng_gap = obs_max_sndng_gap model_config_rec % obs_nudgezfullr1_uv = obs_nudgezfullr1_uv model_config_rec % obs_nudgezrampr1_uv = obs_nudgezrampr1_uv model_config_rec % obs_nudgezfullr2_uv = obs_nudgezfullr2_uv model_config_rec % obs_nudgezrampr2_uv = obs_nudgezrampr2_uv model_config_rec % obs_nudgezfullr4_uv = obs_nudgezfullr4_uv model_config_rec % obs_nudgezrampr4_uv = obs_nudgezrampr4_uv model_config_rec % obs_nudgezfullr1_t = obs_nudgezfullr1_t model_config_rec % obs_nudgezrampr1_t = obs_nudgezrampr1_t model_config_rec % obs_nudgezfullr2_t = obs_nudgezfullr2_t model_config_rec % obs_nudgezrampr2_t = obs_nudgezrampr2_t model_config_rec % obs_nudgezfullr4_t = obs_nudgezfullr4_t model_config_rec % obs_nudgezrampr4_t = obs_nudgezrampr4_t model_config_rec % obs_nudgezfullr1_q = obs_nudgezfullr1_q model_config_rec % obs_nudgezrampr1_q = obs_nudgezrampr1_q model_config_rec % obs_nudgezfullr2_q = obs_nudgezfullr2_q model_config_rec % obs_nudgezrampr2_q = obs_nudgezrampr2_q model_config_rec % obs_nudgezfullr4_q = obs_nudgezfullr4_q model_config_rec % obs_nudgezrampr4_q = obs_nudgezrampr4_q model_config_rec % obs_nudgezfullmin = obs_nudgezfullmin model_config_rec % obs_nudgezrampmin = obs_nudgezrampmin model_config_rec % obs_nudgezmax = obs_nudgezmax model_config_rec % obs_sfcfact = obs_sfcfact model_config_rec % obs_sfcfacr = obs_sfcfacr model_config_rec % obs_dpsmx = obs_dpsmx model_config_rec % obs_rinxy = obs_rinxy model_config_rec % obs_rinsig = obs_rinsig model_config_rec % obs_twindo = obs_twindo model_config_rec % obs_npfi = obs_npfi model_config_rec % obs_ionf = obs_ionf model_config_rec % obs_idynin = obs_idynin model_config_rec % obs_dtramp = obs_dtramp model_config_rec % obs_prt_max = obs_prt_max model_config_rec % obs_prt_freq = obs_prt_freq model_config_rec % obs_ipf_in4dob = obs_ipf_in4dob model_config_rec % obs_ipf_errob = obs_ipf_errob model_config_rec % obs_ipf_nudob = obs_ipf_nudob model_config_rec % obs_ipf_init = obs_ipf_init model_config_rec % obs_scl_neg_qv_innov = obs_scl_neg_qv_innov model_config_rec % scm_force = scm_force model_config_rec % scm_force_dx = scm_force_dx model_config_rec % num_force_layers = num_force_layers model_config_rec % scm_lu_index = scm_lu_index model_config_rec % scm_isltyp = scm_isltyp model_config_rec % scm_vegfra = scm_vegfra model_config_rec % scm_canwat = scm_canwat model_config_rec % scm_lat = scm_lat model_config_rec % scm_lon = scm_lon model_config_rec % scm_th_t_tend = scm_th_t_tend model_config_rec % scm_qv_t_tend = scm_qv_t_tend model_config_rec % scm_th_adv = scm_th_adv model_config_rec % scm_wind_adv = scm_wind_adv model_config_rec % scm_qv_adv = scm_qv_adv model_config_rec % scm_ql_adv = scm_ql_adv model_config_rec % scm_vert_adv = scm_vert_adv model_config_rec % num_force_soil_layers = num_force_soil_layers model_config_rec % scm_soilt_force = scm_soilt_force model_config_rec % scm_soilq_force = scm_soilq_force model_config_rec % scm_force_th_largescale = scm_force_th_largescale model_config_rec % scm_force_qv_largescale = scm_force_qv_largescale model_config_rec % scm_force_ql_largescale = scm_force_ql_largescale model_config_rec % scm_force_wind_largescale = scm_force_wind_largescale model_config_rec % scm_force_skintemp = scm_force_skintemp model_config_rec % scm_force_flux = scm_force_flux model_config_rec % dyn_opt = dyn_opt model_config_rec % rk_ord = rk_ord model_config_rec % w_damping = w_damping model_config_rec % diff_opt = diff_opt model_config_rec % diff_opt_dfi = diff_opt_dfi model_config_rec % km_opt = km_opt model_config_rec % km_opt_dfi = km_opt_dfi model_config_rec % damp_opt = damp_opt model_config_rec % rad_nudge = rad_nudge model_config_rec % gwd_opt = gwd_opt model_config_rec % zdamp = zdamp model_config_rec % dampcoef = dampcoef model_config_rec % khdif = khdif model_config_rec % kvdif = kvdif model_config_rec % diff_6th_factor = diff_6th_factor model_config_rec % diff_6th_opt = diff_6th_opt model_config_rec % use_theta_m = use_theta_m model_config_rec % use_q_diabatic = use_q_diabatic model_config_rec % c_s = c_s model_config_rec % c_k = c_k model_config_rec % smdiv = smdiv model_config_rec % emdiv = emdiv model_config_rec % epssm = epssm model_config_rec % non_hydrostatic = non_hydrostatic model_config_rec % use_input_w = use_input_w model_config_rec % time_step_sound = time_step_sound model_config_rec % h_mom_adv_order = h_mom_adv_order model_config_rec % v_mom_adv_order = v_mom_adv_order model_config_rec % h_sca_adv_order = h_sca_adv_order model_config_rec % v_sca_adv_order = v_sca_adv_order model_config_rec % momentum_adv_opt = momentum_adv_opt model_config_rec % moist_adv_opt = moist_adv_opt model_config_rec % moist_adv_dfi_opt = moist_adv_dfi_opt model_config_rec % chem_adv_opt = chem_adv_opt model_config_rec % tracer_adv_opt = tracer_adv_opt model_config_rec % scalar_adv_opt = scalar_adv_opt model_config_rec % tke_adv_opt = tke_adv_opt model_config_rec % top_radiation = top_radiation model_config_rec % mix_isotropic = mix_isotropic model_config_rec % mix_upper_bound = mix_upper_bound model_config_rec % top_lid = top_lid model_config_rec % tke_upper_bound = tke_upper_bound model_config_rec % tke_drag_coefficient = tke_drag_coefficient model_config_rec % tke_heat_flux = tke_heat_flux model_config_rec % pert_coriolis = pert_coriolis model_config_rec % coriolis2d = coriolis2d model_config_rec % mix_full_fields = mix_full_fields model_config_rec % base_pres = base_pres model_config_rec % base_temp = base_temp model_config_rec % base_lapse = base_lapse model_config_rec % iso_temp = iso_temp model_config_rec % base_pres_strat = base_pres_strat model_config_rec % base_lapse_strat = base_lapse_strat model_config_rec % use_baseparam_fr_nml = use_baseparam_fr_nml model_config_rec % fft_filter_lat = fft_filter_lat model_config_rec % coupled_filtering = coupled_filtering model_config_rec % pos_def = pos_def model_config_rec % swap_pole_with_next_j = swap_pole_with_next_j model_config_rec % actual_distance_average = actual_distance_average model_config_rec % rotated_pole = rotated_pole model_config_rec % do_coriolis = do_coriolis model_config_rec % do_curvature = do_curvature model_config_rec % do_gradp = do_gradp model_config_rec % tracer_opt = tracer_opt model_config_rec % tenddiag = tenddiag model_config_rec % spec_bdy_width = spec_bdy_width model_config_rec % spec_zone = spec_zone model_config_rec % relax_zone = relax_zone model_config_rec % specified = specified model_config_rec % constant_bc = constant_bc model_config_rec % periodic_x = periodic_x model_config_rec % symmetric_xs = symmetric_xs model_config_rec % symmetric_xe = symmetric_xe model_config_rec % open_xs = open_xs model_config_rec % open_xe = open_xe model_config_rec % periodic_y = periodic_y model_config_rec % symmetric_ys = symmetric_ys model_config_rec % symmetric_ye = symmetric_ye model_config_rec % open_ys = open_ys model_config_rec % open_ye = open_ye model_config_rec % polar = polar model_config_rec % nested = nested model_config_rec % spec_exp = spec_exp model_config_rec % spec_bdy_final_mu = spec_bdy_final_mu model_config_rec % real_data_init_type = real_data_init_type model_config_rec % have_bcs_moist = have_bcs_moist model_config_rec % have_bcs_scalar = have_bcs_scalar model_config_rec % background_proc_id = background_proc_id model_config_rec % forecast_proc_id = forecast_proc_id model_config_rec % production_status = production_status model_config_rec % compression = compression model_config_rec % nobs_ndg_vars = nobs_ndg_vars model_config_rec % nobs_err_flds = nobs_err_flds model_config_rec % cen_lat = cen_lat model_config_rec % cen_lon = cen_lon model_config_rec % truelat1 = truelat1 model_config_rec % truelat2 = truelat2 model_config_rec % moad_cen_lat = moad_cen_lat model_config_rec % stand_lon = stand_lon model_config_rec % pole_lat = pole_lat model_config_rec % pole_lon = pole_lon model_config_rec % flag_metgrid = flag_metgrid model_config_rec % flag_snow = flag_snow model_config_rec % flag_psfc = flag_psfc model_config_rec % flag_sm000010 = flag_sm000010 model_config_rec % flag_sm010040 = flag_sm010040 model_config_rec % flag_sm040100 = flag_sm040100 model_config_rec % flag_sm100200 = flag_sm100200 model_config_rec % flag_st000010 = flag_st000010 model_config_rec % flag_st010040 = flag_st010040 model_config_rec % flag_st040100 = flag_st040100 model_config_rec % flag_st100200 = flag_st100200 model_config_rec % flag_soil_layers = flag_soil_layers model_config_rec % flag_slp = flag_slp model_config_rec % flag_soilhgt = flag_soilhgt model_config_rec % flag_mf_xy = flag_mf_xy model_config_rec % flag_um_soil = flag_um_soil model_config_rec % bdyfrq = bdyfrq model_config_rec % mminlu = mminlu model_config_rec % iswater = iswater model_config_rec % islake = islake model_config_rec % isice = isice model_config_rec % isurban = isurban model_config_rec % isoilwater = isoilwater model_config_rec % map_proj = map_proj model_config_rec % use_wps_input = use_wps_input model_config_rec % dfi_stage = dfi_stage model_config_rec % mp_physics_dfi = mp_physics_dfi model_config_rec % bl_pbl_physics_dfi = bl_pbl_physics_dfi model_config_rec % windfarm_opt = windfarm_opt model_config_rec % windfarm_ij = windfarm_ij model_config_rec % hailcast_opt = hailcast_opt model_config_rec % lightning_option = lightning_option model_config_rec % lightning_dt = lightning_dt model_config_rec % lightning_start_seconds = lightning_start_seconds model_config_rec % flashrate_factor = flashrate_factor model_config_rec % iccg_method = iccg_method model_config_rec % iccg_prescribed_num = iccg_prescribed_num model_config_rec % iccg_prescribed_den = iccg_prescribed_den model_config_rec % cellcount_method = cellcount_method model_config_rec % cldtop_adjustment = cldtop_adjustment model_config_rec % sf_lake_physics = sf_lake_physics model_config_rec % auxinput1_inname = auxinput1_inname model_config_rec % io_form_auxinput1 = io_form_auxinput1 model_config_rec % override_restart_timers = override_restart_timers model_config_rec % auxhist1_inname = auxhist1_inname model_config_rec % auxhist1_outname = auxhist1_outname model_config_rec % auxhist1_interval_y = auxhist1_interval_y model_config_rec % auxhist1_interval_d = auxhist1_interval_d model_config_rec % auxhist1_interval_h = auxhist1_interval_h model_config_rec % auxhist1_interval_m = auxhist1_interval_m model_config_rec % auxhist1_interval_s = auxhist1_interval_s model_config_rec % auxhist1_interval = auxhist1_interval model_config_rec % auxhist1_begin_y = auxhist1_begin_y model_config_rec % auxhist1_begin_d = auxhist1_begin_d model_config_rec % auxhist1_begin_h = auxhist1_begin_h model_config_rec % auxhist1_begin_m = auxhist1_begin_m model_config_rec % auxhist1_begin_s = auxhist1_begin_s model_config_rec % auxhist1_begin = auxhist1_begin model_config_rec % auxhist1_end_y = auxhist1_end_y model_config_rec % auxhist1_end_d = auxhist1_end_d model_config_rec % auxhist1_end_h = auxhist1_end_h model_config_rec % auxhist1_end_m = auxhist1_end_m model_config_rec % auxhist1_end_s = auxhist1_end_s model_config_rec % auxhist1_end = auxhist1_end model_config_rec % io_form_auxhist1 = io_form_auxhist1 model_config_rec % frames_per_auxhist1 = frames_per_auxhist1 model_config_rec % auxhist2_inname = auxhist2_inname model_config_rec % auxhist2_outname = auxhist2_outname model_config_rec % auxhist2_interval_y = auxhist2_interval_y model_config_rec % auxhist2_interval_d = auxhist2_interval_d model_config_rec % auxhist2_interval_h = auxhist2_interval_h model_config_rec % auxhist2_interval_m = auxhist2_interval_m model_config_rec % auxhist2_interval_s = auxhist2_interval_s model_config_rec % auxhist2_interval = auxhist2_interval model_config_rec % auxhist2_begin_y = auxhist2_begin_y model_config_rec % auxhist2_begin_d = auxhist2_begin_d model_config_rec % auxhist2_begin_h = auxhist2_begin_h model_config_rec % auxhist2_begin_m = auxhist2_begin_m model_config_rec % auxhist2_begin_s = auxhist2_begin_s model_config_rec % auxhist2_begin = auxhist2_begin model_config_rec % auxhist2_end_y = auxhist2_end_y model_config_rec % auxhist2_end_d = auxhist2_end_d model_config_rec % auxhist2_end_h = auxhist2_end_h model_config_rec % auxhist2_end_m = auxhist2_end_m model_config_rec % auxhist2_end_s = auxhist2_end_s model_config_rec % auxhist2_end = auxhist2_end model_config_rec % io_form_auxhist2 = io_form_auxhist2 model_config_rec % frames_per_auxhist2 = frames_per_auxhist2 model_config_rec % auxhist3_inname = auxhist3_inname model_config_rec % auxhist3_outname = auxhist3_outname model_config_rec % auxhist3_interval_y = auxhist3_interval_y model_config_rec % auxhist3_interval_d = auxhist3_interval_d model_config_rec % auxhist3_interval_h = auxhist3_interval_h model_config_rec % auxhist3_interval_m = auxhist3_interval_m model_config_rec % auxhist3_interval_s = auxhist3_interval_s model_config_rec % auxhist3_interval = auxhist3_interval model_config_rec % auxhist3_begin_y = auxhist3_begin_y model_config_rec % auxhist3_begin_d = auxhist3_begin_d model_config_rec % auxhist3_begin_h = auxhist3_begin_h model_config_rec % auxhist3_begin_m = auxhist3_begin_m model_config_rec % auxhist3_begin_s = auxhist3_begin_s model_config_rec % auxhist3_begin = auxhist3_begin model_config_rec % auxhist3_end_y = auxhist3_end_y model_config_rec % auxhist3_end_d = auxhist3_end_d model_config_rec % auxhist3_end_h = auxhist3_end_h model_config_rec % auxhist3_end_m = auxhist3_end_m model_config_rec % auxhist3_end_s = auxhist3_end_s model_config_rec % auxhist3_end = auxhist3_end model_config_rec % io_form_auxhist3 = io_form_auxhist3 model_config_rec % frames_per_auxhist3 = frames_per_auxhist3 model_config_rec % auxhist4_inname = auxhist4_inname model_config_rec % auxhist4_outname = auxhist4_outname model_config_rec % auxhist4_interval_y = auxhist4_interval_y model_config_rec % auxhist4_interval_d = auxhist4_interval_d model_config_rec % auxhist4_interval_h = auxhist4_interval_h model_config_rec % auxhist4_interval_m = auxhist4_interval_m model_config_rec % auxhist4_interval_s = auxhist4_interval_s model_config_rec % auxhist4_interval = auxhist4_interval model_config_rec % auxhist4_begin_y = auxhist4_begin_y model_config_rec % auxhist4_begin_d = auxhist4_begin_d model_config_rec % auxhist4_begin_h = auxhist4_begin_h model_config_rec % auxhist4_begin_m = auxhist4_begin_m model_config_rec % auxhist4_begin_s = auxhist4_begin_s model_config_rec % auxhist4_begin = auxhist4_begin model_config_rec % auxhist4_end_y = auxhist4_end_y model_config_rec % auxhist4_end_d = auxhist4_end_d model_config_rec % auxhist4_end_h = auxhist4_end_h model_config_rec % auxhist4_end_m = auxhist4_end_m model_config_rec % auxhist4_end_s = auxhist4_end_s model_config_rec % auxhist4_end = auxhist4_end model_config_rec % io_form_auxhist4 = io_form_auxhist4 model_config_rec % frames_per_auxhist4 = frames_per_auxhist4 model_config_rec % auxhist5_inname = auxhist5_inname model_config_rec % auxhist5_outname = auxhist5_outname model_config_rec % auxhist5_interval_y = auxhist5_interval_y model_config_rec % auxhist5_interval_d = auxhist5_interval_d model_config_rec % auxhist5_interval_h = auxhist5_interval_h model_config_rec % auxhist5_interval_m = auxhist5_interval_m model_config_rec % auxhist5_interval_s = auxhist5_interval_s model_config_rec % auxhist5_interval = auxhist5_interval model_config_rec % auxhist5_begin_y = auxhist5_begin_y model_config_rec % auxhist5_begin_d = auxhist5_begin_d model_config_rec % auxhist5_begin_h = auxhist5_begin_h model_config_rec % auxhist5_begin_m = auxhist5_begin_m model_config_rec % auxhist5_begin_s = auxhist5_begin_s model_config_rec % auxhist5_begin = auxhist5_begin model_config_rec % auxhist5_end_y = auxhist5_end_y model_config_rec % auxhist5_end_d = auxhist5_end_d model_config_rec % auxhist5_end_h = auxhist5_end_h model_config_rec % auxhist5_end_m = auxhist5_end_m model_config_rec % auxhist5_end_s = auxhist5_end_s model_config_rec % auxhist5_end = auxhist5_end model_config_rec % io_form_auxhist5 = io_form_auxhist5 model_config_rec % frames_per_auxhist5 = frames_per_auxhist5 model_config_rec % auxhist6_inname = auxhist6_inname model_config_rec % auxhist6_outname = auxhist6_outname model_config_rec % auxhist6_interval_y = auxhist6_interval_y model_config_rec % auxhist6_interval_d = auxhist6_interval_d model_config_rec % auxhist6_interval_h = auxhist6_interval_h model_config_rec % auxhist6_interval_m = auxhist6_interval_m model_config_rec % auxhist6_interval_s = auxhist6_interval_s model_config_rec % auxhist6_interval = auxhist6_interval model_config_rec % auxhist6_begin_y = auxhist6_begin_y model_config_rec % auxhist6_begin_d = auxhist6_begin_d model_config_rec % auxhist6_begin_h = auxhist6_begin_h model_config_rec % auxhist6_begin_m = auxhist6_begin_m model_config_rec % auxhist6_begin_s = auxhist6_begin_s model_config_rec % auxhist6_begin = auxhist6_begin model_config_rec % auxhist6_end_y = auxhist6_end_y model_config_rec % auxhist6_end_d = auxhist6_end_d model_config_rec % auxhist6_end_h = auxhist6_end_h model_config_rec % auxhist6_end_m = auxhist6_end_m model_config_rec % auxhist6_end_s = auxhist6_end_s model_config_rec % auxhist6_end = auxhist6_end model_config_rec % io_form_auxhist6 = io_form_auxhist6 model_config_rec % frames_per_auxhist6 = frames_per_auxhist6 model_config_rec % auxhist7_inname = auxhist7_inname model_config_rec % auxhist7_outname = auxhist7_outname model_config_rec % auxhist7_interval_y = auxhist7_interval_y model_config_rec % auxhist7_interval_d = auxhist7_interval_d model_config_rec % auxhist7_interval_h = auxhist7_interval_h model_config_rec % auxhist7_interval_m = auxhist7_interval_m model_config_rec % auxhist7_interval_s = auxhist7_interval_s model_config_rec % auxhist7_interval = auxhist7_interval model_config_rec % auxhist7_begin_y = auxhist7_begin_y model_config_rec % auxhist7_begin_d = auxhist7_begin_d model_config_rec % auxhist7_begin_h = auxhist7_begin_h model_config_rec % auxhist7_begin_m = auxhist7_begin_m model_config_rec % auxhist7_begin_s = auxhist7_begin_s model_config_rec % auxhist7_begin = auxhist7_begin model_config_rec % auxhist7_end_y = auxhist7_end_y model_config_rec % auxhist7_end_d = auxhist7_end_d model_config_rec % auxhist7_end_h = auxhist7_end_h model_config_rec % auxhist7_end_m = auxhist7_end_m model_config_rec % auxhist7_end_s = auxhist7_end_s model_config_rec % auxhist7_end = auxhist7_end model_config_rec % io_form_auxhist7 = io_form_auxhist7 model_config_rec % frames_per_auxhist7 = frames_per_auxhist7 model_config_rec % auxhist8_inname = auxhist8_inname model_config_rec % auxhist8_outname = auxhist8_outname model_config_rec % auxhist8_interval_y = auxhist8_interval_y model_config_rec % auxhist8_interval_d = auxhist8_interval_d model_config_rec % auxhist8_interval_h = auxhist8_interval_h model_config_rec % auxhist8_interval_m = auxhist8_interval_m model_config_rec % auxhist8_interval_s = auxhist8_interval_s model_config_rec % auxhist8_interval = auxhist8_interval model_config_rec % auxhist8_begin_y = auxhist8_begin_y model_config_rec % auxhist8_begin_d = auxhist8_begin_d model_config_rec % auxhist8_begin_h = auxhist8_begin_h model_config_rec % auxhist8_begin_m = auxhist8_begin_m model_config_rec % auxhist8_begin_s = auxhist8_begin_s model_config_rec % auxhist8_begin = auxhist8_begin model_config_rec % auxhist8_end_y = auxhist8_end_y model_config_rec % auxhist8_end_d = auxhist8_end_d model_config_rec % auxhist8_end_h = auxhist8_end_h model_config_rec % auxhist8_end_m = auxhist8_end_m model_config_rec % auxhist8_end_s = auxhist8_end_s model_config_rec % auxhist8_end = auxhist8_end model_config_rec % io_form_auxhist8 = io_form_auxhist8 model_config_rec % frames_per_auxhist8 = frames_per_auxhist8 model_config_rec % auxhist9_inname = auxhist9_inname model_config_rec % auxhist9_outname = auxhist9_outname model_config_rec % auxhist9_interval_y = auxhist9_interval_y model_config_rec % auxhist9_interval_d = auxhist9_interval_d model_config_rec % auxhist9_interval_h = auxhist9_interval_h model_config_rec % auxhist9_interval_m = auxhist9_interval_m model_config_rec % auxhist9_interval_s = auxhist9_interval_s model_config_rec % auxhist9_interval = auxhist9_interval model_config_rec % auxhist9_begin_y = auxhist9_begin_y model_config_rec % auxhist9_begin_d = auxhist9_begin_d model_config_rec % auxhist9_begin_h = auxhist9_begin_h model_config_rec % auxhist9_begin_m = auxhist9_begin_m model_config_rec % auxhist9_begin_s = auxhist9_begin_s model_config_rec % auxhist9_begin = auxhist9_begin model_config_rec % auxhist9_end_y = auxhist9_end_y model_config_rec % auxhist9_end_d = auxhist9_end_d model_config_rec % auxhist9_end_h = auxhist9_end_h model_config_rec % auxhist9_end_m = auxhist9_end_m model_config_rec % auxhist9_end_s = auxhist9_end_s model_config_rec % auxhist9_end = auxhist9_end model_config_rec % io_form_auxhist9 = io_form_auxhist9 model_config_rec % frames_per_auxhist9 = frames_per_auxhist9 model_config_rec % auxhist10_inname = auxhist10_inname model_config_rec % auxhist10_outname = auxhist10_outname model_config_rec % auxhist10_interval_y = auxhist10_interval_y model_config_rec % auxhist10_interval_d = auxhist10_interval_d model_config_rec % auxhist10_interval_h = auxhist10_interval_h model_config_rec % auxhist10_interval_m = auxhist10_interval_m model_config_rec % auxhist10_interval_s = auxhist10_interval_s model_config_rec % auxhist10_interval = auxhist10_interval model_config_rec % auxhist10_begin_y = auxhist10_begin_y model_config_rec % auxhist10_begin_d = auxhist10_begin_d model_config_rec % auxhist10_begin_h = auxhist10_begin_h model_config_rec % auxhist10_begin_m = auxhist10_begin_m model_config_rec % auxhist10_begin_s = auxhist10_begin_s model_config_rec % auxhist10_begin = auxhist10_begin model_config_rec % auxhist10_end_y = auxhist10_end_y model_config_rec % auxhist10_end_d = auxhist10_end_d model_config_rec % auxhist10_end_h = auxhist10_end_h model_config_rec % auxhist10_end_m = auxhist10_end_m model_config_rec % auxhist10_end_s = auxhist10_end_s model_config_rec % auxhist10_end = auxhist10_end model_config_rec % io_form_auxhist10 = io_form_auxhist10 model_config_rec % frames_per_auxhist10 = frames_per_auxhist10 model_config_rec % auxhist11_inname = auxhist11_inname model_config_rec % auxhist11_outname = auxhist11_outname model_config_rec % auxhist11_interval_y = auxhist11_interval_y model_config_rec % auxhist11_interval_d = auxhist11_interval_d model_config_rec % auxhist11_interval_h = auxhist11_interval_h model_config_rec % auxhist11_interval_m = auxhist11_interval_m model_config_rec % auxhist11_interval_s = auxhist11_interval_s model_config_rec % auxhist11_interval = auxhist11_interval model_config_rec % auxhist11_begin_y = auxhist11_begin_y model_config_rec % auxhist11_begin_d = auxhist11_begin_d model_config_rec % auxhist11_begin_h = auxhist11_begin_h model_config_rec % auxhist11_begin_m = auxhist11_begin_m model_config_rec % auxhist11_begin_s = auxhist11_begin_s model_config_rec % auxhist11_begin = auxhist11_begin model_config_rec % auxhist11_end_y = auxhist11_end_y model_config_rec % auxhist11_end_d = auxhist11_end_d model_config_rec % auxhist11_end_h = auxhist11_end_h model_config_rec % auxhist11_end_m = auxhist11_end_m model_config_rec % auxhist11_end_s = auxhist11_end_s model_config_rec % auxhist11_end = auxhist11_end model_config_rec % io_form_auxhist11 = io_form_auxhist11 model_config_rec % frames_per_auxhist11 = frames_per_auxhist11 model_config_rec % auxhist12_inname = auxhist12_inname model_config_rec % auxhist12_outname = auxhist12_outname model_config_rec % auxhist12_interval_y = auxhist12_interval_y model_config_rec % auxhist12_interval_d = auxhist12_interval_d model_config_rec % auxhist12_interval_h = auxhist12_interval_h model_config_rec % auxhist12_interval_m = auxhist12_interval_m model_config_rec % auxhist12_interval_s = auxhist12_interval_s model_config_rec % auxhist12_interval = auxhist12_interval model_config_rec % auxhist12_begin_y = auxhist12_begin_y model_config_rec % auxhist12_begin_d = auxhist12_begin_d model_config_rec % auxhist12_begin_h = auxhist12_begin_h model_config_rec % auxhist12_begin_m = auxhist12_begin_m model_config_rec % auxhist12_begin_s = auxhist12_begin_s model_config_rec % auxhist12_begin = auxhist12_begin model_config_rec % auxhist12_end_y = auxhist12_end_y model_config_rec % auxhist12_end_d = auxhist12_end_d model_config_rec % auxhist12_end_h = auxhist12_end_h model_config_rec % auxhist12_end_m = auxhist12_end_m model_config_rec % auxhist12_end_s = auxhist12_end_s model_config_rec % auxhist12_end = auxhist12_end model_config_rec % io_form_auxhist12 = io_form_auxhist12 model_config_rec % frames_per_auxhist12 = frames_per_auxhist12 model_config_rec % auxhist13_inname = auxhist13_inname model_config_rec % auxhist13_outname = auxhist13_outname model_config_rec % auxhist13_interval_y = auxhist13_interval_y model_config_rec % auxhist13_interval_d = auxhist13_interval_d model_config_rec % auxhist13_interval_h = auxhist13_interval_h model_config_rec % auxhist13_interval_m = auxhist13_interval_m model_config_rec % auxhist13_interval_s = auxhist13_interval_s model_config_rec % auxhist13_interval = auxhist13_interval model_config_rec % auxhist13_begin_y = auxhist13_begin_y model_config_rec % auxhist13_begin_d = auxhist13_begin_d model_config_rec % auxhist13_begin_h = auxhist13_begin_h model_config_rec % auxhist13_begin_m = auxhist13_begin_m model_config_rec % auxhist13_begin_s = auxhist13_begin_s model_config_rec % auxhist13_begin = auxhist13_begin model_config_rec % auxhist13_end_y = auxhist13_end_y model_config_rec % auxhist13_end_d = auxhist13_end_d model_config_rec % auxhist13_end_h = auxhist13_end_h model_config_rec % auxhist13_end_m = auxhist13_end_m model_config_rec % auxhist13_end_s = auxhist13_end_s model_config_rec % auxhist13_end = auxhist13_end model_config_rec % io_form_auxhist13 = io_form_auxhist13 model_config_rec % frames_per_auxhist13 = frames_per_auxhist13 model_config_rec % auxhist14_inname = auxhist14_inname model_config_rec % auxhist14_outname = auxhist14_outname model_config_rec % auxhist14_interval_y = auxhist14_interval_y model_config_rec % auxhist14_interval_d = auxhist14_interval_d model_config_rec % auxhist14_interval_h = auxhist14_interval_h model_config_rec % auxhist14_interval_m = auxhist14_interval_m model_config_rec % auxhist14_interval_s = auxhist14_interval_s model_config_rec % auxhist14_interval = auxhist14_interval model_config_rec % auxhist14_begin_y = auxhist14_begin_y model_config_rec % auxhist14_begin_d = auxhist14_begin_d model_config_rec % auxhist14_begin_h = auxhist14_begin_h model_config_rec % auxhist14_begin_m = auxhist14_begin_m model_config_rec % auxhist14_begin_s = auxhist14_begin_s model_config_rec % auxhist14_begin = auxhist14_begin model_config_rec % auxhist14_end_y = auxhist14_end_y model_config_rec % auxhist14_end_d = auxhist14_end_d model_config_rec % auxhist14_end_h = auxhist14_end_h model_config_rec % auxhist14_end_m = auxhist14_end_m model_config_rec % auxhist14_end_s = auxhist14_end_s model_config_rec % auxhist14_end = auxhist14_end model_config_rec % io_form_auxhist14 = io_form_auxhist14 model_config_rec % frames_per_auxhist14 = frames_per_auxhist14 model_config_rec % auxhist15_inname = auxhist15_inname model_config_rec % auxhist15_outname = auxhist15_outname model_config_rec % auxhist15_interval_y = auxhist15_interval_y model_config_rec % auxhist15_interval_d = auxhist15_interval_d model_config_rec % auxhist15_interval_h = auxhist15_interval_h model_config_rec % auxhist15_interval_m = auxhist15_interval_m model_config_rec % auxhist15_interval_s = auxhist15_interval_s model_config_rec % auxhist15_interval = auxhist15_interval model_config_rec % auxhist15_begin_y = auxhist15_begin_y model_config_rec % auxhist15_begin_d = auxhist15_begin_d model_config_rec % auxhist15_begin_h = auxhist15_begin_h model_config_rec % auxhist15_begin_m = auxhist15_begin_m model_config_rec % auxhist15_begin_s = auxhist15_begin_s model_config_rec % auxhist15_begin = auxhist15_begin model_config_rec % auxhist15_end_y = auxhist15_end_y model_config_rec % auxhist15_end_d = auxhist15_end_d model_config_rec % auxhist15_end_h = auxhist15_end_h model_config_rec % auxhist15_end_m = auxhist15_end_m model_config_rec % auxhist15_end_s = auxhist15_end_s model_config_rec % auxhist15_end = auxhist15_end model_config_rec % io_form_auxhist15 = io_form_auxhist15 model_config_rec % frames_per_auxhist15 = frames_per_auxhist15 model_config_rec % auxhist16_inname = auxhist16_inname model_config_rec % auxhist16_outname = auxhist16_outname model_config_rec % auxhist16_interval_y = auxhist16_interval_y model_config_rec % auxhist16_interval_d = auxhist16_interval_d model_config_rec % auxhist16_interval_h = auxhist16_interval_h model_config_rec % auxhist16_interval_m = auxhist16_interval_m model_config_rec % auxhist16_interval_s = auxhist16_interval_s model_config_rec % auxhist16_interval = auxhist16_interval model_config_rec % auxhist16_begin_y = auxhist16_begin_y model_config_rec % auxhist16_begin_d = auxhist16_begin_d model_config_rec % auxhist16_begin_h = auxhist16_begin_h model_config_rec % auxhist16_begin_m = auxhist16_begin_m model_config_rec % auxhist16_begin_s = auxhist16_begin_s model_config_rec % auxhist16_begin = auxhist16_begin model_config_rec % auxhist16_end_y = auxhist16_end_y model_config_rec % auxhist16_end_d = auxhist16_end_d model_config_rec % auxhist16_end_h = auxhist16_end_h model_config_rec % auxhist16_end_m = auxhist16_end_m model_config_rec % auxhist16_end_s = auxhist16_end_s model_config_rec % auxhist16_end = auxhist16_end model_config_rec % io_form_auxhist16 = io_form_auxhist16 model_config_rec % frames_per_auxhist16 = frames_per_auxhist16 model_config_rec % auxhist17_inname = auxhist17_inname model_config_rec % auxhist17_outname = auxhist17_outname model_config_rec % auxhist17_interval_y = auxhist17_interval_y model_config_rec % auxhist17_interval_d = auxhist17_interval_d model_config_rec % auxhist17_interval_h = auxhist17_interval_h model_config_rec % auxhist17_interval_m = auxhist17_interval_m model_config_rec % auxhist17_interval_s = auxhist17_interval_s model_config_rec % auxhist17_interval = auxhist17_interval model_config_rec % auxhist17_begin_y = auxhist17_begin_y model_config_rec % auxhist17_begin_d = auxhist17_begin_d model_config_rec % auxhist17_begin_h = auxhist17_begin_h model_config_rec % auxhist17_begin_m = auxhist17_begin_m model_config_rec % auxhist17_begin_s = auxhist17_begin_s model_config_rec % auxhist17_begin = auxhist17_begin model_config_rec % auxhist17_end_y = auxhist17_end_y model_config_rec % auxhist17_end_d = auxhist17_end_d model_config_rec % auxhist17_end_h = auxhist17_end_h model_config_rec % auxhist17_end_m = auxhist17_end_m model_config_rec % auxhist17_end_s = auxhist17_end_s model_config_rec % auxhist17_end = auxhist17_end model_config_rec % io_form_auxhist17 = io_form_auxhist17 model_config_rec % frames_per_auxhist17 = frames_per_auxhist17 model_config_rec % auxhist18_inname = auxhist18_inname model_config_rec % auxhist18_outname = auxhist18_outname model_config_rec % auxhist18_interval_y = auxhist18_interval_y model_config_rec % auxhist18_interval_d = auxhist18_interval_d model_config_rec % auxhist18_interval_h = auxhist18_interval_h model_config_rec % auxhist18_interval_m = auxhist18_interval_m model_config_rec % auxhist18_interval_s = auxhist18_interval_s model_config_rec % auxhist18_interval = auxhist18_interval model_config_rec % auxhist18_begin_y = auxhist18_begin_y model_config_rec % auxhist18_begin_d = auxhist18_begin_d model_config_rec % auxhist18_begin_h = auxhist18_begin_h model_config_rec % auxhist18_begin_m = auxhist18_begin_m model_config_rec % auxhist18_begin_s = auxhist18_begin_s model_config_rec % auxhist18_begin = auxhist18_begin model_config_rec % auxhist18_end_y = auxhist18_end_y model_config_rec % auxhist18_end_d = auxhist18_end_d model_config_rec % auxhist18_end_h = auxhist18_end_h model_config_rec % auxhist18_end_m = auxhist18_end_m model_config_rec % auxhist18_end_s = auxhist18_end_s model_config_rec % auxhist18_end = auxhist18_end model_config_rec % io_form_auxhist18 = io_form_auxhist18 model_config_rec % frames_per_auxhist18 = frames_per_auxhist18 model_config_rec % auxhist19_inname = auxhist19_inname model_config_rec % auxhist19_outname = auxhist19_outname model_config_rec % auxhist19_interval_y = auxhist19_interval_y model_config_rec % auxhist19_interval_d = auxhist19_interval_d model_config_rec % auxhist19_interval_h = auxhist19_interval_h model_config_rec % auxhist19_interval_m = auxhist19_interval_m model_config_rec % auxhist19_interval_s = auxhist19_interval_s model_config_rec % auxhist19_interval = auxhist19_interval model_config_rec % auxhist19_begin_y = auxhist19_begin_y model_config_rec % auxhist19_begin_d = auxhist19_begin_d model_config_rec % auxhist19_begin_h = auxhist19_begin_h model_config_rec % auxhist19_begin_m = auxhist19_begin_m model_config_rec % auxhist19_begin_s = auxhist19_begin_s model_config_rec % auxhist19_begin = auxhist19_begin model_config_rec % auxhist19_end_y = auxhist19_end_y model_config_rec % auxhist19_end_d = auxhist19_end_d model_config_rec % auxhist19_end_h = auxhist19_end_h model_config_rec % auxhist19_end_m = auxhist19_end_m model_config_rec % auxhist19_end_s = auxhist19_end_s model_config_rec % auxhist19_end = auxhist19_end model_config_rec % io_form_auxhist19 = io_form_auxhist19 model_config_rec % frames_per_auxhist19 = frames_per_auxhist19 model_config_rec % auxhist20_inname = auxhist20_inname model_config_rec % auxhist20_outname = auxhist20_outname model_config_rec % auxhist20_interval_y = auxhist20_interval_y model_config_rec % auxhist20_interval_d = auxhist20_interval_d model_config_rec % auxhist20_interval_h = auxhist20_interval_h model_config_rec % auxhist20_interval_m = auxhist20_interval_m model_config_rec % auxhist20_interval_s = auxhist20_interval_s model_config_rec % auxhist20_interval = auxhist20_interval model_config_rec % auxhist20_begin_y = auxhist20_begin_y model_config_rec % auxhist20_begin_d = auxhist20_begin_d model_config_rec % auxhist20_begin_h = auxhist20_begin_h model_config_rec % auxhist20_begin_m = auxhist20_begin_m model_config_rec % auxhist20_begin_s = auxhist20_begin_s model_config_rec % auxhist20_begin = auxhist20_begin model_config_rec % auxhist20_end_y = auxhist20_end_y model_config_rec % auxhist20_end_d = auxhist20_end_d model_config_rec % auxhist20_end_h = auxhist20_end_h model_config_rec % auxhist20_end_m = auxhist20_end_m model_config_rec % auxhist20_end_s = auxhist20_end_s model_config_rec % auxhist20_end = auxhist20_end model_config_rec % io_form_auxhist20 = io_form_auxhist20 model_config_rec % frames_per_auxhist20 = frames_per_auxhist20 model_config_rec % auxhist21_inname = auxhist21_inname model_config_rec % auxhist21_outname = auxhist21_outname model_config_rec % auxhist21_interval_y = auxhist21_interval_y model_config_rec % auxhist21_interval_d = auxhist21_interval_d model_config_rec % auxhist21_interval_h = auxhist21_interval_h model_config_rec % auxhist21_interval_m = auxhist21_interval_m model_config_rec % auxhist21_interval_s = auxhist21_interval_s model_config_rec % auxhist21_interval = auxhist21_interval model_config_rec % auxhist21_begin_y = auxhist21_begin_y model_config_rec % auxhist21_begin_d = auxhist21_begin_d model_config_rec % auxhist21_begin_h = auxhist21_begin_h model_config_rec % auxhist21_begin_m = auxhist21_begin_m model_config_rec % auxhist21_begin_s = auxhist21_begin_s model_config_rec % auxhist21_begin = auxhist21_begin model_config_rec % auxhist21_end_y = auxhist21_end_y model_config_rec % auxhist21_end_d = auxhist21_end_d model_config_rec % auxhist21_end_h = auxhist21_end_h model_config_rec % auxhist21_end_m = auxhist21_end_m model_config_rec % auxhist21_end_s = auxhist21_end_s model_config_rec % auxhist21_end = auxhist21_end model_config_rec % io_form_auxhist21 = io_form_auxhist21 model_config_rec % frames_per_auxhist21 = frames_per_auxhist21 model_config_rec % auxhist22_inname = auxhist22_inname model_config_rec % auxhist22_outname = auxhist22_outname model_config_rec % auxhist22_interval_y = auxhist22_interval_y model_config_rec % auxhist22_interval_d = auxhist22_interval_d model_config_rec % auxhist22_interval_h = auxhist22_interval_h model_config_rec % auxhist22_interval_m = auxhist22_interval_m model_config_rec % auxhist22_interval_s = auxhist22_interval_s model_config_rec % auxhist22_interval = auxhist22_interval model_config_rec % auxhist22_begin_y = auxhist22_begin_y model_config_rec % auxhist22_begin_d = auxhist22_begin_d model_config_rec % auxhist22_begin_h = auxhist22_begin_h model_config_rec % auxhist22_begin_m = auxhist22_begin_m model_config_rec % auxhist22_begin_s = auxhist22_begin_s model_config_rec % auxhist22_begin = auxhist22_begin model_config_rec % auxhist22_end_y = auxhist22_end_y model_config_rec % auxhist22_end_d = auxhist22_end_d model_config_rec % auxhist22_end_h = auxhist22_end_h model_config_rec % auxhist22_end_m = auxhist22_end_m model_config_rec % auxhist22_end_s = auxhist22_end_s model_config_rec % auxhist22_end = auxhist22_end model_config_rec % io_form_auxhist22 = io_form_auxhist22 model_config_rec % frames_per_auxhist22 = frames_per_auxhist22 model_config_rec % auxhist23_inname = auxhist23_inname model_config_rec % auxhist23_outname = auxhist23_outname model_config_rec % auxhist23_interval_y = auxhist23_interval_y model_config_rec % auxhist23_interval_d = auxhist23_interval_d model_config_rec % auxhist23_interval_h = auxhist23_interval_h model_config_rec % auxhist23_interval_m = auxhist23_interval_m model_config_rec % auxhist23_interval_s = auxhist23_interval_s model_config_rec % auxhist23_interval = auxhist23_interval model_config_rec % auxhist23_begin_y = auxhist23_begin_y model_config_rec % auxhist23_begin_d = auxhist23_begin_d model_config_rec % auxhist23_begin_h = auxhist23_begin_h model_config_rec % auxhist23_begin_m = auxhist23_begin_m model_config_rec % auxhist23_begin_s = auxhist23_begin_s model_config_rec % auxhist23_begin = auxhist23_begin model_config_rec % auxhist23_end_y = auxhist23_end_y model_config_rec % auxhist23_end_d = auxhist23_end_d model_config_rec % auxhist23_end_h = auxhist23_end_h model_config_rec % auxhist23_end_m = auxhist23_end_m model_config_rec % auxhist23_end_s = auxhist23_end_s model_config_rec % auxhist23_end = auxhist23_end model_config_rec % io_form_auxhist23 = io_form_auxhist23 model_config_rec % frames_per_auxhist23 = frames_per_auxhist23 model_config_rec % auxhist24_inname = auxhist24_inname model_config_rec % auxhist24_outname = auxhist24_outname model_config_rec % auxhist24_interval_y = auxhist24_interval_y model_config_rec % auxhist24_interval_d = auxhist24_interval_d model_config_rec % auxhist24_interval_h = auxhist24_interval_h model_config_rec % auxhist24_interval_m = auxhist24_interval_m model_config_rec % auxhist24_interval_s = auxhist24_interval_s model_config_rec % auxhist24_interval = auxhist24_interval model_config_rec % auxhist24_begin_y = auxhist24_begin_y model_config_rec % auxhist24_begin_d = auxhist24_begin_d model_config_rec % auxhist24_begin_h = auxhist24_begin_h model_config_rec % auxhist24_begin_m = auxhist24_begin_m model_config_rec % auxhist24_begin_s = auxhist24_begin_s model_config_rec % auxhist24_begin = auxhist24_begin model_config_rec % auxhist24_end_y = auxhist24_end_y model_config_rec % auxhist24_end_d = auxhist24_end_d model_config_rec % auxhist24_end_h = auxhist24_end_h model_config_rec % auxhist24_end_m = auxhist24_end_m model_config_rec % auxhist24_end_s = auxhist24_end_s model_config_rec % auxhist24_end = auxhist24_end model_config_rec % io_form_auxhist24 = io_form_auxhist24 model_config_rec % frames_per_auxhist24 = frames_per_auxhist24 model_config_rec % auxinput1_outname = auxinput1_outname model_config_rec % auxinput1_interval_y = auxinput1_interval_y model_config_rec % auxinput1_interval_d = auxinput1_interval_d model_config_rec % auxinput1_interval_h = auxinput1_interval_h model_config_rec % auxinput1_interval_m = auxinput1_interval_m model_config_rec % auxinput1_interval_s = auxinput1_interval_s model_config_rec % auxinput1_interval = auxinput1_interval model_config_rec % auxinput1_begin_y = auxinput1_begin_y model_config_rec % auxinput1_begin_d = auxinput1_begin_d model_config_rec % auxinput1_begin_h = auxinput1_begin_h model_config_rec % auxinput1_begin_m = auxinput1_begin_m model_config_rec % auxinput1_begin_s = auxinput1_begin_s model_config_rec % auxinput1_begin = auxinput1_begin model_config_rec % auxinput1_end_y = auxinput1_end_y model_config_rec % auxinput1_end_d = auxinput1_end_d model_config_rec % auxinput1_end_h = auxinput1_end_h model_config_rec % auxinput1_end_m = auxinput1_end_m model_config_rec % auxinput1_end_s = auxinput1_end_s model_config_rec % auxinput1_end = auxinput1_end model_config_rec % frames_per_auxinput1 = frames_per_auxinput1 model_config_rec % auxinput2_inname = auxinput2_inname model_config_rec % auxinput2_outname = auxinput2_outname model_config_rec % auxinput2_interval_y = auxinput2_interval_y model_config_rec % auxinput2_interval_d = auxinput2_interval_d model_config_rec % auxinput2_interval_h = auxinput2_interval_h model_config_rec % auxinput2_interval_m = auxinput2_interval_m model_config_rec % auxinput2_interval_s = auxinput2_interval_s model_config_rec % auxinput2_interval = auxinput2_interval model_config_rec % auxinput2_begin_y = auxinput2_begin_y model_config_rec % auxinput2_begin_d = auxinput2_begin_d model_config_rec % auxinput2_begin_h = auxinput2_begin_h model_config_rec % auxinput2_begin_m = auxinput2_begin_m model_config_rec % auxinput2_begin_s = auxinput2_begin_s model_config_rec % auxinput2_begin = auxinput2_begin model_config_rec % auxinput2_end_y = auxinput2_end_y model_config_rec % auxinput2_end_d = auxinput2_end_d model_config_rec % auxinput2_end_h = auxinput2_end_h model_config_rec % auxinput2_end_m = auxinput2_end_m model_config_rec % auxinput2_end_s = auxinput2_end_s model_config_rec % auxinput2_end = auxinput2_end model_config_rec % io_form_auxinput2 = io_form_auxinput2 model_config_rec % frames_per_auxinput2 = frames_per_auxinput2 model_config_rec % auxinput3_inname = auxinput3_inname model_config_rec % auxinput3_outname = auxinput3_outname model_config_rec % auxinput3_interval_y = auxinput3_interval_y model_config_rec % auxinput3_interval_d = auxinput3_interval_d model_config_rec % auxinput3_interval_h = auxinput3_interval_h model_config_rec % auxinput3_interval_m = auxinput3_interval_m model_config_rec % auxinput3_interval_s = auxinput3_interval_s model_config_rec % auxinput3_interval = auxinput3_interval model_config_rec % auxinput3_begin_y = auxinput3_begin_y model_config_rec % auxinput3_begin_d = auxinput3_begin_d model_config_rec % auxinput3_begin_h = auxinput3_begin_h model_config_rec % auxinput3_begin_m = auxinput3_begin_m model_config_rec % auxinput3_begin_s = auxinput3_begin_s model_config_rec % auxinput3_begin = auxinput3_begin model_config_rec % auxinput3_end_y = auxinput3_end_y model_config_rec % auxinput3_end_d = auxinput3_end_d model_config_rec % auxinput3_end_h = auxinput3_end_h model_config_rec % auxinput3_end_m = auxinput3_end_m model_config_rec % auxinput3_end_s = auxinput3_end_s model_config_rec % auxinput3_end = auxinput3_end model_config_rec % io_form_auxinput3 = io_form_auxinput3 model_config_rec % frames_per_auxinput3 = frames_per_auxinput3 model_config_rec % auxinput4_inname = auxinput4_inname model_config_rec % auxinput4_outname = auxinput4_outname model_config_rec % auxinput4_interval_y = auxinput4_interval_y model_config_rec % auxinput4_interval_d = auxinput4_interval_d model_config_rec % auxinput4_interval_h = auxinput4_interval_h model_config_rec % auxinput4_interval_m = auxinput4_interval_m model_config_rec % auxinput4_interval_s = auxinput4_interval_s model_config_rec % auxinput4_interval = auxinput4_interval model_config_rec % auxinput4_begin_y = auxinput4_begin_y model_config_rec % auxinput4_begin_d = auxinput4_begin_d model_config_rec % auxinput4_begin_h = auxinput4_begin_h model_config_rec % auxinput4_begin_m = auxinput4_begin_m model_config_rec % auxinput4_begin_s = auxinput4_begin_s model_config_rec % auxinput4_begin = auxinput4_begin model_config_rec % auxinput4_end_y = auxinput4_end_y model_config_rec % auxinput4_end_d = auxinput4_end_d model_config_rec % auxinput4_end_h = auxinput4_end_h model_config_rec % auxinput4_end_m = auxinput4_end_m model_config_rec % auxinput4_end_s = auxinput4_end_s model_config_rec % auxinput4_end = auxinput4_end model_config_rec % io_form_auxinput4 = io_form_auxinput4 model_config_rec % frames_per_auxinput4 = frames_per_auxinput4 model_config_rec % auxinput5_inname = auxinput5_inname model_config_rec % auxinput5_outname = auxinput5_outname model_config_rec % auxinput5_interval_y = auxinput5_interval_y model_config_rec % auxinput5_interval_d = auxinput5_interval_d model_config_rec % auxinput5_interval_h = auxinput5_interval_h model_config_rec % auxinput5_interval_m = auxinput5_interval_m model_config_rec % auxinput5_interval_s = auxinput5_interval_s model_config_rec % auxinput5_interval = auxinput5_interval model_config_rec % auxinput5_begin_y = auxinput5_begin_y model_config_rec % auxinput5_begin_d = auxinput5_begin_d model_config_rec % auxinput5_begin_h = auxinput5_begin_h model_config_rec % auxinput5_begin_m = auxinput5_begin_m model_config_rec % auxinput5_begin_s = auxinput5_begin_s model_config_rec % auxinput5_begin = auxinput5_begin model_config_rec % auxinput5_end_y = auxinput5_end_y model_config_rec % auxinput5_end_d = auxinput5_end_d model_config_rec % auxinput5_end_h = auxinput5_end_h model_config_rec % auxinput5_end_m = auxinput5_end_m model_config_rec % auxinput5_end_s = auxinput5_end_s model_config_rec % auxinput5_end = auxinput5_end model_config_rec % io_form_auxinput5 = io_form_auxinput5 model_config_rec % frames_per_auxinput5 = frames_per_auxinput5 model_config_rec % auxinput6_inname = auxinput6_inname model_config_rec % auxinput6_outname = auxinput6_outname model_config_rec % auxinput6_interval_y = auxinput6_interval_y model_config_rec % auxinput6_interval_d = auxinput6_interval_d model_config_rec % auxinput6_interval_h = auxinput6_interval_h model_config_rec % auxinput6_interval_m = auxinput6_interval_m model_config_rec % auxinput6_interval_s = auxinput6_interval_s model_config_rec % auxinput6_interval = auxinput6_interval model_config_rec % auxinput6_begin_y = auxinput6_begin_y model_config_rec % auxinput6_begin_d = auxinput6_begin_d model_config_rec % auxinput6_begin_h = auxinput6_begin_h model_config_rec % auxinput6_begin_m = auxinput6_begin_m model_config_rec % auxinput6_begin_s = auxinput6_begin_s model_config_rec % auxinput6_begin = auxinput6_begin model_config_rec % auxinput6_end_y = auxinput6_end_y model_config_rec % auxinput6_end_d = auxinput6_end_d model_config_rec % auxinput6_end_h = auxinput6_end_h model_config_rec % auxinput6_end_m = auxinput6_end_m model_config_rec % auxinput6_end_s = auxinput6_end_s model_config_rec % auxinput6_end = auxinput6_end model_config_rec % io_form_auxinput6 = io_form_auxinput6 model_config_rec % frames_per_auxinput6 = frames_per_auxinput6 model_config_rec % auxinput7_inname = auxinput7_inname model_config_rec % auxinput7_outname = auxinput7_outname model_config_rec % auxinput7_interval_y = auxinput7_interval_y model_config_rec % auxinput7_interval_d = auxinput7_interval_d model_config_rec % auxinput7_interval_h = auxinput7_interval_h model_config_rec % auxinput7_interval_m = auxinput7_interval_m model_config_rec % auxinput7_interval_s = auxinput7_interval_s model_config_rec % auxinput7_interval = auxinput7_interval model_config_rec % auxinput7_begin_y = auxinput7_begin_y model_config_rec % auxinput7_begin_d = auxinput7_begin_d model_config_rec % auxinput7_begin_h = auxinput7_begin_h model_config_rec % auxinput7_begin_m = auxinput7_begin_m model_config_rec % auxinput7_begin_s = auxinput7_begin_s model_config_rec % auxinput7_begin = auxinput7_begin model_config_rec % auxinput7_end_y = auxinput7_end_y model_config_rec % auxinput7_end_d = auxinput7_end_d model_config_rec % auxinput7_end_h = auxinput7_end_h model_config_rec % auxinput7_end_m = auxinput7_end_m model_config_rec % auxinput7_end_s = auxinput7_end_s model_config_rec % auxinput7_end = auxinput7_end model_config_rec % io_form_auxinput7 = io_form_auxinput7 model_config_rec % frames_per_auxinput7 = frames_per_auxinput7 model_config_rec % auxinput8_inname = auxinput8_inname model_config_rec % auxinput8_outname = auxinput8_outname model_config_rec % auxinput8_interval_y = auxinput8_interval_y model_config_rec % auxinput8_interval_d = auxinput8_interval_d model_config_rec % auxinput8_interval_h = auxinput8_interval_h model_config_rec % auxinput8_interval_m = auxinput8_interval_m model_config_rec % auxinput8_interval_s = auxinput8_interval_s model_config_rec % auxinput8_interval = auxinput8_interval model_config_rec % auxinput8_begin_y = auxinput8_begin_y model_config_rec % auxinput8_begin_d = auxinput8_begin_d model_config_rec % auxinput8_begin_h = auxinput8_begin_h model_config_rec % auxinput8_begin_m = auxinput8_begin_m model_config_rec % auxinput8_begin_s = auxinput8_begin_s model_config_rec % auxinput8_begin = auxinput8_begin model_config_rec % auxinput8_end_y = auxinput8_end_y model_config_rec % auxinput8_end_d = auxinput8_end_d model_config_rec % auxinput8_end_h = auxinput8_end_h model_config_rec % auxinput8_end_m = auxinput8_end_m model_config_rec % auxinput8_end_s = auxinput8_end_s model_config_rec % auxinput8_end = auxinput8_end model_config_rec % io_form_auxinput8 = io_form_auxinput8 model_config_rec % frames_per_auxinput8 = frames_per_auxinput8 model_config_rec % auxinput9_inname = auxinput9_inname model_config_rec % auxinput9_outname = auxinput9_outname model_config_rec % auxinput9_interval_y = auxinput9_interval_y model_config_rec % auxinput9_interval_d = auxinput9_interval_d model_config_rec % auxinput9_interval_h = auxinput9_interval_h model_config_rec % auxinput9_interval_m = auxinput9_interval_m model_config_rec % auxinput9_interval_s = auxinput9_interval_s model_config_rec % auxinput9_interval = auxinput9_interval model_config_rec % auxinput9_begin_y = auxinput9_begin_y model_config_rec % auxinput9_begin_d = auxinput9_begin_d model_config_rec % auxinput9_begin_h = auxinput9_begin_h model_config_rec % auxinput9_begin_m = auxinput9_begin_m model_config_rec % auxinput9_begin_s = auxinput9_begin_s model_config_rec % auxinput9_begin = auxinput9_begin model_config_rec % auxinput9_end_y = auxinput9_end_y model_config_rec % auxinput9_end_d = auxinput9_end_d model_config_rec % auxinput9_end_h = auxinput9_end_h model_config_rec % auxinput9_end_m = auxinput9_end_m model_config_rec % auxinput9_end_s = auxinput9_end_s model_config_rec % auxinput9_end = auxinput9_end model_config_rec % io_form_auxinput9 = io_form_auxinput9 model_config_rec % frames_per_auxinput9 = frames_per_auxinput9 model_config_rec % auxinput10_inname = auxinput10_inname model_config_rec % auxinput10_outname = auxinput10_outname model_config_rec % auxinput10_interval_y = auxinput10_interval_y model_config_rec % auxinput10_interval_d = auxinput10_interval_d model_config_rec % auxinput10_interval_h = auxinput10_interval_h model_config_rec % auxinput10_interval_m = auxinput10_interval_m model_config_rec % auxinput10_interval_s = auxinput10_interval_s model_config_rec % auxinput10_interval = auxinput10_interval model_config_rec % auxinput10_begin_y = auxinput10_begin_y model_config_rec % auxinput10_begin_d = auxinput10_begin_d model_config_rec % auxinput10_begin_h = auxinput10_begin_h model_config_rec % auxinput10_begin_m = auxinput10_begin_m model_config_rec % auxinput10_begin_s = auxinput10_begin_s model_config_rec % auxinput10_begin = auxinput10_begin model_config_rec % auxinput10_end_y = auxinput10_end_y model_config_rec % auxinput10_end_d = auxinput10_end_d model_config_rec % auxinput10_end_h = auxinput10_end_h model_config_rec % auxinput10_end_m = auxinput10_end_m model_config_rec % auxinput10_end_s = auxinput10_end_s model_config_rec % auxinput10_end = auxinput10_end model_config_rec % io_form_auxinput10 = io_form_auxinput10 model_config_rec % frames_per_auxinput10 = frames_per_auxinput10 model_config_rec % auxinput11_inname = auxinput11_inname model_config_rec % auxinput11_outname = auxinput11_outname model_config_rec % auxinput11_interval_y = auxinput11_interval_y model_config_rec % auxinput11_interval_d = auxinput11_interval_d model_config_rec % auxinput11_interval_h = auxinput11_interval_h model_config_rec % auxinput11_interval_m = auxinput11_interval_m model_config_rec % auxinput11_interval_s = auxinput11_interval_s model_config_rec % auxinput11_interval = auxinput11_interval model_config_rec % auxinput11_begin_y = auxinput11_begin_y model_config_rec % auxinput11_begin_d = auxinput11_begin_d model_config_rec % auxinput11_begin_h = auxinput11_begin_h model_config_rec % auxinput11_begin_m = auxinput11_begin_m model_config_rec % auxinput11_begin_s = auxinput11_begin_s model_config_rec % auxinput11_begin = auxinput11_begin model_config_rec % auxinput11_end_y = auxinput11_end_y model_config_rec % auxinput11_end_d = auxinput11_end_d model_config_rec % auxinput11_end_h = auxinput11_end_h model_config_rec % auxinput11_end_m = auxinput11_end_m model_config_rec % auxinput11_end_s = auxinput11_end_s model_config_rec % auxinput11_end = auxinput11_end model_config_rec % io_form_auxinput11 = io_form_auxinput11 model_config_rec % frames_per_auxinput11 = frames_per_auxinput11 model_config_rec % auxinput12_inname = auxinput12_inname model_config_rec % auxinput12_outname = auxinput12_outname model_config_rec % auxinput12_interval_y = auxinput12_interval_y model_config_rec % auxinput12_interval_d = auxinput12_interval_d model_config_rec % auxinput12_interval_h = auxinput12_interval_h model_config_rec % auxinput12_interval_m = auxinput12_interval_m model_config_rec % auxinput12_interval_s = auxinput12_interval_s model_config_rec % auxinput12_interval = auxinput12_interval model_config_rec % auxinput12_begin_y = auxinput12_begin_y model_config_rec % auxinput12_begin_d = auxinput12_begin_d model_config_rec % auxinput12_begin_h = auxinput12_begin_h model_config_rec % auxinput12_begin_m = auxinput12_begin_m model_config_rec % auxinput12_begin_s = auxinput12_begin_s model_config_rec % auxinput12_begin = auxinput12_begin model_config_rec % auxinput12_end_y = auxinput12_end_y model_config_rec % auxinput12_end_d = auxinput12_end_d model_config_rec % auxinput12_end_h = auxinput12_end_h model_config_rec % auxinput12_end_m = auxinput12_end_m model_config_rec % auxinput12_end_s = auxinput12_end_s model_config_rec % auxinput12_end = auxinput12_end model_config_rec % io_form_auxinput12 = io_form_auxinput12 model_config_rec % frames_per_auxinput12 = frames_per_auxinput12 model_config_rec % auxinput13_inname = auxinput13_inname model_config_rec % auxinput13_outname = auxinput13_outname model_config_rec % auxinput13_interval_y = auxinput13_interval_y model_config_rec % auxinput13_interval_d = auxinput13_interval_d model_config_rec % auxinput13_interval_h = auxinput13_interval_h model_config_rec % auxinput13_interval_m = auxinput13_interval_m model_config_rec % auxinput13_interval_s = auxinput13_interval_s model_config_rec % auxinput13_interval = auxinput13_interval model_config_rec % auxinput13_begin_y = auxinput13_begin_y model_config_rec % auxinput13_begin_d = auxinput13_begin_d model_config_rec % auxinput13_begin_h = auxinput13_begin_h model_config_rec % auxinput13_begin_m = auxinput13_begin_m model_config_rec % auxinput13_begin_s = auxinput13_begin_s model_config_rec % auxinput13_begin = auxinput13_begin model_config_rec % auxinput13_end_y = auxinput13_end_y model_config_rec % auxinput13_end_d = auxinput13_end_d model_config_rec % auxinput13_end_h = auxinput13_end_h model_config_rec % auxinput13_end_m = auxinput13_end_m model_config_rec % auxinput13_end_s = auxinput13_end_s model_config_rec % auxinput13_end = auxinput13_end model_config_rec % io_form_auxinput13 = io_form_auxinput13 model_config_rec % frames_per_auxinput13 = frames_per_auxinput13 model_config_rec % auxinput14_inname = auxinput14_inname model_config_rec % auxinput14_outname = auxinput14_outname model_config_rec % auxinput14_interval_y = auxinput14_interval_y model_config_rec % auxinput14_interval_d = auxinput14_interval_d model_config_rec % auxinput14_interval_h = auxinput14_interval_h model_config_rec % auxinput14_interval_m = auxinput14_interval_m model_config_rec % auxinput14_interval_s = auxinput14_interval_s model_config_rec % auxinput14_interval = auxinput14_interval model_config_rec % auxinput14_begin_y = auxinput14_begin_y model_config_rec % auxinput14_begin_d = auxinput14_begin_d model_config_rec % auxinput14_begin_h = auxinput14_begin_h model_config_rec % auxinput14_begin_m = auxinput14_begin_m model_config_rec % auxinput14_begin_s = auxinput14_begin_s model_config_rec % auxinput14_begin = auxinput14_begin model_config_rec % auxinput14_end_y = auxinput14_end_y model_config_rec % auxinput14_end_d = auxinput14_end_d model_config_rec % auxinput14_end_h = auxinput14_end_h model_config_rec % auxinput14_end_m = auxinput14_end_m model_config_rec % auxinput14_end_s = auxinput14_end_s model_config_rec % auxinput14_end = auxinput14_end model_config_rec % io_form_auxinput14 = io_form_auxinput14 model_config_rec % frames_per_auxinput14 = frames_per_auxinput14 model_config_rec % auxinput15_inname = auxinput15_inname model_config_rec % auxinput15_outname = auxinput15_outname model_config_rec % auxinput15_interval_y = auxinput15_interval_y model_config_rec % auxinput15_interval_d = auxinput15_interval_d model_config_rec % auxinput15_interval_h = auxinput15_interval_h model_config_rec % auxinput15_interval_m = auxinput15_interval_m model_config_rec % auxinput15_interval_s = auxinput15_interval_s model_config_rec % auxinput15_interval = auxinput15_interval model_config_rec % auxinput15_begin_y = auxinput15_begin_y model_config_rec % auxinput15_begin_d = auxinput15_begin_d model_config_rec % auxinput15_begin_h = auxinput15_begin_h model_config_rec % auxinput15_begin_m = auxinput15_begin_m model_config_rec % auxinput15_begin_s = auxinput15_begin_s model_config_rec % auxinput15_begin = auxinput15_begin model_config_rec % auxinput15_end_y = auxinput15_end_y model_config_rec % auxinput15_end_d = auxinput15_end_d model_config_rec % auxinput15_end_h = auxinput15_end_h model_config_rec % auxinput15_end_m = auxinput15_end_m model_config_rec % auxinput15_end_s = auxinput15_end_s model_config_rec % auxinput15_end = auxinput15_end model_config_rec % io_form_auxinput15 = io_form_auxinput15 model_config_rec % frames_per_auxinput15 = frames_per_auxinput15 model_config_rec % auxinput16_inname = auxinput16_inname model_config_rec % auxinput16_outname = auxinput16_outname model_config_rec % auxinput16_interval_y = auxinput16_interval_y model_config_rec % auxinput16_interval_d = auxinput16_interval_d model_config_rec % auxinput16_interval_h = auxinput16_interval_h model_config_rec % auxinput16_interval_m = auxinput16_interval_m model_config_rec % auxinput16_interval_s = auxinput16_interval_s model_config_rec % auxinput16_interval = auxinput16_interval model_config_rec % auxinput16_begin_y = auxinput16_begin_y model_config_rec % auxinput16_begin_d = auxinput16_begin_d model_config_rec % auxinput16_begin_h = auxinput16_begin_h model_config_rec % auxinput16_begin_m = auxinput16_begin_m model_config_rec % auxinput16_begin_s = auxinput16_begin_s model_config_rec % auxinput16_begin = auxinput16_begin model_config_rec % auxinput16_end_y = auxinput16_end_y model_config_rec % auxinput16_end_d = auxinput16_end_d model_config_rec % auxinput16_end_h = auxinput16_end_h model_config_rec % auxinput16_end_m = auxinput16_end_m model_config_rec % auxinput16_end_s = auxinput16_end_s model_config_rec % auxinput16_end = auxinput16_end model_config_rec % io_form_auxinput16 = io_form_auxinput16 model_config_rec % frames_per_auxinput16 = frames_per_auxinput16 model_config_rec % auxinput17_inname = auxinput17_inname model_config_rec % auxinput17_outname = auxinput17_outname model_config_rec % auxinput17_interval_y = auxinput17_interval_y model_config_rec % auxinput17_interval_d = auxinput17_interval_d model_config_rec % auxinput17_interval_h = auxinput17_interval_h model_config_rec % auxinput17_interval_m = auxinput17_interval_m model_config_rec % auxinput17_interval_s = auxinput17_interval_s model_config_rec % auxinput17_interval = auxinput17_interval model_config_rec % auxinput17_begin_y = auxinput17_begin_y model_config_rec % auxinput17_begin_d = auxinput17_begin_d model_config_rec % auxinput17_begin_h = auxinput17_begin_h model_config_rec % auxinput17_begin_m = auxinput17_begin_m model_config_rec % auxinput17_begin_s = auxinput17_begin_s model_config_rec % auxinput17_begin = auxinput17_begin model_config_rec % auxinput17_end_y = auxinput17_end_y model_config_rec % auxinput17_end_d = auxinput17_end_d model_config_rec % auxinput17_end_h = auxinput17_end_h model_config_rec % auxinput17_end_m = auxinput17_end_m model_config_rec % auxinput17_end_s = auxinput17_end_s model_config_rec % auxinput17_end = auxinput17_end model_config_rec % io_form_auxinput17 = io_form_auxinput17 model_config_rec % frames_per_auxinput17 = frames_per_auxinput17 model_config_rec % auxinput18_inname = auxinput18_inname model_config_rec % auxinput18_outname = auxinput18_outname model_config_rec % auxinput18_interval_y = auxinput18_interval_y model_config_rec % auxinput18_interval_d = auxinput18_interval_d model_config_rec % auxinput18_interval_h = auxinput18_interval_h model_config_rec % auxinput18_interval_m = auxinput18_interval_m model_config_rec % auxinput18_interval_s = auxinput18_interval_s model_config_rec % auxinput18_interval = auxinput18_interval model_config_rec % auxinput18_begin_y = auxinput18_begin_y model_config_rec % auxinput18_begin_d = auxinput18_begin_d model_config_rec % auxinput18_begin_h = auxinput18_begin_h model_config_rec % auxinput18_begin_m = auxinput18_begin_m model_config_rec % auxinput18_begin_s = auxinput18_begin_s model_config_rec % auxinput18_begin = auxinput18_begin model_config_rec % auxinput18_end_y = auxinput18_end_y model_config_rec % auxinput18_end_d = auxinput18_end_d model_config_rec % auxinput18_end_h = auxinput18_end_h model_config_rec % auxinput18_end_m = auxinput18_end_m model_config_rec % auxinput18_end_s = auxinput18_end_s model_config_rec % auxinput18_end = auxinput18_end model_config_rec % io_form_auxinput18 = io_form_auxinput18 model_config_rec % frames_per_auxinput18 = frames_per_auxinput18 model_config_rec % auxinput19_inname = auxinput19_inname model_config_rec % auxinput19_outname = auxinput19_outname model_config_rec % auxinput19_interval_y = auxinput19_interval_y model_config_rec % auxinput19_interval_d = auxinput19_interval_d model_config_rec % auxinput19_interval_h = auxinput19_interval_h model_config_rec % auxinput19_interval_m = auxinput19_interval_m model_config_rec % auxinput19_interval_s = auxinput19_interval_s model_config_rec % auxinput19_interval = auxinput19_interval model_config_rec % auxinput19_begin_y = auxinput19_begin_y model_config_rec % auxinput19_begin_d = auxinput19_begin_d model_config_rec % auxinput19_begin_h = auxinput19_begin_h model_config_rec % auxinput19_begin_m = auxinput19_begin_m model_config_rec % auxinput19_begin_s = auxinput19_begin_s model_config_rec % auxinput19_begin = auxinput19_begin model_config_rec % auxinput19_end_y = auxinput19_end_y model_config_rec % auxinput19_end_d = auxinput19_end_d model_config_rec % auxinput19_end_h = auxinput19_end_h model_config_rec % auxinput19_end_m = auxinput19_end_m model_config_rec % auxinput19_end_s = auxinput19_end_s model_config_rec % auxinput19_end = auxinput19_end model_config_rec % io_form_auxinput19 = io_form_auxinput19 model_config_rec % frames_per_auxinput19 = frames_per_auxinput19 model_config_rec % auxinput20_inname = auxinput20_inname model_config_rec % auxinput20_outname = auxinput20_outname model_config_rec % auxinput20_interval_y = auxinput20_interval_y model_config_rec % auxinput20_interval_d = auxinput20_interval_d model_config_rec % auxinput20_interval_h = auxinput20_interval_h model_config_rec % auxinput20_interval_m = auxinput20_interval_m model_config_rec % auxinput20_interval_s = auxinput20_interval_s model_config_rec % auxinput20_interval = auxinput20_interval model_config_rec % auxinput20_begin_y = auxinput20_begin_y model_config_rec % auxinput20_begin_d = auxinput20_begin_d model_config_rec % auxinput20_begin_h = auxinput20_begin_h model_config_rec % auxinput20_begin_m = auxinput20_begin_m model_config_rec % auxinput20_begin_s = auxinput20_begin_s model_config_rec % auxinput20_begin = auxinput20_begin model_config_rec % auxinput20_end_y = auxinput20_end_y model_config_rec % auxinput20_end_d = auxinput20_end_d model_config_rec % auxinput20_end_h = auxinput20_end_h model_config_rec % auxinput20_end_m = auxinput20_end_m model_config_rec % auxinput20_end_s = auxinput20_end_s model_config_rec % auxinput20_end = auxinput20_end model_config_rec % io_form_auxinput20 = io_form_auxinput20 model_config_rec % frames_per_auxinput20 = frames_per_auxinput20 model_config_rec % auxinput21_inname = auxinput21_inname model_config_rec % auxinput21_outname = auxinput21_outname model_config_rec % auxinput21_interval_y = auxinput21_interval_y model_config_rec % auxinput21_interval_d = auxinput21_interval_d model_config_rec % auxinput21_interval_h = auxinput21_interval_h model_config_rec % auxinput21_interval_m = auxinput21_interval_m model_config_rec % auxinput21_interval_s = auxinput21_interval_s model_config_rec % auxinput21_interval = auxinput21_interval model_config_rec % auxinput21_begin_y = auxinput21_begin_y model_config_rec % auxinput21_begin_d = auxinput21_begin_d model_config_rec % auxinput21_begin_h = auxinput21_begin_h model_config_rec % auxinput21_begin_m = auxinput21_begin_m model_config_rec % auxinput21_begin_s = auxinput21_begin_s model_config_rec % auxinput21_begin = auxinput21_begin model_config_rec % auxinput21_end_y = auxinput21_end_y model_config_rec % auxinput21_end_d = auxinput21_end_d model_config_rec % auxinput21_end_h = auxinput21_end_h model_config_rec % auxinput21_end_m = auxinput21_end_m model_config_rec % auxinput21_end_s = auxinput21_end_s model_config_rec % auxinput21_end = auxinput21_end model_config_rec % io_form_auxinput21 = io_form_auxinput21 model_config_rec % frames_per_auxinput21 = frames_per_auxinput21 model_config_rec % auxinput22_inname = auxinput22_inname model_config_rec % auxinput22_outname = auxinput22_outname model_config_rec % auxinput22_interval_y = auxinput22_interval_y model_config_rec % auxinput22_interval_d = auxinput22_interval_d model_config_rec % auxinput22_interval_h = auxinput22_interval_h model_config_rec % auxinput22_interval_m = auxinput22_interval_m model_config_rec % auxinput22_interval_s = auxinput22_interval_s model_config_rec % auxinput22_interval = auxinput22_interval model_config_rec % auxinput22_begin_y = auxinput22_begin_y model_config_rec % auxinput22_begin_d = auxinput22_begin_d model_config_rec % auxinput22_begin_h = auxinput22_begin_h model_config_rec % auxinput22_begin_m = auxinput22_begin_m model_config_rec % auxinput22_begin_s = auxinput22_begin_s model_config_rec % auxinput22_begin = auxinput22_begin model_config_rec % auxinput22_end_y = auxinput22_end_y model_config_rec % auxinput22_end_d = auxinput22_end_d model_config_rec % auxinput22_end_h = auxinput22_end_h model_config_rec % auxinput22_end_m = auxinput22_end_m model_config_rec % auxinput22_end_s = auxinput22_end_s model_config_rec % auxinput22_end = auxinput22_end model_config_rec % io_form_auxinput22 = io_form_auxinput22 model_config_rec % frames_per_auxinput22 = frames_per_auxinput22 model_config_rec % auxinput23_inname = auxinput23_inname model_config_rec % auxinput23_outname = auxinput23_outname model_config_rec % auxinput23_interval_y = auxinput23_interval_y model_config_rec % auxinput23_interval_d = auxinput23_interval_d model_config_rec % auxinput23_interval_h = auxinput23_interval_h model_config_rec % auxinput23_interval_m = auxinput23_interval_m model_config_rec % auxinput23_interval_s = auxinput23_interval_s model_config_rec % auxinput23_interval = auxinput23_interval model_config_rec % auxinput23_begin_y = auxinput23_begin_y model_config_rec % auxinput23_begin_d = auxinput23_begin_d model_config_rec % auxinput23_begin_h = auxinput23_begin_h model_config_rec % auxinput23_begin_m = auxinput23_begin_m model_config_rec % auxinput23_begin_s = auxinput23_begin_s model_config_rec % auxinput23_begin = auxinput23_begin model_config_rec % auxinput23_end_y = auxinput23_end_y model_config_rec % auxinput23_end_d = auxinput23_end_d model_config_rec % auxinput23_end_h = auxinput23_end_h model_config_rec % auxinput23_end_m = auxinput23_end_m model_config_rec % auxinput23_end_s = auxinput23_end_s model_config_rec % auxinput23_end = auxinput23_end model_config_rec % io_form_auxinput23 = io_form_auxinput23 model_config_rec % frames_per_auxinput23 = frames_per_auxinput23 model_config_rec % auxinput24_inname = auxinput24_inname model_config_rec % auxinput24_outname = auxinput24_outname model_config_rec % auxinput24_interval_y = auxinput24_interval_y model_config_rec % auxinput24_interval_d = auxinput24_interval_d model_config_rec % auxinput24_interval_h = auxinput24_interval_h model_config_rec % auxinput24_interval_m = auxinput24_interval_m model_config_rec % auxinput24_interval_s = auxinput24_interval_s model_config_rec % auxinput24_interval = auxinput24_interval model_config_rec % auxinput24_begin_y = auxinput24_begin_y model_config_rec % auxinput24_begin_d = auxinput24_begin_d model_config_rec % auxinput24_begin_h = auxinput24_begin_h model_config_rec % auxinput24_begin_m = auxinput24_begin_m model_config_rec % auxinput24_begin_s = auxinput24_begin_s model_config_rec % auxinput24_begin = auxinput24_begin model_config_rec % auxinput24_end_y = auxinput24_end_y model_config_rec % auxinput24_end_d = auxinput24_end_d model_config_rec % auxinput24_end_h = auxinput24_end_h model_config_rec % auxinput24_end_m = auxinput24_end_m model_config_rec % auxinput24_end_s = auxinput24_end_s model_config_rec % auxinput24_end = auxinput24_end model_config_rec % io_form_auxinput24 = io_form_auxinput24 model_config_rec % frames_per_auxinput24 = frames_per_auxinput24 model_config_rec % history_interval = history_interval model_config_rec % frames_per_outfile = frames_per_outfile model_config_rec % restart = restart model_config_rec % restart_interval = restart_interval model_config_rec % io_form_input = io_form_input model_config_rec % io_form_history = io_form_history model_config_rec % io_form_restart = io_form_restart model_config_rec % io_form_boundary = io_form_boundary model_config_rec % debug_level = debug_level model_config_rec % self_test_domain = self_test_domain model_config_rec % history_outname = history_outname model_config_rec % history_inname = history_inname model_config_rec % use_netcdf_classic = use_netcdf_classic model_config_rec % history_interval_d = history_interval_d model_config_rec % history_interval_h = history_interval_h model_config_rec % history_interval_m = history_interval_m model_config_rec % history_interval_s = history_interval_s model_config_rec % inputout_interval_d = inputout_interval_d model_config_rec % inputout_interval_h = inputout_interval_h model_config_rec % inputout_interval_m = inputout_interval_m model_config_rec % inputout_interval_s = inputout_interval_s model_config_rec % inputout_interval = inputout_interval model_config_rec % restart_interval_d = restart_interval_d model_config_rec % restart_interval_h = restart_interval_h model_config_rec % restart_interval_m = restart_interval_m model_config_rec % restart_interval_s = restart_interval_s model_config_rec % history_begin_y = history_begin_y model_config_rec % history_begin_d = history_begin_d model_config_rec % history_begin_h = history_begin_h model_config_rec % history_begin_m = history_begin_m model_config_rec % history_begin_s = history_begin_s model_config_rec % history_begin = history_begin model_config_rec % inputout_begin_y = inputout_begin_y model_config_rec % inputout_begin_d = inputout_begin_d model_config_rec % inputout_begin_h = inputout_begin_h model_config_rec % inputout_begin_m = inputout_begin_m model_config_rec % inputout_begin_s = inputout_begin_s model_config_rec % restart_begin_y = restart_begin_y model_config_rec % restart_begin_d = restart_begin_d model_config_rec % restart_begin_h = restart_begin_h model_config_rec % restart_begin_m = restart_begin_m model_config_rec % restart_begin_s = restart_begin_s model_config_rec % restart_begin = restart_begin model_config_rec % history_end_y = history_end_y model_config_rec % history_end_d = history_end_d model_config_rec % history_end_h = history_end_h model_config_rec % history_end_m = history_end_m model_config_rec % history_end_s = history_end_s model_config_rec % history_end = history_end model_config_rec % inputout_end_y = inputout_end_y model_config_rec % inputout_end_d = inputout_end_d model_config_rec % inputout_end_h = inputout_end_h model_config_rec % inputout_end_m = inputout_end_m model_config_rec % inputout_end_s = inputout_end_s model_config_rec % simulation_start_year = simulation_start_year model_config_rec % simulation_start_month = simulation_start_month model_config_rec % simulation_start_day = simulation_start_day model_config_rec % simulation_start_hour = simulation_start_hour model_config_rec % simulation_start_minute = simulation_start_minute model_config_rec % simulation_start_second = simulation_start_second model_config_rec % reset_simulation_start = reset_simulation_start model_config_rec % sr_x = sr_x model_config_rec % sr_y = sr_y model_config_rec % sgfdda_inname = sgfdda_inname model_config_rec % gfdda_inname = gfdda_inname model_config_rec % sgfdda_interval_d = sgfdda_interval_d model_config_rec % sgfdda_interval_h = sgfdda_interval_h model_config_rec % sgfdda_interval_m = sgfdda_interval_m model_config_rec % sgfdda_interval_s = sgfdda_interval_s model_config_rec % sgfdda_interval_y = sgfdda_interval_y model_config_rec % sgfdda_interval = sgfdda_interval model_config_rec % gfdda_interval_d = gfdda_interval_d model_config_rec % gfdda_interval_h = gfdda_interval_h model_config_rec % gfdda_interval_m = gfdda_interval_m model_config_rec % gfdda_interval_s = gfdda_interval_s model_config_rec % gfdda_interval_y = gfdda_interval_y model_config_rec % gfdda_interval = gfdda_interval model_config_rec % sgfdda_begin_y = sgfdda_begin_y model_config_rec % sgfdda_begin_d = sgfdda_begin_d model_config_rec % sgfdda_begin_h = sgfdda_begin_h model_config_rec % sgfdda_begin_m = sgfdda_begin_m model_config_rec % sgfdda_begin_s = sgfdda_begin_s model_config_rec % gfdda_begin_y = gfdda_begin_y model_config_rec % gfdda_begin_d = gfdda_begin_d model_config_rec % gfdda_begin_h = gfdda_begin_h model_config_rec % gfdda_begin_m = gfdda_begin_m model_config_rec % gfdda_begin_s = gfdda_begin_s model_config_rec % sgfdda_end_y = sgfdda_end_y model_config_rec % sgfdda_end_d = sgfdda_end_d model_config_rec % sgfdda_end_h = sgfdda_end_h model_config_rec % sgfdda_end_m = sgfdda_end_m model_config_rec % sgfdda_end_s = sgfdda_end_s model_config_rec % gfdda_end_y = gfdda_end_y model_config_rec % gfdda_end_d = gfdda_end_d model_config_rec % gfdda_end_h = gfdda_end_h model_config_rec % gfdda_end_m = gfdda_end_m model_config_rec % gfdda_end_s = gfdda_end_s model_config_rec % io_form_sgfdda = io_form_sgfdda model_config_rec % io_form_gfdda = io_form_gfdda model_config_rec % iofields_filename = iofields_filename model_config_rec % ignore_iofields_warning = ignore_iofields_warning model_config_rec % ncd_nofill = ncd_nofill model_config_rec % emi_inname = emi_inname model_config_rec % fireemi_inname = fireemi_inname model_config_rec % input_chem_inname = input_chem_inname model_config_rec % emi_outname = emi_outname model_config_rec % fireemi_outname = fireemi_outname model_config_rec % input_chem_outname = input_chem_outname model_config_rec % io_style_emissions = io_style_emissions model_config_rec % bioemdt = bioemdt model_config_rec % photdt = photdt model_config_rec % chemdt = chemdt model_config_rec % ne_area = ne_area model_config_rec % kemit = kemit model_config_rec % nmegan = nmegan model_config_rec % kfuture = kfuture model_config_rec % kfire = kfire model_config_rec % kemit_aircraft = kemit_aircraft model_config_rec % kdvel = kdvel model_config_rec % ndepvel = ndepvel model_config_rec % kdepvel = kdepvel model_config_rec % erosion_dim = erosion_dim model_config_rec % biomass_emiss_opt = biomass_emiss_opt model_config_rec % cam_mam_mode = cam_mam_mode model_config_rec % cam_mam_nspec = cam_mam_nspec model_config_rec % cam_mp_mam_cpled = cam_mp_mam_cpled model_config_rec % lightning_opt = lightning_opt model_config_rec % lightning_time_step = lightning_time_step model_config_rec % temp_upper = temp_upper model_config_rec % temp_lower = temp_lower model_config_rec % n_ic = n_ic model_config_rec % n_cg = n_cg model_config_rec % passive_ltng = passive_ltng model_config_rec % lflash_data = lflash_data model_config_rec % flashrate_method = flashrate_method model_config_rec % vprm_opt = vprm_opt model_config_rec % wpeat = wpeat model_config_rec % wflood = wflood model_config_rec % term_opt = term_opt model_config_rec % chem_conv_tr = chem_conv_tr model_config_rec % conv_tr_wetscav = conv_tr_wetscav model_config_rec % conv_tr_aqchem = conv_tr_aqchem model_config_rec % chem_opt = chem_opt model_config_rec % gaschem_onoff = gaschem_onoff model_config_rec % aerchem_onoff = aerchem_onoff model_config_rec % wetscav_onoff = wetscav_onoff model_config_rec % dustwd_onoff = dustwd_onoff model_config_rec % cldchem_onoff = cldchem_onoff model_config_rec % is_full_tuv = is_full_tuv model_config_rec % lambda_cutoff = lambda_cutoff model_config_rec % cld_od_opt = cld_od_opt model_config_rec % pht_cldfrc_opt = pht_cldfrc_opt model_config_rec % vertmix_onoff = vertmix_onoff model_config_rec % chem_in_opt = chem_in_opt model_config_rec % phot_opt = phot_opt model_config_rec % gas_drydep_opt = gas_drydep_opt model_config_rec % aer_drydep_opt = aer_drydep_opt model_config_rec % diagnostic_chem = diagnostic_chem model_config_rec % aero_diag_opt = aero_diag_opt model_config_rec % aero_cw_diag_opt = aero_cw_diag_opt model_config_rec % aer_aerodynres_opt = aer_aerodynres_opt model_config_rec % emiss_opt = emiss_opt model_config_rec % emiss_opt_vol = emiss_opt_vol model_config_rec % dust_opt = dust_opt model_config_rec % dust_schme = dust_schme model_config_rec % dmsemis_opt = dmsemis_opt model_config_rec % seas_opt = seas_opt model_config_rec % bio_emiss_opt = bio_emiss_opt model_config_rec % biomass_burn_opt = biomass_burn_opt model_config_rec % plumerisefire_frq = plumerisefire_frq model_config_rec % emiss_inpt_opt = emiss_inpt_opt model_config_rec % gas_bc_opt = gas_bc_opt model_config_rec % gas_ic_opt = gas_ic_opt model_config_rec % aer_bc_opt = aer_bc_opt model_config_rec % aer_ic_opt = aer_ic_opt model_config_rec % have_bcs_chem = have_bcs_chem model_config_rec % have_bcs_tracer = have_bcs_tracer model_config_rec % scale_fire_emiss = scale_fire_emiss model_config_rec % aer_ra_feedback = aer_ra_feedback model_config_rec % aer_op_opt = aer_op_opt model_config_rec % opt_pars_out = opt_pars_out model_config_rec % diagnostic_dep = diagnostic_dep model_config_rec % aircraft_emiss_opt = aircraft_emiss_opt model_config_rec % have_bcs_upper = have_bcs_upper model_config_rec % fixed_ubc_press = fixed_ubc_press model_config_rec % fixed_ubc_inname = fixed_ubc_inname model_config_rec % trop_lev_inname = trop_lev_inname model_config_rec % exo_coldens_inname = exo_coldens_inname model_config_rec % wes_seasonal_inname = wes_seasonal_inname model_config_rec % chemdiag = chemdiag model_config_rec % dust_alpha = dust_alpha model_config_rec % dust_gamma = dust_gamma model_config_rec % dust_smtune = dust_smtune model_config_rec % dust_ustune = dust_ustune model_config_rec % dust_dsr = dust_dsr model_config_rec % dust_veg = dust_veg model_config_rec % dust_soils = dust_soils model_config_rec % dust_smois = dust_smois model_config_rec % emiss_ash_hgt = emiss_ash_hgt model_config_rec % depo_fact = depo_fact model_config_rec % track_chem_num = track_chem_num model_config_rec % track_chem_name = track_chem_name model_config_rec % track_rad_num = track_rad_num model_config_rec % track_tuv_num = track_tuv_num model_config_rec % track_tuv_lev = track_tuv_lev model_config_rec % n2o5_hetchem = n2o5_hetchem model_config_rec % af_lambda_start = af_lambda_start model_config_rec % af_lambda_end = af_lambda_end model_config_rec % lnox_opt = lnox_opt model_config_rec % lnox_passive = lnox_passive model_config_rec % ltng_temp_upper = ltng_temp_upper model_config_rec % ltng_temp_lower = ltng_temp_lower model_config_rec % has_o3_exo_coldens = has_o3_exo_coldens model_config_rec % du_at_grnd = du_at_grnd model_config_rec % scale_o3_to_grnd_exo_coldens = scale_o3_to_grnd_exo_coldens model_config_rec % scale_o3_to_du_at_grnd = scale_o3_to_du_at_grnd model_config_rec % irr_opt = irr_opt model_config_rec % ifire = ifire model_config_rec % fire_boundary_guard = fire_boundary_guard model_config_rec % fire_num_ignitions = fire_num_ignitions model_config_rec % fire_ignition_ros1 = fire_ignition_ros1 model_config_rec % fire_ignition_start_lon1 = fire_ignition_start_lon1 model_config_rec % fire_ignition_start_lat1 = fire_ignition_start_lat1 model_config_rec % fire_ignition_end_lon1 = fire_ignition_end_lon1 model_config_rec % fire_ignition_end_lat1 = fire_ignition_end_lat1 model_config_rec % fire_ignition_radius1 = fire_ignition_radius1 model_config_rec % fire_ignition_start_time1 = fire_ignition_start_time1 model_config_rec % fire_ignition_end_time1 = fire_ignition_end_time1 model_config_rec % fire_ignition_ros2 = fire_ignition_ros2 model_config_rec % fire_ignition_start_lon2 = fire_ignition_start_lon2 model_config_rec % fire_ignition_start_lat2 = fire_ignition_start_lat2 model_config_rec % fire_ignition_end_lon2 = fire_ignition_end_lon2 model_config_rec % fire_ignition_end_lat2 = fire_ignition_end_lat2 model_config_rec % fire_ignition_radius2 = fire_ignition_radius2 model_config_rec % fire_ignition_start_time2 = fire_ignition_start_time2 model_config_rec % fire_ignition_end_time2 = fire_ignition_end_time2 model_config_rec % fire_ignition_ros3 = fire_ignition_ros3 model_config_rec % fire_ignition_start_lon3 = fire_ignition_start_lon3 model_config_rec % fire_ignition_start_lat3 = fire_ignition_start_lat3 model_config_rec % fire_ignition_end_lon3 = fire_ignition_end_lon3 model_config_rec % fire_ignition_end_lat3 = fire_ignition_end_lat3 model_config_rec % fire_ignition_radius3 = fire_ignition_radius3 model_config_rec % fire_ignition_start_time3 = fire_ignition_start_time3 model_config_rec % fire_ignition_end_time3 = fire_ignition_end_time3 model_config_rec % fire_ignition_ros4 = fire_ignition_ros4 model_config_rec % fire_ignition_start_lon4 = fire_ignition_start_lon4 model_config_rec % fire_ignition_start_lat4 = fire_ignition_start_lat4 model_config_rec % fire_ignition_end_lon4 = fire_ignition_end_lon4 model_config_rec % fire_ignition_end_lat4 = fire_ignition_end_lat4 model_config_rec % fire_ignition_radius4 = fire_ignition_radius4 model_config_rec % fire_ignition_start_time4 = fire_ignition_start_time4 model_config_rec % fire_ignition_end_time4 = fire_ignition_end_time4 model_config_rec % fire_ignition_ros5 = fire_ignition_ros5 model_config_rec % fire_ignition_start_lon5 = fire_ignition_start_lon5 model_config_rec % fire_ignition_start_lat5 = fire_ignition_start_lat5 model_config_rec % fire_ignition_end_lon5 = fire_ignition_end_lon5 model_config_rec % fire_ignition_end_lat5 = fire_ignition_end_lat5 model_config_rec % fire_ignition_radius5 = fire_ignition_radius5 model_config_rec % fire_ignition_start_time5 = fire_ignition_start_time5 model_config_rec % fire_ignition_end_time5 = fire_ignition_end_time5 model_config_rec % fire_ignition_start_x1 = fire_ignition_start_x1 model_config_rec % fire_ignition_start_y1 = fire_ignition_start_y1 model_config_rec % fire_ignition_end_x1 = fire_ignition_end_x1 model_config_rec % fire_ignition_end_y1 = fire_ignition_end_y1 model_config_rec % fire_ignition_start_x2 = fire_ignition_start_x2 model_config_rec % fire_ignition_start_y2 = fire_ignition_start_y2 model_config_rec % fire_ignition_end_x2 = fire_ignition_end_x2 model_config_rec % fire_ignition_end_y2 = fire_ignition_end_y2 model_config_rec % fire_ignition_start_x3 = fire_ignition_start_x3 model_config_rec % fire_ignition_start_y3 = fire_ignition_start_y3 model_config_rec % fire_ignition_end_x3 = fire_ignition_end_x3 model_config_rec % fire_ignition_end_y3 = fire_ignition_end_y3 model_config_rec % fire_ignition_start_x4 = fire_ignition_start_x4 model_config_rec % fire_ignition_start_y4 = fire_ignition_start_y4 model_config_rec % fire_ignition_end_x4 = fire_ignition_end_x4 model_config_rec % fire_ignition_end_y4 = fire_ignition_end_y4 model_config_rec % fire_ignition_start_x5 = fire_ignition_start_x5 model_config_rec % fire_ignition_start_y5 = fire_ignition_start_y5 model_config_rec % fire_ignition_end_x5 = fire_ignition_end_x5 model_config_rec % fire_ignition_end_y5 = fire_ignition_end_y5 model_config_rec % fire_lat_init = fire_lat_init model_config_rec % fire_lon_init = fire_lon_init model_config_rec % fire_ign_time = fire_ign_time model_config_rec % fire_shape = fire_shape model_config_rec % fire_sprd_mdl = fire_sprd_mdl model_config_rec % fire_crwn_hgt = fire_crwn_hgt model_config_rec % fire_ext_grnd = fire_ext_grnd model_config_rec % fire_ext_crwn = fire_ext_crwn model_config_rec % fire_wind_height = fire_wind_height model_config_rec % fire_fuel_read = fire_fuel_read model_config_rec % fire_fuel_cat = fire_fuel_cat model_config_rec % fire_print_msg = fire_print_msg model_config_rec % fire_print_file = fire_print_file model_config_rec % fire_fuel_left_method = fire_fuel_left_method model_config_rec % fire_fuel_left_irl = fire_fuel_left_irl model_config_rec % fire_fuel_left_jrl = fire_fuel_left_jrl model_config_rec % fire_back_weight = fire_back_weight model_config_rec % fire_grows_only = fire_grows_only model_config_rec % fire_upwinding = fire_upwinding model_config_rec % fire_upwind_split = fire_upwind_split model_config_rec % fire_viscosity = fire_viscosity model_config_rec % fire_lfn_ext_up = fire_lfn_ext_up model_config_rec % fire_topo_from_atm = fire_topo_from_atm model_config_rec % fire_advection = fire_advection model_config_rec % fire_test_steps = fire_test_steps model_config_rec % fire_const_time = fire_const_time model_config_rec % fire_const_grnhfx = fire_const_grnhfx model_config_rec % fire_const_grnqfx = fire_const_grnqfx model_config_rec % fire_atm_feedback = fire_atm_feedback model_config_rec % fire_mountain_type = fire_mountain_type model_config_rec % fire_mountain_height = fire_mountain_height model_config_rec % fire_mountain_start_x = fire_mountain_start_x model_config_rec % fire_mountain_start_y = fire_mountain_start_y model_config_rec % fire_mountain_end_x = fire_mountain_end_x model_config_rec % fire_mountain_end_y = fire_mountain_end_y model_config_rec % delt_perturbation = delt_perturbation model_config_rec % xrad_perturbation = xrad_perturbation model_config_rec % yrad_perturbation = yrad_perturbation model_config_rec % zrad_perturbation = zrad_perturbation model_config_rec % hght_perturbation = hght_perturbation model_config_rec % stretch_grd = stretch_grd model_config_rec % stretch_hyp = stretch_hyp model_config_rec % z_grd_scale = z_grd_scale model_config_rec % sfc_full_init = sfc_full_init model_config_rec % sfc_lu_index = sfc_lu_index model_config_rec % sfc_tsk = sfc_tsk model_config_rec % sfc_tmn = sfc_tmn model_config_rec % fire_read_lu = fire_read_lu model_config_rec % fire_read_tsk = fire_read_tsk model_config_rec % fire_read_tmn = fire_read_tmn model_config_rec % fire_read_atm_ht = fire_read_atm_ht model_config_rec % fire_read_fire_ht = fire_read_fire_ht model_config_rec % fire_read_atm_grad = fire_read_atm_grad model_config_rec % fire_read_fire_grad = fire_read_fire_grad model_config_rec % sfc_vegfra = sfc_vegfra model_config_rec % sfc_canwat = sfc_canwat model_config_rec % sfc_ivgtyp = sfc_ivgtyp model_config_rec % sfc_isltyp = sfc_isltyp model_config_rec % do_avgflx_em = do_avgflx_em model_config_rec % do_avgflx_cugd = do_avgflx_cugd model_config_rec % nens = nens model_config_rec % skebs = skebs model_config_rec % stoch_force_opt = stoch_force_opt model_config_rec % skebs_vertstruc = skebs_vertstruc model_config_rec % stoch_vertstruc_opt = stoch_vertstruc_opt model_config_rec % tot_backscat_psi = tot_backscat_psi model_config_rec % tot_backscat_t = tot_backscat_t model_config_rec % ztau_psi = ztau_psi model_config_rec % ztau_t = ztau_t model_config_rec % rexponent_psi = rexponent_psi model_config_rec % rexponent_t = rexponent_t model_config_rec % zsigma2_eps = zsigma2_eps model_config_rec % zsigma2_eta = zsigma2_eta model_config_rec % kminforc = kminforc model_config_rec % lminforc = lminforc model_config_rec % kminforct = kminforct model_config_rec % lminforct = lminforct model_config_rec % kmaxforc = kmaxforc model_config_rec % lmaxforc = lmaxforc model_config_rec % kmaxforct = kmaxforct model_config_rec % lmaxforct = lmaxforct model_config_rec % iseed_skebs = iseed_skebs model_config_rec % kmaxforch = kmaxforch model_config_rec % lmaxforch = lmaxforch model_config_rec % kmaxforcth = kmaxforcth model_config_rec % lmaxforcth = lmaxforcth model_config_rec % sppt = sppt model_config_rec % gridpt_stddev_sppt = gridpt_stddev_sppt model_config_rec % stddev_cutoff_sppt = stddev_cutoff_sppt model_config_rec % lengthscale_sppt = lengthscale_sppt model_config_rec % timescale_sppt = timescale_sppt model_config_rec % sppt_vertstruc = sppt_vertstruc model_config_rec % iseed_sppt = iseed_sppt model_config_rec % rand_perturb = rand_perturb model_config_rec % gridpt_stddev_rand_pert = gridpt_stddev_rand_pert model_config_rec % stddev_cutoff_rand_pert = stddev_cutoff_rand_pert model_config_rec % lengthscale_rand_pert = lengthscale_rand_pert model_config_rec % timescale_rand_pert = timescale_rand_pert model_config_rec % rand_pert_vertstruc = rand_pert_vertstruc model_config_rec % iseed_rand_pert = iseed_rand_pert model_config_rec % spp = spp model_config_rec % hrrr_cycling = hrrr_cycling model_config_rec % spp_conv = spp_conv model_config_rec % gridpt_stddev_spp_conv = gridpt_stddev_spp_conv model_config_rec % stddev_cutoff_spp_conv = stddev_cutoff_spp_conv model_config_rec % lengthscale_spp_conv = lengthscale_spp_conv model_config_rec % timescale_spp_conv = timescale_spp_conv model_config_rec % vertstruc_spp_conv = vertstruc_spp_conv model_config_rec % iseed_spp_conv = iseed_spp_conv model_config_rec % spp_pbl = spp_pbl model_config_rec % gridpt_stddev_spp_pbl = gridpt_stddev_spp_pbl model_config_rec % stddev_cutoff_spp_pbl = stddev_cutoff_spp_pbl model_config_rec % lengthscale_spp_pbl = lengthscale_spp_pbl model_config_rec % timescale_spp_pbl = timescale_spp_pbl model_config_rec % vertstruc_spp_pbl = vertstruc_spp_pbl model_config_rec % iseed_spp_pbl = iseed_spp_pbl model_config_rec % spp_lsm = spp_lsm model_config_rec % gridpt_stddev_spp_lsm = gridpt_stddev_spp_lsm model_config_rec % stddev_cutoff_spp_lsm = stddev_cutoff_spp_lsm model_config_rec % lengthscale_spp_lsm = lengthscale_spp_lsm model_config_rec % timescale_spp_lsm = timescale_spp_lsm model_config_rec % vertstruc_spp_lsm = vertstruc_spp_lsm model_config_rec % iseed_spp_lsm = iseed_spp_lsm model_config_rec % skebs_on = skebs_on model_config_rec % sppt_on = sppt_on model_config_rec % spp_on = spp_on model_config_rec % rand_perturb_on = rand_perturb_on model_config_rec % num_stoch_levels = num_stoch_levels model_config_rec % sfs_opt = sfs_opt model_config_rec % m_opt = m_opt model_config_rec % lakedepth_default = lakedepth_default model_config_rec % lake_min_elev = lake_min_elev model_config_rec % use_lakedepth = use_lakedepth model_config_rec % p_lev_diags = p_lev_diags model_config_rec % p_lev_diags_dfi = p_lev_diags_dfi model_config_rec % num_press_levels = num_press_levels model_config_rec % press_levels = press_levels model_config_rec % use_tot_or_hyd_p = use_tot_or_hyd_p model_config_rec % extrap_below_grnd = extrap_below_grnd model_config_rec % p_lev_missing = p_lev_missing model_config_rec % p_lev_interval = p_lev_interval model_config_rec % z_lev_diags = z_lev_diags model_config_rec % z_lev_diags_dfi = z_lev_diags_dfi model_config_rec % num_z_levels = num_z_levels model_config_rec % z_levels = z_levels model_config_rec % z_lev_missing = z_lev_missing model_config_rec % z_lev_interval = z_lev_interval model_config_rec % afwa_diag_opt = afwa_diag_opt model_config_rec % afwa_ptype_opt = afwa_ptype_opt model_config_rec % afwa_vil_opt = afwa_vil_opt model_config_rec % afwa_radar_opt = afwa_radar_opt model_config_rec % afwa_severe_opt = afwa_severe_opt model_config_rec % afwa_icing_opt = afwa_icing_opt model_config_rec % afwa_vis_opt = afwa_vis_opt model_config_rec % afwa_cloud_opt = afwa_cloud_opt model_config_rec % afwa_therm_opt = afwa_therm_opt model_config_rec % afwa_turb_opt = afwa_turb_opt model_config_rec % afwa_buoy_opt = afwa_buoy_opt model_config_rec % afwa_ptype_ccn_tmp = afwa_ptype_ccn_tmp model_config_rec % afwa_ptype_tot_melt = afwa_ptype_tot_melt model_config_rec % afwa_bad_data_check = afwa_bad_data_check model_config_rec % mean_diag = mean_diag model_config_rec % mean_freq = mean_freq model_config_rec % mean_interval = mean_interval model_config_rec % diurnal_diag = diurnal_diag model_config_rec % nssl_ipelec = nssl_ipelec model_config_rec % nssl_isaund = nssl_isaund model_config_rec % nssl_iscreen = nssl_iscreen model_config_rec % nssl_lightrad = nssl_lightrad model_config_rec % nssl_idischarge = nssl_idischarge model_config_rec % nssl_ibrkd = nssl_ibrkd model_config_rec % nssl_ecrit = nssl_ecrit model_config_rec % nssl_disfrac = nssl_disfrac model_config_rec % elec_physics = elec_physics model_config_rec % perturb_bdy = perturb_bdy model_config_rec % perturb_chem_bdy = perturb_chem_bdy model_config_rec % num_gca_levels = num_gca_levels model_config_rec % gca_input_opt = gca_input_opt model_config_rec % hybrid_opt = hybrid_opt model_config_rec % etac = etac model_config_rec % num_wif_levels = num_wif_levels model_config_rec % wif_input_opt = wif_input_opt CLOSE ( UNIT = nml_read_unit , IOSTAT = io_status ) IF ( io_status .NE. 0 ) THEN CALL wrf_error_fatal3("",13527,& 'ERROR CLOSING namelist.input' ) ENDIF CLOSE ( UNIT = nml_write_unit , IOSTAT = io_status ) IF ( io_status .NE. 0 ) THEN CALL wrf_error_fatal3("",13534,& 'ERROR CLOSING namelist.output' ) ENDIF RETURN END SUBROUTINE initial_config SUBROUTINE get_config_as_buffer( buffer, buflen, ncopied ) INTEGER, INTENT(INOUT) :: buffer(*) INTEGER, INTENT(IN) :: buflen INTEGER, INTENT(OUT) :: ncopied INTEGER :: nbytes CALL wrf_num_bytes_between ( model_config_rec%last_item_in_struct , & model_config_rec%first_item_in_struct , & nbytes ) IF ( nbytes .gt. buflen ) THEN CALL wrf_error_fatal3("",13556,& "get_config_rec_as_buffer: buffer size too small for config_rec" ) ENDIF CALL wrf_mem_copy( model_config_rec, buffer, nbytes ) ncopied = nbytes RETURN END SUBROUTINE get_config_as_buffer SUBROUTINE set_config_as_buffer( buffer, buflen ) INTEGER, INTENT(INOUT) :: buffer(*) INTEGER, INTENT(IN) :: buflen INTEGER :: nbytes CALL wrf_num_bytes_between ( model_config_rec%last_item_in_struct , & model_config_rec%first_item_in_struct , & nbytes ) IF ( nbytes .gt. buflen ) THEN CALL wrf_error_fatal3("",13576,& "set_config_rec_as_buffer: buffer length too small to fill model config record" ) ENDIF CALL wrf_mem_copy( buffer, model_config_rec, nbytes ) RETURN END SUBROUTINE set_config_as_buffer SUBROUTINE model_to_grid_config_rec ( id_id , model_config_rec , grid_config_rec ) INTEGER , INTENT(IN) :: id_id TYPE ( model_config_rec_type ) , INTENT(IN) :: model_config_rec TYPE ( grid_config_rec_type ) , INTENT(OUT) :: grid_config_rec grid_config_rec % run_days = model_config_rec % run_days grid_config_rec % run_hours = model_config_rec % run_hours grid_config_rec % run_minutes = model_config_rec % run_minutes grid_config_rec % run_seconds = model_config_rec % run_seconds grid_config_rec % start_year = model_config_rec % start_year (id_id) grid_config_rec % start_month = model_config_rec % start_month (id_id) grid_config_rec % start_day = model_config_rec % start_day (id_id) grid_config_rec % start_hour = model_config_rec % start_hour (id_id) grid_config_rec % start_minute = model_config_rec % start_minute (id_id) grid_config_rec % start_second = model_config_rec % start_second (id_id) grid_config_rec % end_year = model_config_rec % end_year (id_id) grid_config_rec % end_month = model_config_rec % end_month (id_id) grid_config_rec % end_day = model_config_rec % end_day (id_id) grid_config_rec % end_hour = model_config_rec % end_hour (id_id) grid_config_rec % end_minute = model_config_rec % end_minute (id_id) grid_config_rec % end_second = model_config_rec % end_second (id_id) grid_config_rec % interval_seconds = model_config_rec % interval_seconds grid_config_rec % input_from_file = model_config_rec % input_from_file (id_id) grid_config_rec % fine_input_stream = model_config_rec % fine_input_stream (id_id) grid_config_rec % input_from_hires = model_config_rec % input_from_hires (id_id) grid_config_rec % rsmas_data_path = model_config_rec % rsmas_data_path grid_config_rec % all_ic_times = model_config_rec % all_ic_times grid_config_rec % julyr = model_config_rec % julyr (id_id) grid_config_rec % julday = model_config_rec % julday (id_id) grid_config_rec % gmt = model_config_rec % gmt (id_id) grid_config_rec % input_inname = model_config_rec % input_inname grid_config_rec % input_outname = model_config_rec % input_outname grid_config_rec % bdy_inname = model_config_rec % bdy_inname grid_config_rec % bdy_outname = model_config_rec % bdy_outname grid_config_rec % rst_inname = model_config_rec % rst_inname grid_config_rec % rst_outname = model_config_rec % rst_outname grid_config_rec % write_input = model_config_rec % write_input grid_config_rec % write_restart_at_0h = model_config_rec % write_restart_at_0h grid_config_rec % write_hist_at_0h_rst = model_config_rec % write_hist_at_0h_rst grid_config_rec % adjust_output_times = model_config_rec % adjust_output_times grid_config_rec % adjust_input_times = model_config_rec % adjust_input_times grid_config_rec % diag_print = model_config_rec % diag_print grid_config_rec % nocolons = model_config_rec % nocolons grid_config_rec % cycling = model_config_rec % cycling grid_config_rec % output_diagnostics = model_config_rec % output_diagnostics grid_config_rec % nwp_diagnostics = model_config_rec % nwp_diagnostics grid_config_rec % output_ready_flag = model_config_rec % output_ready_flag grid_config_rec % usepio = model_config_rec % usepio grid_config_rec % pioprocs = model_config_rec % pioprocs grid_config_rec % piostart = model_config_rec % piostart grid_config_rec % piostride = model_config_rec % piostride grid_config_rec % pioshift = model_config_rec % pioshift grid_config_rec % dfi_opt = model_config_rec % dfi_opt grid_config_rec % dfi_savehydmeteors = model_config_rec % dfi_savehydmeteors grid_config_rec % dfi_nfilter = model_config_rec % dfi_nfilter grid_config_rec % dfi_write_filtered_input = model_config_rec % dfi_write_filtered_input grid_config_rec % dfi_write_dfi_history = model_config_rec % dfi_write_dfi_history grid_config_rec % dfi_cutoff_seconds = model_config_rec % dfi_cutoff_seconds grid_config_rec % dfi_time_dim = model_config_rec % dfi_time_dim grid_config_rec % dfi_fwdstop_year = model_config_rec % dfi_fwdstop_year grid_config_rec % dfi_fwdstop_month = model_config_rec % dfi_fwdstop_month grid_config_rec % dfi_fwdstop_day = model_config_rec % dfi_fwdstop_day grid_config_rec % dfi_fwdstop_hour = model_config_rec % dfi_fwdstop_hour grid_config_rec % dfi_fwdstop_minute = model_config_rec % dfi_fwdstop_minute grid_config_rec % dfi_fwdstop_second = model_config_rec % dfi_fwdstop_second grid_config_rec % dfi_bckstop_year = model_config_rec % dfi_bckstop_year grid_config_rec % dfi_bckstop_month = model_config_rec % dfi_bckstop_month grid_config_rec % dfi_bckstop_day = model_config_rec % dfi_bckstop_day grid_config_rec % dfi_bckstop_hour = model_config_rec % dfi_bckstop_hour grid_config_rec % dfi_bckstop_minute = model_config_rec % dfi_bckstop_minute grid_config_rec % dfi_bckstop_second = model_config_rec % dfi_bckstop_second grid_config_rec % time_step = model_config_rec % time_step grid_config_rec % time_step_fract_num = model_config_rec % time_step_fract_num grid_config_rec % time_step_fract_den = model_config_rec % time_step_fract_den grid_config_rec % time_step_dfi = model_config_rec % time_step_dfi grid_config_rec % min_time_step = model_config_rec % min_time_step (id_id) grid_config_rec % min_time_step_den = model_config_rec % min_time_step_den (id_id) grid_config_rec % max_time_step = model_config_rec % max_time_step (id_id) grid_config_rec % max_time_step_den = model_config_rec % max_time_step_den (id_id) grid_config_rec % target_cfl = model_config_rec % target_cfl (id_id) grid_config_rec % target_hcfl = model_config_rec % target_hcfl (id_id) grid_config_rec % max_step_increase_pct = model_config_rec % max_step_increase_pct (id_id) grid_config_rec % starting_time_step = model_config_rec % starting_time_step (id_id) grid_config_rec % starting_time_step_den = model_config_rec % starting_time_step_den (id_id) grid_config_rec % step_to_output_time = model_config_rec % step_to_output_time grid_config_rec % adaptation_domain = model_config_rec % adaptation_domain grid_config_rec % use_adaptive_time_step = model_config_rec % use_adaptive_time_step grid_config_rec % use_adaptive_time_step_dfi = model_config_rec % use_adaptive_time_step_dfi grid_config_rec % max_dom = model_config_rec % max_dom grid_config_rec % lats_to_mic = model_config_rec % lats_to_mic grid_config_rec % s_we = model_config_rec % s_we (id_id) grid_config_rec % e_we = model_config_rec % e_we (id_id) grid_config_rec % s_sn = model_config_rec % s_sn (id_id) grid_config_rec % e_sn = model_config_rec % e_sn (id_id) grid_config_rec % s_vert = model_config_rec % s_vert (id_id) grid_config_rec % e_vert = model_config_rec % e_vert (id_id) grid_config_rec % num_metgrid_levels = model_config_rec % num_metgrid_levels grid_config_rec % num_metgrid_soil_levels = model_config_rec % num_metgrid_soil_levels grid_config_rec % p_top_requested = model_config_rec % p_top_requested grid_config_rec % interp_theta = model_config_rec % interp_theta grid_config_rec % interp_type = model_config_rec % interp_type grid_config_rec % rebalance = model_config_rec % rebalance grid_config_rec % vert_refine_method = model_config_rec % vert_refine_method (id_id) grid_config_rec % vert_refine_fact = model_config_rec % vert_refine_fact grid_config_rec % extrap_type = model_config_rec % extrap_type grid_config_rec % t_extrap_type = model_config_rec % t_extrap_type grid_config_rec % hypsometric_opt = model_config_rec % hypsometric_opt grid_config_rec % lowest_lev_from_sfc = model_config_rec % lowest_lev_from_sfc grid_config_rec % use_levels_below_ground = model_config_rec % use_levels_below_ground grid_config_rec % use_tavg_for_tsk = model_config_rec % use_tavg_for_tsk grid_config_rec % use_surface = model_config_rec % use_surface grid_config_rec % lagrange_order = model_config_rec % lagrange_order grid_config_rec % force_sfc_in_vinterp = model_config_rec % force_sfc_in_vinterp grid_config_rec % zap_close_levels = model_config_rec % zap_close_levels grid_config_rec % maxw_horiz_pres_diff = model_config_rec % maxw_horiz_pres_diff grid_config_rec % trop_horiz_pres_diff = model_config_rec % trop_horiz_pres_diff grid_config_rec % maxw_above_this_level = model_config_rec % maxw_above_this_level grid_config_rec % use_maxw_level = model_config_rec % use_maxw_level grid_config_rec % use_trop_level = model_config_rec % use_trop_level grid_config_rec % sfcp_to_sfcp = model_config_rec % sfcp_to_sfcp grid_config_rec % adjust_heights = model_config_rec % adjust_heights grid_config_rec % smooth_cg_topo = model_config_rec % smooth_cg_topo grid_config_rec % nest_interp_coord = model_config_rec % nest_interp_coord grid_config_rec % interp_method_type = model_config_rec % interp_method_type grid_config_rec % aggregate_lu = model_config_rec % aggregate_lu grid_config_rec % rh2qv_wrt_liquid = model_config_rec % rh2qv_wrt_liquid grid_config_rec % rh2qv_method = model_config_rec % rh2qv_method grid_config_rec % qv_max_p_safe = model_config_rec % qv_max_p_safe grid_config_rec % qv_max_flag = model_config_rec % qv_max_flag grid_config_rec % qv_max_value = model_config_rec % qv_max_value grid_config_rec % qv_min_p_safe = model_config_rec % qv_min_p_safe grid_config_rec % qv_min_flag = model_config_rec % qv_min_flag grid_config_rec % qv_min_value = model_config_rec % qv_min_value grid_config_rec % ideal_init_method = model_config_rec % ideal_init_method grid_config_rec % dx = model_config_rec % dx (id_id) grid_config_rec % dy = model_config_rec % dy (id_id) grid_config_rec % grid_id = model_config_rec % grid_id (id_id) grid_config_rec % grid_allowed = model_config_rec % grid_allowed (id_id) grid_config_rec % parent_id = model_config_rec % parent_id (id_id) grid_config_rec % i_parent_start = model_config_rec % i_parent_start (id_id) grid_config_rec % j_parent_start = model_config_rec % j_parent_start (id_id) grid_config_rec % parent_grid_ratio = model_config_rec % parent_grid_ratio (id_id) grid_config_rec % parent_time_step_ratio = model_config_rec % parent_time_step_ratio (id_id) grid_config_rec % feedback = model_config_rec % feedback grid_config_rec % smooth_option = model_config_rec % smooth_option grid_config_rec % blend_width = model_config_rec % blend_width grid_config_rec % ztop = model_config_rec % ztop (id_id) grid_config_rec % moad_grid_ratio = model_config_rec % moad_grid_ratio (id_id) grid_config_rec % moad_time_step_ratio = model_config_rec % moad_time_step_ratio (id_id) grid_config_rec % shw = model_config_rec % shw (id_id) grid_config_rec % tile_sz_x = model_config_rec % tile_sz_x grid_config_rec % tile_sz_y = model_config_rec % tile_sz_y grid_config_rec % numtiles = model_config_rec % numtiles grid_config_rec % numtiles_inc = model_config_rec % numtiles_inc grid_config_rec % numtiles_x = model_config_rec % numtiles_x grid_config_rec % numtiles_y = model_config_rec % numtiles_y grid_config_rec % tile_strategy = model_config_rec % tile_strategy grid_config_rec % nproc_x = model_config_rec % nproc_x grid_config_rec % nproc_y = model_config_rec % nproc_y grid_config_rec % irand = model_config_rec % irand grid_config_rec % dt = model_config_rec % dt (id_id) grid_config_rec % fft_used = model_config_rec % fft_used grid_config_rec % cu_used = model_config_rec % cu_used grid_config_rec % shcu_used = model_config_rec % shcu_used grid_config_rec % cam_used = model_config_rec % cam_used grid_config_rec % alloc_qndropsource = model_config_rec % alloc_qndropsource grid_config_rec % num_moves = model_config_rec % num_moves grid_config_rec % ts_buf_size = model_config_rec % ts_buf_size grid_config_rec % max_ts_locs = model_config_rec % max_ts_locs grid_config_rec % vortex_interval = model_config_rec % vortex_interval (id_id) grid_config_rec % max_vortex_speed = model_config_rec % max_vortex_speed (id_id) grid_config_rec % corral_dist = model_config_rec % corral_dist (id_id) grid_config_rec % track_level = model_config_rec % track_level grid_config_rec % time_to_move = model_config_rec % time_to_move (id_id) grid_config_rec % move_id = model_config_rec % move_id (id_id) grid_config_rec % move_interval = model_config_rec % move_interval (id_id) grid_config_rec % move_cd_x = model_config_rec % move_cd_x (id_id) grid_config_rec % move_cd_y = model_config_rec % move_cd_y (id_id) grid_config_rec % swap_x = model_config_rec % swap_x (id_id) grid_config_rec % swap_y = model_config_rec % swap_y (id_id) grid_config_rec % cycle_x = model_config_rec % cycle_x (id_id) grid_config_rec % cycle_y = model_config_rec % cycle_y (id_id) grid_config_rec % reorder_mesh = model_config_rec % reorder_mesh grid_config_rec % perturb_input = model_config_rec % perturb_input grid_config_rec % eta_levels = model_config_rec % eta_levels (id_id) grid_config_rec % max_dz = model_config_rec % max_dz grid_config_rec % ocean_levels = model_config_rec % ocean_levels grid_config_rec % ocean_z = model_config_rec % ocean_z (id_id) grid_config_rec % ocean_t = model_config_rec % ocean_t (id_id) grid_config_rec % ocean_s = model_config_rec % ocean_s (id_id) grid_config_rec % num_traj = model_config_rec % num_traj grid_config_rec % max_ts_level = model_config_rec % max_ts_level grid_config_rec % track_loc_in = model_config_rec % track_loc_in grid_config_rec % num_ext_model_couple_dom = model_config_rec % num_ext_model_couple_dom grid_config_rec % insert_bogus_storm = model_config_rec % insert_bogus_storm grid_config_rec % remove_storm = model_config_rec % remove_storm grid_config_rec % num_storm = model_config_rec % num_storm grid_config_rec % latc_loc = model_config_rec % latc_loc (id_id) grid_config_rec % lonc_loc = model_config_rec % lonc_loc (id_id) grid_config_rec % vmax_meters_per_second = model_config_rec % vmax_meters_per_second (id_id) grid_config_rec % rmax = model_config_rec % rmax (id_id) grid_config_rec % vmax_ratio = model_config_rec % vmax_ratio (id_id) grid_config_rec % rankine_lid = model_config_rec % rankine_lid grid_config_rec % physics_suite = model_config_rec % physics_suite grid_config_rec % force_read_thompson = model_config_rec % force_read_thompson grid_config_rec % write_thompson_tables = model_config_rec % write_thompson_tables grid_config_rec % mp_physics = model_config_rec % mp_physics (id_id) grid_config_rec % nssl_cccn = model_config_rec % nssl_cccn (id_id) grid_config_rec % nssl_alphah = model_config_rec % nssl_alphah (id_id) grid_config_rec % nssl_alphahl = model_config_rec % nssl_alphahl (id_id) grid_config_rec % nssl_cnoh = model_config_rec % nssl_cnoh (id_id) grid_config_rec % nssl_cnohl = model_config_rec % nssl_cnohl (id_id) grid_config_rec % nssl_cnor = model_config_rec % nssl_cnor (id_id) grid_config_rec % nssl_cnos = model_config_rec % nssl_cnos (id_id) grid_config_rec % nssl_rho_qh = model_config_rec % nssl_rho_qh (id_id) grid_config_rec % nssl_rho_qhl = model_config_rec % nssl_rho_qhl (id_id) grid_config_rec % nssl_rho_qs = model_config_rec % nssl_rho_qs (id_id) grid_config_rec % nudge_lightning = model_config_rec % nudge_lightning (id_id) grid_config_rec % nudge_light_times = model_config_rec % nudge_light_times (id_id) grid_config_rec % nudge_light_timee = model_config_rec % nudge_light_timee (id_id) grid_config_rec % nudge_light_int = model_config_rec % nudge_light_int (id_id) grid_config_rec % path_to_files = model_config_rec % path_to_files grid_config_rec % gsfcgce_hail = model_config_rec % gsfcgce_hail grid_config_rec % gsfcgce_2ice = model_config_rec % gsfcgce_2ice grid_config_rec % progn = model_config_rec % progn (id_id) grid_config_rec % accum_mode = model_config_rec % accum_mode grid_config_rec % aitken_mode = model_config_rec % aitken_mode grid_config_rec % coarse_mode = model_config_rec % coarse_mode grid_config_rec % do_radar_ref = model_config_rec % do_radar_ref grid_config_rec % compute_radar_ref = model_config_rec % compute_radar_ref grid_config_rec % ra_lw_physics = model_config_rec % ra_lw_physics (id_id) grid_config_rec % ra_sw_physics = model_config_rec % ra_sw_physics (id_id) grid_config_rec % radt = model_config_rec % radt (id_id) grid_config_rec % naer = model_config_rec % naer (id_id) grid_config_rec % sf_sfclay_physics = model_config_rec % sf_sfclay_physics (id_id) grid_config_rec % sf_surface_physics = model_config_rec % sf_surface_physics (id_id) grid_config_rec % bl_pbl_physics = model_config_rec % bl_pbl_physics (id_id) grid_config_rec % bl_mynn_tkebudget = model_config_rec % bl_mynn_tkebudget (id_id) grid_config_rec % ysu_topdown_pblmix = model_config_rec % ysu_topdown_pblmix grid_config_rec % shinhong_tke_diag = model_config_rec % shinhong_tke_diag (id_id) grid_config_rec % bl_mynn_tkeadvect = model_config_rec % bl_mynn_tkeadvect (id_id) grid_config_rec % bl_mynn_cloudpdf = model_config_rec % bl_mynn_cloudpdf grid_config_rec % bl_mynn_mixlength = model_config_rec % bl_mynn_mixlength grid_config_rec % bl_mynn_edmf = model_config_rec % bl_mynn_edmf (id_id) grid_config_rec % bl_mynn_edmf_mom = model_config_rec % bl_mynn_edmf_mom (id_id) grid_config_rec % bl_mynn_edmf_tke = model_config_rec % bl_mynn_edmf_tke (id_id) grid_config_rec % bl_mynn_edmf_part = model_config_rec % bl_mynn_edmf_part (id_id) grid_config_rec % bl_mynn_cloudmix = model_config_rec % bl_mynn_cloudmix (id_id) grid_config_rec % bl_mynn_mixqt = model_config_rec % bl_mynn_mixqt (id_id) grid_config_rec % icloud_bl = model_config_rec % icloud_bl grid_config_rec % mfshconv = model_config_rec % mfshconv (id_id) grid_config_rec % sf_urban_physics = model_config_rec % sf_urban_physics (id_id) grid_config_rec % bldt = model_config_rec % bldt (id_id) grid_config_rec % cu_physics = model_config_rec % cu_physics (id_id) grid_config_rec % shcu_physics = model_config_rec % shcu_physics (id_id) grid_config_rec % cu_diag = model_config_rec % cu_diag (id_id) grid_config_rec % kf_edrates = model_config_rec % kf_edrates (id_id) grid_config_rec % kfeta_trigger = model_config_rec % kfeta_trigger grid_config_rec % nsas_dx_factor = model_config_rec % nsas_dx_factor grid_config_rec % cudt = model_config_rec % cudt (id_id) grid_config_rec % gsmdt = model_config_rec % gsmdt (id_id) grid_config_rec % isfflx = model_config_rec % isfflx grid_config_rec % ifsnow = model_config_rec % ifsnow grid_config_rec % icloud = model_config_rec % icloud grid_config_rec % ideal_xland = model_config_rec % ideal_xland grid_config_rec % swrad_scat = model_config_rec % swrad_scat grid_config_rec % surface_input_source = model_config_rec % surface_input_source grid_config_rec % num_soil_layers = model_config_rec % num_soil_layers grid_config_rec % maxpatch = model_config_rec % maxpatch grid_config_rec % num_snow_layers = model_config_rec % num_snow_layers grid_config_rec % num_snso_layers = model_config_rec % num_snso_layers grid_config_rec % num_urban_layers = model_config_rec % num_urban_layers grid_config_rec % num_urban_hi = model_config_rec % num_urban_hi grid_config_rec % num_months = model_config_rec % num_months grid_config_rec % sf_surface_mosaic = model_config_rec % sf_surface_mosaic grid_config_rec % mosaic_cat = model_config_rec % mosaic_cat grid_config_rec % mosaic_cat_soil = model_config_rec % mosaic_cat_soil grid_config_rec % mosaic_lu = model_config_rec % mosaic_lu grid_config_rec % mosaic_soil = model_config_rec % mosaic_soil grid_config_rec % maxiens = model_config_rec % maxiens grid_config_rec % maxens = model_config_rec % maxens grid_config_rec % maxens2 = model_config_rec % maxens2 grid_config_rec % maxens3 = model_config_rec % maxens3 grid_config_rec % ensdim = model_config_rec % ensdim grid_config_rec % cugd_avedx = model_config_rec % cugd_avedx grid_config_rec % clos_choice = model_config_rec % clos_choice grid_config_rec % imomentum = model_config_rec % imomentum grid_config_rec % ishallow = model_config_rec % ishallow grid_config_rec % convtrans_avglen_m = model_config_rec % convtrans_avglen_m grid_config_rec % num_land_cat = model_config_rec % num_land_cat grid_config_rec % num_soil_cat = model_config_rec % num_soil_cat grid_config_rec % mp_zero_out = model_config_rec % mp_zero_out grid_config_rec % mp_zero_out_thresh = model_config_rec % mp_zero_out_thresh grid_config_rec % seaice_threshold = model_config_rec % seaice_threshold grid_config_rec % sst_update = model_config_rec % sst_update grid_config_rec % sst_skin = model_config_rec % sst_skin grid_config_rec % tmn_update = model_config_rec % tmn_update grid_config_rec % usemonalb = model_config_rec % usemonalb grid_config_rec % rdmaxalb = model_config_rec % rdmaxalb grid_config_rec % rdlai2d = model_config_rec % rdlai2d grid_config_rec % ua_phys = model_config_rec % ua_phys grid_config_rec % opt_thcnd = model_config_rec % opt_thcnd grid_config_rec % co2tf = model_config_rec % co2tf grid_config_rec % ra_call_offset = model_config_rec % ra_call_offset grid_config_rec % cam_abs_freq_s = model_config_rec % cam_abs_freq_s grid_config_rec % levsiz = model_config_rec % levsiz grid_config_rec % paerlev = model_config_rec % paerlev grid_config_rec % cam_abs_dim1 = model_config_rec % cam_abs_dim1 grid_config_rec % cam_abs_dim2 = model_config_rec % cam_abs_dim2 grid_config_rec % lagday = model_config_rec % lagday grid_config_rec % no_src_types = model_config_rec % no_src_types grid_config_rec % alevsiz = model_config_rec % alevsiz grid_config_rec % o3input = model_config_rec % o3input grid_config_rec % aer_opt = model_config_rec % aer_opt grid_config_rec % swint_opt = model_config_rec % swint_opt grid_config_rec % aer_type = model_config_rec % aer_type (id_id) grid_config_rec % aer_aod550_opt = model_config_rec % aer_aod550_opt (id_id) grid_config_rec % aer_angexp_opt = model_config_rec % aer_angexp_opt (id_id) grid_config_rec % aer_ssa_opt = model_config_rec % aer_ssa_opt (id_id) grid_config_rec % aer_asy_opt = model_config_rec % aer_asy_opt (id_id) grid_config_rec % aer_aod550_val = model_config_rec % aer_aod550_val (id_id) grid_config_rec % aer_angexp_val = model_config_rec % aer_angexp_val (id_id) grid_config_rec % aer_ssa_val = model_config_rec % aer_ssa_val (id_id) grid_config_rec % aer_asy_val = model_config_rec % aer_asy_val (id_id) grid_config_rec % cu_rad_feedback = model_config_rec % cu_rad_feedback (id_id) grid_config_rec % shallowcu_forced_ra = model_config_rec % shallowcu_forced_ra (id_id) grid_config_rec % numbins = model_config_rec % numbins (id_id) grid_config_rec % thbinsize = model_config_rec % thbinsize (id_id) grid_config_rec % rbinsize = model_config_rec % rbinsize (id_id) grid_config_rec % mindeepfreq = model_config_rec % mindeepfreq (id_id) grid_config_rec % minshallowfreq = model_config_rec % minshallowfreq (id_id) grid_config_rec % shcu_aerosols_opt = model_config_rec % shcu_aerosols_opt (id_id) grid_config_rec % icloud_cu = model_config_rec % icloud_cu (id_id) grid_config_rec % pxlsm_smois_init = model_config_rec % pxlsm_smois_init (id_id) grid_config_rec % omlcall = model_config_rec % omlcall grid_config_rec % sf_ocean_physics = model_config_rec % sf_ocean_physics grid_config_rec % traj_opt = model_config_rec % traj_opt grid_config_rec % dm_has_traj = model_config_rec % dm_has_traj (id_id) grid_config_rec % tracercall = model_config_rec % tracercall grid_config_rec % omdt = model_config_rec % omdt grid_config_rec % oml_hml0 = model_config_rec % oml_hml0 grid_config_rec % oml_gamma = model_config_rec % oml_gamma grid_config_rec % oml_relaxation_time = model_config_rec % oml_relaxation_time grid_config_rec % isftcflx = model_config_rec % isftcflx grid_config_rec % iz0tlnd = model_config_rec % iz0tlnd grid_config_rec % shadlen = model_config_rec % shadlen grid_config_rec % slope_rad = model_config_rec % slope_rad (id_id) grid_config_rec % topo_shading = model_config_rec % topo_shading (id_id) grid_config_rec % topo_wind = model_config_rec % topo_wind (id_id) grid_config_rec % no_mp_heating = model_config_rec % no_mp_heating grid_config_rec % fractional_seaice = model_config_rec % fractional_seaice grid_config_rec % seaice_snowdepth_opt = model_config_rec % seaice_snowdepth_opt grid_config_rec % seaice_snowdepth_max = model_config_rec % seaice_snowdepth_max grid_config_rec % seaice_snowdepth_min = model_config_rec % seaice_snowdepth_min grid_config_rec % seaice_albedo_opt = model_config_rec % seaice_albedo_opt grid_config_rec % seaice_albedo_default = model_config_rec % seaice_albedo_default grid_config_rec % seaice_thickness_opt = model_config_rec % seaice_thickness_opt grid_config_rec % seaice_thickness_default = model_config_rec % seaice_thickness_default grid_config_rec % tice2tsk_if2cold = model_config_rec % tice2tsk_if2cold grid_config_rec % bucket_mm = model_config_rec % bucket_mm grid_config_rec % bucket_j = model_config_rec % bucket_j grid_config_rec % mp_tend_lim = model_config_rec % mp_tend_lim grid_config_rec % prec_acc_dt = model_config_rec % prec_acc_dt (id_id) grid_config_rec % prec_acc_opt = model_config_rec % prec_acc_opt grid_config_rec % bucketr_opt = model_config_rec % bucketr_opt grid_config_rec % bucketf_opt = model_config_rec % bucketf_opt grid_config_rec % process_time_series = model_config_rec % process_time_series grid_config_rec % grav_settling = model_config_rec % grav_settling (id_id) grid_config_rec % sas_pgcon = model_config_rec % sas_pgcon (id_id) grid_config_rec % scalar_pblmix = model_config_rec % scalar_pblmix (id_id) grid_config_rec % tracer_pblmix = model_config_rec % tracer_pblmix (id_id) grid_config_rec % use_aero_icbc = model_config_rec % use_aero_icbc grid_config_rec % use_rap_aero_icbc = model_config_rec % use_rap_aero_icbc grid_config_rec % use_mp_re = model_config_rec % use_mp_re grid_config_rec % ccn_conc = model_config_rec % ccn_conc grid_config_rec % hail_opt = model_config_rec % hail_opt grid_config_rec % dveg = model_config_rec % dveg grid_config_rec % opt_crs = model_config_rec % opt_crs grid_config_rec % opt_btr = model_config_rec % opt_btr grid_config_rec % opt_run = model_config_rec % opt_run grid_config_rec % opt_sfc = model_config_rec % opt_sfc grid_config_rec % opt_frz = model_config_rec % opt_frz grid_config_rec % opt_inf = model_config_rec % opt_inf grid_config_rec % opt_rad = model_config_rec % opt_rad grid_config_rec % opt_alb = model_config_rec % opt_alb grid_config_rec % opt_snf = model_config_rec % opt_snf grid_config_rec % opt_tbot = model_config_rec % opt_tbot grid_config_rec % opt_stc = model_config_rec % opt_stc grid_config_rec % opt_gla = model_config_rec % opt_gla grid_config_rec % opt_rsf = model_config_rec % opt_rsf grid_config_rec % wtddt = model_config_rec % wtddt (id_id) grid_config_rec % wrf_hydro = model_config_rec % wrf_hydro grid_config_rec % fgdt = model_config_rec % fgdt (id_id) grid_config_rec % fgdtzero = model_config_rec % fgdtzero (id_id) grid_config_rec % grid_fdda = model_config_rec % grid_fdda (id_id) grid_config_rec % grid_sfdda = model_config_rec % grid_sfdda (id_id) grid_config_rec % if_no_pbl_nudging_uv = model_config_rec % if_no_pbl_nudging_uv (id_id) grid_config_rec % if_no_pbl_nudging_t = model_config_rec % if_no_pbl_nudging_t (id_id) grid_config_rec % if_no_pbl_nudging_ph = model_config_rec % if_no_pbl_nudging_ph (id_id) grid_config_rec % if_no_pbl_nudging_q = model_config_rec % if_no_pbl_nudging_q (id_id) grid_config_rec % if_zfac_uv = model_config_rec % if_zfac_uv (id_id) grid_config_rec % k_zfac_uv = model_config_rec % k_zfac_uv (id_id) grid_config_rec % if_zfac_t = model_config_rec % if_zfac_t (id_id) grid_config_rec % k_zfac_t = model_config_rec % k_zfac_t (id_id) grid_config_rec % if_zfac_ph = model_config_rec % if_zfac_ph (id_id) grid_config_rec % k_zfac_ph = model_config_rec % k_zfac_ph (id_id) grid_config_rec % if_zfac_q = model_config_rec % if_zfac_q (id_id) grid_config_rec % k_zfac_q = model_config_rec % k_zfac_q (id_id) grid_config_rec % dk_zfac_uv = model_config_rec % dk_zfac_uv (id_id) grid_config_rec % dk_zfac_t = model_config_rec % dk_zfac_t (id_id) grid_config_rec % dk_zfac_ph = model_config_rec % dk_zfac_ph (id_id) grid_config_rec % guv = model_config_rec % guv (id_id) grid_config_rec % guv_sfc = model_config_rec % guv_sfc (id_id) grid_config_rec % gt = model_config_rec % gt (id_id) grid_config_rec % gt_sfc = model_config_rec % gt_sfc (id_id) grid_config_rec % gq = model_config_rec % gq (id_id) grid_config_rec % gq_sfc = model_config_rec % gq_sfc (id_id) grid_config_rec % gph = model_config_rec % gph (id_id) grid_config_rec % dtramp_min = model_config_rec % dtramp_min grid_config_rec % if_ramping = model_config_rec % if_ramping grid_config_rec % rinblw = model_config_rec % rinblw (id_id) grid_config_rec % xwavenum = model_config_rec % xwavenum (id_id) grid_config_rec % ywavenum = model_config_rec % ywavenum (id_id) grid_config_rec % pxlsm_soil_nudge = model_config_rec % pxlsm_soil_nudge (id_id) grid_config_rec % fasdas = model_config_rec % fasdas (id_id) grid_config_rec % obs_nudge_opt = model_config_rec % obs_nudge_opt (id_id) grid_config_rec % max_obs = model_config_rec % max_obs grid_config_rec % fdda_start = model_config_rec % fdda_start (id_id) grid_config_rec % fdda_end = model_config_rec % fdda_end (id_id) grid_config_rec % obs_nudge_wind = model_config_rec % obs_nudge_wind (id_id) grid_config_rec % obs_coef_wind = model_config_rec % obs_coef_wind (id_id) grid_config_rec % obs_nudge_temp = model_config_rec % obs_nudge_temp (id_id) grid_config_rec % obs_coef_temp = model_config_rec % obs_coef_temp (id_id) grid_config_rec % obs_nudge_mois = model_config_rec % obs_nudge_mois (id_id) grid_config_rec % obs_coef_mois = model_config_rec % obs_coef_mois (id_id) grid_config_rec % obs_nudge_pstr = model_config_rec % obs_nudge_pstr (id_id) grid_config_rec % obs_coef_pstr = model_config_rec % obs_coef_pstr (id_id) grid_config_rec % obs_no_pbl_nudge_uv = model_config_rec % obs_no_pbl_nudge_uv (id_id) grid_config_rec % obs_no_pbl_nudge_t = model_config_rec % obs_no_pbl_nudge_t (id_id) grid_config_rec % obs_no_pbl_nudge_q = model_config_rec % obs_no_pbl_nudge_q (id_id) grid_config_rec % obs_sfc_scheme_horiz = model_config_rec % obs_sfc_scheme_horiz grid_config_rec % obs_sfc_scheme_vert = model_config_rec % obs_sfc_scheme_vert grid_config_rec % obs_max_sndng_gap = model_config_rec % obs_max_sndng_gap grid_config_rec % obs_nudgezfullr1_uv = model_config_rec % obs_nudgezfullr1_uv grid_config_rec % obs_nudgezrampr1_uv = model_config_rec % obs_nudgezrampr1_uv grid_config_rec % obs_nudgezfullr2_uv = model_config_rec % obs_nudgezfullr2_uv grid_config_rec % obs_nudgezrampr2_uv = model_config_rec % obs_nudgezrampr2_uv grid_config_rec % obs_nudgezfullr4_uv = model_config_rec % obs_nudgezfullr4_uv grid_config_rec % obs_nudgezrampr4_uv = model_config_rec % obs_nudgezrampr4_uv grid_config_rec % obs_nudgezfullr1_t = model_config_rec % obs_nudgezfullr1_t grid_config_rec % obs_nudgezrampr1_t = model_config_rec % obs_nudgezrampr1_t grid_config_rec % obs_nudgezfullr2_t = model_config_rec % obs_nudgezfullr2_t grid_config_rec % obs_nudgezrampr2_t = model_config_rec % obs_nudgezrampr2_t grid_config_rec % obs_nudgezfullr4_t = model_config_rec % obs_nudgezfullr4_t grid_config_rec % obs_nudgezrampr4_t = model_config_rec % obs_nudgezrampr4_t grid_config_rec % obs_nudgezfullr1_q = model_config_rec % obs_nudgezfullr1_q grid_config_rec % obs_nudgezrampr1_q = model_config_rec % obs_nudgezrampr1_q grid_config_rec % obs_nudgezfullr2_q = model_config_rec % obs_nudgezfullr2_q grid_config_rec % obs_nudgezrampr2_q = model_config_rec % obs_nudgezrampr2_q grid_config_rec % obs_nudgezfullr4_q = model_config_rec % obs_nudgezfullr4_q grid_config_rec % obs_nudgezrampr4_q = model_config_rec % obs_nudgezrampr4_q grid_config_rec % obs_nudgezfullmin = model_config_rec % obs_nudgezfullmin grid_config_rec % obs_nudgezrampmin = model_config_rec % obs_nudgezrampmin grid_config_rec % obs_nudgezmax = model_config_rec % obs_nudgezmax grid_config_rec % obs_sfcfact = model_config_rec % obs_sfcfact grid_config_rec % obs_sfcfacr = model_config_rec % obs_sfcfacr grid_config_rec % obs_dpsmx = model_config_rec % obs_dpsmx grid_config_rec % obs_rinxy = model_config_rec % obs_rinxy (id_id) grid_config_rec % obs_rinsig = model_config_rec % obs_rinsig grid_config_rec % obs_twindo = model_config_rec % obs_twindo (id_id) grid_config_rec % obs_npfi = model_config_rec % obs_npfi grid_config_rec % obs_ionf = model_config_rec % obs_ionf (id_id) grid_config_rec % obs_idynin = model_config_rec % obs_idynin grid_config_rec % obs_dtramp = model_config_rec % obs_dtramp grid_config_rec % obs_prt_max = model_config_rec % obs_prt_max grid_config_rec % obs_prt_freq = model_config_rec % obs_prt_freq (id_id) grid_config_rec % obs_ipf_in4dob = model_config_rec % obs_ipf_in4dob grid_config_rec % obs_ipf_errob = model_config_rec % obs_ipf_errob grid_config_rec % obs_ipf_nudob = model_config_rec % obs_ipf_nudob grid_config_rec % obs_ipf_init = model_config_rec % obs_ipf_init grid_config_rec % obs_scl_neg_qv_innov = model_config_rec % obs_scl_neg_qv_innov grid_config_rec % scm_force = model_config_rec % scm_force grid_config_rec % scm_force_dx = model_config_rec % scm_force_dx grid_config_rec % num_force_layers = model_config_rec % num_force_layers grid_config_rec % scm_lu_index = model_config_rec % scm_lu_index grid_config_rec % scm_isltyp = model_config_rec % scm_isltyp grid_config_rec % scm_vegfra = model_config_rec % scm_vegfra grid_config_rec % scm_canwat = model_config_rec % scm_canwat grid_config_rec % scm_lat = model_config_rec % scm_lat grid_config_rec % scm_lon = model_config_rec % scm_lon grid_config_rec % scm_th_t_tend = model_config_rec % scm_th_t_tend grid_config_rec % scm_qv_t_tend = model_config_rec % scm_qv_t_tend grid_config_rec % scm_th_adv = model_config_rec % scm_th_adv grid_config_rec % scm_wind_adv = model_config_rec % scm_wind_adv grid_config_rec % scm_qv_adv = model_config_rec % scm_qv_adv grid_config_rec % scm_ql_adv = model_config_rec % scm_ql_adv grid_config_rec % scm_vert_adv = model_config_rec % scm_vert_adv grid_config_rec % num_force_soil_layers = model_config_rec % num_force_soil_layers grid_config_rec % scm_soilt_force = model_config_rec % scm_soilt_force grid_config_rec % scm_soilq_force = model_config_rec % scm_soilq_force grid_config_rec % scm_force_th_largescale = model_config_rec % scm_force_th_largescale grid_config_rec % scm_force_qv_largescale = model_config_rec % scm_force_qv_largescale grid_config_rec % scm_force_ql_largescale = model_config_rec % scm_force_ql_largescale grid_config_rec % scm_force_wind_largescale = model_config_rec % scm_force_wind_largescale grid_config_rec % scm_force_skintemp = model_config_rec % scm_force_skintemp grid_config_rec % scm_force_flux = model_config_rec % scm_force_flux grid_config_rec % dyn_opt = model_config_rec % dyn_opt grid_config_rec % rk_ord = model_config_rec % rk_ord grid_config_rec % w_damping = model_config_rec % w_damping grid_config_rec % diff_opt = model_config_rec % diff_opt (id_id) grid_config_rec % diff_opt_dfi = model_config_rec % diff_opt_dfi (id_id) grid_config_rec % km_opt = model_config_rec % km_opt (id_id) grid_config_rec % km_opt_dfi = model_config_rec % km_opt_dfi (id_id) grid_config_rec % damp_opt = model_config_rec % damp_opt grid_config_rec % rad_nudge = model_config_rec % rad_nudge grid_config_rec % gwd_opt = model_config_rec % gwd_opt grid_config_rec % zdamp = model_config_rec % zdamp (id_id) grid_config_rec % dampcoef = model_config_rec % dampcoef (id_id) grid_config_rec % khdif = model_config_rec % khdif (id_id) grid_config_rec % kvdif = model_config_rec % kvdif (id_id) grid_config_rec % diff_6th_factor = model_config_rec % diff_6th_factor (id_id) grid_config_rec % diff_6th_opt = model_config_rec % diff_6th_opt (id_id) grid_config_rec % use_theta_m = model_config_rec % use_theta_m grid_config_rec % use_q_diabatic = model_config_rec % use_q_diabatic grid_config_rec % c_s = model_config_rec % c_s (id_id) grid_config_rec % c_k = model_config_rec % c_k (id_id) grid_config_rec % smdiv = model_config_rec % smdiv (id_id) grid_config_rec % emdiv = model_config_rec % emdiv (id_id) grid_config_rec % epssm = model_config_rec % epssm (id_id) grid_config_rec % non_hydrostatic = model_config_rec % non_hydrostatic (id_id) grid_config_rec % use_input_w = model_config_rec % use_input_w grid_config_rec % time_step_sound = model_config_rec % time_step_sound (id_id) grid_config_rec % h_mom_adv_order = model_config_rec % h_mom_adv_order (id_id) grid_config_rec % v_mom_adv_order = model_config_rec % v_mom_adv_order (id_id) grid_config_rec % h_sca_adv_order = model_config_rec % h_sca_adv_order (id_id) grid_config_rec % v_sca_adv_order = model_config_rec % v_sca_adv_order (id_id) grid_config_rec % momentum_adv_opt = model_config_rec % momentum_adv_opt (id_id) grid_config_rec % moist_adv_opt = model_config_rec % moist_adv_opt (id_id) grid_config_rec % moist_adv_dfi_opt = model_config_rec % moist_adv_dfi_opt (id_id) grid_config_rec % chem_adv_opt = model_config_rec % chem_adv_opt (id_id) grid_config_rec % tracer_adv_opt = model_config_rec % tracer_adv_opt (id_id) grid_config_rec % scalar_adv_opt = model_config_rec % scalar_adv_opt (id_id) grid_config_rec % tke_adv_opt = model_config_rec % tke_adv_opt (id_id) grid_config_rec % top_radiation = model_config_rec % top_radiation (id_id) grid_config_rec % mix_isotropic = model_config_rec % mix_isotropic (id_id) grid_config_rec % mix_upper_bound = model_config_rec % mix_upper_bound (id_id) grid_config_rec % top_lid = model_config_rec % top_lid (id_id) grid_config_rec % tke_upper_bound = model_config_rec % tke_upper_bound (id_id) grid_config_rec % tke_drag_coefficient = model_config_rec % tke_drag_coefficient (id_id) grid_config_rec % tke_heat_flux = model_config_rec % tke_heat_flux (id_id) grid_config_rec % pert_coriolis = model_config_rec % pert_coriolis (id_id) grid_config_rec % coriolis2d = model_config_rec % coriolis2d (id_id) grid_config_rec % mix_full_fields = model_config_rec % mix_full_fields (id_id) grid_config_rec % base_pres = model_config_rec % base_pres grid_config_rec % base_temp = model_config_rec % base_temp grid_config_rec % base_lapse = model_config_rec % base_lapse grid_config_rec % iso_temp = model_config_rec % iso_temp grid_config_rec % base_pres_strat = model_config_rec % base_pres_strat grid_config_rec % base_lapse_strat = model_config_rec % base_lapse_strat grid_config_rec % use_baseparam_fr_nml = model_config_rec % use_baseparam_fr_nml grid_config_rec % fft_filter_lat = model_config_rec % fft_filter_lat grid_config_rec % coupled_filtering = model_config_rec % coupled_filtering grid_config_rec % pos_def = model_config_rec % pos_def grid_config_rec % swap_pole_with_next_j = model_config_rec % swap_pole_with_next_j grid_config_rec % actual_distance_average = model_config_rec % actual_distance_average grid_config_rec % rotated_pole = model_config_rec % rotated_pole grid_config_rec % do_coriolis = model_config_rec % do_coriolis (id_id) grid_config_rec % do_curvature = model_config_rec % do_curvature (id_id) grid_config_rec % do_gradp = model_config_rec % do_gradp (id_id) grid_config_rec % tracer_opt = model_config_rec % tracer_opt (id_id) grid_config_rec % tenddiag = model_config_rec % tenddiag (id_id) grid_config_rec % spec_bdy_width = model_config_rec % spec_bdy_width grid_config_rec % spec_zone = model_config_rec % spec_zone grid_config_rec % relax_zone = model_config_rec % relax_zone grid_config_rec % specified = model_config_rec % specified (id_id) grid_config_rec % constant_bc = model_config_rec % constant_bc grid_config_rec % periodic_x = model_config_rec % periodic_x (id_id) grid_config_rec % symmetric_xs = model_config_rec % symmetric_xs (id_id) grid_config_rec % symmetric_xe = model_config_rec % symmetric_xe (id_id) grid_config_rec % open_xs = model_config_rec % open_xs (id_id) grid_config_rec % open_xe = model_config_rec % open_xe (id_id) grid_config_rec % periodic_y = model_config_rec % periodic_y (id_id) grid_config_rec % symmetric_ys = model_config_rec % symmetric_ys (id_id) grid_config_rec % symmetric_ye = model_config_rec % symmetric_ye (id_id) grid_config_rec % open_ys = model_config_rec % open_ys (id_id) grid_config_rec % open_ye = model_config_rec % open_ye (id_id) grid_config_rec % polar = model_config_rec % polar (id_id) grid_config_rec % nested = model_config_rec % nested (id_id) grid_config_rec % spec_exp = model_config_rec % spec_exp grid_config_rec % spec_bdy_final_mu = model_config_rec % spec_bdy_final_mu grid_config_rec % real_data_init_type = model_config_rec % real_data_init_type grid_config_rec % have_bcs_moist = model_config_rec % have_bcs_moist (id_id) grid_config_rec % have_bcs_scalar = model_config_rec % have_bcs_scalar (id_id) grid_config_rec % background_proc_id = model_config_rec % background_proc_id grid_config_rec % forecast_proc_id = model_config_rec % forecast_proc_id grid_config_rec % production_status = model_config_rec % production_status grid_config_rec % compression = model_config_rec % compression grid_config_rec % nobs_ndg_vars = model_config_rec % nobs_ndg_vars grid_config_rec % nobs_err_flds = model_config_rec % nobs_err_flds grid_config_rec % cen_lat = model_config_rec % cen_lat (id_id) grid_config_rec % cen_lon = model_config_rec % cen_lon (id_id) grid_config_rec % truelat1 = model_config_rec % truelat1 (id_id) grid_config_rec % truelat2 = model_config_rec % truelat2 (id_id) grid_config_rec % moad_cen_lat = model_config_rec % moad_cen_lat (id_id) grid_config_rec % stand_lon = model_config_rec % stand_lon (id_id) grid_config_rec % pole_lat = model_config_rec % pole_lat (id_id) grid_config_rec % pole_lon = model_config_rec % pole_lon (id_id) grid_config_rec % flag_metgrid = model_config_rec % flag_metgrid grid_config_rec % flag_snow = model_config_rec % flag_snow grid_config_rec % flag_psfc = model_config_rec % flag_psfc grid_config_rec % flag_sm000010 = model_config_rec % flag_sm000010 grid_config_rec % flag_sm010040 = model_config_rec % flag_sm010040 grid_config_rec % flag_sm040100 = model_config_rec % flag_sm040100 grid_config_rec % flag_sm100200 = model_config_rec % flag_sm100200 grid_config_rec % flag_st000010 = model_config_rec % flag_st000010 grid_config_rec % flag_st010040 = model_config_rec % flag_st010040 grid_config_rec % flag_st040100 = model_config_rec % flag_st040100 grid_config_rec % flag_st100200 = model_config_rec % flag_st100200 grid_config_rec % flag_soil_layers = model_config_rec % flag_soil_layers grid_config_rec % flag_slp = model_config_rec % flag_slp grid_config_rec % flag_soilhgt = model_config_rec % flag_soilhgt grid_config_rec % flag_mf_xy = model_config_rec % flag_mf_xy grid_config_rec % flag_um_soil = model_config_rec % flag_um_soil grid_config_rec % bdyfrq = model_config_rec % bdyfrq (id_id) grid_config_rec % mminlu = model_config_rec % mminlu (id_id) grid_config_rec % iswater = model_config_rec % iswater (id_id) grid_config_rec % islake = model_config_rec % islake (id_id) grid_config_rec % isice = model_config_rec % isice (id_id) grid_config_rec % isurban = model_config_rec % isurban (id_id) grid_config_rec % isoilwater = model_config_rec % isoilwater (id_id) grid_config_rec % map_proj = model_config_rec % map_proj (id_id) grid_config_rec % use_wps_input = model_config_rec % use_wps_input grid_config_rec % dfi_stage = model_config_rec % dfi_stage (id_id) grid_config_rec % mp_physics_dfi = model_config_rec % mp_physics_dfi (id_id) grid_config_rec % bl_pbl_physics_dfi = model_config_rec % bl_pbl_physics_dfi (id_id) grid_config_rec % windfarm_opt = model_config_rec % windfarm_opt (id_id) grid_config_rec % windfarm_ij = model_config_rec % windfarm_ij grid_config_rec % hailcast_opt = model_config_rec % hailcast_opt (id_id) grid_config_rec % lightning_option = model_config_rec % lightning_option (id_id) grid_config_rec % lightning_dt = model_config_rec % lightning_dt (id_id) grid_config_rec % lightning_start_seconds = model_config_rec % lightning_start_seconds (id_id) grid_config_rec % flashrate_factor = model_config_rec % flashrate_factor (id_id) grid_config_rec % iccg_method = model_config_rec % iccg_method (id_id) grid_config_rec % iccg_prescribed_num = model_config_rec % iccg_prescribed_num (id_id) grid_config_rec % iccg_prescribed_den = model_config_rec % iccg_prescribed_den (id_id) grid_config_rec % cellcount_method = model_config_rec % cellcount_method (id_id) grid_config_rec % cldtop_adjustment = model_config_rec % cldtop_adjustment (id_id) grid_config_rec % sf_lake_physics = model_config_rec % sf_lake_physics (id_id) grid_config_rec % auxinput1_inname = model_config_rec % auxinput1_inname grid_config_rec % io_form_auxinput1 = model_config_rec % io_form_auxinput1 grid_config_rec % override_restart_timers = model_config_rec % override_restart_timers grid_config_rec % auxhist1_inname = model_config_rec % auxhist1_inname grid_config_rec % auxhist1_outname = model_config_rec % auxhist1_outname grid_config_rec % auxhist1_interval_y = model_config_rec % auxhist1_interval_y (id_id) grid_config_rec % auxhist1_interval_d = model_config_rec % auxhist1_interval_d (id_id) grid_config_rec % auxhist1_interval_h = model_config_rec % auxhist1_interval_h (id_id) grid_config_rec % auxhist1_interval_m = model_config_rec % auxhist1_interval_m (id_id) grid_config_rec % auxhist1_interval_s = model_config_rec % auxhist1_interval_s (id_id) grid_config_rec % auxhist1_interval = model_config_rec % auxhist1_interval (id_id) grid_config_rec % auxhist1_begin_y = model_config_rec % auxhist1_begin_y (id_id) grid_config_rec % auxhist1_begin_d = model_config_rec % auxhist1_begin_d (id_id) grid_config_rec % auxhist1_begin_h = model_config_rec % auxhist1_begin_h (id_id) grid_config_rec % auxhist1_begin_m = model_config_rec % auxhist1_begin_m (id_id) grid_config_rec % auxhist1_begin_s = model_config_rec % auxhist1_begin_s (id_id) grid_config_rec % auxhist1_begin = model_config_rec % auxhist1_begin (id_id) grid_config_rec % auxhist1_end_y = model_config_rec % auxhist1_end_y (id_id) grid_config_rec % auxhist1_end_d = model_config_rec % auxhist1_end_d (id_id) grid_config_rec % auxhist1_end_h = model_config_rec % auxhist1_end_h (id_id) grid_config_rec % auxhist1_end_m = model_config_rec % auxhist1_end_m (id_id) grid_config_rec % auxhist1_end_s = model_config_rec % auxhist1_end_s (id_id) grid_config_rec % auxhist1_end = model_config_rec % auxhist1_end (id_id) grid_config_rec % io_form_auxhist1 = model_config_rec % io_form_auxhist1 grid_config_rec % frames_per_auxhist1 = model_config_rec % frames_per_auxhist1 (id_id) grid_config_rec % auxhist2_inname = model_config_rec % auxhist2_inname grid_config_rec % auxhist2_outname = model_config_rec % auxhist2_outname grid_config_rec % auxhist2_interval_y = model_config_rec % auxhist2_interval_y (id_id) grid_config_rec % auxhist2_interval_d = model_config_rec % auxhist2_interval_d (id_id) grid_config_rec % auxhist2_interval_h = model_config_rec % auxhist2_interval_h (id_id) grid_config_rec % auxhist2_interval_m = model_config_rec % auxhist2_interval_m (id_id) grid_config_rec % auxhist2_interval_s = model_config_rec % auxhist2_interval_s (id_id) grid_config_rec % auxhist2_interval = model_config_rec % auxhist2_interval (id_id) grid_config_rec % auxhist2_begin_y = model_config_rec % auxhist2_begin_y (id_id) grid_config_rec % auxhist2_begin_d = model_config_rec % auxhist2_begin_d (id_id) grid_config_rec % auxhist2_begin_h = model_config_rec % auxhist2_begin_h (id_id) grid_config_rec % auxhist2_begin_m = model_config_rec % auxhist2_begin_m (id_id) grid_config_rec % auxhist2_begin_s = model_config_rec % auxhist2_begin_s (id_id) grid_config_rec % auxhist2_begin = model_config_rec % auxhist2_begin (id_id) grid_config_rec % auxhist2_end_y = model_config_rec % auxhist2_end_y (id_id) grid_config_rec % auxhist2_end_d = model_config_rec % auxhist2_end_d (id_id) grid_config_rec % auxhist2_end_h = model_config_rec % auxhist2_end_h (id_id) grid_config_rec % auxhist2_end_m = model_config_rec % auxhist2_end_m (id_id) grid_config_rec % auxhist2_end_s = model_config_rec % auxhist2_end_s (id_id) grid_config_rec % auxhist2_end = model_config_rec % auxhist2_end (id_id) grid_config_rec % io_form_auxhist2 = model_config_rec % io_form_auxhist2 grid_config_rec % frames_per_auxhist2 = model_config_rec % frames_per_auxhist2 (id_id) grid_config_rec % auxhist3_inname = model_config_rec % auxhist3_inname grid_config_rec % auxhist3_outname = model_config_rec % auxhist3_outname grid_config_rec % auxhist3_interval_y = model_config_rec % auxhist3_interval_y (id_id) grid_config_rec % auxhist3_interval_d = model_config_rec % auxhist3_interval_d (id_id) grid_config_rec % auxhist3_interval_h = model_config_rec % auxhist3_interval_h (id_id) grid_config_rec % auxhist3_interval_m = model_config_rec % auxhist3_interval_m (id_id) grid_config_rec % auxhist3_interval_s = model_config_rec % auxhist3_interval_s (id_id) grid_config_rec % auxhist3_interval = model_config_rec % auxhist3_interval (id_id) grid_config_rec % auxhist3_begin_y = model_config_rec % auxhist3_begin_y (id_id) grid_config_rec % auxhist3_begin_d = model_config_rec % auxhist3_begin_d (id_id) grid_config_rec % auxhist3_begin_h = model_config_rec % auxhist3_begin_h (id_id) grid_config_rec % auxhist3_begin_m = model_config_rec % auxhist3_begin_m (id_id) grid_config_rec % auxhist3_begin_s = model_config_rec % auxhist3_begin_s (id_id) grid_config_rec % auxhist3_begin = model_config_rec % auxhist3_begin (id_id) grid_config_rec % auxhist3_end_y = model_config_rec % auxhist3_end_y (id_id) grid_config_rec % auxhist3_end_d = model_config_rec % auxhist3_end_d (id_id) grid_config_rec % auxhist3_end_h = model_config_rec % auxhist3_end_h (id_id) grid_config_rec % auxhist3_end_m = model_config_rec % auxhist3_end_m (id_id) grid_config_rec % auxhist3_end_s = model_config_rec % auxhist3_end_s (id_id) grid_config_rec % auxhist3_end = model_config_rec % auxhist3_end (id_id) grid_config_rec % io_form_auxhist3 = model_config_rec % io_form_auxhist3 grid_config_rec % frames_per_auxhist3 = model_config_rec % frames_per_auxhist3 (id_id) grid_config_rec % auxhist4_inname = model_config_rec % auxhist4_inname grid_config_rec % auxhist4_outname = model_config_rec % auxhist4_outname grid_config_rec % auxhist4_interval_y = model_config_rec % auxhist4_interval_y (id_id) grid_config_rec % auxhist4_interval_d = model_config_rec % auxhist4_interval_d (id_id) grid_config_rec % auxhist4_interval_h = model_config_rec % auxhist4_interval_h (id_id) grid_config_rec % auxhist4_interval_m = model_config_rec % auxhist4_interval_m (id_id) grid_config_rec % auxhist4_interval_s = model_config_rec % auxhist4_interval_s (id_id) grid_config_rec % auxhist4_interval = model_config_rec % auxhist4_interval (id_id) grid_config_rec % auxhist4_begin_y = model_config_rec % auxhist4_begin_y (id_id) grid_config_rec % auxhist4_begin_d = model_config_rec % auxhist4_begin_d (id_id) grid_config_rec % auxhist4_begin_h = model_config_rec % auxhist4_begin_h (id_id) grid_config_rec % auxhist4_begin_m = model_config_rec % auxhist4_begin_m (id_id) grid_config_rec % auxhist4_begin_s = model_config_rec % auxhist4_begin_s (id_id) grid_config_rec % auxhist4_begin = model_config_rec % auxhist4_begin (id_id) grid_config_rec % auxhist4_end_y = model_config_rec % auxhist4_end_y (id_id) grid_config_rec % auxhist4_end_d = model_config_rec % auxhist4_end_d (id_id) grid_config_rec % auxhist4_end_h = model_config_rec % auxhist4_end_h (id_id) grid_config_rec % auxhist4_end_m = model_config_rec % auxhist4_end_m (id_id) grid_config_rec % auxhist4_end_s = model_config_rec % auxhist4_end_s (id_id) grid_config_rec % auxhist4_end = model_config_rec % auxhist4_end (id_id) grid_config_rec % io_form_auxhist4 = model_config_rec % io_form_auxhist4 grid_config_rec % frames_per_auxhist4 = model_config_rec % frames_per_auxhist4 (id_id) grid_config_rec % auxhist5_inname = model_config_rec % auxhist5_inname grid_config_rec % auxhist5_outname = model_config_rec % auxhist5_outname grid_config_rec % auxhist5_interval_y = model_config_rec % auxhist5_interval_y (id_id) grid_config_rec % auxhist5_interval_d = model_config_rec % auxhist5_interval_d (id_id) grid_config_rec % auxhist5_interval_h = model_config_rec % auxhist5_interval_h (id_id) grid_config_rec % auxhist5_interval_m = model_config_rec % auxhist5_interval_m (id_id) grid_config_rec % auxhist5_interval_s = model_config_rec % auxhist5_interval_s (id_id) grid_config_rec % auxhist5_interval = model_config_rec % auxhist5_interval (id_id) grid_config_rec % auxhist5_begin_y = model_config_rec % auxhist5_begin_y (id_id) grid_config_rec % auxhist5_begin_d = model_config_rec % auxhist5_begin_d (id_id) grid_config_rec % auxhist5_begin_h = model_config_rec % auxhist5_begin_h (id_id) grid_config_rec % auxhist5_begin_m = model_config_rec % auxhist5_begin_m (id_id) grid_config_rec % auxhist5_begin_s = model_config_rec % auxhist5_begin_s (id_id) grid_config_rec % auxhist5_begin = model_config_rec % auxhist5_begin (id_id) grid_config_rec % auxhist5_end_y = model_config_rec % auxhist5_end_y (id_id) grid_config_rec % auxhist5_end_d = model_config_rec % auxhist5_end_d (id_id) grid_config_rec % auxhist5_end_h = model_config_rec % auxhist5_end_h (id_id) grid_config_rec % auxhist5_end_m = model_config_rec % auxhist5_end_m (id_id) grid_config_rec % auxhist5_end_s = model_config_rec % auxhist5_end_s (id_id) grid_config_rec % auxhist5_end = model_config_rec % auxhist5_end (id_id) grid_config_rec % io_form_auxhist5 = model_config_rec % io_form_auxhist5 grid_config_rec % frames_per_auxhist5 = model_config_rec % frames_per_auxhist5 (id_id) grid_config_rec % auxhist6_inname = model_config_rec % auxhist6_inname grid_config_rec % auxhist6_outname = model_config_rec % auxhist6_outname grid_config_rec % auxhist6_interval_y = model_config_rec % auxhist6_interval_y (id_id) grid_config_rec % auxhist6_interval_d = model_config_rec % auxhist6_interval_d (id_id) grid_config_rec % auxhist6_interval_h = model_config_rec % auxhist6_interval_h (id_id) grid_config_rec % auxhist6_interval_m = model_config_rec % auxhist6_interval_m (id_id) grid_config_rec % auxhist6_interval_s = model_config_rec % auxhist6_interval_s (id_id) grid_config_rec % auxhist6_interval = model_config_rec % auxhist6_interval (id_id) grid_config_rec % auxhist6_begin_y = model_config_rec % auxhist6_begin_y (id_id) grid_config_rec % auxhist6_begin_d = model_config_rec % auxhist6_begin_d (id_id) grid_config_rec % auxhist6_begin_h = model_config_rec % auxhist6_begin_h (id_id) grid_config_rec % auxhist6_begin_m = model_config_rec % auxhist6_begin_m (id_id) grid_config_rec % auxhist6_begin_s = model_config_rec % auxhist6_begin_s (id_id) grid_config_rec % auxhist6_begin = model_config_rec % auxhist6_begin (id_id) grid_config_rec % auxhist6_end_y = model_config_rec % auxhist6_end_y (id_id) grid_config_rec % auxhist6_end_d = model_config_rec % auxhist6_end_d (id_id) grid_config_rec % auxhist6_end_h = model_config_rec % auxhist6_end_h (id_id) grid_config_rec % auxhist6_end_m = model_config_rec % auxhist6_end_m (id_id) grid_config_rec % auxhist6_end_s = model_config_rec % auxhist6_end_s (id_id) grid_config_rec % auxhist6_end = model_config_rec % auxhist6_end (id_id) grid_config_rec % io_form_auxhist6 = model_config_rec % io_form_auxhist6 grid_config_rec % frames_per_auxhist6 = model_config_rec % frames_per_auxhist6 (id_id) grid_config_rec % auxhist7_inname = model_config_rec % auxhist7_inname grid_config_rec % auxhist7_outname = model_config_rec % auxhist7_outname grid_config_rec % auxhist7_interval_y = model_config_rec % auxhist7_interval_y (id_id) grid_config_rec % auxhist7_interval_d = model_config_rec % auxhist7_interval_d (id_id) grid_config_rec % auxhist7_interval_h = model_config_rec % auxhist7_interval_h (id_id) grid_config_rec % auxhist7_interval_m = model_config_rec % auxhist7_interval_m (id_id) grid_config_rec % auxhist7_interval_s = model_config_rec % auxhist7_interval_s (id_id) grid_config_rec % auxhist7_interval = model_config_rec % auxhist7_interval (id_id) grid_config_rec % auxhist7_begin_y = model_config_rec % auxhist7_begin_y (id_id) grid_config_rec % auxhist7_begin_d = model_config_rec % auxhist7_begin_d (id_id) grid_config_rec % auxhist7_begin_h = model_config_rec % auxhist7_begin_h (id_id) grid_config_rec % auxhist7_begin_m = model_config_rec % auxhist7_begin_m (id_id) grid_config_rec % auxhist7_begin_s = model_config_rec % auxhist7_begin_s (id_id) grid_config_rec % auxhist7_begin = model_config_rec % auxhist7_begin (id_id) grid_config_rec % auxhist7_end_y = model_config_rec % auxhist7_end_y (id_id) grid_config_rec % auxhist7_end_d = model_config_rec % auxhist7_end_d (id_id) grid_config_rec % auxhist7_end_h = model_config_rec % auxhist7_end_h (id_id) grid_config_rec % auxhist7_end_m = model_config_rec % auxhist7_end_m (id_id) grid_config_rec % auxhist7_end_s = model_config_rec % auxhist7_end_s (id_id) grid_config_rec % auxhist7_end = model_config_rec % auxhist7_end (id_id) grid_config_rec % io_form_auxhist7 = model_config_rec % io_form_auxhist7 grid_config_rec % frames_per_auxhist7 = model_config_rec % frames_per_auxhist7 (id_id) grid_config_rec % auxhist8_inname = model_config_rec % auxhist8_inname grid_config_rec % auxhist8_outname = model_config_rec % auxhist8_outname grid_config_rec % auxhist8_interval_y = model_config_rec % auxhist8_interval_y (id_id) grid_config_rec % auxhist8_interval_d = model_config_rec % auxhist8_interval_d (id_id) grid_config_rec % auxhist8_interval_h = model_config_rec % auxhist8_interval_h (id_id) grid_config_rec % auxhist8_interval_m = model_config_rec % auxhist8_interval_m (id_id) grid_config_rec % auxhist8_interval_s = model_config_rec % auxhist8_interval_s (id_id) grid_config_rec % auxhist8_interval = model_config_rec % auxhist8_interval (id_id) grid_config_rec % auxhist8_begin_y = model_config_rec % auxhist8_begin_y (id_id) grid_config_rec % auxhist8_begin_d = model_config_rec % auxhist8_begin_d (id_id) grid_config_rec % auxhist8_begin_h = model_config_rec % auxhist8_begin_h (id_id) grid_config_rec % auxhist8_begin_m = model_config_rec % auxhist8_begin_m (id_id) grid_config_rec % auxhist8_begin_s = model_config_rec % auxhist8_begin_s (id_id) grid_config_rec % auxhist8_begin = model_config_rec % auxhist8_begin (id_id) grid_config_rec % auxhist8_end_y = model_config_rec % auxhist8_end_y (id_id) grid_config_rec % auxhist8_end_d = model_config_rec % auxhist8_end_d (id_id) grid_config_rec % auxhist8_end_h = model_config_rec % auxhist8_end_h (id_id) grid_config_rec % auxhist8_end_m = model_config_rec % auxhist8_end_m (id_id) grid_config_rec % auxhist8_end_s = model_config_rec % auxhist8_end_s (id_id) grid_config_rec % auxhist8_end = model_config_rec % auxhist8_end (id_id) grid_config_rec % io_form_auxhist8 = model_config_rec % io_form_auxhist8 grid_config_rec % frames_per_auxhist8 = model_config_rec % frames_per_auxhist8 (id_id) grid_config_rec % auxhist9_inname = model_config_rec % auxhist9_inname grid_config_rec % auxhist9_outname = model_config_rec % auxhist9_outname grid_config_rec % auxhist9_interval_y = model_config_rec % auxhist9_interval_y (id_id) grid_config_rec % auxhist9_interval_d = model_config_rec % auxhist9_interval_d (id_id) grid_config_rec % auxhist9_interval_h = model_config_rec % auxhist9_interval_h (id_id) grid_config_rec % auxhist9_interval_m = model_config_rec % auxhist9_interval_m (id_id) grid_config_rec % auxhist9_interval_s = model_config_rec % auxhist9_interval_s (id_id) grid_config_rec % auxhist9_interval = model_config_rec % auxhist9_interval (id_id) grid_config_rec % auxhist9_begin_y = model_config_rec % auxhist9_begin_y (id_id) grid_config_rec % auxhist9_begin_d = model_config_rec % auxhist9_begin_d (id_id) grid_config_rec % auxhist9_begin_h = model_config_rec % auxhist9_begin_h (id_id) grid_config_rec % auxhist9_begin_m = model_config_rec % auxhist9_begin_m (id_id) grid_config_rec % auxhist9_begin_s = model_config_rec % auxhist9_begin_s (id_id) grid_config_rec % auxhist9_begin = model_config_rec % auxhist9_begin (id_id) grid_config_rec % auxhist9_end_y = model_config_rec % auxhist9_end_y (id_id) grid_config_rec % auxhist9_end_d = model_config_rec % auxhist9_end_d (id_id) grid_config_rec % auxhist9_end_h = model_config_rec % auxhist9_end_h (id_id) grid_config_rec % auxhist9_end_m = model_config_rec % auxhist9_end_m (id_id) grid_config_rec % auxhist9_end_s = model_config_rec % auxhist9_end_s (id_id) grid_config_rec % auxhist9_end = model_config_rec % auxhist9_end (id_id) grid_config_rec % io_form_auxhist9 = model_config_rec % io_form_auxhist9 grid_config_rec % frames_per_auxhist9 = model_config_rec % frames_per_auxhist9 (id_id) grid_config_rec % auxhist10_inname = model_config_rec % auxhist10_inname grid_config_rec % auxhist10_outname = model_config_rec % auxhist10_outname grid_config_rec % auxhist10_interval_y = model_config_rec % auxhist10_interval_y (id_id) grid_config_rec % auxhist10_interval_d = model_config_rec % auxhist10_interval_d (id_id) grid_config_rec % auxhist10_interval_h = model_config_rec % auxhist10_interval_h (id_id) grid_config_rec % auxhist10_interval_m = model_config_rec % auxhist10_interval_m (id_id) grid_config_rec % auxhist10_interval_s = model_config_rec % auxhist10_interval_s (id_id) grid_config_rec % auxhist10_interval = model_config_rec % auxhist10_interval (id_id) grid_config_rec % auxhist10_begin_y = model_config_rec % auxhist10_begin_y (id_id) grid_config_rec % auxhist10_begin_d = model_config_rec % auxhist10_begin_d (id_id) grid_config_rec % auxhist10_begin_h = model_config_rec % auxhist10_begin_h (id_id) grid_config_rec % auxhist10_begin_m = model_config_rec % auxhist10_begin_m (id_id) grid_config_rec % auxhist10_begin_s = model_config_rec % auxhist10_begin_s (id_id) grid_config_rec % auxhist10_begin = model_config_rec % auxhist10_begin (id_id) grid_config_rec % auxhist10_end_y = model_config_rec % auxhist10_end_y (id_id) grid_config_rec % auxhist10_end_d = model_config_rec % auxhist10_end_d (id_id) grid_config_rec % auxhist10_end_h = model_config_rec % auxhist10_end_h (id_id) grid_config_rec % auxhist10_end_m = model_config_rec % auxhist10_end_m (id_id) grid_config_rec % auxhist10_end_s = model_config_rec % auxhist10_end_s (id_id) grid_config_rec % auxhist10_end = model_config_rec % auxhist10_end (id_id) grid_config_rec % io_form_auxhist10 = model_config_rec % io_form_auxhist10 grid_config_rec % frames_per_auxhist10 = model_config_rec % frames_per_auxhist10 (id_id) grid_config_rec % auxhist11_inname = model_config_rec % auxhist11_inname grid_config_rec % auxhist11_outname = model_config_rec % auxhist11_outname grid_config_rec % auxhist11_interval_y = model_config_rec % auxhist11_interval_y (id_id) grid_config_rec % auxhist11_interval_d = model_config_rec % auxhist11_interval_d (id_id) grid_config_rec % auxhist11_interval_h = model_config_rec % auxhist11_interval_h (id_id) grid_config_rec % auxhist11_interval_m = model_config_rec % auxhist11_interval_m (id_id) grid_config_rec % auxhist11_interval_s = model_config_rec % auxhist11_interval_s (id_id) grid_config_rec % auxhist11_interval = model_config_rec % auxhist11_interval (id_id) grid_config_rec % auxhist11_begin_y = model_config_rec % auxhist11_begin_y (id_id) grid_config_rec % auxhist11_begin_d = model_config_rec % auxhist11_begin_d (id_id) grid_config_rec % auxhist11_begin_h = model_config_rec % auxhist11_begin_h (id_id) grid_config_rec % auxhist11_begin_m = model_config_rec % auxhist11_begin_m (id_id) grid_config_rec % auxhist11_begin_s = model_config_rec % auxhist11_begin_s (id_id) grid_config_rec % auxhist11_begin = model_config_rec % auxhist11_begin (id_id) grid_config_rec % auxhist11_end_y = model_config_rec % auxhist11_end_y (id_id) grid_config_rec % auxhist11_end_d = model_config_rec % auxhist11_end_d (id_id) grid_config_rec % auxhist11_end_h = model_config_rec % auxhist11_end_h (id_id) grid_config_rec % auxhist11_end_m = model_config_rec % auxhist11_end_m (id_id) grid_config_rec % auxhist11_end_s = model_config_rec % auxhist11_end_s (id_id) grid_config_rec % auxhist11_end = model_config_rec % auxhist11_end (id_id) grid_config_rec % io_form_auxhist11 = model_config_rec % io_form_auxhist11 grid_config_rec % frames_per_auxhist11 = model_config_rec % frames_per_auxhist11 (id_id) grid_config_rec % auxhist12_inname = model_config_rec % auxhist12_inname grid_config_rec % auxhist12_outname = model_config_rec % auxhist12_outname grid_config_rec % auxhist12_interval_y = model_config_rec % auxhist12_interval_y (id_id) grid_config_rec % auxhist12_interval_d = model_config_rec % auxhist12_interval_d (id_id) grid_config_rec % auxhist12_interval_h = model_config_rec % auxhist12_interval_h (id_id) grid_config_rec % auxhist12_interval_m = model_config_rec % auxhist12_interval_m (id_id) grid_config_rec % auxhist12_interval_s = model_config_rec % auxhist12_interval_s (id_id) grid_config_rec % auxhist12_interval = model_config_rec % auxhist12_interval (id_id) grid_config_rec % auxhist12_begin_y = model_config_rec % auxhist12_begin_y (id_id) grid_config_rec % auxhist12_begin_d = model_config_rec % auxhist12_begin_d (id_id) grid_config_rec % auxhist12_begin_h = model_config_rec % auxhist12_begin_h (id_id) grid_config_rec % auxhist12_begin_m = model_config_rec % auxhist12_begin_m (id_id) grid_config_rec % auxhist12_begin_s = model_config_rec % auxhist12_begin_s (id_id) grid_config_rec % auxhist12_begin = model_config_rec % auxhist12_begin (id_id) grid_config_rec % auxhist12_end_y = model_config_rec % auxhist12_end_y (id_id) grid_config_rec % auxhist12_end_d = model_config_rec % auxhist12_end_d (id_id) grid_config_rec % auxhist12_end_h = model_config_rec % auxhist12_end_h (id_id) grid_config_rec % auxhist12_end_m = model_config_rec % auxhist12_end_m (id_id) grid_config_rec % auxhist12_end_s = model_config_rec % auxhist12_end_s (id_id) grid_config_rec % auxhist12_end = model_config_rec % auxhist12_end (id_id) grid_config_rec % io_form_auxhist12 = model_config_rec % io_form_auxhist12 grid_config_rec % frames_per_auxhist12 = model_config_rec % frames_per_auxhist12 (id_id) grid_config_rec % auxhist13_inname = model_config_rec % auxhist13_inname grid_config_rec % auxhist13_outname = model_config_rec % auxhist13_outname grid_config_rec % auxhist13_interval_y = model_config_rec % auxhist13_interval_y (id_id) grid_config_rec % auxhist13_interval_d = model_config_rec % auxhist13_interval_d (id_id) grid_config_rec % auxhist13_interval_h = model_config_rec % auxhist13_interval_h (id_id) grid_config_rec % auxhist13_interval_m = model_config_rec % auxhist13_interval_m (id_id) grid_config_rec % auxhist13_interval_s = model_config_rec % auxhist13_interval_s (id_id) grid_config_rec % auxhist13_interval = model_config_rec % auxhist13_interval (id_id) grid_config_rec % auxhist13_begin_y = model_config_rec % auxhist13_begin_y (id_id) grid_config_rec % auxhist13_begin_d = model_config_rec % auxhist13_begin_d (id_id) grid_config_rec % auxhist13_begin_h = model_config_rec % auxhist13_begin_h (id_id) grid_config_rec % auxhist13_begin_m = model_config_rec % auxhist13_begin_m (id_id) grid_config_rec % auxhist13_begin_s = model_config_rec % auxhist13_begin_s (id_id) grid_config_rec % auxhist13_begin = model_config_rec % auxhist13_begin (id_id) grid_config_rec % auxhist13_end_y = model_config_rec % auxhist13_end_y (id_id) grid_config_rec % auxhist13_end_d = model_config_rec % auxhist13_end_d (id_id) grid_config_rec % auxhist13_end_h = model_config_rec % auxhist13_end_h (id_id) grid_config_rec % auxhist13_end_m = model_config_rec % auxhist13_end_m (id_id) grid_config_rec % auxhist13_end_s = model_config_rec % auxhist13_end_s (id_id) grid_config_rec % auxhist13_end = model_config_rec % auxhist13_end (id_id) grid_config_rec % io_form_auxhist13 = model_config_rec % io_form_auxhist13 grid_config_rec % frames_per_auxhist13 = model_config_rec % frames_per_auxhist13 (id_id) grid_config_rec % auxhist14_inname = model_config_rec % auxhist14_inname grid_config_rec % auxhist14_outname = model_config_rec % auxhist14_outname grid_config_rec % auxhist14_interval_y = model_config_rec % auxhist14_interval_y (id_id) grid_config_rec % auxhist14_interval_d = model_config_rec % auxhist14_interval_d (id_id) grid_config_rec % auxhist14_interval_h = model_config_rec % auxhist14_interval_h (id_id) grid_config_rec % auxhist14_interval_m = model_config_rec % auxhist14_interval_m (id_id) grid_config_rec % auxhist14_interval_s = model_config_rec % auxhist14_interval_s (id_id) grid_config_rec % auxhist14_interval = model_config_rec % auxhist14_interval (id_id) grid_config_rec % auxhist14_begin_y = model_config_rec % auxhist14_begin_y (id_id) grid_config_rec % auxhist14_begin_d = model_config_rec % auxhist14_begin_d (id_id) grid_config_rec % auxhist14_begin_h = model_config_rec % auxhist14_begin_h (id_id) grid_config_rec % auxhist14_begin_m = model_config_rec % auxhist14_begin_m (id_id) grid_config_rec % auxhist14_begin_s = model_config_rec % auxhist14_begin_s (id_id) grid_config_rec % auxhist14_begin = model_config_rec % auxhist14_begin (id_id) grid_config_rec % auxhist14_end_y = model_config_rec % auxhist14_end_y (id_id) grid_config_rec % auxhist14_end_d = model_config_rec % auxhist14_end_d (id_id) grid_config_rec % auxhist14_end_h = model_config_rec % auxhist14_end_h (id_id) grid_config_rec % auxhist14_end_m = model_config_rec % auxhist14_end_m (id_id) grid_config_rec % auxhist14_end_s = model_config_rec % auxhist14_end_s (id_id) grid_config_rec % auxhist14_end = model_config_rec % auxhist14_end (id_id) grid_config_rec % io_form_auxhist14 = model_config_rec % io_form_auxhist14 grid_config_rec % frames_per_auxhist14 = model_config_rec % frames_per_auxhist14 (id_id) grid_config_rec % auxhist15_inname = model_config_rec % auxhist15_inname grid_config_rec % auxhist15_outname = model_config_rec % auxhist15_outname grid_config_rec % auxhist15_interval_y = model_config_rec % auxhist15_interval_y (id_id) grid_config_rec % auxhist15_interval_d = model_config_rec % auxhist15_interval_d (id_id) grid_config_rec % auxhist15_interval_h = model_config_rec % auxhist15_interval_h (id_id) grid_config_rec % auxhist15_interval_m = model_config_rec % auxhist15_interval_m (id_id) grid_config_rec % auxhist15_interval_s = model_config_rec % auxhist15_interval_s (id_id) grid_config_rec % auxhist15_interval = model_config_rec % auxhist15_interval (id_id) grid_config_rec % auxhist15_begin_y = model_config_rec % auxhist15_begin_y (id_id) grid_config_rec % auxhist15_begin_d = model_config_rec % auxhist15_begin_d (id_id) grid_config_rec % auxhist15_begin_h = model_config_rec % auxhist15_begin_h (id_id) grid_config_rec % auxhist15_begin_m = model_config_rec % auxhist15_begin_m (id_id) grid_config_rec % auxhist15_begin_s = model_config_rec % auxhist15_begin_s (id_id) grid_config_rec % auxhist15_begin = model_config_rec % auxhist15_begin (id_id) grid_config_rec % auxhist15_end_y = model_config_rec % auxhist15_end_y (id_id) grid_config_rec % auxhist15_end_d = model_config_rec % auxhist15_end_d (id_id) grid_config_rec % auxhist15_end_h = model_config_rec % auxhist15_end_h (id_id) grid_config_rec % auxhist15_end_m = model_config_rec % auxhist15_end_m (id_id) grid_config_rec % auxhist15_end_s = model_config_rec % auxhist15_end_s (id_id) grid_config_rec % auxhist15_end = model_config_rec % auxhist15_end (id_id) grid_config_rec % io_form_auxhist15 = model_config_rec % io_form_auxhist15 grid_config_rec % frames_per_auxhist15 = model_config_rec % frames_per_auxhist15 (id_id) grid_config_rec % auxhist16_inname = model_config_rec % auxhist16_inname grid_config_rec % auxhist16_outname = model_config_rec % auxhist16_outname grid_config_rec % auxhist16_interval_y = model_config_rec % auxhist16_interval_y (id_id) grid_config_rec % auxhist16_interval_d = model_config_rec % auxhist16_interval_d (id_id) grid_config_rec % auxhist16_interval_h = model_config_rec % auxhist16_interval_h (id_id) grid_config_rec % auxhist16_interval_m = model_config_rec % auxhist16_interval_m (id_id) grid_config_rec % auxhist16_interval_s = model_config_rec % auxhist16_interval_s (id_id) grid_config_rec % auxhist16_interval = model_config_rec % auxhist16_interval (id_id) grid_config_rec % auxhist16_begin_y = model_config_rec % auxhist16_begin_y (id_id) grid_config_rec % auxhist16_begin_d = model_config_rec % auxhist16_begin_d (id_id) grid_config_rec % auxhist16_begin_h = model_config_rec % auxhist16_begin_h (id_id) grid_config_rec % auxhist16_begin_m = model_config_rec % auxhist16_begin_m (id_id) grid_config_rec % auxhist16_begin_s = model_config_rec % auxhist16_begin_s (id_id) grid_config_rec % auxhist16_begin = model_config_rec % auxhist16_begin (id_id) grid_config_rec % auxhist16_end_y = model_config_rec % auxhist16_end_y (id_id) grid_config_rec % auxhist16_end_d = model_config_rec % auxhist16_end_d (id_id) grid_config_rec % auxhist16_end_h = model_config_rec % auxhist16_end_h (id_id) grid_config_rec % auxhist16_end_m = model_config_rec % auxhist16_end_m (id_id) grid_config_rec % auxhist16_end_s = model_config_rec % auxhist16_end_s (id_id) grid_config_rec % auxhist16_end = model_config_rec % auxhist16_end (id_id) grid_config_rec % io_form_auxhist16 = model_config_rec % io_form_auxhist16 grid_config_rec % frames_per_auxhist16 = model_config_rec % frames_per_auxhist16 (id_id) grid_config_rec % auxhist17_inname = model_config_rec % auxhist17_inname grid_config_rec % auxhist17_outname = model_config_rec % auxhist17_outname grid_config_rec % auxhist17_interval_y = model_config_rec % auxhist17_interval_y (id_id) grid_config_rec % auxhist17_interval_d = model_config_rec % auxhist17_interval_d (id_id) grid_config_rec % auxhist17_interval_h = model_config_rec % auxhist17_interval_h (id_id) grid_config_rec % auxhist17_interval_m = model_config_rec % auxhist17_interval_m (id_id) grid_config_rec % auxhist17_interval_s = model_config_rec % auxhist17_interval_s (id_id) grid_config_rec % auxhist17_interval = model_config_rec % auxhist17_interval (id_id) grid_config_rec % auxhist17_begin_y = model_config_rec % auxhist17_begin_y (id_id) grid_config_rec % auxhist17_begin_d = model_config_rec % auxhist17_begin_d (id_id) grid_config_rec % auxhist17_begin_h = model_config_rec % auxhist17_begin_h (id_id) grid_config_rec % auxhist17_begin_m = model_config_rec % auxhist17_begin_m (id_id) grid_config_rec % auxhist17_begin_s = model_config_rec % auxhist17_begin_s (id_id) grid_config_rec % auxhist17_begin = model_config_rec % auxhist17_begin (id_id) grid_config_rec % auxhist17_end_y = model_config_rec % auxhist17_end_y (id_id) grid_config_rec % auxhist17_end_d = model_config_rec % auxhist17_end_d (id_id) grid_config_rec % auxhist17_end_h = model_config_rec % auxhist17_end_h (id_id) grid_config_rec % auxhist17_end_m = model_config_rec % auxhist17_end_m (id_id) grid_config_rec % auxhist17_end_s = model_config_rec % auxhist17_end_s (id_id) grid_config_rec % auxhist17_end = model_config_rec % auxhist17_end (id_id) grid_config_rec % io_form_auxhist17 = model_config_rec % io_form_auxhist17 grid_config_rec % frames_per_auxhist17 = model_config_rec % frames_per_auxhist17 (id_id) grid_config_rec % auxhist18_inname = model_config_rec % auxhist18_inname grid_config_rec % auxhist18_outname = model_config_rec % auxhist18_outname grid_config_rec % auxhist18_interval_y = model_config_rec % auxhist18_interval_y (id_id) grid_config_rec % auxhist18_interval_d = model_config_rec % auxhist18_interval_d (id_id) grid_config_rec % auxhist18_interval_h = model_config_rec % auxhist18_interval_h (id_id) grid_config_rec % auxhist18_interval_m = model_config_rec % auxhist18_interval_m (id_id) grid_config_rec % auxhist18_interval_s = model_config_rec % auxhist18_interval_s (id_id) grid_config_rec % auxhist18_interval = model_config_rec % auxhist18_interval (id_id) grid_config_rec % auxhist18_begin_y = model_config_rec % auxhist18_begin_y (id_id) grid_config_rec % auxhist18_begin_d = model_config_rec % auxhist18_begin_d (id_id) grid_config_rec % auxhist18_begin_h = model_config_rec % auxhist18_begin_h (id_id) grid_config_rec % auxhist18_begin_m = model_config_rec % auxhist18_begin_m (id_id) grid_config_rec % auxhist18_begin_s = model_config_rec % auxhist18_begin_s (id_id) grid_config_rec % auxhist18_begin = model_config_rec % auxhist18_begin (id_id) grid_config_rec % auxhist18_end_y = model_config_rec % auxhist18_end_y (id_id) grid_config_rec % auxhist18_end_d = model_config_rec % auxhist18_end_d (id_id) grid_config_rec % auxhist18_end_h = model_config_rec % auxhist18_end_h (id_id) grid_config_rec % auxhist18_end_m = model_config_rec % auxhist18_end_m (id_id) grid_config_rec % auxhist18_end_s = model_config_rec % auxhist18_end_s (id_id) grid_config_rec % auxhist18_end = model_config_rec % auxhist18_end (id_id) grid_config_rec % io_form_auxhist18 = model_config_rec % io_form_auxhist18 grid_config_rec % frames_per_auxhist18 = model_config_rec % frames_per_auxhist18 (id_id) grid_config_rec % auxhist19_inname = model_config_rec % auxhist19_inname grid_config_rec % auxhist19_outname = model_config_rec % auxhist19_outname grid_config_rec % auxhist19_interval_y = model_config_rec % auxhist19_interval_y (id_id) grid_config_rec % auxhist19_interval_d = model_config_rec % auxhist19_interval_d (id_id) grid_config_rec % auxhist19_interval_h = model_config_rec % auxhist19_interval_h (id_id) grid_config_rec % auxhist19_interval_m = model_config_rec % auxhist19_interval_m (id_id) grid_config_rec % auxhist19_interval_s = model_config_rec % auxhist19_interval_s (id_id) grid_config_rec % auxhist19_interval = model_config_rec % auxhist19_interval (id_id) grid_config_rec % auxhist19_begin_y = model_config_rec % auxhist19_begin_y (id_id) grid_config_rec % auxhist19_begin_d = model_config_rec % auxhist19_begin_d (id_id) grid_config_rec % auxhist19_begin_h = model_config_rec % auxhist19_begin_h (id_id) grid_config_rec % auxhist19_begin_m = model_config_rec % auxhist19_begin_m (id_id) grid_config_rec % auxhist19_begin_s = model_config_rec % auxhist19_begin_s (id_id) grid_config_rec % auxhist19_begin = model_config_rec % auxhist19_begin (id_id) grid_config_rec % auxhist19_end_y = model_config_rec % auxhist19_end_y (id_id) grid_config_rec % auxhist19_end_d = model_config_rec % auxhist19_end_d (id_id) grid_config_rec % auxhist19_end_h = model_config_rec % auxhist19_end_h (id_id) grid_config_rec % auxhist19_end_m = model_config_rec % auxhist19_end_m (id_id) grid_config_rec % auxhist19_end_s = model_config_rec % auxhist19_end_s (id_id) grid_config_rec % auxhist19_end = model_config_rec % auxhist19_end (id_id) grid_config_rec % io_form_auxhist19 = model_config_rec % io_form_auxhist19 grid_config_rec % frames_per_auxhist19 = model_config_rec % frames_per_auxhist19 (id_id) grid_config_rec % auxhist20_inname = model_config_rec % auxhist20_inname grid_config_rec % auxhist20_outname = model_config_rec % auxhist20_outname grid_config_rec % auxhist20_interval_y = model_config_rec % auxhist20_interval_y (id_id) grid_config_rec % auxhist20_interval_d = model_config_rec % auxhist20_interval_d (id_id) grid_config_rec % auxhist20_interval_h = model_config_rec % auxhist20_interval_h (id_id) grid_config_rec % auxhist20_interval_m = model_config_rec % auxhist20_interval_m (id_id) grid_config_rec % auxhist20_interval_s = model_config_rec % auxhist20_interval_s (id_id) grid_config_rec % auxhist20_interval = model_config_rec % auxhist20_interval (id_id) grid_config_rec % auxhist20_begin_y = model_config_rec % auxhist20_begin_y (id_id) grid_config_rec % auxhist20_begin_d = model_config_rec % auxhist20_begin_d (id_id) grid_config_rec % auxhist20_begin_h = model_config_rec % auxhist20_begin_h (id_id) grid_config_rec % auxhist20_begin_m = model_config_rec % auxhist20_begin_m (id_id) grid_config_rec % auxhist20_begin_s = model_config_rec % auxhist20_begin_s (id_id) grid_config_rec % auxhist20_begin = model_config_rec % auxhist20_begin (id_id) grid_config_rec % auxhist20_end_y = model_config_rec % auxhist20_end_y (id_id) grid_config_rec % auxhist20_end_d = model_config_rec % auxhist20_end_d (id_id) grid_config_rec % auxhist20_end_h = model_config_rec % auxhist20_end_h (id_id) grid_config_rec % auxhist20_end_m = model_config_rec % auxhist20_end_m (id_id) grid_config_rec % auxhist20_end_s = model_config_rec % auxhist20_end_s (id_id) grid_config_rec % auxhist20_end = model_config_rec % auxhist20_end (id_id) grid_config_rec % io_form_auxhist20 = model_config_rec % io_form_auxhist20 grid_config_rec % frames_per_auxhist20 = model_config_rec % frames_per_auxhist20 (id_id) grid_config_rec % auxhist21_inname = model_config_rec % auxhist21_inname grid_config_rec % auxhist21_outname = model_config_rec % auxhist21_outname grid_config_rec % auxhist21_interval_y = model_config_rec % auxhist21_interval_y (id_id) grid_config_rec % auxhist21_interval_d = model_config_rec % auxhist21_interval_d (id_id) grid_config_rec % auxhist21_interval_h = model_config_rec % auxhist21_interval_h (id_id) grid_config_rec % auxhist21_interval_m = model_config_rec % auxhist21_interval_m (id_id) grid_config_rec % auxhist21_interval_s = model_config_rec % auxhist21_interval_s (id_id) grid_config_rec % auxhist21_interval = model_config_rec % auxhist21_interval (id_id) grid_config_rec % auxhist21_begin_y = model_config_rec % auxhist21_begin_y (id_id) grid_config_rec % auxhist21_begin_d = model_config_rec % auxhist21_begin_d (id_id) grid_config_rec % auxhist21_begin_h = model_config_rec % auxhist21_begin_h (id_id) grid_config_rec % auxhist21_begin_m = model_config_rec % auxhist21_begin_m (id_id) grid_config_rec % auxhist21_begin_s = model_config_rec % auxhist21_begin_s (id_id) grid_config_rec % auxhist21_begin = model_config_rec % auxhist21_begin (id_id) grid_config_rec % auxhist21_end_y = model_config_rec % auxhist21_end_y (id_id) grid_config_rec % auxhist21_end_d = model_config_rec % auxhist21_end_d (id_id) grid_config_rec % auxhist21_end_h = model_config_rec % auxhist21_end_h (id_id) grid_config_rec % auxhist21_end_m = model_config_rec % auxhist21_end_m (id_id) grid_config_rec % auxhist21_end_s = model_config_rec % auxhist21_end_s (id_id) grid_config_rec % auxhist21_end = model_config_rec % auxhist21_end (id_id) grid_config_rec % io_form_auxhist21 = model_config_rec % io_form_auxhist21 grid_config_rec % frames_per_auxhist21 = model_config_rec % frames_per_auxhist21 (id_id) grid_config_rec % auxhist22_inname = model_config_rec % auxhist22_inname grid_config_rec % auxhist22_outname = model_config_rec % auxhist22_outname grid_config_rec % auxhist22_interval_y = model_config_rec % auxhist22_interval_y (id_id) grid_config_rec % auxhist22_interval_d = model_config_rec % auxhist22_interval_d (id_id) grid_config_rec % auxhist22_interval_h = model_config_rec % auxhist22_interval_h (id_id) grid_config_rec % auxhist22_interval_m = model_config_rec % auxhist22_interval_m (id_id) grid_config_rec % auxhist22_interval_s = model_config_rec % auxhist22_interval_s (id_id) grid_config_rec % auxhist22_interval = model_config_rec % auxhist22_interval (id_id) grid_config_rec % auxhist22_begin_y = model_config_rec % auxhist22_begin_y (id_id) grid_config_rec % auxhist22_begin_d = model_config_rec % auxhist22_begin_d (id_id) grid_config_rec % auxhist22_begin_h = model_config_rec % auxhist22_begin_h (id_id) grid_config_rec % auxhist22_begin_m = model_config_rec % auxhist22_begin_m (id_id) grid_config_rec % auxhist22_begin_s = model_config_rec % auxhist22_begin_s (id_id) grid_config_rec % auxhist22_begin = model_config_rec % auxhist22_begin (id_id) grid_config_rec % auxhist22_end_y = model_config_rec % auxhist22_end_y (id_id) grid_config_rec % auxhist22_end_d = model_config_rec % auxhist22_end_d (id_id) grid_config_rec % auxhist22_end_h = model_config_rec % auxhist22_end_h (id_id) grid_config_rec % auxhist22_end_m = model_config_rec % auxhist22_end_m (id_id) grid_config_rec % auxhist22_end_s = model_config_rec % auxhist22_end_s (id_id) grid_config_rec % auxhist22_end = model_config_rec % auxhist22_end (id_id) grid_config_rec % io_form_auxhist22 = model_config_rec % io_form_auxhist22 grid_config_rec % frames_per_auxhist22 = model_config_rec % frames_per_auxhist22 (id_id) grid_config_rec % auxhist23_inname = model_config_rec % auxhist23_inname grid_config_rec % auxhist23_outname = model_config_rec % auxhist23_outname grid_config_rec % auxhist23_interval_y = model_config_rec % auxhist23_interval_y (id_id) grid_config_rec % auxhist23_interval_d = model_config_rec % auxhist23_interval_d (id_id) grid_config_rec % auxhist23_interval_h = model_config_rec % auxhist23_interval_h (id_id) grid_config_rec % auxhist23_interval_m = model_config_rec % auxhist23_interval_m (id_id) grid_config_rec % auxhist23_interval_s = model_config_rec % auxhist23_interval_s (id_id) grid_config_rec % auxhist23_interval = model_config_rec % auxhist23_interval (id_id) grid_config_rec % auxhist23_begin_y = model_config_rec % auxhist23_begin_y (id_id) grid_config_rec % auxhist23_begin_d = model_config_rec % auxhist23_begin_d (id_id) grid_config_rec % auxhist23_begin_h = model_config_rec % auxhist23_begin_h (id_id) grid_config_rec % auxhist23_begin_m = model_config_rec % auxhist23_begin_m (id_id) grid_config_rec % auxhist23_begin_s = model_config_rec % auxhist23_begin_s (id_id) grid_config_rec % auxhist23_begin = model_config_rec % auxhist23_begin (id_id) grid_config_rec % auxhist23_end_y = model_config_rec % auxhist23_end_y (id_id) grid_config_rec % auxhist23_end_d = model_config_rec % auxhist23_end_d (id_id) grid_config_rec % auxhist23_end_h = model_config_rec % auxhist23_end_h (id_id) grid_config_rec % auxhist23_end_m = model_config_rec % auxhist23_end_m (id_id) grid_config_rec % auxhist23_end_s = model_config_rec % auxhist23_end_s (id_id) grid_config_rec % auxhist23_end = model_config_rec % auxhist23_end (id_id) grid_config_rec % io_form_auxhist23 = model_config_rec % io_form_auxhist23 grid_config_rec % frames_per_auxhist23 = model_config_rec % frames_per_auxhist23 (id_id) grid_config_rec % auxhist24_inname = model_config_rec % auxhist24_inname grid_config_rec % auxhist24_outname = model_config_rec % auxhist24_outname grid_config_rec % auxhist24_interval_y = model_config_rec % auxhist24_interval_y (id_id) grid_config_rec % auxhist24_interval_d = model_config_rec % auxhist24_interval_d (id_id) grid_config_rec % auxhist24_interval_h = model_config_rec % auxhist24_interval_h (id_id) grid_config_rec % auxhist24_interval_m = model_config_rec % auxhist24_interval_m (id_id) grid_config_rec % auxhist24_interval_s = model_config_rec % auxhist24_interval_s (id_id) grid_config_rec % auxhist24_interval = model_config_rec % auxhist24_interval (id_id) grid_config_rec % auxhist24_begin_y = model_config_rec % auxhist24_begin_y (id_id) grid_config_rec % auxhist24_begin_d = model_config_rec % auxhist24_begin_d (id_id) grid_config_rec % auxhist24_begin_h = model_config_rec % auxhist24_begin_h (id_id) grid_config_rec % auxhist24_begin_m = model_config_rec % auxhist24_begin_m (id_id) grid_config_rec % auxhist24_begin_s = model_config_rec % auxhist24_begin_s (id_id) grid_config_rec % auxhist24_begin = model_config_rec % auxhist24_begin (id_id) grid_config_rec % auxhist24_end_y = model_config_rec % auxhist24_end_y (id_id) grid_config_rec % auxhist24_end_d = model_config_rec % auxhist24_end_d (id_id) grid_config_rec % auxhist24_end_h = model_config_rec % auxhist24_end_h (id_id) grid_config_rec % auxhist24_end_m = model_config_rec % auxhist24_end_m (id_id) grid_config_rec % auxhist24_end_s = model_config_rec % auxhist24_end_s (id_id) grid_config_rec % auxhist24_end = model_config_rec % auxhist24_end (id_id) grid_config_rec % io_form_auxhist24 = model_config_rec % io_form_auxhist24 grid_config_rec % frames_per_auxhist24 = model_config_rec % frames_per_auxhist24 (id_id) grid_config_rec % auxinput1_outname = model_config_rec % auxinput1_outname grid_config_rec % auxinput1_interval_y = model_config_rec % auxinput1_interval_y (id_id) grid_config_rec % auxinput1_interval_d = model_config_rec % auxinput1_interval_d (id_id) grid_config_rec % auxinput1_interval_h = model_config_rec % auxinput1_interval_h (id_id) grid_config_rec % auxinput1_interval_m = model_config_rec % auxinput1_interval_m (id_id) grid_config_rec % auxinput1_interval_s = model_config_rec % auxinput1_interval_s (id_id) grid_config_rec % auxinput1_interval = model_config_rec % auxinput1_interval (id_id) grid_config_rec % auxinput1_begin_y = model_config_rec % auxinput1_begin_y (id_id) grid_config_rec % auxinput1_begin_d = model_config_rec % auxinput1_begin_d (id_id) grid_config_rec % auxinput1_begin_h = model_config_rec % auxinput1_begin_h (id_id) grid_config_rec % auxinput1_begin_m = model_config_rec % auxinput1_begin_m (id_id) grid_config_rec % auxinput1_begin_s = model_config_rec % auxinput1_begin_s (id_id) grid_config_rec % auxinput1_begin = model_config_rec % auxinput1_begin (id_id) grid_config_rec % auxinput1_end_y = model_config_rec % auxinput1_end_y (id_id) grid_config_rec % auxinput1_end_d = model_config_rec % auxinput1_end_d (id_id) grid_config_rec % auxinput1_end_h = model_config_rec % auxinput1_end_h (id_id) grid_config_rec % auxinput1_end_m = model_config_rec % auxinput1_end_m (id_id) grid_config_rec % auxinput1_end_s = model_config_rec % auxinput1_end_s (id_id) grid_config_rec % auxinput1_end = model_config_rec % auxinput1_end (id_id) grid_config_rec % frames_per_auxinput1 = model_config_rec % frames_per_auxinput1 (id_id) grid_config_rec % auxinput2_inname = model_config_rec % auxinput2_inname grid_config_rec % auxinput2_outname = model_config_rec % auxinput2_outname grid_config_rec % auxinput2_interval_y = model_config_rec % auxinput2_interval_y (id_id) grid_config_rec % auxinput2_interval_d = model_config_rec % auxinput2_interval_d (id_id) grid_config_rec % auxinput2_interval_h = model_config_rec % auxinput2_interval_h (id_id) grid_config_rec % auxinput2_interval_m = model_config_rec % auxinput2_interval_m (id_id) grid_config_rec % auxinput2_interval_s = model_config_rec % auxinput2_interval_s (id_id) grid_config_rec % auxinput2_interval = model_config_rec % auxinput2_interval (id_id) grid_config_rec % auxinput2_begin_y = model_config_rec % auxinput2_begin_y (id_id) grid_config_rec % auxinput2_begin_d = model_config_rec % auxinput2_begin_d (id_id) grid_config_rec % auxinput2_begin_h = model_config_rec % auxinput2_begin_h (id_id) grid_config_rec % auxinput2_begin_m = model_config_rec % auxinput2_begin_m (id_id) grid_config_rec % auxinput2_begin_s = model_config_rec % auxinput2_begin_s (id_id) grid_config_rec % auxinput2_begin = model_config_rec % auxinput2_begin (id_id) grid_config_rec % auxinput2_end_y = model_config_rec % auxinput2_end_y (id_id) grid_config_rec % auxinput2_end_d = model_config_rec % auxinput2_end_d (id_id) grid_config_rec % auxinput2_end_h = model_config_rec % auxinput2_end_h (id_id) grid_config_rec % auxinput2_end_m = model_config_rec % auxinput2_end_m (id_id) grid_config_rec % auxinput2_end_s = model_config_rec % auxinput2_end_s (id_id) grid_config_rec % auxinput2_end = model_config_rec % auxinput2_end (id_id) grid_config_rec % io_form_auxinput2 = model_config_rec % io_form_auxinput2 grid_config_rec % frames_per_auxinput2 = model_config_rec % frames_per_auxinput2 (id_id) grid_config_rec % auxinput3_inname = model_config_rec % auxinput3_inname grid_config_rec % auxinput3_outname = model_config_rec % auxinput3_outname grid_config_rec % auxinput3_interval_y = model_config_rec % auxinput3_interval_y (id_id) grid_config_rec % auxinput3_interval_d = model_config_rec % auxinput3_interval_d (id_id) grid_config_rec % auxinput3_interval_h = model_config_rec % auxinput3_interval_h (id_id) grid_config_rec % auxinput3_interval_m = model_config_rec % auxinput3_interval_m (id_id) grid_config_rec % auxinput3_interval_s = model_config_rec % auxinput3_interval_s (id_id) grid_config_rec % auxinput3_interval = model_config_rec % auxinput3_interval (id_id) grid_config_rec % auxinput3_begin_y = model_config_rec % auxinput3_begin_y (id_id) grid_config_rec % auxinput3_begin_d = model_config_rec % auxinput3_begin_d (id_id) grid_config_rec % auxinput3_begin_h = model_config_rec % auxinput3_begin_h (id_id) grid_config_rec % auxinput3_begin_m = model_config_rec % auxinput3_begin_m (id_id) grid_config_rec % auxinput3_begin_s = model_config_rec % auxinput3_begin_s (id_id) grid_config_rec % auxinput3_begin = model_config_rec % auxinput3_begin (id_id) grid_config_rec % auxinput3_end_y = model_config_rec % auxinput3_end_y (id_id) grid_config_rec % auxinput3_end_d = model_config_rec % auxinput3_end_d (id_id) grid_config_rec % auxinput3_end_h = model_config_rec % auxinput3_end_h (id_id) grid_config_rec % auxinput3_end_m = model_config_rec % auxinput3_end_m (id_id) grid_config_rec % auxinput3_end_s = model_config_rec % auxinput3_end_s (id_id) grid_config_rec % auxinput3_end = model_config_rec % auxinput3_end (id_id) grid_config_rec % io_form_auxinput3 = model_config_rec % io_form_auxinput3 grid_config_rec % frames_per_auxinput3 = model_config_rec % frames_per_auxinput3 (id_id) grid_config_rec % auxinput4_inname = model_config_rec % auxinput4_inname grid_config_rec % auxinput4_outname = model_config_rec % auxinput4_outname grid_config_rec % auxinput4_interval_y = model_config_rec % auxinput4_interval_y (id_id) grid_config_rec % auxinput4_interval_d = model_config_rec % auxinput4_interval_d (id_id) grid_config_rec % auxinput4_interval_h = model_config_rec % auxinput4_interval_h (id_id) grid_config_rec % auxinput4_interval_m = model_config_rec % auxinput4_interval_m (id_id) grid_config_rec % auxinput4_interval_s = model_config_rec % auxinput4_interval_s (id_id) grid_config_rec % auxinput4_interval = model_config_rec % auxinput4_interval (id_id) grid_config_rec % auxinput4_begin_y = model_config_rec % auxinput4_begin_y (id_id) grid_config_rec % auxinput4_begin_d = model_config_rec % auxinput4_begin_d (id_id) grid_config_rec % auxinput4_begin_h = model_config_rec % auxinput4_begin_h (id_id) grid_config_rec % auxinput4_begin_m = model_config_rec % auxinput4_begin_m (id_id) grid_config_rec % auxinput4_begin_s = model_config_rec % auxinput4_begin_s (id_id) grid_config_rec % auxinput4_begin = model_config_rec % auxinput4_begin (id_id) grid_config_rec % auxinput4_end_y = model_config_rec % auxinput4_end_y (id_id) grid_config_rec % auxinput4_end_d = model_config_rec % auxinput4_end_d (id_id) grid_config_rec % auxinput4_end_h = model_config_rec % auxinput4_end_h (id_id) grid_config_rec % auxinput4_end_m = model_config_rec % auxinput4_end_m (id_id) grid_config_rec % auxinput4_end_s = model_config_rec % auxinput4_end_s (id_id) grid_config_rec % auxinput4_end = model_config_rec % auxinput4_end (id_id) grid_config_rec % io_form_auxinput4 = model_config_rec % io_form_auxinput4 grid_config_rec % frames_per_auxinput4 = model_config_rec % frames_per_auxinput4 (id_id) grid_config_rec % auxinput5_inname = model_config_rec % auxinput5_inname grid_config_rec % auxinput5_outname = model_config_rec % auxinput5_outname grid_config_rec % auxinput5_interval_y = model_config_rec % auxinput5_interval_y (id_id) grid_config_rec % auxinput5_interval_d = model_config_rec % auxinput5_interval_d (id_id) grid_config_rec % auxinput5_interval_h = model_config_rec % auxinput5_interval_h (id_id) grid_config_rec % auxinput5_interval_m = model_config_rec % auxinput5_interval_m (id_id) grid_config_rec % auxinput5_interval_s = model_config_rec % auxinput5_interval_s (id_id) grid_config_rec % auxinput5_interval = model_config_rec % auxinput5_interval (id_id) grid_config_rec % auxinput5_begin_y = model_config_rec % auxinput5_begin_y (id_id) grid_config_rec % auxinput5_begin_d = model_config_rec % auxinput5_begin_d (id_id) grid_config_rec % auxinput5_begin_h = model_config_rec % auxinput5_begin_h (id_id) grid_config_rec % auxinput5_begin_m = model_config_rec % auxinput5_begin_m (id_id) grid_config_rec % auxinput5_begin_s = model_config_rec % auxinput5_begin_s (id_id) grid_config_rec % auxinput5_begin = model_config_rec % auxinput5_begin (id_id) grid_config_rec % auxinput5_end_y = model_config_rec % auxinput5_end_y (id_id) grid_config_rec % auxinput5_end_d = model_config_rec % auxinput5_end_d (id_id) grid_config_rec % auxinput5_end_h = model_config_rec % auxinput5_end_h (id_id) grid_config_rec % auxinput5_end_m = model_config_rec % auxinput5_end_m (id_id) grid_config_rec % auxinput5_end_s = model_config_rec % auxinput5_end_s (id_id) grid_config_rec % auxinput5_end = model_config_rec % auxinput5_end (id_id) grid_config_rec % io_form_auxinput5 = model_config_rec % io_form_auxinput5 grid_config_rec % frames_per_auxinput5 = model_config_rec % frames_per_auxinput5 (id_id) grid_config_rec % auxinput6_inname = model_config_rec % auxinput6_inname grid_config_rec % auxinput6_outname = model_config_rec % auxinput6_outname grid_config_rec % auxinput6_interval_y = model_config_rec % auxinput6_interval_y (id_id) grid_config_rec % auxinput6_interval_d = model_config_rec % auxinput6_interval_d (id_id) grid_config_rec % auxinput6_interval_h = model_config_rec % auxinput6_interval_h (id_id) grid_config_rec % auxinput6_interval_m = model_config_rec % auxinput6_interval_m (id_id) grid_config_rec % auxinput6_interval_s = model_config_rec % auxinput6_interval_s (id_id) grid_config_rec % auxinput6_interval = model_config_rec % auxinput6_interval (id_id) grid_config_rec % auxinput6_begin_y = model_config_rec % auxinput6_begin_y (id_id) grid_config_rec % auxinput6_begin_d = model_config_rec % auxinput6_begin_d (id_id) grid_config_rec % auxinput6_begin_h = model_config_rec % auxinput6_begin_h (id_id) grid_config_rec % auxinput6_begin_m = model_config_rec % auxinput6_begin_m (id_id) grid_config_rec % auxinput6_begin_s = model_config_rec % auxinput6_begin_s (id_id) grid_config_rec % auxinput6_begin = model_config_rec % auxinput6_begin (id_id) grid_config_rec % auxinput6_end_y = model_config_rec % auxinput6_end_y (id_id) grid_config_rec % auxinput6_end_d = model_config_rec % auxinput6_end_d (id_id) grid_config_rec % auxinput6_end_h = model_config_rec % auxinput6_end_h (id_id) grid_config_rec % auxinput6_end_m = model_config_rec % auxinput6_end_m (id_id) grid_config_rec % auxinput6_end_s = model_config_rec % auxinput6_end_s (id_id) grid_config_rec % auxinput6_end = model_config_rec % auxinput6_end (id_id) grid_config_rec % io_form_auxinput6 = model_config_rec % io_form_auxinput6 grid_config_rec % frames_per_auxinput6 = model_config_rec % frames_per_auxinput6 (id_id) grid_config_rec % auxinput7_inname = model_config_rec % auxinput7_inname grid_config_rec % auxinput7_outname = model_config_rec % auxinput7_outname grid_config_rec % auxinput7_interval_y = model_config_rec % auxinput7_interval_y (id_id) grid_config_rec % auxinput7_interval_d = model_config_rec % auxinput7_interval_d (id_id) grid_config_rec % auxinput7_interval_h = model_config_rec % auxinput7_interval_h (id_id) grid_config_rec % auxinput7_interval_m = model_config_rec % auxinput7_interval_m (id_id) grid_config_rec % auxinput7_interval_s = model_config_rec % auxinput7_interval_s (id_id) grid_config_rec % auxinput7_interval = model_config_rec % auxinput7_interval (id_id) grid_config_rec % auxinput7_begin_y = model_config_rec % auxinput7_begin_y (id_id) grid_config_rec % auxinput7_begin_d = model_config_rec % auxinput7_begin_d (id_id) grid_config_rec % auxinput7_begin_h = model_config_rec % auxinput7_begin_h (id_id) grid_config_rec % auxinput7_begin_m = model_config_rec % auxinput7_begin_m (id_id) grid_config_rec % auxinput7_begin_s = model_config_rec % auxinput7_begin_s (id_id) grid_config_rec % auxinput7_begin = model_config_rec % auxinput7_begin (id_id) grid_config_rec % auxinput7_end_y = model_config_rec % auxinput7_end_y (id_id) grid_config_rec % auxinput7_end_d = model_config_rec % auxinput7_end_d (id_id) grid_config_rec % auxinput7_end_h = model_config_rec % auxinput7_end_h (id_id) grid_config_rec % auxinput7_end_m = model_config_rec % auxinput7_end_m (id_id) grid_config_rec % auxinput7_end_s = model_config_rec % auxinput7_end_s (id_id) grid_config_rec % auxinput7_end = model_config_rec % auxinput7_end (id_id) grid_config_rec % io_form_auxinput7 = model_config_rec % io_form_auxinput7 grid_config_rec % frames_per_auxinput7 = model_config_rec % frames_per_auxinput7 (id_id) grid_config_rec % auxinput8_inname = model_config_rec % auxinput8_inname grid_config_rec % auxinput8_outname = model_config_rec % auxinput8_outname grid_config_rec % auxinput8_interval_y = model_config_rec % auxinput8_interval_y (id_id) grid_config_rec % auxinput8_interval_d = model_config_rec % auxinput8_interval_d (id_id) grid_config_rec % auxinput8_interval_h = model_config_rec % auxinput8_interval_h (id_id) grid_config_rec % auxinput8_interval_m = model_config_rec % auxinput8_interval_m (id_id) grid_config_rec % auxinput8_interval_s = model_config_rec % auxinput8_interval_s (id_id) grid_config_rec % auxinput8_interval = model_config_rec % auxinput8_interval (id_id) grid_config_rec % auxinput8_begin_y = model_config_rec % auxinput8_begin_y (id_id) grid_config_rec % auxinput8_begin_d = model_config_rec % auxinput8_begin_d (id_id) grid_config_rec % auxinput8_begin_h = model_config_rec % auxinput8_begin_h (id_id) grid_config_rec % auxinput8_begin_m = model_config_rec % auxinput8_begin_m (id_id) grid_config_rec % auxinput8_begin_s = model_config_rec % auxinput8_begin_s (id_id) grid_config_rec % auxinput8_begin = model_config_rec % auxinput8_begin (id_id) grid_config_rec % auxinput8_end_y = model_config_rec % auxinput8_end_y (id_id) grid_config_rec % auxinput8_end_d = model_config_rec % auxinput8_end_d (id_id) grid_config_rec % auxinput8_end_h = model_config_rec % auxinput8_end_h (id_id) grid_config_rec % auxinput8_end_m = model_config_rec % auxinput8_end_m (id_id) grid_config_rec % auxinput8_end_s = model_config_rec % auxinput8_end_s (id_id) grid_config_rec % auxinput8_end = model_config_rec % auxinput8_end (id_id) grid_config_rec % io_form_auxinput8 = model_config_rec % io_form_auxinput8 grid_config_rec % frames_per_auxinput8 = model_config_rec % frames_per_auxinput8 (id_id) grid_config_rec % auxinput9_inname = model_config_rec % auxinput9_inname grid_config_rec % auxinput9_outname = model_config_rec % auxinput9_outname grid_config_rec % auxinput9_interval_y = model_config_rec % auxinput9_interval_y (id_id) grid_config_rec % auxinput9_interval_d = model_config_rec % auxinput9_interval_d (id_id) grid_config_rec % auxinput9_interval_h = model_config_rec % auxinput9_interval_h (id_id) grid_config_rec % auxinput9_interval_m = model_config_rec % auxinput9_interval_m (id_id) grid_config_rec % auxinput9_interval_s = model_config_rec % auxinput9_interval_s (id_id) grid_config_rec % auxinput9_interval = model_config_rec % auxinput9_interval (id_id) grid_config_rec % auxinput9_begin_y = model_config_rec % auxinput9_begin_y (id_id) grid_config_rec % auxinput9_begin_d = model_config_rec % auxinput9_begin_d (id_id) grid_config_rec % auxinput9_begin_h = model_config_rec % auxinput9_begin_h (id_id) grid_config_rec % auxinput9_begin_m = model_config_rec % auxinput9_begin_m (id_id) grid_config_rec % auxinput9_begin_s = model_config_rec % auxinput9_begin_s (id_id) grid_config_rec % auxinput9_begin = model_config_rec % auxinput9_begin (id_id) grid_config_rec % auxinput9_end_y = model_config_rec % auxinput9_end_y (id_id) grid_config_rec % auxinput9_end_d = model_config_rec % auxinput9_end_d (id_id) grid_config_rec % auxinput9_end_h = model_config_rec % auxinput9_end_h (id_id) grid_config_rec % auxinput9_end_m = model_config_rec % auxinput9_end_m (id_id) grid_config_rec % auxinput9_end_s = model_config_rec % auxinput9_end_s (id_id) grid_config_rec % auxinput9_end = model_config_rec % auxinput9_end (id_id) grid_config_rec % io_form_auxinput9 = model_config_rec % io_form_auxinput9 grid_config_rec % frames_per_auxinput9 = model_config_rec % frames_per_auxinput9 (id_id) grid_config_rec % auxinput10_inname = model_config_rec % auxinput10_inname grid_config_rec % auxinput10_outname = model_config_rec % auxinput10_outname grid_config_rec % auxinput10_interval_y = model_config_rec % auxinput10_interval_y (id_id) grid_config_rec % auxinput10_interval_d = model_config_rec % auxinput10_interval_d (id_id) grid_config_rec % auxinput10_interval_h = model_config_rec % auxinput10_interval_h (id_id) grid_config_rec % auxinput10_interval_m = model_config_rec % auxinput10_interval_m (id_id) grid_config_rec % auxinput10_interval_s = model_config_rec % auxinput10_interval_s (id_id) grid_config_rec % auxinput10_interval = model_config_rec % auxinput10_interval (id_id) grid_config_rec % auxinput10_begin_y = model_config_rec % auxinput10_begin_y (id_id) grid_config_rec % auxinput10_begin_d = model_config_rec % auxinput10_begin_d (id_id) grid_config_rec % auxinput10_begin_h = model_config_rec % auxinput10_begin_h (id_id) grid_config_rec % auxinput10_begin_m = model_config_rec % auxinput10_begin_m (id_id) grid_config_rec % auxinput10_begin_s = model_config_rec % auxinput10_begin_s (id_id) grid_config_rec % auxinput10_begin = model_config_rec % auxinput10_begin (id_id) grid_config_rec % auxinput10_end_y = model_config_rec % auxinput10_end_y (id_id) grid_config_rec % auxinput10_end_d = model_config_rec % auxinput10_end_d (id_id) grid_config_rec % auxinput10_end_h = model_config_rec % auxinput10_end_h (id_id) grid_config_rec % auxinput10_end_m = model_config_rec % auxinput10_end_m (id_id) grid_config_rec % auxinput10_end_s = model_config_rec % auxinput10_end_s (id_id) grid_config_rec % auxinput10_end = model_config_rec % auxinput10_end (id_id) grid_config_rec % io_form_auxinput10 = model_config_rec % io_form_auxinput10 grid_config_rec % frames_per_auxinput10 = model_config_rec % frames_per_auxinput10 (id_id) grid_config_rec % auxinput11_inname = model_config_rec % auxinput11_inname grid_config_rec % auxinput11_outname = model_config_rec % auxinput11_outname grid_config_rec % auxinput11_interval_y = model_config_rec % auxinput11_interval_y (id_id) grid_config_rec % auxinput11_interval_d = model_config_rec % auxinput11_interval_d (id_id) grid_config_rec % auxinput11_interval_h = model_config_rec % auxinput11_interval_h (id_id) grid_config_rec % auxinput11_interval_m = model_config_rec % auxinput11_interval_m (id_id) grid_config_rec % auxinput11_interval_s = model_config_rec % auxinput11_interval_s (id_id) grid_config_rec % auxinput11_interval = model_config_rec % auxinput11_interval (id_id) grid_config_rec % auxinput11_begin_y = model_config_rec % auxinput11_begin_y (id_id) grid_config_rec % auxinput11_begin_d = model_config_rec % auxinput11_begin_d (id_id) grid_config_rec % auxinput11_begin_h = model_config_rec % auxinput11_begin_h (id_id) grid_config_rec % auxinput11_begin_m = model_config_rec % auxinput11_begin_m (id_id) grid_config_rec % auxinput11_begin_s = model_config_rec % auxinput11_begin_s (id_id) grid_config_rec % auxinput11_begin = model_config_rec % auxinput11_begin (id_id) grid_config_rec % auxinput11_end_y = model_config_rec % auxinput11_end_y (id_id) grid_config_rec % auxinput11_end_d = model_config_rec % auxinput11_end_d (id_id) grid_config_rec % auxinput11_end_h = model_config_rec % auxinput11_end_h (id_id) grid_config_rec % auxinput11_end_m = model_config_rec % auxinput11_end_m (id_id) grid_config_rec % auxinput11_end_s = model_config_rec % auxinput11_end_s (id_id) grid_config_rec % auxinput11_end = model_config_rec % auxinput11_end (id_id) grid_config_rec % io_form_auxinput11 = model_config_rec % io_form_auxinput11 grid_config_rec % frames_per_auxinput11 = model_config_rec % frames_per_auxinput11 (id_id) grid_config_rec % auxinput12_inname = model_config_rec % auxinput12_inname grid_config_rec % auxinput12_outname = model_config_rec % auxinput12_outname grid_config_rec % auxinput12_interval_y = model_config_rec % auxinput12_interval_y (id_id) grid_config_rec % auxinput12_interval_d = model_config_rec % auxinput12_interval_d (id_id) grid_config_rec % auxinput12_interval_h = model_config_rec % auxinput12_interval_h (id_id) grid_config_rec % auxinput12_interval_m = model_config_rec % auxinput12_interval_m (id_id) grid_config_rec % auxinput12_interval_s = model_config_rec % auxinput12_interval_s (id_id) grid_config_rec % auxinput12_interval = model_config_rec % auxinput12_interval (id_id) grid_config_rec % auxinput12_begin_y = model_config_rec % auxinput12_begin_y (id_id) grid_config_rec % auxinput12_begin_d = model_config_rec % auxinput12_begin_d (id_id) grid_config_rec % auxinput12_begin_h = model_config_rec % auxinput12_begin_h (id_id) grid_config_rec % auxinput12_begin_m = model_config_rec % auxinput12_begin_m (id_id) grid_config_rec % auxinput12_begin_s = model_config_rec % auxinput12_begin_s (id_id) grid_config_rec % auxinput12_begin = model_config_rec % auxinput12_begin (id_id) grid_config_rec % auxinput12_end_y = model_config_rec % auxinput12_end_y (id_id) grid_config_rec % auxinput12_end_d = model_config_rec % auxinput12_end_d (id_id) grid_config_rec % auxinput12_end_h = model_config_rec % auxinput12_end_h (id_id) grid_config_rec % auxinput12_end_m = model_config_rec % auxinput12_end_m (id_id) grid_config_rec % auxinput12_end_s = model_config_rec % auxinput12_end_s (id_id) grid_config_rec % auxinput12_end = model_config_rec % auxinput12_end (id_id) grid_config_rec % io_form_auxinput12 = model_config_rec % io_form_auxinput12 grid_config_rec % frames_per_auxinput12 = model_config_rec % frames_per_auxinput12 (id_id) grid_config_rec % auxinput13_inname = model_config_rec % auxinput13_inname grid_config_rec % auxinput13_outname = model_config_rec % auxinput13_outname grid_config_rec % auxinput13_interval_y = model_config_rec % auxinput13_interval_y (id_id) grid_config_rec % auxinput13_interval_d = model_config_rec % auxinput13_interval_d (id_id) grid_config_rec % auxinput13_interval_h = model_config_rec % auxinput13_interval_h (id_id) grid_config_rec % auxinput13_interval_m = model_config_rec % auxinput13_interval_m (id_id) grid_config_rec % auxinput13_interval_s = model_config_rec % auxinput13_interval_s (id_id) grid_config_rec % auxinput13_interval = model_config_rec % auxinput13_interval (id_id) grid_config_rec % auxinput13_begin_y = model_config_rec % auxinput13_begin_y (id_id) grid_config_rec % auxinput13_begin_d = model_config_rec % auxinput13_begin_d (id_id) grid_config_rec % auxinput13_begin_h = model_config_rec % auxinput13_begin_h (id_id) grid_config_rec % auxinput13_begin_m = model_config_rec % auxinput13_begin_m (id_id) grid_config_rec % auxinput13_begin_s = model_config_rec % auxinput13_begin_s (id_id) grid_config_rec % auxinput13_begin = model_config_rec % auxinput13_begin (id_id) grid_config_rec % auxinput13_end_y = model_config_rec % auxinput13_end_y (id_id) grid_config_rec % auxinput13_end_d = model_config_rec % auxinput13_end_d (id_id) grid_config_rec % auxinput13_end_h = model_config_rec % auxinput13_end_h (id_id) grid_config_rec % auxinput13_end_m = model_config_rec % auxinput13_end_m (id_id) grid_config_rec % auxinput13_end_s = model_config_rec % auxinput13_end_s (id_id) grid_config_rec % auxinput13_end = model_config_rec % auxinput13_end (id_id) grid_config_rec % io_form_auxinput13 = model_config_rec % io_form_auxinput13 grid_config_rec % frames_per_auxinput13 = model_config_rec % frames_per_auxinput13 (id_id) grid_config_rec % auxinput14_inname = model_config_rec % auxinput14_inname grid_config_rec % auxinput14_outname = model_config_rec % auxinput14_outname grid_config_rec % auxinput14_interval_y = model_config_rec % auxinput14_interval_y (id_id) grid_config_rec % auxinput14_interval_d = model_config_rec % auxinput14_interval_d (id_id) grid_config_rec % auxinput14_interval_h = model_config_rec % auxinput14_interval_h (id_id) grid_config_rec % auxinput14_interval_m = model_config_rec % auxinput14_interval_m (id_id) grid_config_rec % auxinput14_interval_s = model_config_rec % auxinput14_interval_s (id_id) grid_config_rec % auxinput14_interval = model_config_rec % auxinput14_interval (id_id) grid_config_rec % auxinput14_begin_y = model_config_rec % auxinput14_begin_y (id_id) grid_config_rec % auxinput14_begin_d = model_config_rec % auxinput14_begin_d (id_id) grid_config_rec % auxinput14_begin_h = model_config_rec % auxinput14_begin_h (id_id) grid_config_rec % auxinput14_begin_m = model_config_rec % auxinput14_begin_m (id_id) grid_config_rec % auxinput14_begin_s = model_config_rec % auxinput14_begin_s (id_id) grid_config_rec % auxinput14_begin = model_config_rec % auxinput14_begin (id_id) grid_config_rec % auxinput14_end_y = model_config_rec % auxinput14_end_y (id_id) grid_config_rec % auxinput14_end_d = model_config_rec % auxinput14_end_d (id_id) grid_config_rec % auxinput14_end_h = model_config_rec % auxinput14_end_h (id_id) grid_config_rec % auxinput14_end_m = model_config_rec % auxinput14_end_m (id_id) grid_config_rec % auxinput14_end_s = model_config_rec % auxinput14_end_s (id_id) grid_config_rec % auxinput14_end = model_config_rec % auxinput14_end (id_id) grid_config_rec % io_form_auxinput14 = model_config_rec % io_form_auxinput14 grid_config_rec % frames_per_auxinput14 = model_config_rec % frames_per_auxinput14 (id_id) grid_config_rec % auxinput15_inname = model_config_rec % auxinput15_inname grid_config_rec % auxinput15_outname = model_config_rec % auxinput15_outname grid_config_rec % auxinput15_interval_y = model_config_rec % auxinput15_interval_y (id_id) grid_config_rec % auxinput15_interval_d = model_config_rec % auxinput15_interval_d (id_id) grid_config_rec % auxinput15_interval_h = model_config_rec % auxinput15_interval_h (id_id) grid_config_rec % auxinput15_interval_m = model_config_rec % auxinput15_interval_m (id_id) grid_config_rec % auxinput15_interval_s = model_config_rec % auxinput15_interval_s (id_id) grid_config_rec % auxinput15_interval = model_config_rec % auxinput15_interval (id_id) grid_config_rec % auxinput15_begin_y = model_config_rec % auxinput15_begin_y (id_id) grid_config_rec % auxinput15_begin_d = model_config_rec % auxinput15_begin_d (id_id) grid_config_rec % auxinput15_begin_h = model_config_rec % auxinput15_begin_h (id_id) grid_config_rec % auxinput15_begin_m = model_config_rec % auxinput15_begin_m (id_id) grid_config_rec % auxinput15_begin_s = model_config_rec % auxinput15_begin_s (id_id) grid_config_rec % auxinput15_begin = model_config_rec % auxinput15_begin (id_id) grid_config_rec % auxinput15_end_y = model_config_rec % auxinput15_end_y (id_id) grid_config_rec % auxinput15_end_d = model_config_rec % auxinput15_end_d (id_id) grid_config_rec % auxinput15_end_h = model_config_rec % auxinput15_end_h (id_id) grid_config_rec % auxinput15_end_m = model_config_rec % auxinput15_end_m (id_id) grid_config_rec % auxinput15_end_s = model_config_rec % auxinput15_end_s (id_id) grid_config_rec % auxinput15_end = model_config_rec % auxinput15_end (id_id) grid_config_rec % io_form_auxinput15 = model_config_rec % io_form_auxinput15 grid_config_rec % frames_per_auxinput15 = model_config_rec % frames_per_auxinput15 (id_id) grid_config_rec % auxinput16_inname = model_config_rec % auxinput16_inname grid_config_rec % auxinput16_outname = model_config_rec % auxinput16_outname grid_config_rec % auxinput16_interval_y = model_config_rec % auxinput16_interval_y (id_id) grid_config_rec % auxinput16_interval_d = model_config_rec % auxinput16_interval_d (id_id) grid_config_rec % auxinput16_interval_h = model_config_rec % auxinput16_interval_h (id_id) grid_config_rec % auxinput16_interval_m = model_config_rec % auxinput16_interval_m (id_id) grid_config_rec % auxinput16_interval_s = model_config_rec % auxinput16_interval_s (id_id) grid_config_rec % auxinput16_interval = model_config_rec % auxinput16_interval (id_id) grid_config_rec % auxinput16_begin_y = model_config_rec % auxinput16_begin_y (id_id) grid_config_rec % auxinput16_begin_d = model_config_rec % auxinput16_begin_d (id_id) grid_config_rec % auxinput16_begin_h = model_config_rec % auxinput16_begin_h (id_id) grid_config_rec % auxinput16_begin_m = model_config_rec % auxinput16_begin_m (id_id) grid_config_rec % auxinput16_begin_s = model_config_rec % auxinput16_begin_s (id_id) grid_config_rec % auxinput16_begin = model_config_rec % auxinput16_begin (id_id) grid_config_rec % auxinput16_end_y = model_config_rec % auxinput16_end_y (id_id) grid_config_rec % auxinput16_end_d = model_config_rec % auxinput16_end_d (id_id) grid_config_rec % auxinput16_end_h = model_config_rec % auxinput16_end_h (id_id) grid_config_rec % auxinput16_end_m = model_config_rec % auxinput16_end_m (id_id) grid_config_rec % auxinput16_end_s = model_config_rec % auxinput16_end_s (id_id) grid_config_rec % auxinput16_end = model_config_rec % auxinput16_end (id_id) grid_config_rec % io_form_auxinput16 = model_config_rec % io_form_auxinput16 grid_config_rec % frames_per_auxinput16 = model_config_rec % frames_per_auxinput16 (id_id) grid_config_rec % auxinput17_inname = model_config_rec % auxinput17_inname grid_config_rec % auxinput17_outname = model_config_rec % auxinput17_outname grid_config_rec % auxinput17_interval_y = model_config_rec % auxinput17_interval_y (id_id) grid_config_rec % auxinput17_interval_d = model_config_rec % auxinput17_interval_d (id_id) grid_config_rec % auxinput17_interval_h = model_config_rec % auxinput17_interval_h (id_id) grid_config_rec % auxinput17_interval_m = model_config_rec % auxinput17_interval_m (id_id) grid_config_rec % auxinput17_interval_s = model_config_rec % auxinput17_interval_s (id_id) grid_config_rec % auxinput17_interval = model_config_rec % auxinput17_interval (id_id) grid_config_rec % auxinput17_begin_y = model_config_rec % auxinput17_begin_y (id_id) grid_config_rec % auxinput17_begin_d = model_config_rec % auxinput17_begin_d (id_id) grid_config_rec % auxinput17_begin_h = model_config_rec % auxinput17_begin_h (id_id) grid_config_rec % auxinput17_begin_m = model_config_rec % auxinput17_begin_m (id_id) grid_config_rec % auxinput17_begin_s = model_config_rec % auxinput17_begin_s (id_id) grid_config_rec % auxinput17_begin = model_config_rec % auxinput17_begin (id_id) grid_config_rec % auxinput17_end_y = model_config_rec % auxinput17_end_y (id_id) grid_config_rec % auxinput17_end_d = model_config_rec % auxinput17_end_d (id_id) grid_config_rec % auxinput17_end_h = model_config_rec % auxinput17_end_h (id_id) grid_config_rec % auxinput17_end_m = model_config_rec % auxinput17_end_m (id_id) grid_config_rec % auxinput17_end_s = model_config_rec % auxinput17_end_s (id_id) grid_config_rec % auxinput17_end = model_config_rec % auxinput17_end (id_id) grid_config_rec % io_form_auxinput17 = model_config_rec % io_form_auxinput17 grid_config_rec % frames_per_auxinput17 = model_config_rec % frames_per_auxinput17 (id_id) grid_config_rec % auxinput18_inname = model_config_rec % auxinput18_inname grid_config_rec % auxinput18_outname = model_config_rec % auxinput18_outname grid_config_rec % auxinput18_interval_y = model_config_rec % auxinput18_interval_y (id_id) grid_config_rec % auxinput18_interval_d = model_config_rec % auxinput18_interval_d (id_id) grid_config_rec % auxinput18_interval_h = model_config_rec % auxinput18_interval_h (id_id) grid_config_rec % auxinput18_interval_m = model_config_rec % auxinput18_interval_m (id_id) grid_config_rec % auxinput18_interval_s = model_config_rec % auxinput18_interval_s (id_id) grid_config_rec % auxinput18_interval = model_config_rec % auxinput18_interval (id_id) grid_config_rec % auxinput18_begin_y = model_config_rec % auxinput18_begin_y (id_id) grid_config_rec % auxinput18_begin_d = model_config_rec % auxinput18_begin_d (id_id) grid_config_rec % auxinput18_begin_h = model_config_rec % auxinput18_begin_h (id_id) grid_config_rec % auxinput18_begin_m = model_config_rec % auxinput18_begin_m (id_id) grid_config_rec % auxinput18_begin_s = model_config_rec % auxinput18_begin_s (id_id) grid_config_rec % auxinput18_begin = model_config_rec % auxinput18_begin (id_id) grid_config_rec % auxinput18_end_y = model_config_rec % auxinput18_end_y (id_id) grid_config_rec % auxinput18_end_d = model_config_rec % auxinput18_end_d (id_id) grid_config_rec % auxinput18_end_h = model_config_rec % auxinput18_end_h (id_id) grid_config_rec % auxinput18_end_m = model_config_rec % auxinput18_end_m (id_id) grid_config_rec % auxinput18_end_s = model_config_rec % auxinput18_end_s (id_id) grid_config_rec % auxinput18_end = model_config_rec % auxinput18_end (id_id) grid_config_rec % io_form_auxinput18 = model_config_rec % io_form_auxinput18 grid_config_rec % frames_per_auxinput18 = model_config_rec % frames_per_auxinput18 (id_id) grid_config_rec % auxinput19_inname = model_config_rec % auxinput19_inname grid_config_rec % auxinput19_outname = model_config_rec % auxinput19_outname grid_config_rec % auxinput19_interval_y = model_config_rec % auxinput19_interval_y (id_id) grid_config_rec % auxinput19_interval_d = model_config_rec % auxinput19_interval_d (id_id) grid_config_rec % auxinput19_interval_h = model_config_rec % auxinput19_interval_h (id_id) grid_config_rec % auxinput19_interval_m = model_config_rec % auxinput19_interval_m (id_id) grid_config_rec % auxinput19_interval_s = model_config_rec % auxinput19_interval_s (id_id) grid_config_rec % auxinput19_interval = model_config_rec % auxinput19_interval (id_id) grid_config_rec % auxinput19_begin_y = model_config_rec % auxinput19_begin_y (id_id) grid_config_rec % auxinput19_begin_d = model_config_rec % auxinput19_begin_d (id_id) grid_config_rec % auxinput19_begin_h = model_config_rec % auxinput19_begin_h (id_id) grid_config_rec % auxinput19_begin_m = model_config_rec % auxinput19_begin_m (id_id) grid_config_rec % auxinput19_begin_s = model_config_rec % auxinput19_begin_s (id_id) grid_config_rec % auxinput19_begin = model_config_rec % auxinput19_begin (id_id) grid_config_rec % auxinput19_end_y = model_config_rec % auxinput19_end_y (id_id) grid_config_rec % auxinput19_end_d = model_config_rec % auxinput19_end_d (id_id) grid_config_rec % auxinput19_end_h = model_config_rec % auxinput19_end_h (id_id) grid_config_rec % auxinput19_end_m = model_config_rec % auxinput19_end_m (id_id) grid_config_rec % auxinput19_end_s = model_config_rec % auxinput19_end_s (id_id) grid_config_rec % auxinput19_end = model_config_rec % auxinput19_end (id_id) grid_config_rec % io_form_auxinput19 = model_config_rec % io_form_auxinput19 grid_config_rec % frames_per_auxinput19 = model_config_rec % frames_per_auxinput19 (id_id) grid_config_rec % auxinput20_inname = model_config_rec % auxinput20_inname grid_config_rec % auxinput20_outname = model_config_rec % auxinput20_outname grid_config_rec % auxinput20_interval_y = model_config_rec % auxinput20_interval_y (id_id) grid_config_rec % auxinput20_interval_d = model_config_rec % auxinput20_interval_d (id_id) grid_config_rec % auxinput20_interval_h = model_config_rec % auxinput20_interval_h (id_id) grid_config_rec % auxinput20_interval_m = model_config_rec % auxinput20_interval_m (id_id) grid_config_rec % auxinput20_interval_s = model_config_rec % auxinput20_interval_s (id_id) grid_config_rec % auxinput20_interval = model_config_rec % auxinput20_interval (id_id) grid_config_rec % auxinput20_begin_y = model_config_rec % auxinput20_begin_y (id_id) grid_config_rec % auxinput20_begin_d = model_config_rec % auxinput20_begin_d (id_id) grid_config_rec % auxinput20_begin_h = model_config_rec % auxinput20_begin_h (id_id) grid_config_rec % auxinput20_begin_m = model_config_rec % auxinput20_begin_m (id_id) grid_config_rec % auxinput20_begin_s = model_config_rec % auxinput20_begin_s (id_id) grid_config_rec % auxinput20_begin = model_config_rec % auxinput20_begin (id_id) grid_config_rec % auxinput20_end_y = model_config_rec % auxinput20_end_y (id_id) grid_config_rec % auxinput20_end_d = model_config_rec % auxinput20_end_d (id_id) grid_config_rec % auxinput20_end_h = model_config_rec % auxinput20_end_h (id_id) grid_config_rec % auxinput20_end_m = model_config_rec % auxinput20_end_m (id_id) grid_config_rec % auxinput20_end_s = model_config_rec % auxinput20_end_s (id_id) grid_config_rec % auxinput20_end = model_config_rec % auxinput20_end (id_id) grid_config_rec % io_form_auxinput20 = model_config_rec % io_form_auxinput20 grid_config_rec % frames_per_auxinput20 = model_config_rec % frames_per_auxinput20 (id_id) grid_config_rec % auxinput21_inname = model_config_rec % auxinput21_inname grid_config_rec % auxinput21_outname = model_config_rec % auxinput21_outname grid_config_rec % auxinput21_interval_y = model_config_rec % auxinput21_interval_y (id_id) grid_config_rec % auxinput21_interval_d = model_config_rec % auxinput21_interval_d (id_id) grid_config_rec % auxinput21_interval_h = model_config_rec % auxinput21_interval_h (id_id) grid_config_rec % auxinput21_interval_m = model_config_rec % auxinput21_interval_m (id_id) grid_config_rec % auxinput21_interval_s = model_config_rec % auxinput21_interval_s (id_id) grid_config_rec % auxinput21_interval = model_config_rec % auxinput21_interval (id_id) grid_config_rec % auxinput21_begin_y = model_config_rec % auxinput21_begin_y (id_id) grid_config_rec % auxinput21_begin_d = model_config_rec % auxinput21_begin_d (id_id) grid_config_rec % auxinput21_begin_h = model_config_rec % auxinput21_begin_h (id_id) grid_config_rec % auxinput21_begin_m = model_config_rec % auxinput21_begin_m (id_id) grid_config_rec % auxinput21_begin_s = model_config_rec % auxinput21_begin_s (id_id) grid_config_rec % auxinput21_begin = model_config_rec % auxinput21_begin (id_id) grid_config_rec % auxinput21_end_y = model_config_rec % auxinput21_end_y (id_id) grid_config_rec % auxinput21_end_d = model_config_rec % auxinput21_end_d (id_id) grid_config_rec % auxinput21_end_h = model_config_rec % auxinput21_end_h (id_id) grid_config_rec % auxinput21_end_m = model_config_rec % auxinput21_end_m (id_id) grid_config_rec % auxinput21_end_s = model_config_rec % auxinput21_end_s (id_id) grid_config_rec % auxinput21_end = model_config_rec % auxinput21_end (id_id) grid_config_rec % io_form_auxinput21 = model_config_rec % io_form_auxinput21 grid_config_rec % frames_per_auxinput21 = model_config_rec % frames_per_auxinput21 (id_id) grid_config_rec % auxinput22_inname = model_config_rec % auxinput22_inname grid_config_rec % auxinput22_outname = model_config_rec % auxinput22_outname grid_config_rec % auxinput22_interval_y = model_config_rec % auxinput22_interval_y (id_id) grid_config_rec % auxinput22_interval_d = model_config_rec % auxinput22_interval_d (id_id) grid_config_rec % auxinput22_interval_h = model_config_rec % auxinput22_interval_h (id_id) grid_config_rec % auxinput22_interval_m = model_config_rec % auxinput22_interval_m (id_id) grid_config_rec % auxinput22_interval_s = model_config_rec % auxinput22_interval_s (id_id) grid_config_rec % auxinput22_interval = model_config_rec % auxinput22_interval (id_id) grid_config_rec % auxinput22_begin_y = model_config_rec % auxinput22_begin_y (id_id) grid_config_rec % auxinput22_begin_d = model_config_rec % auxinput22_begin_d (id_id) grid_config_rec % auxinput22_begin_h = model_config_rec % auxinput22_begin_h (id_id) grid_config_rec % auxinput22_begin_m = model_config_rec % auxinput22_begin_m (id_id) grid_config_rec % auxinput22_begin_s = model_config_rec % auxinput22_begin_s (id_id) grid_config_rec % auxinput22_begin = model_config_rec % auxinput22_begin (id_id) grid_config_rec % auxinput22_end_y = model_config_rec % auxinput22_end_y (id_id) grid_config_rec % auxinput22_end_d = model_config_rec % auxinput22_end_d (id_id) grid_config_rec % auxinput22_end_h = model_config_rec % auxinput22_end_h (id_id) grid_config_rec % auxinput22_end_m = model_config_rec % auxinput22_end_m (id_id) grid_config_rec % auxinput22_end_s = model_config_rec % auxinput22_end_s (id_id) grid_config_rec % auxinput22_end = model_config_rec % auxinput22_end (id_id) grid_config_rec % io_form_auxinput22 = model_config_rec % io_form_auxinput22 grid_config_rec % frames_per_auxinput22 = model_config_rec % frames_per_auxinput22 (id_id) grid_config_rec % auxinput23_inname = model_config_rec % auxinput23_inname grid_config_rec % auxinput23_outname = model_config_rec % auxinput23_outname grid_config_rec % auxinput23_interval_y = model_config_rec % auxinput23_interval_y (id_id) grid_config_rec % auxinput23_interval_d = model_config_rec % auxinput23_interval_d (id_id) grid_config_rec % auxinput23_interval_h = model_config_rec % auxinput23_interval_h (id_id) grid_config_rec % auxinput23_interval_m = model_config_rec % auxinput23_interval_m (id_id) grid_config_rec % auxinput23_interval_s = model_config_rec % auxinput23_interval_s (id_id) grid_config_rec % auxinput23_interval = model_config_rec % auxinput23_interval (id_id) grid_config_rec % auxinput23_begin_y = model_config_rec % auxinput23_begin_y (id_id) grid_config_rec % auxinput23_begin_d = model_config_rec % auxinput23_begin_d (id_id) grid_config_rec % auxinput23_begin_h = model_config_rec % auxinput23_begin_h (id_id) grid_config_rec % auxinput23_begin_m = model_config_rec % auxinput23_begin_m (id_id) grid_config_rec % auxinput23_begin_s = model_config_rec % auxinput23_begin_s (id_id) grid_config_rec % auxinput23_begin = model_config_rec % auxinput23_begin (id_id) grid_config_rec % auxinput23_end_y = model_config_rec % auxinput23_end_y (id_id) grid_config_rec % auxinput23_end_d = model_config_rec % auxinput23_end_d (id_id) grid_config_rec % auxinput23_end_h = model_config_rec % auxinput23_end_h (id_id) grid_config_rec % auxinput23_end_m = model_config_rec % auxinput23_end_m (id_id) grid_config_rec % auxinput23_end_s = model_config_rec % auxinput23_end_s (id_id) grid_config_rec % auxinput23_end = model_config_rec % auxinput23_end (id_id) grid_config_rec % io_form_auxinput23 = model_config_rec % io_form_auxinput23 grid_config_rec % frames_per_auxinput23 = model_config_rec % frames_per_auxinput23 (id_id) grid_config_rec % auxinput24_inname = model_config_rec % auxinput24_inname grid_config_rec % auxinput24_outname = model_config_rec % auxinput24_outname grid_config_rec % auxinput24_interval_y = model_config_rec % auxinput24_interval_y (id_id) grid_config_rec % auxinput24_interval_d = model_config_rec % auxinput24_interval_d (id_id) grid_config_rec % auxinput24_interval_h = model_config_rec % auxinput24_interval_h (id_id) grid_config_rec % auxinput24_interval_m = model_config_rec % auxinput24_interval_m (id_id) grid_config_rec % auxinput24_interval_s = model_config_rec % auxinput24_interval_s (id_id) grid_config_rec % auxinput24_interval = model_config_rec % auxinput24_interval (id_id) grid_config_rec % auxinput24_begin_y = model_config_rec % auxinput24_begin_y (id_id) grid_config_rec % auxinput24_begin_d = model_config_rec % auxinput24_begin_d (id_id) grid_config_rec % auxinput24_begin_h = model_config_rec % auxinput24_begin_h (id_id) grid_config_rec % auxinput24_begin_m = model_config_rec % auxinput24_begin_m (id_id) grid_config_rec % auxinput24_begin_s = model_config_rec % auxinput24_begin_s (id_id) grid_config_rec % auxinput24_begin = model_config_rec % auxinput24_begin (id_id) grid_config_rec % auxinput24_end_y = model_config_rec % auxinput24_end_y (id_id) grid_config_rec % auxinput24_end_d = model_config_rec % auxinput24_end_d (id_id) grid_config_rec % auxinput24_end_h = model_config_rec % auxinput24_end_h (id_id) grid_config_rec % auxinput24_end_m = model_config_rec % auxinput24_end_m (id_id) grid_config_rec % auxinput24_end_s = model_config_rec % auxinput24_end_s (id_id) grid_config_rec % auxinput24_end = model_config_rec % auxinput24_end (id_id) grid_config_rec % io_form_auxinput24 = model_config_rec % io_form_auxinput24 grid_config_rec % frames_per_auxinput24 = model_config_rec % frames_per_auxinput24 (id_id) grid_config_rec % history_interval = model_config_rec % history_interval (id_id) grid_config_rec % frames_per_outfile = model_config_rec % frames_per_outfile (id_id) grid_config_rec % restart = model_config_rec % restart grid_config_rec % restart_interval = model_config_rec % restart_interval grid_config_rec % io_form_input = model_config_rec % io_form_input grid_config_rec % io_form_history = model_config_rec % io_form_history grid_config_rec % io_form_restart = model_config_rec % io_form_restart grid_config_rec % io_form_boundary = model_config_rec % io_form_boundary grid_config_rec % debug_level = model_config_rec % debug_level grid_config_rec % self_test_domain = model_config_rec % self_test_domain grid_config_rec % history_outname = model_config_rec % history_outname grid_config_rec % history_inname = model_config_rec % history_inname grid_config_rec % use_netcdf_classic = model_config_rec % use_netcdf_classic grid_config_rec % history_interval_d = model_config_rec % history_interval_d (id_id) grid_config_rec % history_interval_h = model_config_rec % history_interval_h (id_id) grid_config_rec % history_interval_m = model_config_rec % history_interval_m (id_id) grid_config_rec % history_interval_s = model_config_rec % history_interval_s (id_id) grid_config_rec % inputout_interval_d = model_config_rec % inputout_interval_d (id_id) grid_config_rec % inputout_interval_h = model_config_rec % inputout_interval_h (id_id) grid_config_rec % inputout_interval_m = model_config_rec % inputout_interval_m (id_id) grid_config_rec % inputout_interval_s = model_config_rec % inputout_interval_s (id_id) grid_config_rec % inputout_interval = model_config_rec % inputout_interval (id_id) grid_config_rec % restart_interval_d = model_config_rec % restart_interval_d grid_config_rec % restart_interval_h = model_config_rec % restart_interval_h grid_config_rec % restart_interval_m = model_config_rec % restart_interval_m grid_config_rec % restart_interval_s = model_config_rec % restart_interval_s grid_config_rec % history_begin_y = model_config_rec % history_begin_y (id_id) grid_config_rec % history_begin_d = model_config_rec % history_begin_d (id_id) grid_config_rec % history_begin_h = model_config_rec % history_begin_h (id_id) grid_config_rec % history_begin_m = model_config_rec % history_begin_m (id_id) grid_config_rec % history_begin_s = model_config_rec % history_begin_s (id_id) grid_config_rec % history_begin = model_config_rec % history_begin (id_id) grid_config_rec % inputout_begin_y = model_config_rec % inputout_begin_y (id_id) grid_config_rec % inputout_begin_d = model_config_rec % inputout_begin_d (id_id) grid_config_rec % inputout_begin_h = model_config_rec % inputout_begin_h (id_id) grid_config_rec % inputout_begin_m = model_config_rec % inputout_begin_m (id_id) grid_config_rec % inputout_begin_s = model_config_rec % inputout_begin_s (id_id) grid_config_rec % restart_begin_y = model_config_rec % restart_begin_y grid_config_rec % restart_begin_d = model_config_rec % restart_begin_d grid_config_rec % restart_begin_h = model_config_rec % restart_begin_h grid_config_rec % restart_begin_m = model_config_rec % restart_begin_m grid_config_rec % restart_begin_s = model_config_rec % restart_begin_s grid_config_rec % restart_begin = model_config_rec % restart_begin grid_config_rec % history_end_y = model_config_rec % history_end_y (id_id) grid_config_rec % history_end_d = model_config_rec % history_end_d (id_id) grid_config_rec % history_end_h = model_config_rec % history_end_h (id_id) grid_config_rec % history_end_m = model_config_rec % history_end_m (id_id) grid_config_rec % history_end_s = model_config_rec % history_end_s (id_id) grid_config_rec % history_end = model_config_rec % history_end (id_id) grid_config_rec % inputout_end_y = model_config_rec % inputout_end_y (id_id) grid_config_rec % inputout_end_d = model_config_rec % inputout_end_d (id_id) grid_config_rec % inputout_end_h = model_config_rec % inputout_end_h (id_id) grid_config_rec % inputout_end_m = model_config_rec % inputout_end_m (id_id) grid_config_rec % inputout_end_s = model_config_rec % inputout_end_s (id_id) grid_config_rec % simulation_start_year = model_config_rec % simulation_start_year grid_config_rec % simulation_start_month = model_config_rec % simulation_start_month grid_config_rec % simulation_start_day = model_config_rec % simulation_start_day grid_config_rec % simulation_start_hour = model_config_rec % simulation_start_hour grid_config_rec % simulation_start_minute = model_config_rec % simulation_start_minute grid_config_rec % simulation_start_second = model_config_rec % simulation_start_second grid_config_rec % reset_simulation_start = model_config_rec % reset_simulation_start grid_config_rec % sr_x = model_config_rec % sr_x (id_id) grid_config_rec % sr_y = model_config_rec % sr_y (id_id) grid_config_rec % sgfdda_inname = model_config_rec % sgfdda_inname grid_config_rec % gfdda_inname = model_config_rec % gfdda_inname grid_config_rec % sgfdda_interval_d = model_config_rec % sgfdda_interval_d (id_id) grid_config_rec % sgfdda_interval_h = model_config_rec % sgfdda_interval_h (id_id) grid_config_rec % sgfdda_interval_m = model_config_rec % sgfdda_interval_m (id_id) grid_config_rec % sgfdda_interval_s = model_config_rec % sgfdda_interval_s (id_id) grid_config_rec % sgfdda_interval_y = model_config_rec % sgfdda_interval_y (id_id) grid_config_rec % sgfdda_interval = model_config_rec % sgfdda_interval (id_id) grid_config_rec % gfdda_interval_d = model_config_rec % gfdda_interval_d (id_id) grid_config_rec % gfdda_interval_h = model_config_rec % gfdda_interval_h (id_id) grid_config_rec % gfdda_interval_m = model_config_rec % gfdda_interval_m (id_id) grid_config_rec % gfdda_interval_s = model_config_rec % gfdda_interval_s (id_id) grid_config_rec % gfdda_interval_y = model_config_rec % gfdda_interval_y (id_id) grid_config_rec % gfdda_interval = model_config_rec % gfdda_interval (id_id) grid_config_rec % sgfdda_begin_y = model_config_rec % sgfdda_begin_y (id_id) grid_config_rec % sgfdda_begin_d = model_config_rec % sgfdda_begin_d (id_id) grid_config_rec % sgfdda_begin_h = model_config_rec % sgfdda_begin_h (id_id) grid_config_rec % sgfdda_begin_m = model_config_rec % sgfdda_begin_m (id_id) grid_config_rec % sgfdda_begin_s = model_config_rec % sgfdda_begin_s (id_id) grid_config_rec % gfdda_begin_y = model_config_rec % gfdda_begin_y (id_id) grid_config_rec % gfdda_begin_d = model_config_rec % gfdda_begin_d (id_id) grid_config_rec % gfdda_begin_h = model_config_rec % gfdda_begin_h (id_id) grid_config_rec % gfdda_begin_m = model_config_rec % gfdda_begin_m (id_id) grid_config_rec % gfdda_begin_s = model_config_rec % gfdda_begin_s (id_id) grid_config_rec % sgfdda_end_y = model_config_rec % sgfdda_end_y (id_id) grid_config_rec % sgfdda_end_d = model_config_rec % sgfdda_end_d (id_id) grid_config_rec % sgfdda_end_h = model_config_rec % sgfdda_end_h (id_id) grid_config_rec % sgfdda_end_m = model_config_rec % sgfdda_end_m (id_id) grid_config_rec % sgfdda_end_s = model_config_rec % sgfdda_end_s (id_id) grid_config_rec % gfdda_end_y = model_config_rec % gfdda_end_y (id_id) grid_config_rec % gfdda_end_d = model_config_rec % gfdda_end_d (id_id) grid_config_rec % gfdda_end_h = model_config_rec % gfdda_end_h (id_id) grid_config_rec % gfdda_end_m = model_config_rec % gfdda_end_m (id_id) grid_config_rec % gfdda_end_s = model_config_rec % gfdda_end_s (id_id) grid_config_rec % io_form_sgfdda = model_config_rec % io_form_sgfdda grid_config_rec % io_form_gfdda = model_config_rec % io_form_gfdda grid_config_rec % iofields_filename = model_config_rec % iofields_filename (id_id) grid_config_rec % ignore_iofields_warning = model_config_rec % ignore_iofields_warning grid_config_rec % ncd_nofill = model_config_rec % ncd_nofill grid_config_rec % emi_inname = model_config_rec % emi_inname grid_config_rec % fireemi_inname = model_config_rec % fireemi_inname grid_config_rec % input_chem_inname = model_config_rec % input_chem_inname grid_config_rec % emi_outname = model_config_rec % emi_outname grid_config_rec % fireemi_outname = model_config_rec % fireemi_outname grid_config_rec % input_chem_outname = model_config_rec % input_chem_outname grid_config_rec % io_style_emissions = model_config_rec % io_style_emissions grid_config_rec % bioemdt = model_config_rec % bioemdt (id_id) grid_config_rec % photdt = model_config_rec % photdt (id_id) grid_config_rec % chemdt = model_config_rec % chemdt (id_id) grid_config_rec % ne_area = model_config_rec % ne_area grid_config_rec % kemit = model_config_rec % kemit grid_config_rec % nmegan = model_config_rec % nmegan grid_config_rec % kfuture = model_config_rec % kfuture grid_config_rec % kfire = model_config_rec % kfire grid_config_rec % kemit_aircraft = model_config_rec % kemit_aircraft grid_config_rec % kdvel = model_config_rec % kdvel grid_config_rec % ndepvel = model_config_rec % ndepvel grid_config_rec % kdepvel = model_config_rec % kdepvel grid_config_rec % erosion_dim = model_config_rec % erosion_dim grid_config_rec % biomass_emiss_opt = model_config_rec % biomass_emiss_opt (id_id) grid_config_rec % cam_mam_mode = model_config_rec % cam_mam_mode grid_config_rec % cam_mam_nspec = model_config_rec % cam_mam_nspec grid_config_rec % cam_mp_mam_cpled = model_config_rec % cam_mp_mam_cpled grid_config_rec % lightning_opt = model_config_rec % lightning_opt (id_id) grid_config_rec % lightning_time_step = model_config_rec % lightning_time_step (id_id) grid_config_rec % temp_upper = model_config_rec % temp_upper (id_id) grid_config_rec % temp_lower = model_config_rec % temp_lower (id_id) grid_config_rec % n_ic = model_config_rec % n_ic (id_id) grid_config_rec % n_cg = model_config_rec % n_cg (id_id) grid_config_rec % passive_ltng = model_config_rec % passive_ltng (id_id) grid_config_rec % lflash_data = model_config_rec % lflash_data grid_config_rec % flashrate_method = model_config_rec % flashrate_method (id_id) grid_config_rec % vprm_opt = model_config_rec % vprm_opt (id_id) grid_config_rec % wpeat = model_config_rec % wpeat grid_config_rec % wflood = model_config_rec % wflood grid_config_rec % term_opt = model_config_rec % term_opt (id_id) grid_config_rec % chem_conv_tr = model_config_rec % chem_conv_tr (id_id) grid_config_rec % conv_tr_wetscav = model_config_rec % conv_tr_wetscav (id_id) grid_config_rec % conv_tr_aqchem = model_config_rec % conv_tr_aqchem (id_id) grid_config_rec % chem_opt = model_config_rec % chem_opt (id_id) grid_config_rec % gaschem_onoff = model_config_rec % gaschem_onoff (id_id) grid_config_rec % aerchem_onoff = model_config_rec % aerchem_onoff (id_id) grid_config_rec % wetscav_onoff = model_config_rec % wetscav_onoff (id_id) grid_config_rec % dustwd_onoff = model_config_rec % dustwd_onoff (id_id) grid_config_rec % cldchem_onoff = model_config_rec % cldchem_onoff (id_id) grid_config_rec % is_full_tuv = model_config_rec % is_full_tuv (id_id) grid_config_rec % lambda_cutoff = model_config_rec % lambda_cutoff (id_id) grid_config_rec % cld_od_opt = model_config_rec % cld_od_opt (id_id) grid_config_rec % pht_cldfrc_opt = model_config_rec % pht_cldfrc_opt (id_id) grid_config_rec % vertmix_onoff = model_config_rec % vertmix_onoff (id_id) grid_config_rec % chem_in_opt = model_config_rec % chem_in_opt (id_id) grid_config_rec % phot_opt = model_config_rec % phot_opt (id_id) grid_config_rec % gas_drydep_opt = model_config_rec % gas_drydep_opt (id_id) grid_config_rec % aer_drydep_opt = model_config_rec % aer_drydep_opt (id_id) grid_config_rec % diagnostic_chem = model_config_rec % diagnostic_chem (id_id) grid_config_rec % aero_diag_opt = model_config_rec % aero_diag_opt (id_id) grid_config_rec % aero_cw_diag_opt = model_config_rec % aero_cw_diag_opt (id_id) grid_config_rec % aer_aerodynres_opt = model_config_rec % aer_aerodynres_opt (id_id) grid_config_rec % emiss_opt = model_config_rec % emiss_opt (id_id) grid_config_rec % emiss_opt_vol = model_config_rec % emiss_opt_vol (id_id) grid_config_rec % dust_opt = model_config_rec % dust_opt grid_config_rec % dust_schme = model_config_rec % dust_schme grid_config_rec % dmsemis_opt = model_config_rec % dmsemis_opt grid_config_rec % seas_opt = model_config_rec % seas_opt grid_config_rec % bio_emiss_opt = model_config_rec % bio_emiss_opt (id_id) grid_config_rec % biomass_burn_opt = model_config_rec % biomass_burn_opt (id_id) grid_config_rec % plumerisefire_frq = model_config_rec % plumerisefire_frq (id_id) grid_config_rec % emiss_inpt_opt = model_config_rec % emiss_inpt_opt (id_id) grid_config_rec % gas_bc_opt = model_config_rec % gas_bc_opt (id_id) grid_config_rec % gas_ic_opt = model_config_rec % gas_ic_opt (id_id) grid_config_rec % aer_bc_opt = model_config_rec % aer_bc_opt (id_id) grid_config_rec % aer_ic_opt = model_config_rec % aer_ic_opt (id_id) grid_config_rec % have_bcs_chem = model_config_rec % have_bcs_chem (id_id) grid_config_rec % have_bcs_tracer = model_config_rec % have_bcs_tracer (id_id) grid_config_rec % scale_fire_emiss = model_config_rec % scale_fire_emiss (id_id) grid_config_rec % aer_ra_feedback = model_config_rec % aer_ra_feedback (id_id) grid_config_rec % aer_op_opt = model_config_rec % aer_op_opt (id_id) grid_config_rec % opt_pars_out = model_config_rec % opt_pars_out grid_config_rec % diagnostic_dep = model_config_rec % diagnostic_dep (id_id) grid_config_rec % aircraft_emiss_opt = model_config_rec % aircraft_emiss_opt (id_id) grid_config_rec % have_bcs_upper = model_config_rec % have_bcs_upper (id_id) grid_config_rec % fixed_ubc_press = model_config_rec % fixed_ubc_press (id_id) grid_config_rec % fixed_ubc_inname = model_config_rec % fixed_ubc_inname grid_config_rec % trop_lev_inname = model_config_rec % trop_lev_inname grid_config_rec % exo_coldens_inname = model_config_rec % exo_coldens_inname (id_id) grid_config_rec % wes_seasonal_inname = model_config_rec % wes_seasonal_inname (id_id) grid_config_rec % chemdiag = model_config_rec % chemdiag (id_id) grid_config_rec % dust_alpha = model_config_rec % dust_alpha grid_config_rec % dust_gamma = model_config_rec % dust_gamma grid_config_rec % dust_smtune = model_config_rec % dust_smtune grid_config_rec % dust_ustune = model_config_rec % dust_ustune grid_config_rec % dust_dsr = model_config_rec % dust_dsr grid_config_rec % dust_veg = model_config_rec % dust_veg grid_config_rec % dust_soils = model_config_rec % dust_soils grid_config_rec % dust_smois = model_config_rec % dust_smois grid_config_rec % emiss_ash_hgt = model_config_rec % emiss_ash_hgt grid_config_rec % depo_fact = model_config_rec % depo_fact (id_id) grid_config_rec % track_chem_num = model_config_rec % track_chem_num grid_config_rec % track_chem_name = model_config_rec % track_chem_name (id_id) grid_config_rec % track_rad_num = model_config_rec % track_rad_num grid_config_rec % track_tuv_num = model_config_rec % track_tuv_num grid_config_rec % track_tuv_lev = model_config_rec % track_tuv_lev grid_config_rec % n2o5_hetchem = model_config_rec % n2o5_hetchem grid_config_rec % af_lambda_start = model_config_rec % af_lambda_start (id_id) grid_config_rec % af_lambda_end = model_config_rec % af_lambda_end (id_id) grid_config_rec % lnox_opt = model_config_rec % lnox_opt (id_id) grid_config_rec % lnox_passive = model_config_rec % lnox_passive (id_id) grid_config_rec % ltng_temp_upper = model_config_rec % ltng_temp_upper (id_id) grid_config_rec % ltng_temp_lower = model_config_rec % ltng_temp_lower (id_id) grid_config_rec % has_o3_exo_coldens = model_config_rec % has_o3_exo_coldens grid_config_rec % du_at_grnd = model_config_rec % du_at_grnd grid_config_rec % scale_o3_to_grnd_exo_coldens = model_config_rec % scale_o3_to_grnd_exo_coldens grid_config_rec % scale_o3_to_du_at_grnd = model_config_rec % scale_o3_to_du_at_grnd grid_config_rec % irr_opt = model_config_rec % irr_opt (id_id) grid_config_rec % ifire = model_config_rec % ifire (id_id) grid_config_rec % fire_boundary_guard = model_config_rec % fire_boundary_guard (id_id) grid_config_rec % fire_num_ignitions = model_config_rec % fire_num_ignitions (id_id) grid_config_rec % fire_ignition_ros1 = model_config_rec % fire_ignition_ros1 (id_id) grid_config_rec % fire_ignition_start_lon1 = model_config_rec % fire_ignition_start_lon1 (id_id) grid_config_rec % fire_ignition_start_lat1 = model_config_rec % fire_ignition_start_lat1 (id_id) grid_config_rec % fire_ignition_end_lon1 = model_config_rec % fire_ignition_end_lon1 (id_id) grid_config_rec % fire_ignition_end_lat1 = model_config_rec % fire_ignition_end_lat1 (id_id) grid_config_rec % fire_ignition_radius1 = model_config_rec % fire_ignition_radius1 (id_id) grid_config_rec % fire_ignition_start_time1 = model_config_rec % fire_ignition_start_time1 (id_id) grid_config_rec % fire_ignition_end_time1 = model_config_rec % fire_ignition_end_time1 (id_id) grid_config_rec % fire_ignition_ros2 = model_config_rec % fire_ignition_ros2 (id_id) grid_config_rec % fire_ignition_start_lon2 = model_config_rec % fire_ignition_start_lon2 (id_id) grid_config_rec % fire_ignition_start_lat2 = model_config_rec % fire_ignition_start_lat2 (id_id) grid_config_rec % fire_ignition_end_lon2 = model_config_rec % fire_ignition_end_lon2 (id_id) grid_config_rec % fire_ignition_end_lat2 = model_config_rec % fire_ignition_end_lat2 (id_id) grid_config_rec % fire_ignition_radius2 = model_config_rec % fire_ignition_radius2 (id_id) grid_config_rec % fire_ignition_start_time2 = model_config_rec % fire_ignition_start_time2 (id_id) grid_config_rec % fire_ignition_end_time2 = model_config_rec % fire_ignition_end_time2 (id_id) grid_config_rec % fire_ignition_ros3 = model_config_rec % fire_ignition_ros3 (id_id) grid_config_rec % fire_ignition_start_lon3 = model_config_rec % fire_ignition_start_lon3 (id_id) grid_config_rec % fire_ignition_start_lat3 = model_config_rec % fire_ignition_start_lat3 (id_id) grid_config_rec % fire_ignition_end_lon3 = model_config_rec % fire_ignition_end_lon3 (id_id) grid_config_rec % fire_ignition_end_lat3 = model_config_rec % fire_ignition_end_lat3 (id_id) grid_config_rec % fire_ignition_radius3 = model_config_rec % fire_ignition_radius3 (id_id) grid_config_rec % fire_ignition_start_time3 = model_config_rec % fire_ignition_start_time3 (id_id) grid_config_rec % fire_ignition_end_time3 = model_config_rec % fire_ignition_end_time3 (id_id) grid_config_rec % fire_ignition_ros4 = model_config_rec % fire_ignition_ros4 (id_id) grid_config_rec % fire_ignition_start_lon4 = model_config_rec % fire_ignition_start_lon4 (id_id) grid_config_rec % fire_ignition_start_lat4 = model_config_rec % fire_ignition_start_lat4 (id_id) grid_config_rec % fire_ignition_end_lon4 = model_config_rec % fire_ignition_end_lon4 (id_id) grid_config_rec % fire_ignition_end_lat4 = model_config_rec % fire_ignition_end_lat4 (id_id) grid_config_rec % fire_ignition_radius4 = model_config_rec % fire_ignition_radius4 (id_id) grid_config_rec % fire_ignition_start_time4 = model_config_rec % fire_ignition_start_time4 (id_id) grid_config_rec % fire_ignition_end_time4 = model_config_rec % fire_ignition_end_time4 (id_id) grid_config_rec % fire_ignition_ros5 = model_config_rec % fire_ignition_ros5 (id_id) grid_config_rec % fire_ignition_start_lon5 = model_config_rec % fire_ignition_start_lon5 (id_id) grid_config_rec % fire_ignition_start_lat5 = model_config_rec % fire_ignition_start_lat5 (id_id) grid_config_rec % fire_ignition_end_lon5 = model_config_rec % fire_ignition_end_lon5 (id_id) grid_config_rec % fire_ignition_end_lat5 = model_config_rec % fire_ignition_end_lat5 (id_id) grid_config_rec % fire_ignition_radius5 = model_config_rec % fire_ignition_radius5 (id_id) grid_config_rec % fire_ignition_start_time5 = model_config_rec % fire_ignition_start_time5 (id_id) grid_config_rec % fire_ignition_end_time5 = model_config_rec % fire_ignition_end_time5 (id_id) grid_config_rec % fire_ignition_start_x1 = model_config_rec % fire_ignition_start_x1 (id_id) grid_config_rec % fire_ignition_start_y1 = model_config_rec % fire_ignition_start_y1 (id_id) grid_config_rec % fire_ignition_end_x1 = model_config_rec % fire_ignition_end_x1 (id_id) grid_config_rec % fire_ignition_end_y1 = model_config_rec % fire_ignition_end_y1 (id_id) grid_config_rec % fire_ignition_start_x2 = model_config_rec % fire_ignition_start_x2 (id_id) grid_config_rec % fire_ignition_start_y2 = model_config_rec % fire_ignition_start_y2 (id_id) grid_config_rec % fire_ignition_end_x2 = model_config_rec % fire_ignition_end_x2 (id_id) grid_config_rec % fire_ignition_end_y2 = model_config_rec % fire_ignition_end_y2 (id_id) grid_config_rec % fire_ignition_start_x3 = model_config_rec % fire_ignition_start_x3 (id_id) grid_config_rec % fire_ignition_start_y3 = model_config_rec % fire_ignition_start_y3 (id_id) grid_config_rec % fire_ignition_end_x3 = model_config_rec % fire_ignition_end_x3 (id_id) grid_config_rec % fire_ignition_end_y3 = model_config_rec % fire_ignition_end_y3 (id_id) grid_config_rec % fire_ignition_start_x4 = model_config_rec % fire_ignition_start_x4 (id_id) grid_config_rec % fire_ignition_start_y4 = model_config_rec % fire_ignition_start_y4 (id_id) grid_config_rec % fire_ignition_end_x4 = model_config_rec % fire_ignition_end_x4 (id_id) grid_config_rec % fire_ignition_end_y4 = model_config_rec % fire_ignition_end_y4 (id_id) grid_config_rec % fire_ignition_start_x5 = model_config_rec % fire_ignition_start_x5 (id_id) grid_config_rec % fire_ignition_start_y5 = model_config_rec % fire_ignition_start_y5 (id_id) grid_config_rec % fire_ignition_end_x5 = model_config_rec % fire_ignition_end_x5 (id_id) grid_config_rec % fire_ignition_end_y5 = model_config_rec % fire_ignition_end_y5 (id_id) grid_config_rec % fire_lat_init = model_config_rec % fire_lat_init (id_id) grid_config_rec % fire_lon_init = model_config_rec % fire_lon_init (id_id) grid_config_rec % fire_ign_time = model_config_rec % fire_ign_time (id_id) grid_config_rec % fire_shape = model_config_rec % fire_shape (id_id) grid_config_rec % fire_sprd_mdl = model_config_rec % fire_sprd_mdl (id_id) grid_config_rec % fire_crwn_hgt = model_config_rec % fire_crwn_hgt (id_id) grid_config_rec % fire_ext_grnd = model_config_rec % fire_ext_grnd (id_id) grid_config_rec % fire_ext_crwn = model_config_rec % fire_ext_crwn (id_id) grid_config_rec % fire_wind_height = model_config_rec % fire_wind_height (id_id) grid_config_rec % fire_fuel_read = model_config_rec % fire_fuel_read (id_id) grid_config_rec % fire_fuel_cat = model_config_rec % fire_fuel_cat (id_id) grid_config_rec % fire_print_msg = model_config_rec % fire_print_msg (id_id) grid_config_rec % fire_print_file = model_config_rec % fire_print_file (id_id) grid_config_rec % fire_fuel_left_method = model_config_rec % fire_fuel_left_method (id_id) grid_config_rec % fire_fuel_left_irl = model_config_rec % fire_fuel_left_irl (id_id) grid_config_rec % fire_fuel_left_jrl = model_config_rec % fire_fuel_left_jrl (id_id) grid_config_rec % fire_back_weight = model_config_rec % fire_back_weight (id_id) grid_config_rec % fire_grows_only = model_config_rec % fire_grows_only (id_id) grid_config_rec % fire_upwinding = model_config_rec % fire_upwinding (id_id) grid_config_rec % fire_upwind_split = model_config_rec % fire_upwind_split (id_id) grid_config_rec % fire_viscosity = model_config_rec % fire_viscosity (id_id) grid_config_rec % fire_lfn_ext_up = model_config_rec % fire_lfn_ext_up (id_id) grid_config_rec % fire_topo_from_atm = model_config_rec % fire_topo_from_atm (id_id) grid_config_rec % fire_advection = model_config_rec % fire_advection (id_id) grid_config_rec % fire_test_steps = model_config_rec % fire_test_steps (id_id) grid_config_rec % fire_const_time = model_config_rec % fire_const_time (id_id) grid_config_rec % fire_const_grnhfx = model_config_rec % fire_const_grnhfx (id_id) grid_config_rec % fire_const_grnqfx = model_config_rec % fire_const_grnqfx (id_id) grid_config_rec % fire_atm_feedback = model_config_rec % fire_atm_feedback (id_id) grid_config_rec % fire_mountain_type = model_config_rec % fire_mountain_type (id_id) grid_config_rec % fire_mountain_height = model_config_rec % fire_mountain_height (id_id) grid_config_rec % fire_mountain_start_x = model_config_rec % fire_mountain_start_x (id_id) grid_config_rec % fire_mountain_start_y = model_config_rec % fire_mountain_start_y (id_id) grid_config_rec % fire_mountain_end_x = model_config_rec % fire_mountain_end_x (id_id) grid_config_rec % fire_mountain_end_y = model_config_rec % fire_mountain_end_y (id_id) grid_config_rec % delt_perturbation = model_config_rec % delt_perturbation (id_id) grid_config_rec % xrad_perturbation = model_config_rec % xrad_perturbation (id_id) grid_config_rec % yrad_perturbation = model_config_rec % yrad_perturbation (id_id) grid_config_rec % zrad_perturbation = model_config_rec % zrad_perturbation (id_id) grid_config_rec % hght_perturbation = model_config_rec % hght_perturbation (id_id) grid_config_rec % stretch_grd = model_config_rec % stretch_grd (id_id) grid_config_rec % stretch_hyp = model_config_rec % stretch_hyp (id_id) grid_config_rec % z_grd_scale = model_config_rec % z_grd_scale (id_id) grid_config_rec % sfc_full_init = model_config_rec % sfc_full_init (id_id) grid_config_rec % sfc_lu_index = model_config_rec % sfc_lu_index (id_id) grid_config_rec % sfc_tsk = model_config_rec % sfc_tsk (id_id) grid_config_rec % sfc_tmn = model_config_rec % sfc_tmn (id_id) grid_config_rec % fire_read_lu = model_config_rec % fire_read_lu (id_id) grid_config_rec % fire_read_tsk = model_config_rec % fire_read_tsk (id_id) grid_config_rec % fire_read_tmn = model_config_rec % fire_read_tmn (id_id) grid_config_rec % fire_read_atm_ht = model_config_rec % fire_read_atm_ht (id_id) grid_config_rec % fire_read_fire_ht = model_config_rec % fire_read_fire_ht (id_id) grid_config_rec % fire_read_atm_grad = model_config_rec % fire_read_atm_grad (id_id) grid_config_rec % fire_read_fire_grad = model_config_rec % fire_read_fire_grad (id_id) grid_config_rec % sfc_vegfra = model_config_rec % sfc_vegfra (id_id) grid_config_rec % sfc_canwat = model_config_rec % sfc_canwat (id_id) grid_config_rec % sfc_ivgtyp = model_config_rec % sfc_ivgtyp (id_id) grid_config_rec % sfc_isltyp = model_config_rec % sfc_isltyp (id_id) grid_config_rec % do_avgflx_em = model_config_rec % do_avgflx_em (id_id) grid_config_rec % do_avgflx_cugd = model_config_rec % do_avgflx_cugd (id_id) grid_config_rec % nens = model_config_rec % nens grid_config_rec % skebs = model_config_rec % skebs (id_id) grid_config_rec % stoch_force_opt = model_config_rec % stoch_force_opt (id_id) grid_config_rec % skebs_vertstruc = model_config_rec % skebs_vertstruc grid_config_rec % stoch_vertstruc_opt = model_config_rec % stoch_vertstruc_opt (id_id) grid_config_rec % tot_backscat_psi = model_config_rec % tot_backscat_psi (id_id) grid_config_rec % tot_backscat_t = model_config_rec % tot_backscat_t (id_id) grid_config_rec % ztau_psi = model_config_rec % ztau_psi grid_config_rec % ztau_t = model_config_rec % ztau_t grid_config_rec % rexponent_psi = model_config_rec % rexponent_psi grid_config_rec % rexponent_t = model_config_rec % rexponent_t grid_config_rec % zsigma2_eps = model_config_rec % zsigma2_eps grid_config_rec % zsigma2_eta = model_config_rec % zsigma2_eta grid_config_rec % kminforc = model_config_rec % kminforc grid_config_rec % lminforc = model_config_rec % lminforc grid_config_rec % kminforct = model_config_rec % kminforct grid_config_rec % lminforct = model_config_rec % lminforct grid_config_rec % kmaxforc = model_config_rec % kmaxforc grid_config_rec % lmaxforc = model_config_rec % lmaxforc grid_config_rec % kmaxforct = model_config_rec % kmaxforct grid_config_rec % lmaxforct = model_config_rec % lmaxforct grid_config_rec % iseed_skebs = model_config_rec % iseed_skebs grid_config_rec % kmaxforch = model_config_rec % kmaxforch grid_config_rec % lmaxforch = model_config_rec % lmaxforch grid_config_rec % kmaxforcth = model_config_rec % kmaxforcth grid_config_rec % lmaxforcth = model_config_rec % lmaxforcth grid_config_rec % sppt = model_config_rec % sppt (id_id) grid_config_rec % gridpt_stddev_sppt = model_config_rec % gridpt_stddev_sppt (id_id) grid_config_rec % stddev_cutoff_sppt = model_config_rec % stddev_cutoff_sppt (id_id) grid_config_rec % lengthscale_sppt = model_config_rec % lengthscale_sppt (id_id) grid_config_rec % timescale_sppt = model_config_rec % timescale_sppt (id_id) grid_config_rec % sppt_vertstruc = model_config_rec % sppt_vertstruc grid_config_rec % iseed_sppt = model_config_rec % iseed_sppt grid_config_rec % rand_perturb = model_config_rec % rand_perturb (id_id) grid_config_rec % gridpt_stddev_rand_pert = model_config_rec % gridpt_stddev_rand_pert (id_id) grid_config_rec % stddev_cutoff_rand_pert = model_config_rec % stddev_cutoff_rand_pert (id_id) grid_config_rec % lengthscale_rand_pert = model_config_rec % lengthscale_rand_pert (id_id) grid_config_rec % timescale_rand_pert = model_config_rec % timescale_rand_pert (id_id) grid_config_rec % rand_pert_vertstruc = model_config_rec % rand_pert_vertstruc grid_config_rec % iseed_rand_pert = model_config_rec % iseed_rand_pert grid_config_rec % spp = model_config_rec % spp (id_id) grid_config_rec % hrrr_cycling = model_config_rec % hrrr_cycling grid_config_rec % spp_conv = model_config_rec % spp_conv (id_id) grid_config_rec % gridpt_stddev_spp_conv = model_config_rec % gridpt_stddev_spp_conv (id_id) grid_config_rec % stddev_cutoff_spp_conv = model_config_rec % stddev_cutoff_spp_conv (id_id) grid_config_rec % lengthscale_spp_conv = model_config_rec % lengthscale_spp_conv (id_id) grid_config_rec % timescale_spp_conv = model_config_rec % timescale_spp_conv (id_id) grid_config_rec % vertstruc_spp_conv = model_config_rec % vertstruc_spp_conv grid_config_rec % iseed_spp_conv = model_config_rec % iseed_spp_conv grid_config_rec % spp_pbl = model_config_rec % spp_pbl (id_id) grid_config_rec % gridpt_stddev_spp_pbl = model_config_rec % gridpt_stddev_spp_pbl (id_id) grid_config_rec % stddev_cutoff_spp_pbl = model_config_rec % stddev_cutoff_spp_pbl (id_id) grid_config_rec % lengthscale_spp_pbl = model_config_rec % lengthscale_spp_pbl (id_id) grid_config_rec % timescale_spp_pbl = model_config_rec % timescale_spp_pbl (id_id) grid_config_rec % vertstruc_spp_pbl = model_config_rec % vertstruc_spp_pbl grid_config_rec % iseed_spp_pbl = model_config_rec % iseed_spp_pbl grid_config_rec % spp_lsm = model_config_rec % spp_lsm (id_id) grid_config_rec % gridpt_stddev_spp_lsm = model_config_rec % gridpt_stddev_spp_lsm (id_id) grid_config_rec % stddev_cutoff_spp_lsm = model_config_rec % stddev_cutoff_spp_lsm (id_id) grid_config_rec % lengthscale_spp_lsm = model_config_rec % lengthscale_spp_lsm (id_id) grid_config_rec % timescale_spp_lsm = model_config_rec % timescale_spp_lsm (id_id) grid_config_rec % vertstruc_spp_lsm = model_config_rec % vertstruc_spp_lsm grid_config_rec % iseed_spp_lsm = model_config_rec % iseed_spp_lsm grid_config_rec % skebs_on = model_config_rec % skebs_on grid_config_rec % sppt_on = model_config_rec % sppt_on grid_config_rec % spp_on = model_config_rec % spp_on grid_config_rec % rand_perturb_on = model_config_rec % rand_perturb_on grid_config_rec % num_stoch_levels = model_config_rec % num_stoch_levels grid_config_rec % sfs_opt = model_config_rec % sfs_opt (id_id) grid_config_rec % m_opt = model_config_rec % m_opt (id_id) grid_config_rec % lakedepth_default = model_config_rec % lakedepth_default (id_id) grid_config_rec % lake_min_elev = model_config_rec % lake_min_elev (id_id) grid_config_rec % use_lakedepth = model_config_rec % use_lakedepth (id_id) grid_config_rec % p_lev_diags = model_config_rec % p_lev_diags grid_config_rec % p_lev_diags_dfi = model_config_rec % p_lev_diags_dfi grid_config_rec % num_press_levels = model_config_rec % num_press_levels grid_config_rec % press_levels = model_config_rec % press_levels (id_id) grid_config_rec % use_tot_or_hyd_p = model_config_rec % use_tot_or_hyd_p grid_config_rec % extrap_below_grnd = model_config_rec % extrap_below_grnd grid_config_rec % p_lev_missing = model_config_rec % p_lev_missing grid_config_rec % p_lev_interval = model_config_rec % p_lev_interval (id_id) grid_config_rec % z_lev_diags = model_config_rec % z_lev_diags grid_config_rec % z_lev_diags_dfi = model_config_rec % z_lev_diags_dfi grid_config_rec % num_z_levels = model_config_rec % num_z_levels grid_config_rec % z_levels = model_config_rec % z_levels (id_id) grid_config_rec % z_lev_missing = model_config_rec % z_lev_missing grid_config_rec % z_lev_interval = model_config_rec % z_lev_interval (id_id) grid_config_rec % afwa_diag_opt = model_config_rec % afwa_diag_opt (id_id) grid_config_rec % afwa_ptype_opt = model_config_rec % afwa_ptype_opt (id_id) grid_config_rec % afwa_vil_opt = model_config_rec % afwa_vil_opt (id_id) grid_config_rec % afwa_radar_opt = model_config_rec % afwa_radar_opt (id_id) grid_config_rec % afwa_severe_opt = model_config_rec % afwa_severe_opt (id_id) grid_config_rec % afwa_icing_opt = model_config_rec % afwa_icing_opt (id_id) grid_config_rec % afwa_vis_opt = model_config_rec % afwa_vis_opt (id_id) grid_config_rec % afwa_cloud_opt = model_config_rec % afwa_cloud_opt (id_id) grid_config_rec % afwa_therm_opt = model_config_rec % afwa_therm_opt (id_id) grid_config_rec % afwa_turb_opt = model_config_rec % afwa_turb_opt (id_id) grid_config_rec % afwa_buoy_opt = model_config_rec % afwa_buoy_opt (id_id) grid_config_rec % afwa_ptype_ccn_tmp = model_config_rec % afwa_ptype_ccn_tmp grid_config_rec % afwa_ptype_tot_melt = model_config_rec % afwa_ptype_tot_melt grid_config_rec % afwa_bad_data_check = model_config_rec % afwa_bad_data_check grid_config_rec % mean_diag = model_config_rec % mean_diag grid_config_rec % mean_freq = model_config_rec % mean_freq grid_config_rec % mean_interval = model_config_rec % mean_interval grid_config_rec % diurnal_diag = model_config_rec % diurnal_diag grid_config_rec % nssl_ipelec = model_config_rec % nssl_ipelec (id_id) grid_config_rec % nssl_isaund = model_config_rec % nssl_isaund grid_config_rec % nssl_iscreen = model_config_rec % nssl_iscreen grid_config_rec % nssl_lightrad = model_config_rec % nssl_lightrad grid_config_rec % nssl_idischarge = model_config_rec % nssl_idischarge grid_config_rec % nssl_ibrkd = model_config_rec % nssl_ibrkd grid_config_rec % nssl_ecrit = model_config_rec % nssl_ecrit grid_config_rec % nssl_disfrac = model_config_rec % nssl_disfrac grid_config_rec % elec_physics = model_config_rec % elec_physics grid_config_rec % perturb_bdy = model_config_rec % perturb_bdy grid_config_rec % perturb_chem_bdy = model_config_rec % perturb_chem_bdy grid_config_rec % num_gca_levels = model_config_rec % num_gca_levels grid_config_rec % gca_input_opt = model_config_rec % gca_input_opt grid_config_rec % hybrid_opt = model_config_rec % hybrid_opt grid_config_rec % etac = model_config_rec % etac grid_config_rec % num_wif_levels = model_config_rec % num_wif_levels grid_config_rec % wif_input_opt = model_config_rec % wif_input_opt END SUBROUTINE model_to_grid_config_rec FUNCTION in_use_for_config ( id, vname ) RESULT ( in_use ) INTEGER, INTENT(IN) :: id CHARACTER*(*), INTENT(IN) :: vname LOGICAL in_use INTEGER uses uses = 0 in_use = .TRUE. IF ( vname(1:1) .EQ. 'a' ) THEN IF(TRIM(vname).EQ.'abstot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'absnxt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'abstot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'absnxt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'aclwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'acswuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'acswupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'acswdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'a_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'a_v_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'a_t_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'a_q_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'a_e_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'a_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'a_v_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'a_t_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'a_q_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'a_e_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'a_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'a_v_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'a_t_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'a_q_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'a_e_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'acrunoff')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'alboldxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'aparxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'areaxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'albedosubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'albedo_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'albbck_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'aquad_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'aerodm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aer_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aer_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'aod5503d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aer_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aer_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'albsi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%seaice_albedo_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%seaice_albedo_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'adjcoe')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'af_dir')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'af_dn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'af_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_a05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_a06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_a07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_a08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ant_v1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ant_v2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ant_v3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ant_v4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'asmpsoa_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'asmpsoa_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'asmpsoa_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'asmpsoa_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_cw01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_cw02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_cw03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_cw04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_cw05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_cw06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_cw07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'arosoa_cw08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ant_cw_v1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_dustloft')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dust_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dust_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'avg_fuel_frac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_rum')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_em(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_em(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_rvm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_em(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_em(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_wwm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_em(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_em(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_cfu1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_cfd1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_dfu1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_efu1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_dfd1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'avgflx_efd1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_mslp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_pwat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_precip')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_ptype_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_ptype_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_totprecip')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_ptype_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_ptype_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_rain')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_ptype_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_ptype_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_ptype_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_ptype_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_ptype_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_ptype_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_fzra')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_ptype_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_ptype_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_snowfall')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_ptype_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_ptype_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_hail')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_cape')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_zlfc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_plfc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_lidx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_cin')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_tornado')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_llws')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_cloud_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_cloud_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_cloud_ceil')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_cloud_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_cloud_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_vis')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_vis_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_vis_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_vis_dust')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_vis_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_vis_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_vis_alpha')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_vis_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_vis_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_heatidx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_therm_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_therm_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_wchill')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_therm_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_therm_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_fits')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_therm_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_therm_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_turb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_turb_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_turb_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_llturb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_turb_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_turb_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_llturblgt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_turb_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_turb_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_llturbmdt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_turb_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_turb_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_llturbsvr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_turb_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_turb_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_tlyrbot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_turb_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_turb_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_tlyrtop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_turb_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_turb_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_cape')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_buoy_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_buoy_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_zlfc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_buoy_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_buoy_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_plfc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_buoy_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_buoy_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_lidx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_buoy_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_buoy_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_cape_mu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_buoy_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_buoy_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_cin')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_buoy_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_buoy_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'afwa_cin_mu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_buoy_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_buoy_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'albedo12m')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'albedo12m')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'b' ) THEN IF(TRIM(vname).EQ.'b_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'b_v_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'b_t_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'b_q_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'b_e_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'b_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'b_v_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'b_t_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'b_q_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'b_e_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'b_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'b_v_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'b_t_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'b_q_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'b_e_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'bgapxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'bwo1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bto1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bio1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'blo1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bwo2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bto2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bio2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'blo2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bwo3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bto3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bio3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'blo3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bwo4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bto4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bio4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'blo4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'bquad_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'bogbot_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'bogtop_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_a05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_a06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_a07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_a08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_a05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_a06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_a07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_a08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_a05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_a06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_a07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_a08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_c')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_v1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_v2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_v3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_v4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_cw01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_cw02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_cw03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_cw04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_cw05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_cw06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_cw07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bboa_cw08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw_c')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbsoa_cw_o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'biog_cw_v1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'bbb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'betafl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'c' ) THEN IF(TRIM(vname).EQ.'cldfra_old_mp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfra_mp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfra_mp_all')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfra_conv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfrai')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfral')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'cmcr_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cmgr_sfcdif')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'chgr_sfcdif')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cm_ac_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'canliqxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'canicexy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'cmxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'chxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'chvxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'chbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'chleafxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'chucxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'chv2xy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'chb2xy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'chstarxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'croptype')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'cropcat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'canfra')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'cto1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'cto2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'cto3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'cto4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'canwat_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'cf3d_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'cfm_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfra_bl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%icloud_bl.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%icloud_bl.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qvten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_tten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qvtens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_ttens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qcten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qvten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_tten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qvtens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_ttens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cugd_qcten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'cmfmc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'cmfmcdzm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'cape')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfratend_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfra_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfra_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cam_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cam_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cmfmc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cmfmc2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cbmf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cin_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cinlcl_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cbmflimit_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cufrc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cquad_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cmfsl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cmflq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cldfrash')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cush')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cg_flashcount')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cg_flashrate')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cg_flashcount')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cg_flashrate')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cg_flashcount')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'cg_flashrate')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'canhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'canqfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'cfu1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cfd1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'csol3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cl_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'cf_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'car_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'd' ) THEN IF(TRIM(vname).EQ.'dp3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'dlf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'dlf2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'di3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'di3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.16 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.16 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.16 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.16 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.16 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.16 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.17 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.17 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.17 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.17 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.17 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.17 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.18 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.18 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.18 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.18 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.18 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.18 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics_dfi(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics_dfi(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'dlg_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dl_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'drelr_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'drelb_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'drelg_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dlg_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dl_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dlg_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dl_u_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'deeprechxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'dzsnow1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'dzsnow2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'dzsnow3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'dzsnow4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'dzsnow5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'dzo1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'dzo2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'dzo3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'dzo4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'detr_edkf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'dqke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_tkebudget(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_tkebudget(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dp3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'du3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'dsubcld2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'dlf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'ddr_kf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%kf_edrates(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%kf_edrates(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'der_kf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%kf_edrates(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%kf_edrates(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dlf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dlf2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dwten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'diten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfgdp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grav_settling(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grav_settling(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfgdp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grav_settling(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grav_settling(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dif_analysis')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dif_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dif_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dtaux3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dtauy3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dusfcg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dvsfcg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_u')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_v')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_w')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_phb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph0')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_php')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_t')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ww')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_mu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_pb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_al')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_alt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tslb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smois')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_canwat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smfr3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_keepfr3dflag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_soilt1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsnav')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_qvg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_rh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tten_rad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_u')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_v')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_w')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_phb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph0')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_php')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_t')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ww')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_mu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_pb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_al')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_alt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tslb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smois')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_canwat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smfr3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_keepfr3dflag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_soilt1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsnav')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_qvg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_rh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tten_rad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_u')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_v')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_w')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_phb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ph0')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_php')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_t')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_ww')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_mu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_pb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_al')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_alt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tslb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smois')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_canwat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_smfr3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_keepfr3dflag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_soilt1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tsnav')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_snowc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_qvg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_rh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dfi_tten_rad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dfi_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dfi_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'dum_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dt_cld')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'dfu1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dfd1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dz_lake3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'dz3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'e' ) THEN IF(TRIM(vname).EQ.'emstot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'emstot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'eahxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ecanxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'edirxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'etranxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'evgxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'evbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'evcxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'eqzwt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'emiss_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'embck_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'el_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'el_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'entr_edkf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'el_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'el_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'el_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'el_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'exch_tke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.12 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.12 ENDIF ENDIF IF(TRIM(vname).EQ.'el_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.12 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.12 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_a')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_w')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_thl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_qt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_ent')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_qc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_a')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_w')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_thl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_qt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_ent')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'edmf_qc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_edmf(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_edmf(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'evaptzm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'evsntzm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'evapqzm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'evapcdp3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'ed3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'eu3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'emkfbup_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'excessu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'excessu0_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_uwcu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_conden_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_klclmkx_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_klfcmkx_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_ufrc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_wtw_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_drycore_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_wu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_cufliter_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_kinv1_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'exit_rei_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'evapcsh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'efmegan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ebio_co2oce')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.16 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.16 ENDIF ENDIF IF(TRIM(vname).EQ.'ebio_co2oce')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.17 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.17 ENDIF ENDIF IF(TRIM(vname).EQ.'efu1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'efd1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%do_avgflx_cugd(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%do_avgflx_cugd(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'echotop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_radar_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_radar_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'elecmag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'elecx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'elecy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'elecz')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'elecmag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'elecx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'elecy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'elecz')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'elecmag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'elecx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'elecy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'elecz')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'f' ) THEN IF(TRIM(vname).EQ.'f_ice_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'f_rain_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'f_rimef_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'f_ice_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.95 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.95 ENDIF ENDIF IF(TRIM(vname).EQ.'f_rain_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.95 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.95 ENDIF ENDIF IF(TRIM(vname).EQ.'f_rimef_phy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.95 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.95 ENDIF ENDIF IF(TRIM(vname).EQ.'flxhumr_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'flxhumb_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'flxhumg_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'flx4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fvb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fbur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fgsn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fwetxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'fastcpxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'fvegxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'fsaxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'firaxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'fdepthxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'fio1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'flo1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'fio2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'flo2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'fio3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'flo3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'fio4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'flo4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'frac_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'fzsntzm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'fcvt_qc_to_pr_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'fcvt_qc_to_qi_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'fcvt_qi_to_pr_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'fer_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fdr_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'flxrain_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'flxsnow_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fgdp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grav_settling(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grav_settling(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'fgdp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grav_settling(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grav_settling(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fdob')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%obs_nudge_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%obs_nudge_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'fourd_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agtf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agef')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agsv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_aggr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agtf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agef')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agsv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_aggr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agtf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agef')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agsv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_aggr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agtf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agef')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_agsv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'firesize_aggr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'fuel_frac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fire_area')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fgrnhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fgrnqfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fcanhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fcanhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fcanqfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fxlong')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fxlat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fuel_time')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fgip')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'field_conv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'field_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'field_sf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'fzlev')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'flshi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'flshn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'flshp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'flshi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'flshn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'flshp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'field_u_tend_perturb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%perturb_bdy.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%perturb_bdy.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'field_v_tend_perturb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%perturb_bdy.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%perturb_bdy.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'field_t_tend_perturb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%perturb_bdy.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%perturb_bdy.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'fad0_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'fad135_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'fad45_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'fad90_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'g' ) THEN IF(TRIM(vname).EQ.'gppxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ghvxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ghbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'gddxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'grainxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'grdflx_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'g_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'gd_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_diag(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_diag(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'gd_cloud2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_diag(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_diag(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'gd_cldfr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_diag(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_diag(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'gd_cloud_a')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_diag(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_diag(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'gd_cloud2_a')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_diag(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_diag(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'grpl_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nwp_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nwp_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ght_max_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nest_interp_coord.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nest_interp_coord.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ght_min_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nest_interp_coord.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nest_interp_coord.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'grnhfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'grnqfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ght_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ght_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'grpl_flx_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'glw_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'glw_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ght_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'greenfrac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ght_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'greenfrac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'h' ) THEN IF(TRIM(vname).EQ.'hgt_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hi_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'hgt_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'hi_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'hgt_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'harvest')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osno')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2ocan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2ocan_col')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq_s1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq_s2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq_s3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq_s4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq_s5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq6')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq7')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq8')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq9')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq10')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice_s1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice_s2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice_s3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice_s4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice_s5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice6')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice7')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice8')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice9')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice10')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol6')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol7')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol8')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol9')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol10')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'hfxsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'ho1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ho2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ho3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ho4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'hfx_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hd_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'hct_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'hfx_fdda')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hfx_fdda')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hfx_both')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'hfx_fdda')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'hml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h0ml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'huml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hvml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'h0ml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'huml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'hvml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'hail_maxk1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nwp_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nwp_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hail_max2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nwp_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nwp_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hailcast_diam_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%hailcast_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%hailcast_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hailcast_diam_std')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%hailcast_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%hailcast_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hailcast_dhail1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%hailcast_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%hailcast_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hailcast_dhail2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%hailcast_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%hailcast_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hailcast_dhail3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%hailcast_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%hailcast_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hailcast_dhail4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%hailcast_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%hailcast_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hailcast_dhail5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%hailcast_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%hailcast_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_a05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_a06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_a07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_a08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_a05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_a06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_a07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_a08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_c')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_cw01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_cw02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_cw03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_cw04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_cw05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_cw06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_cw07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hoa_cw08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw_c')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hsoa_cw_o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osno2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_ice3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_liq3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2osoi_vol3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'height')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.30 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.30 ENDIF ENDIF IF(TRIM(vname).EQ.'height')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'hfx_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hfx_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_now')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_jan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_feb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_mar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_apr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_may')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_jun')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_jul')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_aug')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_sep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_oct')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_nov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2o2_gca_dec')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ht_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'h2w_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hgtmaxw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'hgttrop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ht_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'i' ) THEN IF(TRIM(vname).EQ.'icwmrdp3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'iradius')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'isnowxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'irgxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ircxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'irbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'imperv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'isnow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'icwmrdp3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'ideep2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'ind_delcin_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'icwmrsh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'i_rainc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketr_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketr_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_rainnc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketr_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketr_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_acswupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_acswuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_acswdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_acswdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_acswupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_acswupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_acswdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_acswdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_aclwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bucketf_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bucketf_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'icedepth')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%seaice_thickness_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%seaice_thickness_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ic_flashcount')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ic_flashrate')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ic_flashcount')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ic_flashrate')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ic_flashcount')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'ic_flashrate')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'ischap')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'icingtop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'icingbot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'icing_lg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'icing_sm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'induc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'induc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'induc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_now')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_jan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_feb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_mar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_apr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_may')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_jun')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_jul')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_aug')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_sep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_oct')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_nov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'i_wif_dec')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'intq_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'icefrac_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'intq_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'icefrac_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'j' ) THEN IF(TRIM(vname).EQ.'jt2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'k' ) THEN IF(TRIM(vname).EQ.'keepfr3dflag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'kh_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'km_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'k22_shallow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'kbcon_shallow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ktop_shallow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'k22_shallow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'kbcon_shallow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'ktop_shallow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'kbcon_deep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_diag(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_diag(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ktop_deep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_diag(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_diag(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'k22_deep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_diag(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_diag(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_ql')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_qic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_qip')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_qid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_qs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_qg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_qh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_qa')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_ft_qic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_ft_qip')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_ft_qid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_ft_qs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'kext_ft_qg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'l' ) THEN IF(TRIM(vname).EQ.'lcd_old_mp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'lradius')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'lwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lf_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lp_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lb_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lp_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lb_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lf_ac_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lfvent_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lp_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lb_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lfmassxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'lwup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'lhsoi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'lhveg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'lhtran')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'lhsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'lh_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lh_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'landusef2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lcl_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'lengath2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'lnterms')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_shcu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_negcon_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_ufrc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_ppen_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_emf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_cinlcl_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_cin_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_cbmf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'limit_rei_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lpi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%lightning_option(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%lightning_option(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lfn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lfn_hist')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lfn_time')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lake2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lakedepth2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lake_icefrac3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lh_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupb_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupt_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnt_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lh_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupb_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lwupt_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lwdnt_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'light')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lightdens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'lightdis')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'light')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lightdens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'lightdis')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'light')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lightdens')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lightdis')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'lai12m')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'm' ) THEN IF(TRIM(vname).EQ.'mh_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'mosaic_cat_index')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'massflux_edkf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'mf_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'md3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'mu3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'maxg2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'mfup_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'mfup_ent_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'mfdn_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'mfdn_ent_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'max_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nest_interp_coord.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nest_interp_coord.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'min_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nest_interp_coord.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nest_interp_coord.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'mebio_isop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mebio_apin')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mebio_bcar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mebio_acet')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mebio_mbo')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mebio_no')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'msebio_isop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mlai')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mtsa')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mswdown')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agtf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agef')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agsv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_aggr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agtf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agef')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agsv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_aggr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agtf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agef')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agsv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_aggr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agtf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agef')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_agsv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'mean_fct_aggr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%biomass_burn_opt(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%biomass_burn_opt(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'midrh_min')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'midrh_min_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'n' ) THEN IF(TRIM(vname).EQ.'neexy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'nppxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'nonriverxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'numc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'nump')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'nrasubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'ntraprd_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ntsnprd_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'nfuel_cat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'noninduc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'noninduc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'noninduc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_now')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_jan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_feb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_mar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_apr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_may')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_jun')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_jul')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_aug')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_sep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_oct')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_nov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'no3_gca_dec')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'o' ) THEN IF(TRIM(vname).EQ.'o3rad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'o3rad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'o3rad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'o3rad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'odis_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'odis_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'obs_savwt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%obs_nudge_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%obs_nudge_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'odis_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'odis_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'oc12d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oa1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oa2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oa3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oa4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ol1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ol2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ol3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ol4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gwd_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gwd_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'om_tmp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_s')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_depth')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_u')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_v')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_lat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_lon')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_ml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_tini')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'om_sini')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_now')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_jan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_feb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_mar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_apr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_may')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_jun')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_jul')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_aug')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_sep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_oct')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_nov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'oh_gca_dec')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'p' ) THEN IF(TRIM(vname).EQ.'precipfr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'psnxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'pexpxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'planting')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'pgsxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'precz')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'preccdzm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'pconvb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'pconvt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'plcl_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'pinv_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'plfc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'pbup_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ppen_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'psl_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ps_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'psl_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ps_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'psl_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ps_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'psl_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ps_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'prec_acc_c')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%prec_acc_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%prec_acc_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'prec_acc_nc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%prec_acc_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%prec_acc_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'power')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%windfarm_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%windfarm_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o31d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o33p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no3o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no3o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_h2o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch2or')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch2om')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3cho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coch3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coc2h5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcocho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3cocho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcochest')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3o2h')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coo2h')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3ono2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcochob')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_macr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_n2o5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_pan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acet')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mglo')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno4_2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_n2o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_pooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mpan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mvk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_etooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_prooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_onitr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acetol')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_glyald')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hyac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mek')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_open')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_gly')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acetp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_xooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_isooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_alkooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mekooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_tolooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_terpooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_cl2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hocl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_fmcl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o31d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o33p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no3o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no3o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_h2o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch2or')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch2om')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3cho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coch3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coc2h5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcocho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3cocho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcochest')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3o2h')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coo2h')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3ono2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcochob')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_macr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_n2o5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_pan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acet')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mglo')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno4_2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_n2o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_pooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mpan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mvk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_etooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_prooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_onitr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acetol')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_glyald')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hyac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mek')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_open')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_gly')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acetp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_xooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_isooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_alkooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mekooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_tolooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_terpooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_cl2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hocl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_fmcl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'phrate')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o31d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o33p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no3o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no3o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_h2o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch2or')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch2om')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3cho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coch3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coc2h5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcocho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3cocho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcochest')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3o2h')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coo2h')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3ono2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcochob')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_macr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_n2o5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_pan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acet')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mglo')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno4_2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_n2o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_pooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mpan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mvk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_etooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_prooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_onitr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acetol')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_glyald')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hyac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mek')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_open')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_gly')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acetp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_xooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_isooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_alkooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mekooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_tolooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_terpooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_cl2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hocl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_fmcl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_par')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_erythema')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o31d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o33p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no3o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_no3o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_h2o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch2or')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch2om')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3cho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coch3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coc2h5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcocho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3cocho')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcochest')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3o2h')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3coo2h')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_ch3ono2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hcochob')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_macr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_n2o5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_o2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_pan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acet')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mglo')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hno4_2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_n2o')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_pooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mpan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mvk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_etooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_prooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_onitr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acetol')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_glyald')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hyac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mek')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_open')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_gly')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_acetp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_xooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_isooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_alkooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_mekooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_tolooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_terpooh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_cl2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_hocl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'ph_fmcl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'pftp_bt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'pftp_nt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'pftp_sb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'pftp_hb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bio_emiss_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bio_emiss_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'phiwc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'pattern_spp_conv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pattern_spp_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pattern_spp_lsm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'psfc_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pmsl_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'psfc_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'pot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'p_gca')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%gca_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%gca_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_now')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_jan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_feb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_mar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_apr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_may')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_jun')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_jul')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_aug')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_sep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_oct')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_nov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_wif_dec')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pslv_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pd_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'psfc_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pdhs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'prho_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pdrho_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pad_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'pmaxw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ptrop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'p_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'pslv_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'pd_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'psfc_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'pdhs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'q' ) THEN IF(TRIM(vname).EQ.'qnwfa2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'qndropsource')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%progn(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%progn(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qndropsource')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%alloc_qndropsource.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%alloc_qndropsource.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qlev_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'qsnowxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'q2mvxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'q2mbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'qinxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'qrfxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'qrfsxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'qspringxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'qspringsxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'qslatxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'q2subgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'qsfc_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qfx_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qc_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'qsq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'qke')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'qsq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'qpert2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'qf_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'qlup_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'qtup_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'qshear')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_tkebudget(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_tkebudget(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qbuoy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_tkebudget(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_tkebudget(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qdiss')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_tkebudget(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_tkebudget(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qwt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_mynn_tkebudget(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_mynn_tkebudget(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qc_bl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%icloud_bl.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%icloud_bl.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qc_iu_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'qc_ic_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'qndrop_ic_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'qtflx_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qtten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qvten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qlten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qiten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qtsrc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qtu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qtu_emf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qcu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qlu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qiu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qrten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qsten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qnorm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qfx_both')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_upstream_x')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_upstream_x_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_upstream_y')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_upstream_y_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_largescale')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_largescale_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ql_largescale')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ql_largescale_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ql_upstream_x')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ql_upstream_x_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ql_upstream_y')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ql_upstream_y_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q_soil_forcing_val')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q_soil_forcing_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_t_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2min')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2std')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.30 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.30 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'q_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qicing_lg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qicing_sm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qicing_lg_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qicing_sm_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_icing_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_icing_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'q2_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qr_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qc_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qs_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qi_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qg_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qh_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qni_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnr_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_now')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_jan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_feb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_mar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_apr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_may')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_jun')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_jul')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_aug')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_sep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_oct')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_nov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnwfa_dec')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_now')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_jan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_feb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_mar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_apr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_may')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_jun')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_jul')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_aug')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_sep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_oct')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_nov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qnifa_dec')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qntemp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qntemp2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'qv_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qr_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qc_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qs_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qi_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qg_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qh_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'qni_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'r' ) THEN IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'rqrcuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'rqscuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'rqicuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_old_mp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'rimi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.13 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.13 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.14 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.14 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.16 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.16 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.16 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.16 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.16 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.16 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.17 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.17 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.17 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.17 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.17 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.17 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.18 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.18 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.18 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.18 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.18 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.18 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.22 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.22 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.22 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.22 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.22 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.22 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'re_snow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'rhopo3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'refl_10cm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'re_cloud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'re_ice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'rhopo3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'refl_10cm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'refl_10cm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%compute_radar_ref.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%compute_radar_ref.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'refd_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%compute_radar_ref.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%compute_radar_ref.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rhosnf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'rtmassxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'runsfxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'runsbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rssunxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rsshaxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rechxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rivercondxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'riverbedxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rechclim')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rivermask')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rn_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rv_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rt_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rc_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rc_mf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'rprddp3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'rliq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'rucuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rvcuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rthcuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqvcuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqrcuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqccuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqscuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqicuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqcncuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqincuten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rcwp_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rlwp_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'riwp_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rprdsh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rliq2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rliq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rushten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rvshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rthshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqvshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqrshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqcshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqsshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqishten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqgshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqcnshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqinshten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rundgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rvndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rthndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rphndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rqvndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rmundgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rundgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rvndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rthndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rphndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rqvndgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rmundgdten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_fdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_fdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'raincvmax')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rainncvmax')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'raincvmean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rainncvmean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'raincvstd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rainncvstd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ru_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rv_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'radfld')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'rthfrten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rqvfrten')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ros')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'r_0')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rstoch')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ru_tendf_stoch')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rv_tendf_stoch')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rt_tendf_stoch')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_pert')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_real_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rand_imag_yyy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'radarvil')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_vil_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_vil_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'refd_com')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_radar_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_radar_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'refd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_radar_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_radar_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rscghis_2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rscghis_2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'rscghis_2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rad_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'rh_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 's' ) THEN IF(TRIM(vname).EQ.'smaw3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'shfrc3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'slwdn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'slwup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swuptc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swdntc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swupbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnbc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.24 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.24 ENDIF ENDIF IF(TRIM(vname).EQ.'sswdn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sswup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw1_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw2_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sfr_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sfg_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sf_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'stdh_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'smr_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sf_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw1_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw2_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sfr_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sfg_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sf_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sf_ac_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfvent_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfwin1_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfwin2_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw1_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfw2_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfr_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sfg_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'smcrel')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'smfr3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'snowfallac')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sneqvoxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'snicexy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'snliqxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'stmassxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'stblcpxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'savxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'sagxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'shgxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'shcxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'shbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'smoiseq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'smcwtdxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'stepwtd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'season_gdd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'sabv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sabg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowdp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'snowrds5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sabvsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sabgsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'swupsubgrid')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_fm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_fh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_cm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssibxdd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_br')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_lhf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_shf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_ghf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_egs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_eci')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_ect')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_egi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_egt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_sdn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_sup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_ldn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_lup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_wat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_shc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_shg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_lai')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_vcf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_z00')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'ssib_veg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'swe')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'snowden')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'snowdepth')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'smois_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sh2o_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snow_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snowh_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snowc_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snotime_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sh_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'smcrel')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sh3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'sh3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'smaw3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'shf_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'shfrc3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'slflx_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'slten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'snowsh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sda_hfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sda_qfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'soil_depth_force')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snow_acc_nc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%prec_acc_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%prec_acc_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'skintempmin')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'skintempmax')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'skintempmean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'skintempstd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spduv10max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spduv10mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spduv10std')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snowsi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%seaice_snowdepth_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%seaice_snowdepth_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soldrain')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wrf_hydro.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wrf_hydro.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_a05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_a06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_a07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_a08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'smpa_v1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'smpbb_v1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_cw01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_cw02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_cw03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_cw04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_cw05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_cw06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_cw07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soa_cw08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spptforcs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spptforcc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sppt_amp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spstreamforcc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spstreamforcs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sptforcc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sptforcs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spstream_amp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spt_amp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcs4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'spforcc4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sp_amp4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'savedtke12d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snowdp2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'snl2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'s_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'s_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnt_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swdnb_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupb_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'swupt_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sctot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sctot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sctot')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%elec_physics.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%elec_physics.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'sct_dom_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'scb_dom_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sh_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soil_layers')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soil_levels')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm000007')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm007028')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm028100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm100255')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st000007')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st007028')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st028100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st100255')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm000010')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm010040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm040100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm100200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sm010200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm000')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm005')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm020')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm160')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilm300')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw000010')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw010040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw040100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw100200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sw010200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw000')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw005')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw020')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw160')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilw300')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st000010')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st010040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st040100')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st100200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'st010200')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt000')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt005')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt020')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt040')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt160')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'soilt300')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'svf_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'sct_dom_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'scb_dom_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'sh_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 't' ) THEN IF(TRIM(vname).EQ.'turbtype3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'taod5503d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'taod5502d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.28 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.28 ENDIF ENDIF IF(TRIM(vname).EQ.'th_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'th_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tlwdn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'tlwup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_lw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_lw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tswdn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'tswup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'taucldi')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ra_sw_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ra_sw_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_sfclay_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_sfclay_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'trb_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tw1_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tw2_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tgb_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tgr_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tgrl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'trl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tgl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tbl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'trb_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tw1_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tw2_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tgb_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'trl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tgl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tbl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'trb_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tw1_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tw2_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tgb_urb4d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tlev_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tw1lev_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tw2lev_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tglev_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tflev_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'trl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tgl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tbl_urb3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tvxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'tgxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'tahxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'tsnoxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'taussxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'t2mvxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'t2mbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'tradxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'tgvxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'tgbxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'trxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'t_grnd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_veg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t2m_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t2m_min')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t2clm')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_ref2m')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno_s1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno_s2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno_s3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno_s4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno_s5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno6')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno7')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno8')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno9')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno10')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake5')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake6')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake7')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake8')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake9')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake10')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'tkair')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tssn1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tssno1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tssn2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tssno2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tssn3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tssno3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tssn4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tssno4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tsk_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tslb_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tr_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tb_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tg_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tc_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_rul2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'trl_urb3d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tbl_urb3d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tgl_urb3d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'thl_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'thv_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'tsq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'tsq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.6 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.6 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'tauresx2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'tauresy2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'tpert2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'turbtype3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'te_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'thup_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'tke_pbl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.12 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.12 ENDIF ENDIF IF(TRIM(vname).EQ.'tpert2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'timec_kf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%kf_edrates(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%kf_edrates(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'thlsrc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'thvlsrc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tkeavg_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tophgt_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'thlu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'thvu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'thlu_emf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tob_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tob_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'th2_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'th2_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tob_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tob_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t0ml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tmoml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'t0ml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tmoml')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_ocean_physics.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_ocean_physics.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'th_upstream_x')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th_upstream_x_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th_upstream_y')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th_upstream_y_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tau_x')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tau_x_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tau_y')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tau_y_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th_largescale')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th_largescale_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tau_largescale')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tau_largescale_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soil_forcing_val')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soil_forcing_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tau_soil')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th_t_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2min')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tt2min')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tt2max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2std')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tq2min')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tq2max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tskintempmin')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tskintempmax')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tspduv10max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'traincvmax')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'trainncvmax')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_max_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nest_interp_coord.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nest_interp_coord.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_min_p')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nest_interp_coord.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nest_interp_coord.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'traj_i')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%traj_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%traj_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'traj_j')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%traj_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%traj_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'traj_k')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%traj_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%traj_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'traj_lat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%traj_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%traj_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'traj_long')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%traj_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%traj_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_hour')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_u')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_v')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_q')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_t')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_psfc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_glw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_gsw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_hfx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_lh')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_tsk')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_tslb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_clw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_rainc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_rainnc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_u_profile')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_v_profile')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_gph_profile')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ts_th_profile')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%process_time_series.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%process_time_series.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_a01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_a02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_a03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_a04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_a05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_a06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_a07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_a08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_cw01')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_cw02')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_cw03')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_cw04')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_cw05')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_cw06')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_cw07')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'totoa_cw08')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%aero_cw_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%aero_cw_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tot_dust')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dust_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dust_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tot_edust')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dust_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dust_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'tign_g')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'t_grnd2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_lake3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_soisno3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tkmg3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tkdry3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tksatu3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.30 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.30 ENDIF ENDIF IF(TRIM(vname).EQ.'tempc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.30 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.30 ENDIF ENDIF IF(TRIM(vname).EQ.'th_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'tempc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.32 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.32 ENDIF ENDIF IF(TRIM(vname).EQ.'t_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'td_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'td_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tcoli_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tornado_mask')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tornado_dur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tsk_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th2_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tsk_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t2_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'th2_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tsk_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tavgsfc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tmn_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'tmaxw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ttrop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'t_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tsk_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tavgsfc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'tmn_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'u' ) THEN IF(TRIM(vname).EQ.'uc_urb2d_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'uw_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'updfra_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'udr_kf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%kf_edrates(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%kf_edrates(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'uer_kf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%kf_edrates(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%kf_edrates(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'uflx_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'uten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ufrcinvbase_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ufrclcl_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'ufrc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'uu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'uu_emf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'umf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'uemf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'u10_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'u10_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'u_g')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_g_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_upstream_x')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_upstream_x_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_upstream_y')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_upstream_y_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_largescale')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_largescale_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10std')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'up_heli_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nwp_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nwp_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'uvrad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'uvrad')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%phot_opt(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%phot_opt(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'uf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'uah')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'u_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'up_heli_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u10_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'umaxw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'utrop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'urb_param')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'u_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'v' ) THEN IF(TRIM(vname).EQ.'vmi3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.50 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.50 ENDIF ENDIF IF(TRIM(vname).EQ.'vmi3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.51 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.51 ENDIF ENDIF IF(TRIM(vname).EQ.'vl_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vl_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'vl_bep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_urban_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_urban_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'vegf_px')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'v_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'vw_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'vflx_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'vten_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'vu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'vu_emf_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'vdfg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grav_settling(id).EQ.0 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grav_settling(id).EQ.0 ENDIF ENDIF IF(TRIM(vname).EQ.'vdfg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grav_settling(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grav_settling(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vdfg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grav_settling(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grav_settling(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'v10_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10_ndg_old')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'v10_ndg_new')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%grid_sfdda(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%grid_sfdda(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'v_g')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_g_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_upstream_x')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_upstream_x_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_upstream_y')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_upstream_y_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_largescale')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_largescale_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10std')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%output_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%output_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vis_dust')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%dust_opt.EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%dust_opt.EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'vf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'vah')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'vertstrucc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertstrucs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertampt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sppt_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sppt_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertstrucc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertstrucs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertampt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertampuv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%skebs_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%skebs_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertstrucc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertstrucs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertampt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%rand_perturb_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%rand_perturb_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertstrucc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertstrucs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vertampt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%spp_on.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%spp_on.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_pl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%p_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%p_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vil')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_vil_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_vil_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mean_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mean_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v10_diurn')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%diurnal_diag.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%diurnal_diag.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vmaxw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'vtrop')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'v_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'w' ) THEN IF(TRIM(vname).EQ.'wsedl3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%mp_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%mp_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'wm_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_sfclay_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_sfclay_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'wslakexy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'waxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'wtxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'woodxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'wgapxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'wtc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'wtp')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'wo1')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wo2')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wo3')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wo4')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wu_tur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wv_tur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wt_tur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wq_tur')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.8 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.8 ENDIF ENDIF IF(TRIM(vname).EQ.'wpert2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'wsedl3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.9 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.9 ENDIF ENDIF IF(TRIM(vname).EQ.'wupd_temf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%bl_pbl_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%bl_pbl_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'w0avg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'wup_cup')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'w0avg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.10 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.10 ENDIF ENDIF IF(TRIM(vname).EQ.'w0avg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'w_up')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.11 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.11 ENDIF ENDIF IF(TRIM(vname).EQ.'w0avg')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.99 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.99 ENDIF ENDIF IF(TRIM(vname).EQ.'winvbase_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'wlcl_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'wu_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'w_subs')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_subs_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'wspd10max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nwp_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nwp_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_up_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nwp_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nwp_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_dn_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nwp_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nwp_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%nwp_diagnostics.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%nwp_diagnostics.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'ww_xxx')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%fft_used.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%fft_used.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'watsat3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'wspd10max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_diag_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_diag_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_up_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_dn_max')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_mean')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%afwa_severe_opt(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%afwa_severe_opt(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_now')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_jan')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_feb')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_mar')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_apr')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_may')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_jun')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_jul')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_aug')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_sep')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_oct')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_nov')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'w_wif_dec')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%wif_input_opt.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%wif_input_opt.EQ.1 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'x' ) THEN IF(TRIM(vname).EQ.'xsaixy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'xmb_shallow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.3 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.3 ENDIF ENDIF IF(TRIM(vname).EQ.'xmb_shallow')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.5 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.5 ENDIF ENDIF IF(TRIM(vname).EQ.'xc_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'xlat_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'xlong_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'xlat_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'xlong_gc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.2 ENDIF ENDIF ELSE IF ( vname(1:1) .EQ. 'y' ) THEN ELSE IF ( vname(1:1) .EQ. 'z' ) THEN IF(TRIM(vname).EQ.'zwtxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'zsnsoxy')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_physics(id).EQ.4 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_physics(id).EQ.4 ENDIF ENDIF IF(TRIM(vname).EQ.'znt_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'z0_mosaic')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_surface_mosaic.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_surface_mosaic.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'zmdt')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmdq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmdice')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmdliq')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmflxprc')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmflxsnw')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmntprpd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmntsnpd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmeiheat')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmmtu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmmtv')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmmu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmmd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmupgu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmupgd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmvpgu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmvpgd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmicuu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmicud')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmicvu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zmicvd')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%cu_physics(id).EQ.7 uses = 1 ELSE in_use = in_use.OR.model_config_rec%cu_physics(id).EQ.7 ENDIF ENDIF IF(TRIM(vname).EQ.'zinv_cu')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%shcu_physics(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%shcu_physics(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'z_force')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'z_force_tend')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%scm_force.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%scm_force.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'zsf')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%ifire(id).EQ.2 uses = 1 ELSE in_use = in_use.OR.model_config_rec%ifire(id).EQ.2 ENDIF ENDIF IF(TRIM(vname).EQ.'z_lake3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'z3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'zi3d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%sf_lake_physics(id).EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%sf_lake_physics(id).EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'z_zl')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%z_lev_diags.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%z_lev_diags.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'z0s_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'z0r_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'z0m_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'zds_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'zdm_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF IF(TRIM(vname).EQ.'zdr_urb2d')THEN IF(uses.EQ.0)THEN in_use = model_config_rec%use_wps_input.EQ.1 uses = 1 ELSE in_use = in_use.OR.model_config_rec%use_wps_input.EQ.1 ENDIF ENDIF ENDIF RETURN END FUNCTION SUBROUTINE init_module_configure USE module_scalar_tables IMPLICIT NONE CALL init_module_scalar_tables END SUBROUTINE init_module_configure SUBROUTINE wrf_alt_nml_obsolete (nml_read_unit, nml_name) IMPLICIT NONE INTEGER, INTENT(IN) :: nml_read_unit CHARACTER*(*), INTENT(IN) :: nml_name INTEGER :: nml_error integer :: first_item_in_struct integer :: run_days integer :: run_hours integer :: run_minutes integer :: run_seconds integer , DIMENSION(max_domains) :: start_year integer , DIMENSION(max_domains) :: start_month integer , DIMENSION(max_domains) :: start_day integer , DIMENSION(max_domains) :: start_hour integer , DIMENSION(max_domains) :: start_minute integer , DIMENSION(max_domains) :: start_second integer , DIMENSION(max_domains) :: end_year integer , DIMENSION(max_domains) :: end_month integer , DIMENSION(max_domains) :: end_day integer , DIMENSION(max_domains) :: end_hour integer , DIMENSION(max_domains) :: end_minute integer , DIMENSION(max_domains) :: end_second integer :: interval_seconds logical , DIMENSION(max_domains) :: input_from_file integer , DIMENSION(max_domains) :: fine_input_stream logical , DIMENSION(max_domains) :: input_from_hires character*256 :: rsmas_data_path logical :: all_ic_times integer , DIMENSION(max_domains) :: julyr integer , DIMENSION(max_domains) :: julday real , DIMENSION(max_domains) :: gmt character*256 :: input_inname character*256 :: input_outname character*256 :: bdy_inname character*256 :: bdy_outname character*256 :: rst_inname character*256 :: rst_outname logical :: write_input logical :: write_restart_at_0h logical :: write_hist_at_0h_rst logical :: adjust_output_times logical :: adjust_input_times integer :: diag_print logical :: nocolons logical :: cycling integer :: output_diagnostics integer :: nwp_diagnostics logical :: output_ready_flag logical :: usepio integer :: pioprocs integer :: piostart integer :: piostride integer :: pioshift integer :: dfi_opt integer :: dfi_savehydmeteors integer :: dfi_nfilter logical :: dfi_write_filtered_input logical :: dfi_write_dfi_history integer :: dfi_cutoff_seconds integer :: dfi_time_dim integer :: dfi_fwdstop_year integer :: dfi_fwdstop_month integer :: dfi_fwdstop_day integer :: dfi_fwdstop_hour integer :: dfi_fwdstop_minute integer :: dfi_fwdstop_second integer :: dfi_bckstop_year integer :: dfi_bckstop_month integer :: dfi_bckstop_day integer :: dfi_bckstop_hour integer :: dfi_bckstop_minute integer :: dfi_bckstop_second integer :: time_step integer :: time_step_fract_num integer :: time_step_fract_den integer :: time_step_dfi integer , DIMENSION(max_domains) :: min_time_step integer , DIMENSION(max_domains) :: min_time_step_den integer , DIMENSION(max_domains) :: max_time_step integer , DIMENSION(max_domains) :: max_time_step_den real , DIMENSION(max_domains) :: target_cfl real , DIMENSION(max_domains) :: target_hcfl integer , DIMENSION(max_domains) :: max_step_increase_pct integer , DIMENSION(max_domains) :: starting_time_step integer , DIMENSION(max_domains) :: starting_time_step_den logical :: step_to_output_time integer :: adaptation_domain logical :: use_adaptive_time_step logical :: use_adaptive_time_step_dfi integer :: max_dom integer :: lats_to_mic integer , DIMENSION(max_domains) :: s_we integer , DIMENSION(max_domains) :: e_we integer , DIMENSION(max_domains) :: s_sn integer , DIMENSION(max_domains) :: e_sn integer , DIMENSION(max_domains) :: s_vert integer , DIMENSION(max_domains) :: e_vert integer :: num_metgrid_levels integer :: num_metgrid_soil_levels real :: p_top_requested logical :: interp_theta integer :: interp_type integer :: rebalance integer , DIMENSION(max_domains) :: vert_refine_method integer :: vert_refine_fact integer :: extrap_type integer :: t_extrap_type integer :: hypsometric_opt logical :: lowest_lev_from_sfc logical :: use_levels_below_ground logical :: use_tavg_for_tsk logical :: use_surface integer :: lagrange_order integer :: force_sfc_in_vinterp real :: zap_close_levels real :: maxw_horiz_pres_diff real :: trop_horiz_pres_diff real :: maxw_above_this_level integer :: use_maxw_level integer :: use_trop_level logical :: sfcp_to_sfcp logical :: adjust_heights logical :: smooth_cg_topo integer :: nest_interp_coord integer :: interp_method_type logical :: aggregate_lu logical :: rh2qv_wrt_liquid integer :: rh2qv_method real :: qv_max_p_safe real :: qv_max_flag real :: qv_max_value real :: qv_min_p_safe real :: qv_min_flag real :: qv_min_value integer :: ideal_init_method real , DIMENSION(max_domains) :: dx real , DIMENSION(max_domains) :: dy integer , DIMENSION(max_domains) :: grid_id logical , DIMENSION(max_domains) :: grid_allowed integer , DIMENSION(max_domains) :: parent_id integer , DIMENSION(max_domains) :: i_parent_start integer , DIMENSION(max_domains) :: j_parent_start integer , DIMENSION(max_domains) :: parent_grid_ratio integer , DIMENSION(max_domains) :: parent_time_step_ratio integer :: feedback integer :: smooth_option integer :: blend_width real , DIMENSION(max_domains) :: ztop integer , DIMENSION(max_domains) :: moad_grid_ratio integer , DIMENSION(max_domains) :: moad_time_step_ratio integer , DIMENSION(max_domains) :: shw integer :: tile_sz_x integer :: tile_sz_y integer :: numtiles integer :: numtiles_inc integer :: numtiles_x integer :: numtiles_y integer :: tile_strategy integer :: nproc_x integer :: nproc_y integer :: irand real , DIMENSION(max_domains) :: dt integer :: fft_used integer :: cu_used integer :: shcu_used integer :: cam_used integer :: alloc_qndropsource integer :: num_moves integer :: ts_buf_size integer :: max_ts_locs integer , DIMENSION(max_domains) :: vortex_interval integer , DIMENSION(max_domains) :: max_vortex_speed integer , DIMENSION(max_domains) :: corral_dist integer :: track_level real , DIMENSION(max_domains) :: time_to_move integer , DIMENSION(max_moves) :: move_id integer , DIMENSION(max_moves) :: move_interval integer , DIMENSION(max_moves) :: move_cd_x integer , DIMENSION(max_moves) :: move_cd_y logical , DIMENSION(max_domains) :: swap_x logical , DIMENSION(max_domains) :: swap_y logical , DIMENSION(max_domains) :: cycle_x logical , DIMENSION(max_domains) :: cycle_y logical :: reorder_mesh logical :: perturb_input real , DIMENSION(max_eta) :: eta_levels real :: max_dz integer :: ocean_levels real , DIMENSION(max_ocean) :: ocean_z real , DIMENSION(max_ocean) :: ocean_t real , DIMENSION(max_ocean) :: ocean_s integer :: num_traj integer :: max_ts_level integer :: track_loc_in integer :: num_ext_model_couple_dom logical :: insert_bogus_storm logical :: remove_storm integer :: num_storm real , DIMENSION(max_bogus) :: latc_loc real , DIMENSION(max_bogus) :: lonc_loc real , DIMENSION(max_bogus) :: vmax_meters_per_second real , DIMENSION(max_bogus) :: rmax real , DIMENSION(max_bogus) :: vmax_ratio real :: rankine_lid character*256 :: physics_suite logical :: force_read_thompson logical :: write_thompson_tables integer , DIMENSION(max_domains) :: mp_physics real , DIMENSION(max_domains) :: nssl_cccn real , DIMENSION(max_domains) :: nssl_alphah real , DIMENSION(max_domains) :: nssl_alphahl real , DIMENSION(max_domains) :: nssl_cnoh real , DIMENSION(max_domains) :: nssl_cnohl real , DIMENSION(max_domains) :: nssl_cnor real , DIMENSION(max_domains) :: nssl_cnos real , DIMENSION(max_domains) :: nssl_rho_qh real , DIMENSION(max_domains) :: nssl_rho_qhl real , DIMENSION(max_domains) :: nssl_rho_qs integer , DIMENSION(max_domains) :: nudge_lightning integer , DIMENSION(max_domains) :: nudge_light_times integer , DIMENSION(max_domains) :: nudge_light_timee integer , DIMENSION(max_domains) :: nudge_light_int character*256 :: path_to_files integer :: gsfcgce_hail integer :: gsfcgce_2ice integer , DIMENSION(max_domains) :: progn real :: accum_mode real :: aitken_mode real :: coarse_mode integer :: do_radar_ref integer :: compute_radar_ref integer , DIMENSION(max_domains) :: ra_lw_physics integer , DIMENSION(max_domains) :: ra_sw_physics real , DIMENSION(max_domains) :: radt real , DIMENSION(max_domains) :: naer integer , DIMENSION(max_domains) :: sf_sfclay_physics integer , DIMENSION(max_domains) :: sf_surface_physics integer , DIMENSION(max_domains) :: bl_pbl_physics integer , DIMENSION(max_domains) :: bl_mynn_tkebudget integer :: ysu_topdown_pblmix integer , DIMENSION(max_domains) :: shinhong_tke_diag logical , DIMENSION(max_domains) :: bl_mynn_tkeadvect integer :: bl_mynn_cloudpdf integer :: bl_mynn_mixlength integer , DIMENSION(max_domains) :: bl_mynn_edmf integer , DIMENSION(max_domains) :: bl_mynn_edmf_mom integer , DIMENSION(max_domains) :: bl_mynn_edmf_tke integer , DIMENSION(max_domains) :: bl_mynn_edmf_part integer , DIMENSION(max_domains) :: bl_mynn_cloudmix integer , DIMENSION(max_domains) :: bl_mynn_mixqt integer :: icloud_bl integer , DIMENSION(max_domains) :: mfshconv integer , DIMENSION(max_domains) :: sf_urban_physics real , DIMENSION(max_domains) :: bldt integer , DIMENSION(max_domains) :: cu_physics integer , DIMENSION(max_domains) :: shcu_physics integer , DIMENSION(max_domains) :: cu_diag integer , DIMENSION(max_domains) :: kf_edrates integer :: kfeta_trigger integer :: nsas_dx_factor real , DIMENSION(max_domains) :: cudt real , DIMENSION(max_domains) :: gsmdt integer :: isfflx integer :: ifsnow integer :: icloud integer :: ideal_xland real :: swrad_scat integer :: surface_input_source integer :: num_soil_layers integer :: maxpatch integer :: num_snow_layers integer :: num_snso_layers integer :: num_urban_layers integer :: num_urban_hi integer :: num_months integer :: sf_surface_mosaic integer :: mosaic_cat integer :: mosaic_cat_soil integer :: mosaic_lu integer :: mosaic_soil integer :: maxiens integer :: maxens integer :: maxens2 integer :: maxens3 integer :: ensdim integer :: cugd_avedx integer :: clos_choice integer :: imomentum integer :: ishallow real :: convtrans_avglen_m integer :: num_land_cat integer :: num_soil_cat integer :: mp_zero_out real :: mp_zero_out_thresh real :: seaice_threshold integer :: sst_update integer :: sst_skin integer :: tmn_update logical :: usemonalb logical :: rdmaxalb logical :: rdlai2d logical :: ua_phys integer :: opt_thcnd integer :: co2tf integer :: ra_call_offset real :: cam_abs_freq_s integer :: levsiz integer :: paerlev integer :: cam_abs_dim1 integer :: cam_abs_dim2 integer :: lagday integer :: no_src_types integer :: alevsiz integer :: o3input integer :: aer_opt integer :: swint_opt integer , DIMENSION(max_domains) :: aer_type integer , DIMENSION(max_domains) :: aer_aod550_opt integer , DIMENSION(max_domains) :: aer_angexp_opt integer , DIMENSION(max_domains) :: aer_ssa_opt integer , DIMENSION(max_domains) :: aer_asy_opt real , DIMENSION(max_domains) :: aer_aod550_val real , DIMENSION(max_domains) :: aer_angexp_val real , DIMENSION(max_domains) :: aer_ssa_val real , DIMENSION(max_domains) :: aer_asy_val logical , DIMENSION(max_domains) :: cu_rad_feedback logical , DIMENSION(max_domains) :: shallowcu_forced_ra integer , DIMENSION(max_domains) :: numbins real , DIMENSION(max_domains) :: thbinsize real , DIMENSION(max_domains) :: rbinsize real , DIMENSION(max_domains) :: mindeepfreq real , DIMENSION(max_domains) :: minshallowfreq integer , DIMENSION(max_domains) :: shcu_aerosols_opt integer , DIMENSION(max_domains) :: icloud_cu integer , DIMENSION(max_domains) :: pxlsm_smois_init integer :: omlcall integer :: sf_ocean_physics integer :: traj_opt logical , DIMENSION(max_domains) :: dm_has_traj integer :: tracercall real :: omdt real :: oml_hml0 real :: oml_gamma real :: oml_relaxation_time integer :: isftcflx integer :: iz0tlnd real :: shadlen integer , DIMENSION(max_domains) :: slope_rad integer , DIMENSION(max_domains) :: topo_shading integer , DIMENSION(max_domains) :: topo_wind integer :: no_mp_heating integer :: fractional_seaice integer :: seaice_snowdepth_opt real :: seaice_snowdepth_max real :: seaice_snowdepth_min integer :: seaice_albedo_opt real :: seaice_albedo_default integer :: seaice_thickness_opt real :: seaice_thickness_default logical :: tice2tsk_if2cold real :: bucket_mm real :: bucket_j real :: mp_tend_lim real , DIMENSION(max_domains) :: prec_acc_dt integer :: prec_acc_opt integer :: bucketr_opt integer :: bucketf_opt integer :: process_time_series integer , DIMENSION(max_domains) :: grav_settling real , DIMENSION(max_domains) :: sas_pgcon integer , DIMENSION(max_domains) :: scalar_pblmix integer , DIMENSION(max_domains) :: tracer_pblmix logical :: use_aero_icbc logical :: use_rap_aero_icbc integer :: use_mp_re real :: ccn_conc integer :: hail_opt integer :: dveg integer :: opt_crs integer :: opt_btr integer :: opt_run integer :: opt_sfc integer :: opt_frz integer :: opt_inf integer :: opt_rad integer :: opt_alb integer :: opt_snf integer :: opt_tbot integer :: opt_stc integer :: opt_gla integer :: opt_rsf real , DIMENSION(max_domains) :: wtddt integer :: wrf_hydro real , DIMENSION(max_domains) :: fgdt integer , DIMENSION(max_domains) :: fgdtzero integer , DIMENSION(max_domains) :: grid_fdda integer , DIMENSION(max_domains) :: grid_sfdda integer , DIMENSION(max_domains) :: if_no_pbl_nudging_uv integer , DIMENSION(max_domains) :: if_no_pbl_nudging_t integer , DIMENSION(max_domains) :: if_no_pbl_nudging_ph integer , DIMENSION(max_domains) :: if_no_pbl_nudging_q integer , DIMENSION(max_domains) :: if_zfac_uv integer , DIMENSION(max_domains) :: k_zfac_uv integer , DIMENSION(max_domains) :: if_zfac_t integer , DIMENSION(max_domains) :: k_zfac_t integer , DIMENSION(max_domains) :: if_zfac_ph integer , DIMENSION(max_domains) :: k_zfac_ph integer , DIMENSION(max_domains) :: if_zfac_q integer , DIMENSION(max_domains) :: k_zfac_q integer , DIMENSION(max_domains) :: dk_zfac_uv integer , DIMENSION(max_domains) :: dk_zfac_t integer , DIMENSION(max_domains) :: dk_zfac_ph real , DIMENSION(max_domains) :: guv real , DIMENSION(max_domains) :: guv_sfc real , DIMENSION(max_domains) :: gt real , DIMENSION(max_domains) :: gt_sfc real , DIMENSION(max_domains) :: gq real , DIMENSION(max_domains) :: gq_sfc real , DIMENSION(max_domains) :: gph real :: dtramp_min integer :: if_ramping real , DIMENSION(max_domains) :: rinblw integer , DIMENSION(max_domains) :: xwavenum integer , DIMENSION(max_domains) :: ywavenum integer , DIMENSION(max_domains) :: pxlsm_soil_nudge integer , DIMENSION(max_domains) :: fasdas integer , DIMENSION(max_domains) :: obs_nudge_opt integer :: max_obs real , DIMENSION(max_domains) :: fdda_start real , DIMENSION(max_domains) :: fdda_end integer , DIMENSION(max_domains) :: obs_nudge_wind real , DIMENSION(max_domains) :: obs_coef_wind integer , DIMENSION(max_domains) :: obs_nudge_temp real , DIMENSION(max_domains) :: obs_coef_temp integer , DIMENSION(max_domains) :: obs_nudge_mois real , DIMENSION(max_domains) :: obs_coef_mois integer , DIMENSION(max_domains) :: obs_nudge_pstr real , DIMENSION(max_domains) :: obs_coef_pstr integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_uv integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_t integer , DIMENSION(max_domains) :: obs_no_pbl_nudge_q integer :: obs_sfc_scheme_horiz integer :: obs_sfc_scheme_vert real :: obs_max_sndng_gap real :: obs_nudgezfullr1_uv real :: obs_nudgezrampr1_uv real :: obs_nudgezfullr2_uv real :: obs_nudgezrampr2_uv real :: obs_nudgezfullr4_uv real :: obs_nudgezrampr4_uv real :: obs_nudgezfullr1_t real :: obs_nudgezrampr1_t real :: obs_nudgezfullr2_t real :: obs_nudgezrampr2_t real :: obs_nudgezfullr4_t real :: obs_nudgezrampr4_t real :: obs_nudgezfullr1_q real :: obs_nudgezrampr1_q real :: obs_nudgezfullr2_q real :: obs_nudgezrampr2_q real :: obs_nudgezfullr4_q real :: obs_nudgezrampr4_q real :: obs_nudgezfullmin real :: obs_nudgezrampmin real :: obs_nudgezmax real :: obs_sfcfact real :: obs_sfcfacr real :: obs_dpsmx real , DIMENSION(max_domains) :: obs_rinxy real :: obs_rinsig real , DIMENSION(max_domains) :: obs_twindo integer :: obs_npfi integer , DIMENSION(max_domains) :: obs_ionf integer :: obs_idynin real :: obs_dtramp integer :: obs_prt_max integer , DIMENSION(max_domains) :: obs_prt_freq logical :: obs_ipf_in4dob logical :: obs_ipf_errob logical :: obs_ipf_nudob logical :: obs_ipf_init integer :: obs_scl_neg_qv_innov integer :: scm_force real :: scm_force_dx integer :: num_force_layers integer :: scm_lu_index integer :: scm_isltyp real :: scm_vegfra real :: scm_canwat real :: scm_lat real :: scm_lon logical :: scm_th_t_tend logical :: scm_qv_t_tend logical :: scm_th_adv logical :: scm_wind_adv logical :: scm_qv_adv logical :: scm_ql_adv logical :: scm_vert_adv integer :: num_force_soil_layers logical :: scm_soilt_force logical :: scm_soilq_force logical :: scm_force_th_largescale logical :: scm_force_qv_largescale logical :: scm_force_ql_largescale logical :: scm_force_wind_largescale integer :: scm_force_skintemp integer :: scm_force_flux integer :: dyn_opt integer :: rk_ord integer :: w_damping integer , DIMENSION(max_domains) :: diff_opt integer , DIMENSION(max_domains) :: diff_opt_dfi integer , DIMENSION(max_domains) :: km_opt integer , DIMENSION(max_domains) :: km_opt_dfi integer :: damp_opt integer :: rad_nudge integer :: gwd_opt real , DIMENSION(max_domains) :: zdamp real , DIMENSION(max_domains) :: dampcoef real , DIMENSION(max_domains) :: khdif real , DIMENSION(max_domains) :: kvdif real , DIMENSION(max_domains) :: diff_6th_factor integer , DIMENSION(max_domains) :: diff_6th_opt integer :: use_theta_m integer :: use_q_diabatic real , DIMENSION(max_domains) :: c_s real , DIMENSION(max_domains) :: c_k real , DIMENSION(max_domains) :: smdiv real , DIMENSION(max_domains) :: emdiv real , DIMENSION(max_domains) :: epssm logical , DIMENSION(max_domains) :: non_hydrostatic logical :: use_input_w integer , DIMENSION(max_domains) :: time_step_sound integer , DIMENSION(max_domains) :: h_mom_adv_order integer , DIMENSION(max_domains) :: v_mom_adv_order integer , DIMENSION(max_domains) :: h_sca_adv_order integer , DIMENSION(max_domains) :: v_sca_adv_order integer , DIMENSION(max_domains) :: momentum_adv_opt integer , DIMENSION(max_domains) :: moist_adv_opt integer , DIMENSION(max_domains) :: moist_adv_dfi_opt integer , DIMENSION(max_domains) :: chem_adv_opt integer , DIMENSION(max_domains) :: tracer_adv_opt integer , DIMENSION(max_domains) :: scalar_adv_opt integer , DIMENSION(max_domains) :: tke_adv_opt logical , DIMENSION(max_domains) :: top_radiation integer , DIMENSION(max_domains) :: mix_isotropic real , DIMENSION(max_domains) :: mix_upper_bound logical , DIMENSION(max_domains) :: top_lid real , DIMENSION(max_domains) :: tke_upper_bound real , DIMENSION(max_domains) :: tke_drag_coefficient real , DIMENSION(max_domains) :: tke_heat_flux logical , DIMENSION(max_domains) :: pert_coriolis logical , DIMENSION(max_domains) :: coriolis2d logical , DIMENSION(max_domains) :: mix_full_fields real :: base_pres real :: base_temp real :: base_lapse real :: iso_temp real :: base_pres_strat real :: base_lapse_strat logical :: use_baseparam_fr_nml real :: fft_filter_lat logical :: coupled_filtering logical :: pos_def logical :: swap_pole_with_next_j logical :: actual_distance_average logical :: rotated_pole logical , DIMENSION(max_domains) :: do_coriolis logical , DIMENSION(max_domains) :: do_curvature logical , DIMENSION(max_domains) :: do_gradp integer , DIMENSION(max_domains) :: tracer_opt integer , DIMENSION(max_domains) :: tenddiag integer :: spec_bdy_width integer :: spec_zone integer :: relax_zone logical , DIMENSION(max_domains) :: specified logical :: constant_bc logical , DIMENSION(max_domains) :: periodic_x logical , DIMENSION(max_domains) :: symmetric_xs logical , DIMENSION(max_domains) :: symmetric_xe logical , DIMENSION(max_domains) :: open_xs logical , DIMENSION(max_domains) :: open_xe logical , DIMENSION(max_domains) :: periodic_y logical , DIMENSION(max_domains) :: symmetric_ys logical , DIMENSION(max_domains) :: symmetric_ye logical , DIMENSION(max_domains) :: open_ys logical , DIMENSION(max_domains) :: open_ye logical , DIMENSION(max_domains) :: polar logical , DIMENSION(max_domains) :: nested real :: spec_exp integer :: spec_bdy_final_mu integer :: real_data_init_type logical , DIMENSION(max_domains) :: have_bcs_moist logical , DIMENSION(max_domains) :: have_bcs_scalar integer :: background_proc_id integer :: forecast_proc_id integer :: production_status integer :: compression integer :: nobs_ndg_vars integer :: nobs_err_flds real , DIMENSION(max_domains) :: cen_lat real , DIMENSION(max_domains) :: cen_lon real , DIMENSION(max_domains) :: truelat1 real , DIMENSION(max_domains) :: truelat2 real , DIMENSION(max_domains) :: moad_cen_lat real , DIMENSION(max_domains) :: stand_lon real , DIMENSION(max_domains) :: pole_lat real , DIMENSION(max_domains) :: pole_lon integer :: flag_metgrid integer :: flag_snow integer :: flag_psfc integer :: flag_sm000010 integer :: flag_sm010040 integer :: flag_sm040100 integer :: flag_sm100200 integer :: flag_st000010 integer :: flag_st010040 integer :: flag_st040100 integer :: flag_st100200 integer :: flag_soil_layers integer :: flag_slp integer :: flag_soilhgt integer :: flag_mf_xy integer :: flag_um_soil real , DIMENSION(max_domains) :: bdyfrq character*256 , DIMENSION(max_domains) :: mminlu integer , DIMENSION(max_domains) :: iswater integer , DIMENSION(max_domains) :: islake integer , DIMENSION(max_domains) :: isice integer , DIMENSION(max_domains) :: isurban integer , DIMENSION(max_domains) :: isoilwater integer , DIMENSION(max_domains) :: map_proj integer :: use_wps_input integer , DIMENSION(max_domains) :: dfi_stage integer , DIMENSION(max_domains) :: mp_physics_dfi integer , DIMENSION(max_domains) :: bl_pbl_physics_dfi integer , DIMENSION(max_domains) :: windfarm_opt integer :: windfarm_ij integer , DIMENSION(max_domains) :: hailcast_opt integer , DIMENSION(max_domains) :: lightning_option real , DIMENSION(max_domains) :: lightning_dt real , DIMENSION(max_domains) :: lightning_start_seconds real , DIMENSION(max_domains) :: flashrate_factor integer , DIMENSION(max_domains) :: iccg_method real , DIMENSION(max_domains) :: iccg_prescribed_num real , DIMENSION(max_domains) :: iccg_prescribed_den integer , DIMENSION(max_domains) :: cellcount_method real , DIMENSION(max_domains) :: cldtop_adjustment integer , DIMENSION(max_domains) :: sf_lake_physics character*256 :: auxinput1_inname integer :: io_form_auxinput1 logical :: override_restart_timers character*256 :: auxhist1_inname character*256 :: auxhist1_outname integer , DIMENSION(max_domains) :: auxhist1_interval_y integer , DIMENSION(max_domains) :: auxhist1_interval_d integer , DIMENSION(max_domains) :: auxhist1_interval_h integer , DIMENSION(max_domains) :: auxhist1_interval_m integer , DIMENSION(max_domains) :: auxhist1_interval_s integer , DIMENSION(max_domains) :: auxhist1_interval integer , DIMENSION(max_domains) :: auxhist1_begin_y integer , DIMENSION(max_domains) :: auxhist1_begin_d integer , DIMENSION(max_domains) :: auxhist1_begin_h integer , DIMENSION(max_domains) :: auxhist1_begin_m integer , DIMENSION(max_domains) :: auxhist1_begin_s integer , DIMENSION(max_domains) :: auxhist1_begin integer , DIMENSION(max_domains) :: auxhist1_end_y integer , DIMENSION(max_domains) :: auxhist1_end_d integer , DIMENSION(max_domains) :: auxhist1_end_h integer , DIMENSION(max_domains) :: auxhist1_end_m integer , DIMENSION(max_domains) :: auxhist1_end_s integer , DIMENSION(max_domains) :: auxhist1_end integer :: io_form_auxhist1 integer , DIMENSION(max_domains) :: frames_per_auxhist1 character*256 :: auxhist2_inname character*256 :: auxhist2_outname integer , DIMENSION(max_domains) :: auxhist2_interval_y integer , DIMENSION(max_domains) :: auxhist2_interval_d integer , DIMENSION(max_domains) :: auxhist2_interval_h integer , DIMENSION(max_domains) :: auxhist2_interval_m integer , DIMENSION(max_domains) :: auxhist2_interval_s integer , DIMENSION(max_domains) :: auxhist2_interval integer , DIMENSION(max_domains) :: auxhist2_begin_y integer , DIMENSION(max_domains) :: auxhist2_begin_d integer , DIMENSION(max_domains) :: auxhist2_begin_h integer , DIMENSION(max_domains) :: auxhist2_begin_m integer , DIMENSION(max_domains) :: auxhist2_begin_s integer , DIMENSION(max_domains) :: auxhist2_begin integer , DIMENSION(max_domains) :: auxhist2_end_y integer , DIMENSION(max_domains) :: auxhist2_end_d integer , DIMENSION(max_domains) :: auxhist2_end_h integer , DIMENSION(max_domains) :: auxhist2_end_m integer , DIMENSION(max_domains) :: auxhist2_end_s integer , DIMENSION(max_domains) :: auxhist2_end integer :: io_form_auxhist2 integer , DIMENSION(max_domains) :: frames_per_auxhist2 character*256 :: auxhist3_inname character*256 :: auxhist3_outname integer , DIMENSION(max_domains) :: auxhist3_interval_y integer , DIMENSION(max_domains) :: auxhist3_interval_d integer , DIMENSION(max_domains) :: auxhist3_interval_h integer , DIMENSION(max_domains) :: auxhist3_interval_m integer , DIMENSION(max_domains) :: auxhist3_interval_s integer , DIMENSION(max_domains) :: auxhist3_interval integer , DIMENSION(max_domains) :: auxhist3_begin_y integer , DIMENSION(max_domains) :: auxhist3_begin_d integer , DIMENSION(max_domains) :: auxhist3_begin_h integer , DIMENSION(max_domains) :: auxhist3_begin_m integer , DIMENSION(max_domains) :: auxhist3_begin_s integer , DIMENSION(max_domains) :: auxhist3_begin integer , DIMENSION(max_domains) :: auxhist3_end_y integer , DIMENSION(max_domains) :: auxhist3_end_d integer , DIMENSION(max_domains) :: auxhist3_end_h integer , DIMENSION(max_domains) :: auxhist3_end_m integer , DIMENSION(max_domains) :: auxhist3_end_s integer , DIMENSION(max_domains) :: auxhist3_end integer :: io_form_auxhist3 integer , DIMENSION(max_domains) :: frames_per_auxhist3 character*256 :: auxhist4_inname character*256 :: auxhist4_outname integer , DIMENSION(max_domains) :: auxhist4_interval_y integer , DIMENSION(max_domains) :: auxhist4_interval_d integer , DIMENSION(max_domains) :: auxhist4_interval_h integer , DIMENSION(max_domains) :: auxhist4_interval_m integer , DIMENSION(max_domains) :: auxhist4_interval_s integer , DIMENSION(max_domains) :: auxhist4_interval integer , DIMENSION(max_domains) :: auxhist4_begin_y integer , DIMENSION(max_domains) :: auxhist4_begin_d integer , DIMENSION(max_domains) :: auxhist4_begin_h integer , DIMENSION(max_domains) :: auxhist4_begin_m integer , DIMENSION(max_domains) :: auxhist4_begin_s integer , DIMENSION(max_domains) :: auxhist4_begin integer , DIMENSION(max_domains) :: auxhist4_end_y integer , DIMENSION(max_domains) :: auxhist4_end_d integer , DIMENSION(max_domains) :: auxhist4_end_h integer , DIMENSION(max_domains) :: auxhist4_end_m integer , DIMENSION(max_domains) :: auxhist4_end_s integer , DIMENSION(max_domains) :: auxhist4_end integer :: io_form_auxhist4 integer , DIMENSION(max_domains) :: frames_per_auxhist4 character*256 :: auxhist5_inname character*256 :: auxhist5_outname integer , DIMENSION(max_domains) :: auxhist5_interval_y integer , DIMENSION(max_domains) :: auxhist5_interval_d integer , DIMENSION(max_domains) :: auxhist5_interval_h integer , DIMENSION(max_domains) :: auxhist5_interval_m integer , DIMENSION(max_domains) :: auxhist5_interval_s integer , DIMENSION(max_domains) :: auxhist5_interval integer , DIMENSION(max_domains) :: auxhist5_begin_y integer , DIMENSION(max_domains) :: auxhist5_begin_d integer , DIMENSION(max_domains) :: auxhist5_begin_h integer , DIMENSION(max_domains) :: auxhist5_begin_m integer , DIMENSION(max_domains) :: auxhist5_begin_s integer , DIMENSION(max_domains) :: auxhist5_begin integer , DIMENSION(max_domains) :: auxhist5_end_y integer , DIMENSION(max_domains) :: auxhist5_end_d integer , DIMENSION(max_domains) :: auxhist5_end_h integer , DIMENSION(max_domains) :: auxhist5_end_m integer , DIMENSION(max_domains) :: auxhist5_end_s integer , DIMENSION(max_domains) :: auxhist5_end integer :: io_form_auxhist5 integer , DIMENSION(max_domains) :: frames_per_auxhist5 character*256 :: auxhist6_inname character*256 :: auxhist6_outname integer , DIMENSION(max_domains) :: auxhist6_interval_y integer , DIMENSION(max_domains) :: auxhist6_interval_d integer , DIMENSION(max_domains) :: auxhist6_interval_h integer , DIMENSION(max_domains) :: auxhist6_interval_m integer , DIMENSION(max_domains) :: auxhist6_interval_s integer , DIMENSION(max_domains) :: auxhist6_interval integer , DIMENSION(max_domains) :: auxhist6_begin_y integer , DIMENSION(max_domains) :: auxhist6_begin_d integer , DIMENSION(max_domains) :: auxhist6_begin_h integer , DIMENSION(max_domains) :: auxhist6_begin_m integer , DIMENSION(max_domains) :: auxhist6_begin_s integer , DIMENSION(max_domains) :: auxhist6_begin integer , DIMENSION(max_domains) :: auxhist6_end_y integer , DIMENSION(max_domains) :: auxhist6_end_d integer , DIMENSION(max_domains) :: auxhist6_end_h integer , DIMENSION(max_domains) :: auxhist6_end_m integer , DIMENSION(max_domains) :: auxhist6_end_s integer , DIMENSION(max_domains) :: auxhist6_end integer :: io_form_auxhist6 integer , DIMENSION(max_domains) :: frames_per_auxhist6 character*256 :: auxhist7_inname character*256 :: auxhist7_outname integer , DIMENSION(max_domains) :: auxhist7_interval_y integer , DIMENSION(max_domains) :: auxhist7_interval_d integer , DIMENSION(max_domains) :: auxhist7_interval_h integer , DIMENSION(max_domains) :: auxhist7_interval_m integer , DIMENSION(max_domains) :: auxhist7_interval_s integer , DIMENSION(max_domains) :: auxhist7_interval integer , DIMENSION(max_domains) :: auxhist7_begin_y integer , DIMENSION(max_domains) :: auxhist7_begin_d integer , DIMENSION(max_domains) :: auxhist7_begin_h integer , DIMENSION(max_domains) :: auxhist7_begin_m integer , DIMENSION(max_domains) :: auxhist7_begin_s integer , DIMENSION(max_domains) :: auxhist7_begin integer , DIMENSION(max_domains) :: auxhist7_end_y integer , DIMENSION(max_domains) :: auxhist7_end_d integer , DIMENSION(max_domains) :: auxhist7_end_h integer , DIMENSION(max_domains) :: auxhist7_end_m integer , DIMENSION(max_domains) :: auxhist7_end_s integer , DIMENSION(max_domains) :: auxhist7_end integer :: io_form_auxhist7 integer , DIMENSION(max_domains) :: frames_per_auxhist7 character*256 :: auxhist8_inname character*256 :: auxhist8_outname integer , DIMENSION(max_domains) :: auxhist8_interval_y integer , DIMENSION(max_domains) :: auxhist8_interval_d integer , DIMENSION(max_domains) :: auxhist8_interval_h integer , DIMENSION(max_domains) :: auxhist8_interval_m integer , DIMENSION(max_domains) :: auxhist8_interval_s integer , DIMENSION(max_domains) :: auxhist8_interval integer , DIMENSION(max_domains) :: auxhist8_begin_y integer , DIMENSION(max_domains) :: auxhist8_begin_d integer , DIMENSION(max_domains) :: auxhist8_begin_h integer , DIMENSION(max_domains) :: auxhist8_begin_m integer , DIMENSION(max_domains) :: auxhist8_begin_s integer , DIMENSION(max_domains) :: auxhist8_begin integer , DIMENSION(max_domains) :: auxhist8_end_y integer , DIMENSION(max_domains) :: auxhist8_end_d integer , DIMENSION(max_domains) :: auxhist8_end_h integer , DIMENSION(max_domains) :: auxhist8_end_m integer , DIMENSION(max_domains) :: auxhist8_end_s integer , DIMENSION(max_domains) :: auxhist8_end integer :: io_form_auxhist8 integer , DIMENSION(max_domains) :: frames_per_auxhist8 character*256 :: auxhist9_inname character*256 :: auxhist9_outname integer , DIMENSION(max_domains) :: auxhist9_interval_y integer , DIMENSION(max_domains) :: auxhist9_interval_d integer , DIMENSION(max_domains) :: auxhist9_interval_h integer , DIMENSION(max_domains) :: auxhist9_interval_m integer , DIMENSION(max_domains) :: auxhist9_interval_s integer , DIMENSION(max_domains) :: auxhist9_interval integer , DIMENSION(max_domains) :: auxhist9_begin_y integer , DIMENSION(max_domains) :: auxhist9_begin_d integer , DIMENSION(max_domains) :: auxhist9_begin_h integer , DIMENSION(max_domains) :: auxhist9_begin_m integer , DIMENSION(max_domains) :: auxhist9_begin_s integer , DIMENSION(max_domains) :: auxhist9_begin integer , DIMENSION(max_domains) :: auxhist9_end_y integer , DIMENSION(max_domains) :: auxhist9_end_d integer , DIMENSION(max_domains) :: auxhist9_end_h integer , DIMENSION(max_domains) :: auxhist9_end_m integer , DIMENSION(max_domains) :: auxhist9_end_s integer , DIMENSION(max_domains) :: auxhist9_end integer :: io_form_auxhist9 integer , DIMENSION(max_domains) :: frames_per_auxhist9 character*256 :: auxhist10_inname character*256 :: auxhist10_outname integer , DIMENSION(max_domains) :: auxhist10_interval_y integer , DIMENSION(max_domains) :: auxhist10_interval_d integer , DIMENSION(max_domains) :: auxhist10_interval_h integer , DIMENSION(max_domains) :: auxhist10_interval_m integer , DIMENSION(max_domains) :: auxhist10_interval_s integer , DIMENSION(max_domains) :: auxhist10_interval integer , DIMENSION(max_domains) :: auxhist10_begin_y integer , DIMENSION(max_domains) :: auxhist10_begin_d integer , DIMENSION(max_domains) :: auxhist10_begin_h integer , DIMENSION(max_domains) :: auxhist10_begin_m integer , DIMENSION(max_domains) :: auxhist10_begin_s integer , DIMENSION(max_domains) :: auxhist10_begin integer , DIMENSION(max_domains) :: auxhist10_end_y integer , DIMENSION(max_domains) :: auxhist10_end_d integer , DIMENSION(max_domains) :: auxhist10_end_h integer , DIMENSION(max_domains) :: auxhist10_end_m integer , DIMENSION(max_domains) :: auxhist10_end_s integer , DIMENSION(max_domains) :: auxhist10_end integer :: io_form_auxhist10 integer , DIMENSION(max_domains) :: frames_per_auxhist10 character*256 :: auxhist11_inname character*256 :: auxhist11_outname integer , DIMENSION(max_domains) :: auxhist11_interval_y integer , DIMENSION(max_domains) :: auxhist11_interval_d integer , DIMENSION(max_domains) :: auxhist11_interval_h integer , DIMENSION(max_domains) :: auxhist11_interval_m integer , DIMENSION(max_domains) :: auxhist11_interval_s integer , DIMENSION(max_domains) :: auxhist11_interval integer , DIMENSION(max_domains) :: auxhist11_begin_y integer , DIMENSION(max_domains) :: auxhist11_begin_d integer , DIMENSION(max_domains) :: auxhist11_begin_h integer , DIMENSION(max_domains) :: auxhist11_begin_m integer , DIMENSION(max_domains) :: auxhist11_begin_s integer , DIMENSION(max_domains) :: auxhist11_begin integer , DIMENSION(max_domains) :: auxhist11_end_y integer , DIMENSION(max_domains) :: auxhist11_end_d integer , DIMENSION(max_domains) :: auxhist11_end_h integer , DIMENSION(max_domains) :: auxhist11_end_m integer , DIMENSION(max_domains) :: auxhist11_end_s integer , DIMENSION(max_domains) :: auxhist11_end integer :: io_form_auxhist11 integer , DIMENSION(max_domains) :: frames_per_auxhist11 character*256 :: auxhist12_inname character*256 :: auxhist12_outname integer , DIMENSION(max_domains) :: auxhist12_interval_y integer , DIMENSION(max_domains) :: auxhist12_interval_d integer , DIMENSION(max_domains) :: auxhist12_interval_h integer , DIMENSION(max_domains) :: auxhist12_interval_m integer , DIMENSION(max_domains) :: auxhist12_interval_s integer , DIMENSION(max_domains) :: auxhist12_interval integer , DIMENSION(max_domains) :: auxhist12_begin_y integer , DIMENSION(max_domains) :: auxhist12_begin_d integer , DIMENSION(max_domains) :: auxhist12_begin_h integer , DIMENSION(max_domains) :: auxhist12_begin_m integer , DIMENSION(max_domains) :: auxhist12_begin_s integer , DIMENSION(max_domains) :: auxhist12_begin integer , DIMENSION(max_domains) :: auxhist12_end_y integer , DIMENSION(max_domains) :: auxhist12_end_d integer , DIMENSION(max_domains) :: auxhist12_end_h integer , DIMENSION(max_domains) :: auxhist12_end_m integer , DIMENSION(max_domains) :: auxhist12_end_s integer , DIMENSION(max_domains) :: auxhist12_end integer :: io_form_auxhist12 integer , DIMENSION(max_domains) :: frames_per_auxhist12 character*256 :: auxhist13_inname character*256 :: auxhist13_outname integer , DIMENSION(max_domains) :: auxhist13_interval_y integer , DIMENSION(max_domains) :: auxhist13_interval_d integer , DIMENSION(max_domains) :: auxhist13_interval_h integer , DIMENSION(max_domains) :: auxhist13_interval_m integer , DIMENSION(max_domains) :: auxhist13_interval_s integer , DIMENSION(max_domains) :: auxhist13_interval integer , DIMENSION(max_domains) :: auxhist13_begin_y integer , DIMENSION(max_domains) :: auxhist13_begin_d integer , DIMENSION(max_domains) :: auxhist13_begin_h integer , DIMENSION(max_domains) :: auxhist13_begin_m integer , DIMENSION(max_domains) :: auxhist13_begin_s integer , DIMENSION(max_domains) :: auxhist13_begin integer , DIMENSION(max_domains) :: auxhist13_end_y integer , DIMENSION(max_domains) :: auxhist13_end_d integer , DIMENSION(max_domains) :: auxhist13_end_h integer , DIMENSION(max_domains) :: auxhist13_end_m integer , DIMENSION(max_domains) :: auxhist13_end_s integer , DIMENSION(max_domains) :: auxhist13_end integer :: io_form_auxhist13 integer , DIMENSION(max_domains) :: frames_per_auxhist13 character*256 :: auxhist14_inname character*256 :: auxhist14_outname integer , DIMENSION(max_domains) :: auxhist14_interval_y integer , DIMENSION(max_domains) :: auxhist14_interval_d integer , DIMENSION(max_domains) :: auxhist14_interval_h integer , DIMENSION(max_domains) :: auxhist14_interval_m integer , DIMENSION(max_domains) :: auxhist14_interval_s integer , DIMENSION(max_domains) :: auxhist14_interval integer , DIMENSION(max_domains) :: auxhist14_begin_y integer , DIMENSION(max_domains) :: auxhist14_begin_d integer , DIMENSION(max_domains) :: auxhist14_begin_h integer , DIMENSION(max_domains) :: auxhist14_begin_m integer , DIMENSION(max_domains) :: auxhist14_begin_s integer , DIMENSION(max_domains) :: auxhist14_begin integer , DIMENSION(max_domains) :: auxhist14_end_y integer , DIMENSION(max_domains) :: auxhist14_end_d integer , DIMENSION(max_domains) :: auxhist14_end_h integer , DIMENSION(max_domains) :: auxhist14_end_m integer , DIMENSION(max_domains) :: auxhist14_end_s integer , DIMENSION(max_domains) :: auxhist14_end integer :: io_form_auxhist14 integer , DIMENSION(max_domains) :: frames_per_auxhist14 character*256 :: auxhist15_inname character*256 :: auxhist15_outname integer , DIMENSION(max_domains) :: auxhist15_interval_y integer , DIMENSION(max_domains) :: auxhist15_interval_d integer , DIMENSION(max_domains) :: auxhist15_interval_h integer , DIMENSION(max_domains) :: auxhist15_interval_m integer , DIMENSION(max_domains) :: auxhist15_interval_s integer , DIMENSION(max_domains) :: auxhist15_interval integer , DIMENSION(max_domains) :: auxhist15_begin_y integer , DIMENSION(max_domains) :: auxhist15_begin_d integer , DIMENSION(max_domains) :: auxhist15_begin_h integer , DIMENSION(max_domains) :: auxhist15_begin_m integer , DIMENSION(max_domains) :: auxhist15_begin_s integer , DIMENSION(max_domains) :: auxhist15_begin integer , DIMENSION(max_domains) :: auxhist15_end_y integer , DIMENSION(max_domains) :: auxhist15_end_d integer , DIMENSION(max_domains) :: auxhist15_end_h integer , DIMENSION(max_domains) :: auxhist15_end_m integer , DIMENSION(max_domains) :: auxhist15_end_s integer , DIMENSION(max_domains) :: auxhist15_end integer :: io_form_auxhist15 integer , DIMENSION(max_domains) :: frames_per_auxhist15 character*256 :: auxhist16_inname character*256 :: auxhist16_outname integer , DIMENSION(max_domains) :: auxhist16_interval_y integer , DIMENSION(max_domains) :: auxhist16_interval_d integer , DIMENSION(max_domains) :: auxhist16_interval_h integer , DIMENSION(max_domains) :: auxhist16_interval_m integer , DIMENSION(max_domains) :: auxhist16_interval_s integer , DIMENSION(max_domains) :: auxhist16_interval integer , DIMENSION(max_domains) :: auxhist16_begin_y integer , DIMENSION(max_domains) :: auxhist16_begin_d integer , DIMENSION(max_domains) :: auxhist16_begin_h integer , DIMENSION(max_domains) :: auxhist16_begin_m integer , DIMENSION(max_domains) :: auxhist16_begin_s integer , DIMENSION(max_domains) :: auxhist16_begin integer , DIMENSION(max_domains) :: auxhist16_end_y integer , DIMENSION(max_domains) :: auxhist16_end_d integer , DIMENSION(max_domains) :: auxhist16_end_h integer , DIMENSION(max_domains) :: auxhist16_end_m integer , DIMENSION(max_domains) :: auxhist16_end_s integer , DIMENSION(max_domains) :: auxhist16_end integer :: io_form_auxhist16 integer , DIMENSION(max_domains) :: frames_per_auxhist16 character*256 :: auxhist17_inname character*256 :: auxhist17_outname integer , DIMENSION(max_domains) :: auxhist17_interval_y integer , DIMENSION(max_domains) :: auxhist17_interval_d integer , DIMENSION(max_domains) :: auxhist17_interval_h integer , DIMENSION(max_domains) :: auxhist17_interval_m integer , DIMENSION(max_domains) :: auxhist17_interval_s integer , DIMENSION(max_domains) :: auxhist17_interval integer , DIMENSION(max_domains) :: auxhist17_begin_y integer , DIMENSION(max_domains) :: auxhist17_begin_d integer , DIMENSION(max_domains) :: auxhist17_begin_h integer , DIMENSION(max_domains) :: auxhist17_begin_m integer , DIMENSION(max_domains) :: auxhist17_begin_s integer , DIMENSION(max_domains) :: auxhist17_begin integer , DIMENSION(max_domains) :: auxhist17_end_y integer , DIMENSION(max_domains) :: auxhist17_end_d integer , DIMENSION(max_domains) :: auxhist17_end_h integer , DIMENSION(max_domains) :: auxhist17_end_m integer , DIMENSION(max_domains) :: auxhist17_end_s integer , DIMENSION(max_domains) :: auxhist17_end integer :: io_form_auxhist17 integer , DIMENSION(max_domains) :: frames_per_auxhist17 character*256 :: auxhist18_inname character*256 :: auxhist18_outname integer , DIMENSION(max_domains) :: auxhist18_interval_y integer , DIMENSION(max_domains) :: auxhist18_interval_d integer , DIMENSION(max_domains) :: auxhist18_interval_h integer , DIMENSION(max_domains) :: auxhist18_interval_m integer , DIMENSION(max_domains) :: auxhist18_interval_s integer , DIMENSION(max_domains) :: auxhist18_interval integer , DIMENSION(max_domains) :: auxhist18_begin_y integer , DIMENSION(max_domains) :: auxhist18_begin_d integer , DIMENSION(max_domains) :: auxhist18_begin_h integer , DIMENSION(max_domains) :: auxhist18_begin_m integer , DIMENSION(max_domains) :: auxhist18_begin_s integer , DIMENSION(max_domains) :: auxhist18_begin integer , DIMENSION(max_domains) :: auxhist18_end_y integer , DIMENSION(max_domains) :: auxhist18_end_d integer , DIMENSION(max_domains) :: auxhist18_end_h integer , DIMENSION(max_domains) :: auxhist18_end_m integer , DIMENSION(max_domains) :: auxhist18_end_s integer , DIMENSION(max_domains) :: auxhist18_end integer :: io_form_auxhist18 integer , DIMENSION(max_domains) :: frames_per_auxhist18 character*256 :: auxhist19_inname character*256 :: auxhist19_outname integer , DIMENSION(max_domains) :: auxhist19_interval_y integer , DIMENSION(max_domains) :: auxhist19_interval_d integer , DIMENSION(max_domains) :: auxhist19_interval_h integer , DIMENSION(max_domains) :: auxhist19_interval_m integer , DIMENSION(max_domains) :: auxhist19_interval_s integer , DIMENSION(max_domains) :: auxhist19_interval integer , DIMENSION(max_domains) :: auxhist19_begin_y integer , DIMENSION(max_domains) :: auxhist19_begin_d integer , DIMENSION(max_domains) :: auxhist19_begin_h integer , DIMENSION(max_domains) :: auxhist19_begin_m integer , DIMENSION(max_domains) :: auxhist19_begin_s integer , DIMENSION(max_domains) :: auxhist19_begin integer , DIMENSION(max_domains) :: auxhist19_end_y integer , DIMENSION(max_domains) :: auxhist19_end_d integer , DIMENSION(max_domains) :: auxhist19_end_h integer , DIMENSION(max_domains) :: auxhist19_end_m integer , DIMENSION(max_domains) :: auxhist19_end_s integer , DIMENSION(max_domains) :: auxhist19_end integer :: io_form_auxhist19 integer , DIMENSION(max_domains) :: frames_per_auxhist19 character*256 :: auxhist20_inname character*256 :: auxhist20_outname integer , DIMENSION(max_domains) :: auxhist20_interval_y integer , DIMENSION(max_domains) :: auxhist20_interval_d integer , DIMENSION(max_domains) :: auxhist20_interval_h integer , DIMENSION(max_domains) :: auxhist20_interval_m integer , DIMENSION(max_domains) :: auxhist20_interval_s integer , DIMENSION(max_domains) :: auxhist20_interval integer , DIMENSION(max_domains) :: auxhist20_begin_y integer , DIMENSION(max_domains) :: auxhist20_begin_d integer , DIMENSION(max_domains) :: auxhist20_begin_h integer , DIMENSION(max_domains) :: auxhist20_begin_m integer , DIMENSION(max_domains) :: auxhist20_begin_s integer , DIMENSION(max_domains) :: auxhist20_begin integer , DIMENSION(max_domains) :: auxhist20_end_y integer , DIMENSION(max_domains) :: auxhist20_end_d integer , DIMENSION(max_domains) :: auxhist20_end_h integer , DIMENSION(max_domains) :: auxhist20_end_m integer , DIMENSION(max_domains) :: auxhist20_end_s integer , DIMENSION(max_domains) :: auxhist20_end integer :: io_form_auxhist20 integer , DIMENSION(max_domains) :: frames_per_auxhist20 character*256 :: auxhist21_inname character*256 :: auxhist21_outname integer , DIMENSION(max_domains) :: auxhist21_interval_y integer , DIMENSION(max_domains) :: auxhist21_interval_d integer , DIMENSION(max_domains) :: auxhist21_interval_h integer , DIMENSION(max_domains) :: auxhist21_interval_m integer , DIMENSION(max_domains) :: auxhist21_interval_s integer , DIMENSION(max_domains) :: auxhist21_interval integer , DIMENSION(max_domains) :: auxhist21_begin_y integer , DIMENSION(max_domains) :: auxhist21_begin_d integer , DIMENSION(max_domains) :: auxhist21_begin_h integer , DIMENSION(max_domains) :: auxhist21_begin_m integer , DIMENSION(max_domains) :: auxhist21_begin_s integer , DIMENSION(max_domains) :: auxhist21_begin integer , DIMENSION(max_domains) :: auxhist21_end_y integer , DIMENSION(max_domains) :: auxhist21_end_d integer , DIMENSION(max_domains) :: auxhist21_end_h integer , DIMENSION(max_domains) :: auxhist21_end_m integer , DIMENSION(max_domains) :: auxhist21_end_s integer , DIMENSION(max_domains) :: auxhist21_end integer :: io_form_auxhist21 integer , DIMENSION(max_domains) :: frames_per_auxhist21 character*256 :: auxhist22_inname character*256 :: auxhist22_outname integer , DIMENSION(max_domains) :: auxhist22_interval_y integer , DIMENSION(max_domains) :: auxhist22_interval_d integer , DIMENSION(max_domains) :: auxhist22_interval_h integer , DIMENSION(max_domains) :: auxhist22_interval_m integer , DIMENSION(max_domains) :: auxhist22_interval_s integer , DIMENSION(max_domains) :: auxhist22_interval integer , DIMENSION(max_domains) :: auxhist22_begin_y integer , DIMENSION(max_domains) :: auxhist22_begin_d integer , DIMENSION(max_domains) :: auxhist22_begin_h integer , DIMENSION(max_domains) :: auxhist22_begin_m integer , DIMENSION(max_domains) :: auxhist22_begin_s integer , DIMENSION(max_domains) :: auxhist22_begin integer , DIMENSION(max_domains) :: auxhist22_end_y integer , DIMENSION(max_domains) :: auxhist22_end_d integer , DIMENSION(max_domains) :: auxhist22_end_h integer , DIMENSION(max_domains) :: auxhist22_end_m integer , DIMENSION(max_domains) :: auxhist22_end_s integer , DIMENSION(max_domains) :: auxhist22_end integer :: io_form_auxhist22 integer , DIMENSION(max_domains) :: frames_per_auxhist22 character*256 :: auxhist23_inname character*256 :: auxhist23_outname integer , DIMENSION(max_domains) :: auxhist23_interval_y integer , DIMENSION(max_domains) :: auxhist23_interval_d integer , DIMENSION(max_domains) :: auxhist23_interval_h integer , DIMENSION(max_domains) :: auxhist23_interval_m integer , DIMENSION(max_domains) :: auxhist23_interval_s integer , DIMENSION(max_domains) :: auxhist23_interval integer , DIMENSION(max_domains) :: auxhist23_begin_y integer , DIMENSION(max_domains) :: auxhist23_begin_d integer , DIMENSION(max_domains) :: auxhist23_begin_h integer , DIMENSION(max_domains) :: auxhist23_begin_m integer , DIMENSION(max_domains) :: auxhist23_begin_s integer , DIMENSION(max_domains) :: auxhist23_begin integer , DIMENSION(max_domains) :: auxhist23_end_y integer , DIMENSION(max_domains) :: auxhist23_end_d integer , DIMENSION(max_domains) :: auxhist23_end_h integer , DIMENSION(max_domains) :: auxhist23_end_m integer , DIMENSION(max_domains) :: auxhist23_end_s integer , DIMENSION(max_domains) :: auxhist23_end integer :: io_form_auxhist23 integer , DIMENSION(max_domains) :: frames_per_auxhist23 character*256 :: auxhist24_inname character*256 :: auxhist24_outname integer , DIMENSION(max_domains) :: auxhist24_interval_y integer , DIMENSION(max_domains) :: auxhist24_interval_d integer , DIMENSION(max_domains) :: auxhist24_interval_h integer , DIMENSION(max_domains) :: auxhist24_interval_m integer , DIMENSION(max_domains) :: auxhist24_interval_s integer , DIMENSION(max_domains) :: auxhist24_interval integer , DIMENSION(max_domains) :: auxhist24_begin_y integer , DIMENSION(max_domains) :: auxhist24_begin_d integer , DIMENSION(max_domains) :: auxhist24_begin_h integer , DIMENSION(max_domains) :: auxhist24_begin_m integer , DIMENSION(max_domains) :: auxhist24_begin_s integer , DIMENSION(max_domains) :: auxhist24_begin integer , DIMENSION(max_domains) :: auxhist24_end_y integer , DIMENSION(max_domains) :: auxhist24_end_d integer , DIMENSION(max_domains) :: auxhist24_end_h integer , DIMENSION(max_domains) :: auxhist24_end_m integer , DIMENSION(max_domains) :: auxhist24_end_s integer , DIMENSION(max_domains) :: auxhist24_end integer :: io_form_auxhist24 integer , DIMENSION(max_domains) :: frames_per_auxhist24 character*256 :: auxinput1_outname integer , DIMENSION(max_domains) :: auxinput1_interval_y integer , DIMENSION(max_domains) :: auxinput1_interval_d integer , DIMENSION(max_domains) :: auxinput1_interval_h integer , DIMENSION(max_domains) :: auxinput1_interval_m integer , DIMENSION(max_domains) :: auxinput1_interval_s integer , DIMENSION(max_domains) :: auxinput1_interval integer , DIMENSION(max_domains) :: auxinput1_begin_y integer , DIMENSION(max_domains) :: auxinput1_begin_d integer , DIMENSION(max_domains) :: auxinput1_begin_h integer , DIMENSION(max_domains) :: auxinput1_begin_m integer , DIMENSION(max_domains) :: auxinput1_begin_s integer , DIMENSION(max_domains) :: auxinput1_begin integer , DIMENSION(max_domains) :: auxinput1_end_y integer , DIMENSION(max_domains) :: auxinput1_end_d integer , DIMENSION(max_domains) :: auxinput1_end_h integer , DIMENSION(max_domains) :: auxinput1_end_m integer , DIMENSION(max_domains) :: auxinput1_end_s integer , DIMENSION(max_domains) :: auxinput1_end integer , DIMENSION(max_domains) :: frames_per_auxinput1 character*256 :: auxinput2_inname character*256 :: auxinput2_outname integer , DIMENSION(max_domains) :: auxinput2_interval_y integer , DIMENSION(max_domains) :: auxinput2_interval_d integer , DIMENSION(max_domains) :: auxinput2_interval_h integer , DIMENSION(max_domains) :: auxinput2_interval_m integer , DIMENSION(max_domains) :: auxinput2_interval_s integer , DIMENSION(max_domains) :: auxinput2_interval integer , DIMENSION(max_domains) :: auxinput2_begin_y integer , DIMENSION(max_domains) :: auxinput2_begin_d integer , DIMENSION(max_domains) :: auxinput2_begin_h integer , DIMENSION(max_domains) :: auxinput2_begin_m integer , DIMENSION(max_domains) :: auxinput2_begin_s integer , DIMENSION(max_domains) :: auxinput2_begin integer , DIMENSION(max_domains) :: auxinput2_end_y integer , DIMENSION(max_domains) :: auxinput2_end_d integer , DIMENSION(max_domains) :: auxinput2_end_h integer , DIMENSION(max_domains) :: auxinput2_end_m integer , DIMENSION(max_domains) :: auxinput2_end_s integer , DIMENSION(max_domains) :: auxinput2_end integer :: io_form_auxinput2 integer , DIMENSION(max_domains) :: frames_per_auxinput2 character*256 :: auxinput3_inname character*256 :: auxinput3_outname integer , DIMENSION(max_domains) :: auxinput3_interval_y integer , DIMENSION(max_domains) :: auxinput3_interval_d integer , DIMENSION(max_domains) :: auxinput3_interval_h integer , DIMENSION(max_domains) :: auxinput3_interval_m integer , DIMENSION(max_domains) :: auxinput3_interval_s integer , DIMENSION(max_domains) :: auxinput3_interval integer , DIMENSION(max_domains) :: auxinput3_begin_y integer , DIMENSION(max_domains) :: auxinput3_begin_d integer , DIMENSION(max_domains) :: auxinput3_begin_h integer , DIMENSION(max_domains) :: auxinput3_begin_m integer , DIMENSION(max_domains) :: auxinput3_begin_s integer , DIMENSION(max_domains) :: auxinput3_begin integer , DIMENSION(max_domains) :: auxinput3_end_y integer , DIMENSION(max_domains) :: auxinput3_end_d integer , DIMENSION(max_domains) :: auxinput3_end_h integer , DIMENSION(max_domains) :: auxinput3_end_m integer , DIMENSION(max_domains) :: auxinput3_end_s integer , DIMENSION(max_domains) :: auxinput3_end integer :: io_form_auxinput3 integer , DIMENSION(max_domains) :: frames_per_auxinput3 character*256 :: auxinput4_inname character*256 :: auxinput4_outname integer , DIMENSION(max_domains) :: auxinput4_interval_y integer , DIMENSION(max_domains) :: auxinput4_interval_d integer , DIMENSION(max_domains) :: auxinput4_interval_h integer , DIMENSION(max_domains) :: auxinput4_interval_m integer , DIMENSION(max_domains) :: auxinput4_interval_s integer , DIMENSION(max_domains) :: auxinput4_interval integer , DIMENSION(max_domains) :: auxinput4_begin_y integer , DIMENSION(max_domains) :: auxinput4_begin_d integer , DIMENSION(max_domains) :: auxinput4_begin_h integer , DIMENSION(max_domains) :: auxinput4_begin_m integer , DIMENSION(max_domains) :: auxinput4_begin_s integer , DIMENSION(max_domains) :: auxinput4_begin integer , DIMENSION(max_domains) :: auxinput4_end_y integer , DIMENSION(max_domains) :: auxinput4_end_d integer , DIMENSION(max_domains) :: auxinput4_end_h integer , DIMENSION(max_domains) :: auxinput4_end_m integer , DIMENSION(max_domains) :: auxinput4_end_s integer , DIMENSION(max_domains) :: auxinput4_end integer :: io_form_auxinput4 integer , DIMENSION(max_domains) :: frames_per_auxinput4 character*256 :: auxinput5_inname character*256 :: auxinput5_outname integer , DIMENSION(max_domains) :: auxinput5_interval_y integer , DIMENSION(max_domains) :: auxinput5_interval_d integer , DIMENSION(max_domains) :: auxinput5_interval_h integer , DIMENSION(max_domains) :: auxinput5_interval_m integer , DIMENSION(max_domains) :: auxinput5_interval_s integer , DIMENSION(max_domains) :: auxinput5_interval integer , DIMENSION(max_domains) :: auxinput5_begin_y integer , DIMENSION(max_domains) :: auxinput5_begin_d integer , DIMENSION(max_domains) :: auxinput5_begin_h integer , DIMENSION(max_domains) :: auxinput5_begin_m integer , DIMENSION(max_domains) :: auxinput5_begin_s integer , DIMENSION(max_domains) :: auxinput5_begin integer , DIMENSION(max_domains) :: auxinput5_end_y integer , DIMENSION(max_domains) :: auxinput5_end_d integer , DIMENSION(max_domains) :: auxinput5_end_h integer , DIMENSION(max_domains) :: auxinput5_end_m integer , DIMENSION(max_domains) :: auxinput5_end_s integer , DIMENSION(max_domains) :: auxinput5_end integer :: io_form_auxinput5 integer , DIMENSION(max_domains) :: frames_per_auxinput5 character*256 :: auxinput6_inname character*256 :: auxinput6_outname integer , DIMENSION(max_domains) :: auxinput6_interval_y integer , DIMENSION(max_domains) :: auxinput6_interval_d integer , DIMENSION(max_domains) :: auxinput6_interval_h integer , DIMENSION(max_domains) :: auxinput6_interval_m integer , DIMENSION(max_domains) :: auxinput6_interval_s integer , DIMENSION(max_domains) :: auxinput6_interval integer , DIMENSION(max_domains) :: auxinput6_begin_y integer , DIMENSION(max_domains) :: auxinput6_begin_d integer , DIMENSION(max_domains) :: auxinput6_begin_h integer , DIMENSION(max_domains) :: auxinput6_begin_m integer , DIMENSION(max_domains) :: auxinput6_begin_s integer , DIMENSION(max_domains) :: auxinput6_begin integer , DIMENSION(max_domains) :: auxinput6_end_y integer , DIMENSION(max_domains) :: auxinput6_end_d integer , DIMENSION(max_domains) :: auxinput6_end_h integer , DIMENSION(max_domains) :: auxinput6_end_m integer , DIMENSION(max_domains) :: auxinput6_end_s integer , DIMENSION(max_domains) :: auxinput6_end integer :: io_form_auxinput6 integer , DIMENSION(max_domains) :: frames_per_auxinput6 character*256 :: auxinput7_inname character*256 :: auxinput7_outname integer , DIMENSION(max_domains) :: auxinput7_interval_y integer , DIMENSION(max_domains) :: auxinput7_interval_d integer , DIMENSION(max_domains) :: auxinput7_interval_h integer , DIMENSION(max_domains) :: auxinput7_interval_m integer , DIMENSION(max_domains) :: auxinput7_interval_s integer , DIMENSION(max_domains) :: auxinput7_interval integer , DIMENSION(max_domains) :: auxinput7_begin_y integer , DIMENSION(max_domains) :: auxinput7_begin_d integer , DIMENSION(max_domains) :: auxinput7_begin_h integer , DIMENSION(max_domains) :: auxinput7_begin_m integer , DIMENSION(max_domains) :: auxinput7_begin_s integer , DIMENSION(max_domains) :: auxinput7_begin integer , DIMENSION(max_domains) :: auxinput7_end_y integer , DIMENSION(max_domains) :: auxinput7_end_d integer , DIMENSION(max_domains) :: auxinput7_end_h integer , DIMENSION(max_domains) :: auxinput7_end_m integer , DIMENSION(max_domains) :: auxinput7_end_s integer , DIMENSION(max_domains) :: auxinput7_end integer :: io_form_auxinput7 integer , DIMENSION(max_domains) :: frames_per_auxinput7 character*256 :: auxinput8_inname character*256 :: auxinput8_outname integer , DIMENSION(max_domains) :: auxinput8_interval_y integer , DIMENSION(max_domains) :: auxinput8_interval_d integer , DIMENSION(max_domains) :: auxinput8_interval_h integer , DIMENSION(max_domains) :: auxinput8_interval_m integer , DIMENSION(max_domains) :: auxinput8_interval_s integer , DIMENSION(max_domains) :: auxinput8_interval integer , DIMENSION(max_domains) :: auxinput8_begin_y integer , DIMENSION(max_domains) :: auxinput8_begin_d integer , DIMENSION(max_domains) :: auxinput8_begin_h integer , DIMENSION(max_domains) :: auxinput8_begin_m integer , DIMENSION(max_domains) :: auxinput8_begin_s integer , DIMENSION(max_domains) :: auxinput8_begin integer , DIMENSION(max_domains) :: auxinput8_end_y integer , DIMENSION(max_domains) :: auxinput8_end_d integer , DIMENSION(max_domains) :: auxinput8_end_h integer , DIMENSION(max_domains) :: auxinput8_end_m integer , DIMENSION(max_domains) :: auxinput8_end_s integer , DIMENSION(max_domains) :: auxinput8_end integer :: io_form_auxinput8 integer , DIMENSION(max_domains) :: frames_per_auxinput8 character*256 :: auxinput9_inname character*256 :: auxinput9_outname integer , DIMENSION(max_domains) :: auxinput9_interval_y integer , DIMENSION(max_domains) :: auxinput9_interval_d integer , DIMENSION(max_domains) :: auxinput9_interval_h integer , DIMENSION(max_domains) :: auxinput9_interval_m integer , DIMENSION(max_domains) :: auxinput9_interval_s integer , DIMENSION(max_domains) :: auxinput9_interval integer , DIMENSION(max_domains) :: auxinput9_begin_y integer , DIMENSION(max_domains) :: auxinput9_begin_d integer , DIMENSION(max_domains) :: auxinput9_begin_h integer , DIMENSION(max_domains) :: auxinput9_begin_m integer , DIMENSION(max_domains) :: auxinput9_begin_s integer , DIMENSION(max_domains) :: auxinput9_begin integer , DIMENSION(max_domains) :: auxinput9_end_y integer , DIMENSION(max_domains) :: auxinput9_end_d integer , DIMENSION(max_domains) :: auxinput9_end_h integer , DIMENSION(max_domains) :: auxinput9_end_m integer , DIMENSION(max_domains) :: auxinput9_end_s integer , DIMENSION(max_domains) :: auxinput9_end integer :: io_form_auxinput9 integer , DIMENSION(max_domains) :: frames_per_auxinput9 character*256 :: auxinput10_inname character*256 :: auxinput10_outname integer , DIMENSION(max_domains) :: auxinput10_interval_y integer , DIMENSION(max_domains) :: auxinput10_interval_d integer , DIMENSION(max_domains) :: auxinput10_interval_h integer , DIMENSION(max_domains) :: auxinput10_interval_m integer , DIMENSION(max_domains) :: auxinput10_interval_s integer , DIMENSION(max_domains) :: auxinput10_interval integer , DIMENSION(max_domains) :: auxinput10_begin_y integer , DIMENSION(max_domains) :: auxinput10_begin_d integer , DIMENSION(max_domains) :: auxinput10_begin_h integer , DIMENSION(max_domains) :: auxinput10_begin_m integer , DIMENSION(max_domains) :: auxinput10_begin_s integer , DIMENSION(max_domains) :: auxinput10_begin integer , DIMENSION(max_domains) :: auxinput10_end_y integer , DIMENSION(max_domains) :: auxinput10_end_d integer , DIMENSION(max_domains) :: auxinput10_end_h integer , DIMENSION(max_domains) :: auxinput10_end_m integer , DIMENSION(max_domains) :: auxinput10_end_s integer , DIMENSION(max_domains) :: auxinput10_end integer :: io_form_auxinput10 integer , DIMENSION(max_domains) :: frames_per_auxinput10 character*256 :: auxinput11_inname character*256 :: auxinput11_outname integer , DIMENSION(max_domains) :: auxinput11_interval_y integer , DIMENSION(max_domains) :: auxinput11_interval_d integer , DIMENSION(max_domains) :: auxinput11_interval_h integer , DIMENSION(max_domains) :: auxinput11_interval_m integer , DIMENSION(max_domains) :: auxinput11_interval_s integer , DIMENSION(max_domains) :: auxinput11_interval integer , DIMENSION(max_domains) :: auxinput11_begin_y integer , DIMENSION(max_domains) :: auxinput11_begin_d integer , DIMENSION(max_domains) :: auxinput11_begin_h integer , DIMENSION(max_domains) :: auxinput11_begin_m integer , DIMENSION(max_domains) :: auxinput11_begin_s integer , DIMENSION(max_domains) :: auxinput11_begin integer , DIMENSION(max_domains) :: auxinput11_end_y integer , DIMENSION(max_domains) :: auxinput11_end_d integer , DIMENSION(max_domains) :: auxinput11_end_h integer , DIMENSION(max_domains) :: auxinput11_end_m integer , DIMENSION(max_domains) :: auxinput11_end_s integer , DIMENSION(max_domains) :: auxinput11_end integer :: io_form_auxinput11 integer , DIMENSION(max_domains) :: frames_per_auxinput11 character*256 :: auxinput12_inname character*256 :: auxinput12_outname integer , DIMENSION(max_domains) :: auxinput12_interval_y integer , DIMENSION(max_domains) :: auxinput12_interval_d integer , DIMENSION(max_domains) :: auxinput12_interval_h integer , DIMENSION(max_domains) :: auxinput12_interval_m integer , DIMENSION(max_domains) :: auxinput12_interval_s integer , DIMENSION(max_domains) :: auxinput12_interval integer , DIMENSION(max_domains) :: auxinput12_begin_y integer , DIMENSION(max_domains) :: auxinput12_begin_d integer , DIMENSION(max_domains) :: auxinput12_begin_h integer , DIMENSION(max_domains) :: auxinput12_begin_m integer , DIMENSION(max_domains) :: auxinput12_begin_s integer , DIMENSION(max_domains) :: auxinput12_begin integer , DIMENSION(max_domains) :: auxinput12_end_y integer , DIMENSION(max_domains) :: auxinput12_end_d integer , DIMENSION(max_domains) :: auxinput12_end_h integer , DIMENSION(max_domains) :: auxinput12_end_m integer , DIMENSION(max_domains) :: auxinput12_end_s integer , DIMENSION(max_domains) :: auxinput12_end integer :: io_form_auxinput12 integer , DIMENSION(max_domains) :: frames_per_auxinput12 character*256 :: auxinput13_inname character*256 :: auxinput13_outname integer , DIMENSION(max_domains) :: auxinput13_interval_y integer , DIMENSION(max_domains) :: auxinput13_interval_d integer , DIMENSION(max_domains) :: auxinput13_interval_h integer , DIMENSION(max_domains) :: auxinput13_interval_m integer , DIMENSION(max_domains) :: auxinput13_interval_s integer , DIMENSION(max_domains) :: auxinput13_interval integer , DIMENSION(max_domains) :: auxinput13_begin_y integer , DIMENSION(max_domains) :: auxinput13_begin_d integer , DIMENSION(max_domains) :: auxinput13_begin_h integer , DIMENSION(max_domains) :: auxinput13_begin_m integer , DIMENSION(max_domains) :: auxinput13_begin_s integer , DIMENSION(max_domains) :: auxinput13_begin integer , DIMENSION(max_domains) :: auxinput13_end_y integer , DIMENSION(max_domains) :: auxinput13_end_d integer , DIMENSION(max_domains) :: auxinput13_end_h integer , DIMENSION(max_domains) :: auxinput13_end_m integer , DIMENSION(max_domains) :: auxinput13_end_s integer , DIMENSION(max_domains) :: auxinput13_end integer :: io_form_auxinput13 integer , DIMENSION(max_domains) :: frames_per_auxinput13 character*256 :: auxinput14_inname character*256 :: auxinput14_outname integer , DIMENSION(max_domains) :: auxinput14_interval_y integer , DIMENSION(max_domains) :: auxinput14_interval_d integer , DIMENSION(max_domains) :: auxinput14_interval_h integer , DIMENSION(max_domains) :: auxinput14_interval_m integer , DIMENSION(max_domains) :: auxinput14_interval_s integer , DIMENSION(max_domains) :: auxinput14_interval integer , DIMENSION(max_domains) :: auxinput14_begin_y integer , DIMENSION(max_domains) :: auxinput14_begin_d integer , DIMENSION(max_domains) :: auxinput14_begin_h integer , DIMENSION(max_domains) :: auxinput14_begin_m integer , DIMENSION(max_domains) :: auxinput14_begin_s integer , DIMENSION(max_domains) :: auxinput14_begin integer , DIMENSION(max_domains) :: auxinput14_end_y integer , DIMENSION(max_domains) :: auxinput14_end_d integer , DIMENSION(max_domains) :: auxinput14_end_h integer , DIMENSION(max_domains) :: auxinput14_end_m integer , DIMENSION(max_domains) :: auxinput14_end_s integer , DIMENSION(max_domains) :: auxinput14_end integer :: io_form_auxinput14 integer , DIMENSION(max_domains) :: frames_per_auxinput14 character*256 :: auxinput15_inname character*256 :: auxinput15_outname integer , DIMENSION(max_domains) :: auxinput15_interval_y integer , DIMENSION(max_domains) :: auxinput15_interval_d integer , DIMENSION(max_domains) :: auxinput15_interval_h integer , DIMENSION(max_domains) :: auxinput15_interval_m integer , DIMENSION(max_domains) :: auxinput15_interval_s integer , DIMENSION(max_domains) :: auxinput15_interval integer , DIMENSION(max_domains) :: auxinput15_begin_y integer , DIMENSION(max_domains) :: auxinput15_begin_d integer , DIMENSION(max_domains) :: auxinput15_begin_h integer , DIMENSION(max_domains) :: auxinput15_begin_m integer , DIMENSION(max_domains) :: auxinput15_begin_s integer , DIMENSION(max_domains) :: auxinput15_begin integer , DIMENSION(max_domains) :: auxinput15_end_y integer , DIMENSION(max_domains) :: auxinput15_end_d integer , DIMENSION(max_domains) :: auxinput15_end_h integer , DIMENSION(max_domains) :: auxinput15_end_m integer , DIMENSION(max_domains) :: auxinput15_end_s integer , DIMENSION(max_domains) :: auxinput15_end integer :: io_form_auxinput15 integer , DIMENSION(max_domains) :: frames_per_auxinput15 character*256 :: auxinput16_inname character*256 :: auxinput16_outname integer , DIMENSION(max_domains) :: auxinput16_interval_y integer , DIMENSION(max_domains) :: auxinput16_interval_d integer , DIMENSION(max_domains) :: auxinput16_interval_h integer , DIMENSION(max_domains) :: auxinput16_interval_m integer , DIMENSION(max_domains) :: auxinput16_interval_s integer , DIMENSION(max_domains) :: auxinput16_interval integer , DIMENSION(max_domains) :: auxinput16_begin_y integer , DIMENSION(max_domains) :: auxinput16_begin_d integer , DIMENSION(max_domains) :: auxinput16_begin_h integer , DIMENSION(max_domains) :: auxinput16_begin_m integer , DIMENSION(max_domains) :: auxinput16_begin_s integer , DIMENSION(max_domains) :: auxinput16_begin integer , DIMENSION(max_domains) :: auxinput16_end_y integer , DIMENSION(max_domains) :: auxinput16_end_d integer , DIMENSION(max_domains) :: auxinput16_end_h integer , DIMENSION(max_domains) :: auxinput16_end_m integer , DIMENSION(max_domains) :: auxinput16_end_s integer , DIMENSION(max_domains) :: auxinput16_end integer :: io_form_auxinput16 integer , DIMENSION(max_domains) :: frames_per_auxinput16 character*256 :: auxinput17_inname character*256 :: auxinput17_outname integer , DIMENSION(max_domains) :: auxinput17_interval_y integer , DIMENSION(max_domains) :: auxinput17_interval_d integer , DIMENSION(max_domains) :: auxinput17_interval_h integer , DIMENSION(max_domains) :: auxinput17_interval_m integer , DIMENSION(max_domains) :: auxinput17_interval_s integer , DIMENSION(max_domains) :: auxinput17_interval integer , DIMENSION(max_domains) :: auxinput17_begin_y integer , DIMENSION(max_domains) :: auxinput17_begin_d integer , DIMENSION(max_domains) :: auxinput17_begin_h integer , DIMENSION(max_domains) :: auxinput17_begin_m integer , DIMENSION(max_domains) :: auxinput17_begin_s integer , DIMENSION(max_domains) :: auxinput17_begin integer , DIMENSION(max_domains) :: auxinput17_end_y integer , DIMENSION(max_domains) :: auxinput17_end_d integer , DIMENSION(max_domains) :: auxinput17_end_h integer , DIMENSION(max_domains) :: auxinput17_end_m integer , DIMENSION(max_domains) :: auxinput17_end_s integer , DIMENSION(max_domains) :: auxinput17_end integer :: io_form_auxinput17 integer , DIMENSION(max_domains) :: frames_per_auxinput17 character*256 :: auxinput18_inname character*256 :: auxinput18_outname integer , DIMENSION(max_domains) :: auxinput18_interval_y integer , DIMENSION(max_domains) :: auxinput18_interval_d integer , DIMENSION(max_domains) :: auxinput18_interval_h integer , DIMENSION(max_domains) :: auxinput18_interval_m integer , DIMENSION(max_domains) :: auxinput18_interval_s integer , DIMENSION(max_domains) :: auxinput18_interval integer , DIMENSION(max_domains) :: auxinput18_begin_y integer , DIMENSION(max_domains) :: auxinput18_begin_d integer , DIMENSION(max_domains) :: auxinput18_begin_h integer , DIMENSION(max_domains) :: auxinput18_begin_m integer , DIMENSION(max_domains) :: auxinput18_begin_s integer , DIMENSION(max_domains) :: auxinput18_begin integer , DIMENSION(max_domains) :: auxinput18_end_y integer , DIMENSION(max_domains) :: auxinput18_end_d integer , DIMENSION(max_domains) :: auxinput18_end_h integer , DIMENSION(max_domains) :: auxinput18_end_m integer , DIMENSION(max_domains) :: auxinput18_end_s integer , DIMENSION(max_domains) :: auxinput18_end integer :: io_form_auxinput18 integer , DIMENSION(max_domains) :: frames_per_auxinput18 character*256 :: auxinput19_inname character*256 :: auxinput19_outname integer , DIMENSION(max_domains) :: auxinput19_interval_y integer , DIMENSION(max_domains) :: auxinput19_interval_d integer , DIMENSION(max_domains) :: auxinput19_interval_h integer , DIMENSION(max_domains) :: auxinput19_interval_m integer , DIMENSION(max_domains) :: auxinput19_interval_s integer , DIMENSION(max_domains) :: auxinput19_interval integer , DIMENSION(max_domains) :: auxinput19_begin_y integer , DIMENSION(max_domains) :: auxinput19_begin_d integer , DIMENSION(max_domains) :: auxinput19_begin_h integer , DIMENSION(max_domains) :: auxinput19_begin_m integer , DIMENSION(max_domains) :: auxinput19_begin_s integer , DIMENSION(max_domains) :: auxinput19_begin integer , DIMENSION(max_domains) :: auxinput19_end_y integer , DIMENSION(max_domains) :: auxinput19_end_d integer , DIMENSION(max_domains) :: auxinput19_end_h integer , DIMENSION(max_domains) :: auxinput19_end_m integer , DIMENSION(max_domains) :: auxinput19_end_s integer , DIMENSION(max_domains) :: auxinput19_end integer :: io_form_auxinput19 integer , DIMENSION(max_domains) :: frames_per_auxinput19 character*256 :: auxinput20_inname character*256 :: auxinput20_outname integer , DIMENSION(max_domains) :: auxinput20_interval_y integer , DIMENSION(max_domains) :: auxinput20_interval_d integer , DIMENSION(max_domains) :: auxinput20_interval_h integer , DIMENSION(max_domains) :: auxinput20_interval_m integer , DIMENSION(max_domains) :: auxinput20_interval_s integer , DIMENSION(max_domains) :: auxinput20_interval integer , DIMENSION(max_domains) :: auxinput20_begin_y integer , DIMENSION(max_domains) :: auxinput20_begin_d integer , DIMENSION(max_domains) :: auxinput20_begin_h integer , DIMENSION(max_domains) :: auxinput20_begin_m integer , DIMENSION(max_domains) :: auxinput20_begin_s integer , DIMENSION(max_domains) :: auxinput20_begin integer , DIMENSION(max_domains) :: auxinput20_end_y integer , DIMENSION(max_domains) :: auxinput20_end_d integer , DIMENSION(max_domains) :: auxinput20_end_h integer , DIMENSION(max_domains) :: auxinput20_end_m integer , DIMENSION(max_domains) :: auxinput20_end_s integer , DIMENSION(max_domains) :: auxinput20_end integer :: io_form_auxinput20 integer , DIMENSION(max_domains) :: frames_per_auxinput20 character*256 :: auxinput21_inname character*256 :: auxinput21_outname integer , DIMENSION(max_domains) :: auxinput21_interval_y integer , DIMENSION(max_domains) :: auxinput21_interval_d integer , DIMENSION(max_domains) :: auxinput21_interval_h integer , DIMENSION(max_domains) :: auxinput21_interval_m integer , DIMENSION(max_domains) :: auxinput21_interval_s integer , DIMENSION(max_domains) :: auxinput21_interval integer , DIMENSION(max_domains) :: auxinput21_begin_y integer , DIMENSION(max_domains) :: auxinput21_begin_d integer , DIMENSION(max_domains) :: auxinput21_begin_h integer , DIMENSION(max_domains) :: auxinput21_begin_m integer , DIMENSION(max_domains) :: auxinput21_begin_s integer , DIMENSION(max_domains) :: auxinput21_begin integer , DIMENSION(max_domains) :: auxinput21_end_y integer , DIMENSION(max_domains) :: auxinput21_end_d integer , DIMENSION(max_domains) :: auxinput21_end_h integer , DIMENSION(max_domains) :: auxinput21_end_m integer , DIMENSION(max_domains) :: auxinput21_end_s integer , DIMENSION(max_domains) :: auxinput21_end integer :: io_form_auxinput21 integer , DIMENSION(max_domains) :: frames_per_auxinput21 character*256 :: auxinput22_inname character*256 :: auxinput22_outname integer , DIMENSION(max_domains) :: auxinput22_interval_y integer , DIMENSION(max_domains) :: auxinput22_interval_d integer , DIMENSION(max_domains) :: auxinput22_interval_h integer , DIMENSION(max_domains) :: auxinput22_interval_m integer , DIMENSION(max_domains) :: auxinput22_interval_s integer , DIMENSION(max_domains) :: auxinput22_interval integer , DIMENSION(max_domains) :: auxinput22_begin_y integer , DIMENSION(max_domains) :: auxinput22_begin_d integer , DIMENSION(max_domains) :: auxinput22_begin_h integer , DIMENSION(max_domains) :: auxinput22_begin_m integer , DIMENSION(max_domains) :: auxinput22_begin_s integer , DIMENSION(max_domains) :: auxinput22_begin integer , DIMENSION(max_domains) :: auxinput22_end_y integer , DIMENSION(max_domains) :: auxinput22_end_d integer , DIMENSION(max_domains) :: auxinput22_end_h integer , DIMENSION(max_domains) :: auxinput22_end_m integer , DIMENSION(max_domains) :: auxinput22_end_s integer , DIMENSION(max_domains) :: auxinput22_end integer :: io_form_auxinput22 integer , DIMENSION(max_domains) :: frames_per_auxinput22 character*256 :: auxinput23_inname character*256 :: auxinput23_outname integer , DIMENSION(max_domains) :: auxinput23_interval_y integer , DIMENSION(max_domains) :: auxinput23_interval_d integer , DIMENSION(max_domains) :: auxinput23_interval_h integer , DIMENSION(max_domains) :: auxinput23_interval_m integer , DIMENSION(max_domains) :: auxinput23_interval_s integer , DIMENSION(max_domains) :: auxinput23_interval integer , DIMENSION(max_domains) :: auxinput23_begin_y integer , DIMENSION(max_domains) :: auxinput23_begin_d integer , DIMENSION(max_domains) :: auxinput23_begin_h integer , DIMENSION(max_domains) :: auxinput23_begin_m integer , DIMENSION(max_domains) :: auxinput23_begin_s integer , DIMENSION(max_domains) :: auxinput23_begin integer , DIMENSION(max_domains) :: auxinput23_end_y integer , DIMENSION(max_domains) :: auxinput23_end_d integer , DIMENSION(max_domains) :: auxinput23_end_h integer , DIMENSION(max_domains) :: auxinput23_end_m integer , DIMENSION(max_domains) :: auxinput23_end_s integer , DIMENSION(max_domains) :: auxinput23_end integer :: io_form_auxinput23 integer , DIMENSION(max_domains) :: frames_per_auxinput23 character*256 :: auxinput24_inname character*256 :: auxinput24_outname integer , DIMENSION(max_domains) :: auxinput24_interval_y integer , DIMENSION(max_domains) :: auxinput24_interval_d integer , DIMENSION(max_domains) :: auxinput24_interval_h integer , DIMENSION(max_domains) :: auxinput24_interval_m integer , DIMENSION(max_domains) :: auxinput24_interval_s integer , DIMENSION(max_domains) :: auxinput24_interval integer , DIMENSION(max_domains) :: auxinput24_begin_y integer , DIMENSION(max_domains) :: auxinput24_begin_d integer , DIMENSION(max_domains) :: auxinput24_begin_h integer , DIMENSION(max_domains) :: auxinput24_begin_m integer , DIMENSION(max_domains) :: auxinput24_begin_s integer , DIMENSION(max_domains) :: auxinput24_begin integer , DIMENSION(max_domains) :: auxinput24_end_y integer , DIMENSION(max_domains) :: auxinput24_end_d integer , DIMENSION(max_domains) :: auxinput24_end_h integer , DIMENSION(max_domains) :: auxinput24_end_m integer , DIMENSION(max_domains) :: auxinput24_end_s integer , DIMENSION(max_domains) :: auxinput24_end integer :: io_form_auxinput24 integer , DIMENSION(max_domains) :: frames_per_auxinput24 integer , DIMENSION(max_domains) :: history_interval integer , DIMENSION(max_domains) :: frames_per_outfile logical :: restart integer :: restart_interval integer :: io_form_input integer :: io_form_history integer :: io_form_restart integer :: io_form_boundary integer :: debug_level logical :: self_test_domain character*256 :: history_outname character*256 :: history_inname logical :: use_netcdf_classic integer , DIMENSION(max_domains) :: history_interval_d integer , DIMENSION(max_domains) :: history_interval_h integer , DIMENSION(max_domains) :: history_interval_m integer , DIMENSION(max_domains) :: history_interval_s integer , DIMENSION(max_domains) :: inputout_interval_d integer , DIMENSION(max_domains) :: inputout_interval_h integer , DIMENSION(max_domains) :: inputout_interval_m integer , DIMENSION(max_domains) :: inputout_interval_s integer , DIMENSION(max_domains) :: inputout_interval integer :: restart_interval_d integer :: restart_interval_h integer :: restart_interval_m integer :: restart_interval_s integer , DIMENSION(max_domains) :: history_begin_y integer , DIMENSION(max_domains) :: history_begin_d integer , DIMENSION(max_domains) :: history_begin_h integer , DIMENSION(max_domains) :: history_begin_m integer , DIMENSION(max_domains) :: history_begin_s integer , DIMENSION(max_domains) :: history_begin integer , DIMENSION(max_domains) :: inputout_begin_y integer , DIMENSION(max_domains) :: inputout_begin_d integer , DIMENSION(max_domains) :: inputout_begin_h integer , DIMENSION(max_domains) :: inputout_begin_m integer , DIMENSION(max_domains) :: inputout_begin_s integer :: restart_begin_y integer :: restart_begin_d integer :: restart_begin_h integer :: restart_begin_m integer :: restart_begin_s integer :: restart_begin integer , DIMENSION(max_domains) :: history_end_y integer , DIMENSION(max_domains) :: history_end_d integer , DIMENSION(max_domains) :: history_end_h integer , DIMENSION(max_domains) :: history_end_m integer , DIMENSION(max_domains) :: history_end_s integer , DIMENSION(max_domains) :: history_end integer , DIMENSION(max_domains) :: inputout_end_y integer , DIMENSION(max_domains) :: inputout_end_d integer , DIMENSION(max_domains) :: inputout_end_h integer , DIMENSION(max_domains) :: inputout_end_m integer , DIMENSION(max_domains) :: inputout_end_s integer :: simulation_start_year integer :: simulation_start_month integer :: simulation_start_day integer :: simulation_start_hour integer :: simulation_start_minute integer :: simulation_start_second logical :: reset_simulation_start integer , DIMENSION(max_domains) :: sr_x integer , DIMENSION(max_domains) :: sr_y character*256 :: sgfdda_inname character*256 :: gfdda_inname integer , DIMENSION(max_domains) :: sgfdda_interval_d integer , DIMENSION(max_domains) :: sgfdda_interval_h integer , DIMENSION(max_domains) :: sgfdda_interval_m integer , DIMENSION(max_domains) :: sgfdda_interval_s integer , DIMENSION(max_domains) :: sgfdda_interval_y integer , DIMENSION(max_domains) :: sgfdda_interval integer , DIMENSION(max_domains) :: gfdda_interval_d integer , DIMENSION(max_domains) :: gfdda_interval_h integer , DIMENSION(max_domains) :: gfdda_interval_m integer , DIMENSION(max_domains) :: gfdda_interval_s integer , DIMENSION(max_domains) :: gfdda_interval_y integer , DIMENSION(max_domains) :: gfdda_interval integer , DIMENSION(max_domains) :: sgfdda_begin_y integer , DIMENSION(max_domains) :: sgfdda_begin_d integer , DIMENSION(max_domains) :: sgfdda_begin_h integer , DIMENSION(max_domains) :: sgfdda_begin_m integer , DIMENSION(max_domains) :: sgfdda_begin_s integer , DIMENSION(max_domains) :: gfdda_begin_y integer , DIMENSION(max_domains) :: gfdda_begin_d integer , DIMENSION(max_domains) :: gfdda_begin_h integer , DIMENSION(max_domains) :: gfdda_begin_m integer , DIMENSION(max_domains) :: gfdda_begin_s integer , DIMENSION(max_domains) :: sgfdda_end_y integer , DIMENSION(max_domains) :: sgfdda_end_d integer , DIMENSION(max_domains) :: sgfdda_end_h integer , DIMENSION(max_domains) :: sgfdda_end_m integer , DIMENSION(max_domains) :: sgfdda_end_s integer , DIMENSION(max_domains) :: gfdda_end_y integer , DIMENSION(max_domains) :: gfdda_end_d integer , DIMENSION(max_domains) :: gfdda_end_h integer , DIMENSION(max_domains) :: gfdda_end_m integer , DIMENSION(max_domains) :: gfdda_end_s integer :: io_form_sgfdda integer :: io_form_gfdda character*256 , DIMENSION(max_domains) :: iofields_filename logical :: ignore_iofields_warning logical :: ncd_nofill character*256 :: emi_inname character*256 :: fireemi_inname character*256 :: input_chem_inname character*256 :: emi_outname character*256 :: fireemi_outname character*256 :: input_chem_outname integer :: io_style_emissions real , DIMENSION(max_domains) :: bioemdt real , DIMENSION(max_domains) :: photdt real , DIMENSION(max_domains) :: chemdt integer :: ne_area integer :: kemit integer :: nmegan integer :: kfuture integer :: kfire integer :: kemit_aircraft integer :: kdvel integer :: ndepvel integer :: kdepvel integer :: erosion_dim integer , DIMENSION(max_domains) :: biomass_emiss_opt integer :: cam_mam_mode integer :: cam_mam_nspec logical :: cam_mp_mam_cpled integer , DIMENSION(max_domains) :: lightning_opt integer , DIMENSION(max_domains) :: lightning_time_step real , DIMENSION(max_domains) :: temp_upper real , DIMENSION(max_domains) :: temp_lower real , DIMENSION(max_domains) :: n_ic real , DIMENSION(max_domains) :: n_cg integer , DIMENSION(max_domains) :: passive_ltng integer :: lflash_data integer , DIMENSION(max_domains) :: flashrate_method character*256 , DIMENSION(max_domains) :: vprm_opt real :: wpeat real :: wflood character*256 , DIMENSION(max_domains) :: term_opt integer , DIMENSION(max_domains) :: chem_conv_tr integer , DIMENSION(max_domains) :: conv_tr_wetscav integer , DIMENSION(max_domains) :: conv_tr_aqchem integer , DIMENSION(max_domains) :: chem_opt integer , DIMENSION(max_domains) :: gaschem_onoff integer , DIMENSION(max_domains) :: aerchem_onoff integer , DIMENSION(max_domains) :: wetscav_onoff integer , DIMENSION(max_domains) :: dustwd_onoff integer , DIMENSION(max_domains) :: cldchem_onoff logical , DIMENSION(max_domains) :: is_full_tuv real , DIMENSION(max_domains) :: lambda_cutoff integer , DIMENSION(max_domains) :: cld_od_opt integer , DIMENSION(max_domains) :: pht_cldfrc_opt integer , DIMENSION(max_domains) :: vertmix_onoff integer , DIMENSION(max_domains) :: chem_in_opt integer , DIMENSION(max_domains) :: phot_opt integer , DIMENSION(max_domains) :: gas_drydep_opt integer , DIMENSION(max_domains) :: aer_drydep_opt integer , DIMENSION(max_domains) :: diagnostic_chem integer , DIMENSION(max_domains) :: aero_diag_opt integer , DIMENSION(max_domains) :: aero_cw_diag_opt integer , DIMENSION(max_domains) :: aer_aerodynres_opt integer , DIMENSION(max_domains) :: emiss_opt integer , DIMENSION(max_domains) :: emiss_opt_vol integer :: dust_opt integer :: dust_schme integer :: dmsemis_opt integer :: seas_opt integer , DIMENSION(max_domains) :: bio_emiss_opt integer , DIMENSION(max_domains) :: biomass_burn_opt integer , DIMENSION(max_domains) :: plumerisefire_frq integer , DIMENSION(max_domains) :: emiss_inpt_opt integer , DIMENSION(max_domains) :: gas_bc_opt integer , DIMENSION(max_domains) :: gas_ic_opt integer , DIMENSION(max_domains) :: aer_bc_opt integer , DIMENSION(max_domains) :: aer_ic_opt logical , DIMENSION(max_domains) :: have_bcs_chem logical , DIMENSION(max_domains) :: have_bcs_tracer logical , DIMENSION(max_domains) :: scale_fire_emiss integer , DIMENSION(max_domains) :: aer_ra_feedback integer , DIMENSION(max_domains) :: aer_op_opt integer :: opt_pars_out integer , DIMENSION(max_domains) :: diagnostic_dep integer , DIMENSION(max_domains) :: aircraft_emiss_opt logical , DIMENSION(max_domains) :: have_bcs_upper real , DIMENSION(max_domains) :: fixed_ubc_press character*256 :: fixed_ubc_inname character*256 :: trop_lev_inname character*256 , DIMENSION(max_domains) :: exo_coldens_inname character*256 , DIMENSION(max_domains) :: wes_seasonal_inname integer , DIMENSION(max_domains) :: chemdiag real :: dust_alpha real :: dust_gamma real :: dust_smtune real :: dust_ustune integer :: dust_dsr integer :: dust_veg integer :: dust_soils integer :: dust_smois real :: emiss_ash_hgt real , DIMENSION(max_domains) :: depo_fact integer :: track_chem_num character*256 , DIMENSION(max_trackchem) :: track_chem_name integer :: track_rad_num integer :: track_tuv_num integer :: track_tuv_lev integer :: n2o5_hetchem real , DIMENSION(max_domains) :: af_lambda_start real , DIMENSION(max_domains) :: af_lambda_end integer , DIMENSION(max_domains) :: lnox_opt logical , DIMENSION(max_domains) :: lnox_passive real , DIMENSION(max_domains) :: ltng_temp_upper real , DIMENSION(max_domains) :: ltng_temp_lower logical :: has_o3_exo_coldens real :: du_at_grnd logical :: scale_o3_to_grnd_exo_coldens logical :: scale_o3_to_du_at_grnd integer , DIMENSION(max_domains) :: irr_opt integer , DIMENSION(max_domains) :: ifire integer , DIMENSION(max_domains) :: fire_boundary_guard integer , DIMENSION(max_domains) :: fire_num_ignitions real , DIMENSION(max_domains) :: fire_ignition_ros1 real , DIMENSION(max_domains) :: fire_ignition_start_lon1 real , DIMENSION(max_domains) :: fire_ignition_start_lat1 real , DIMENSION(max_domains) :: fire_ignition_end_lon1 real , DIMENSION(max_domains) :: fire_ignition_end_lat1 real , DIMENSION(max_domains) :: fire_ignition_radius1 real , DIMENSION(max_domains) :: fire_ignition_start_time1 real , DIMENSION(max_domains) :: fire_ignition_end_time1 real , DIMENSION(max_domains) :: fire_ignition_ros2 real , DIMENSION(max_domains) :: fire_ignition_start_lon2 real , DIMENSION(max_domains) :: fire_ignition_start_lat2 real , DIMENSION(max_domains) :: fire_ignition_end_lon2 real , DIMENSION(max_domains) :: fire_ignition_end_lat2 real , DIMENSION(max_domains) :: fire_ignition_radius2 real , DIMENSION(max_domains) :: fire_ignition_start_time2 real , DIMENSION(max_domains) :: fire_ignition_end_time2 real , DIMENSION(max_domains) :: fire_ignition_ros3 real , DIMENSION(max_domains) :: fire_ignition_start_lon3 real , DIMENSION(max_domains) :: fire_ignition_start_lat3 real , DIMENSION(max_domains) :: fire_ignition_end_lon3 real , DIMENSION(max_domains) :: fire_ignition_end_lat3 real , DIMENSION(max_domains) :: fire_ignition_radius3 real , DIMENSION(max_domains) :: fire_ignition_start_time3 real , DIMENSION(max_domains) :: fire_ignition_end_time3 real , DIMENSION(max_domains) :: fire_ignition_ros4 real , DIMENSION(max_domains) :: fire_ignition_start_lon4 real , DIMENSION(max_domains) :: fire_ignition_start_lat4 real , DIMENSION(max_domains) :: fire_ignition_end_lon4 real , DIMENSION(max_domains) :: fire_ignition_end_lat4 real , DIMENSION(max_domains) :: fire_ignition_radius4 real , DIMENSION(max_domains) :: fire_ignition_start_time4 real , DIMENSION(max_domains) :: fire_ignition_end_time4 real , DIMENSION(max_domains) :: fire_ignition_ros5 real , DIMENSION(max_domains) :: fire_ignition_start_lon5 real , DIMENSION(max_domains) :: fire_ignition_start_lat5 real , DIMENSION(max_domains) :: fire_ignition_end_lon5 real , DIMENSION(max_domains) :: fire_ignition_end_lat5 real , DIMENSION(max_domains) :: fire_ignition_radius5 real , DIMENSION(max_domains) :: fire_ignition_start_time5 real , DIMENSION(max_domains) :: fire_ignition_end_time5 real , DIMENSION(max_domains) :: fire_ignition_start_x1 real , DIMENSION(max_domains) :: fire_ignition_start_y1 real , DIMENSION(max_domains) :: fire_ignition_end_x1 real , DIMENSION(max_domains) :: fire_ignition_end_y1 real , DIMENSION(max_domains) :: fire_ignition_start_x2 real , DIMENSION(max_domains) :: fire_ignition_start_y2 real , DIMENSION(max_domains) :: fire_ignition_end_x2 real , DIMENSION(max_domains) :: fire_ignition_end_y2 real , DIMENSION(max_domains) :: fire_ignition_start_x3 real , DIMENSION(max_domains) :: fire_ignition_start_y3 real , DIMENSION(max_domains) :: fire_ignition_end_x3 real , DIMENSION(max_domains) :: fire_ignition_end_y3 real , DIMENSION(max_domains) :: fire_ignition_start_x4 real , DIMENSION(max_domains) :: fire_ignition_start_y4 real , DIMENSION(max_domains) :: fire_ignition_end_x4 real , DIMENSION(max_domains) :: fire_ignition_end_y4 real , DIMENSION(max_domains) :: fire_ignition_start_x5 real , DIMENSION(max_domains) :: fire_ignition_start_y5 real , DIMENSION(max_domains) :: fire_ignition_end_x5 real , DIMENSION(max_domains) :: fire_ignition_end_y5 real , DIMENSION(max_domains) :: fire_lat_init real , DIMENSION(max_domains) :: fire_lon_init real , DIMENSION(max_domains) :: fire_ign_time integer , DIMENSION(max_domains) :: fire_shape integer , DIMENSION(max_domains) :: fire_sprd_mdl real , DIMENSION(max_domains) :: fire_crwn_hgt real , DIMENSION(max_domains) :: fire_ext_grnd real , DIMENSION(max_domains) :: fire_ext_crwn real , DIMENSION(max_domains) :: fire_wind_height integer , DIMENSION(max_domains) :: fire_fuel_read integer , DIMENSION(max_domains) :: fire_fuel_cat integer , DIMENSION(max_domains) :: fire_print_msg integer , DIMENSION(max_domains) :: fire_print_file integer , DIMENSION(max_domains) :: fire_fuel_left_method integer , DIMENSION(max_domains) :: fire_fuel_left_irl integer , DIMENSION(max_domains) :: fire_fuel_left_jrl real , DIMENSION(max_domains) :: fire_back_weight integer , DIMENSION(max_domains) :: fire_grows_only integer , DIMENSION(max_domains) :: fire_upwinding integer , DIMENSION(max_domains) :: fire_upwind_split real , DIMENSION(max_domains) :: fire_viscosity real , DIMENSION(max_domains) :: fire_lfn_ext_up integer , DIMENSION(max_domains) :: fire_topo_from_atm integer , DIMENSION(max_domains) :: fire_advection integer , DIMENSION(max_domains) :: fire_test_steps real , DIMENSION(max_domains) :: fire_const_time real , DIMENSION(max_domains) :: fire_const_grnhfx real , DIMENSION(max_domains) :: fire_const_grnqfx real , DIMENSION(max_domains) :: fire_atm_feedback integer , DIMENSION(max_domains) :: fire_mountain_type real , DIMENSION(max_domains) :: fire_mountain_height real , DIMENSION(max_domains) :: fire_mountain_start_x real , DIMENSION(max_domains) :: fire_mountain_start_y real , DIMENSION(max_domains) :: fire_mountain_end_x real , DIMENSION(max_domains) :: fire_mountain_end_y real , DIMENSION(max_domains) :: delt_perturbation real , DIMENSION(max_domains) :: xrad_perturbation real , DIMENSION(max_domains) :: yrad_perturbation real , DIMENSION(max_domains) :: zrad_perturbation real , DIMENSION(max_domains) :: hght_perturbation logical , DIMENSION(max_domains) :: stretch_grd logical , DIMENSION(max_domains) :: stretch_hyp real , DIMENSION(max_domains) :: z_grd_scale logical , DIMENSION(max_domains) :: sfc_full_init integer , DIMENSION(max_domains) :: sfc_lu_index real , DIMENSION(max_domains) :: sfc_tsk real , DIMENSION(max_domains) :: sfc_tmn logical , DIMENSION(max_domains) :: fire_read_lu logical , DIMENSION(max_domains) :: fire_read_tsk logical , DIMENSION(max_domains) :: fire_read_tmn logical , DIMENSION(max_domains) :: fire_read_atm_ht logical , DIMENSION(max_domains) :: fire_read_fire_ht logical , DIMENSION(max_domains) :: fire_read_atm_grad logical , DIMENSION(max_domains) :: fire_read_fire_grad real , DIMENSION(max_domains) :: sfc_vegfra real , DIMENSION(max_domains) :: sfc_canwat integer , DIMENSION(max_domains) :: sfc_ivgtyp integer , DIMENSION(max_domains) :: sfc_isltyp integer , DIMENSION(max_domains) :: do_avgflx_em integer , DIMENSION(max_domains) :: do_avgflx_cugd integer :: nens integer , DIMENSION(max_domains) :: skebs integer , DIMENSION(max_domains) :: stoch_force_opt integer :: skebs_vertstruc integer , DIMENSION(max_domains) :: stoch_vertstruc_opt real , DIMENSION(max_domains) :: tot_backscat_psi real , DIMENSION(max_domains) :: tot_backscat_t real :: ztau_psi real :: ztau_t real :: rexponent_psi real :: rexponent_t real :: zsigma2_eps real :: zsigma2_eta integer :: kminforc integer :: lminforc integer :: kminforct integer :: lminforct integer :: kmaxforc integer :: lmaxforc integer :: kmaxforct integer :: lmaxforct integer :: iseed_skebs integer :: kmaxforch integer :: lmaxforch integer :: kmaxforcth integer :: lmaxforcth integer , DIMENSION(max_domains) :: sppt real , DIMENSION(max_domains) :: gridpt_stddev_sppt real , DIMENSION(max_domains) :: stddev_cutoff_sppt real , DIMENSION(max_domains) :: lengthscale_sppt real , DIMENSION(max_domains) :: timescale_sppt integer :: sppt_vertstruc integer :: iseed_sppt integer , DIMENSION(max_domains) :: rand_perturb real , DIMENSION(max_domains) :: gridpt_stddev_rand_pert real , DIMENSION(max_domains) :: stddev_cutoff_rand_pert real , DIMENSION(max_domains) :: lengthscale_rand_pert real , DIMENSION(max_domains) :: timescale_rand_pert integer :: rand_pert_vertstruc integer :: iseed_rand_pert integer , DIMENSION(max_domains) :: spp logical :: hrrr_cycling integer , DIMENSION(max_domains) :: spp_conv real , DIMENSION(max_domains) :: gridpt_stddev_spp_conv real , DIMENSION(max_domains) :: stddev_cutoff_spp_conv real , DIMENSION(max_domains) :: lengthscale_spp_conv real , DIMENSION(max_domains) :: timescale_spp_conv integer :: vertstruc_spp_conv integer :: iseed_spp_conv integer , DIMENSION(max_domains) :: spp_pbl real , DIMENSION(max_domains) :: gridpt_stddev_spp_pbl real , DIMENSION(max_domains) :: stddev_cutoff_spp_pbl real , DIMENSION(max_domains) :: lengthscale_spp_pbl real , DIMENSION(max_domains) :: timescale_spp_pbl integer :: vertstruc_spp_pbl integer :: iseed_spp_pbl integer , DIMENSION(max_domains) :: spp_lsm real , DIMENSION(max_domains) :: gridpt_stddev_spp_lsm real , DIMENSION(max_domains) :: stddev_cutoff_spp_lsm real , DIMENSION(max_domains) :: lengthscale_spp_lsm real , DIMENSION(max_domains) :: timescale_spp_lsm integer :: vertstruc_spp_lsm integer :: iseed_spp_lsm integer :: skebs_on integer :: sppt_on integer :: spp_on integer :: rand_perturb_on integer :: num_stoch_levels integer , DIMENSION(max_domains) :: sfs_opt integer , DIMENSION(max_domains) :: m_opt real , DIMENSION(max_domains) :: lakedepth_default real , DIMENSION(max_domains) :: lake_min_elev integer , DIMENSION(max_domains) :: use_lakedepth integer :: p_lev_diags integer :: p_lev_diags_dfi integer :: num_press_levels real , DIMENSION(max_plevs) :: press_levels integer :: use_tot_or_hyd_p integer :: extrap_below_grnd real :: p_lev_missing real , DIMENSION(max_domains) :: p_lev_interval integer :: z_lev_diags integer :: z_lev_diags_dfi integer :: num_z_levels real , DIMENSION(max_zlevs) :: z_levels real :: z_lev_missing real , DIMENSION(max_domains) :: z_lev_interval integer , DIMENSION(max_domains) :: afwa_diag_opt integer , DIMENSION(max_domains) :: afwa_ptype_opt integer , DIMENSION(max_domains) :: afwa_vil_opt integer , DIMENSION(max_domains) :: afwa_radar_opt integer , DIMENSION(max_domains) :: afwa_severe_opt integer , DIMENSION(max_domains) :: afwa_icing_opt integer , DIMENSION(max_domains) :: afwa_vis_opt integer , DIMENSION(max_domains) :: afwa_cloud_opt integer , DIMENSION(max_domains) :: afwa_therm_opt integer , DIMENSION(max_domains) :: afwa_turb_opt integer , DIMENSION(max_domains) :: afwa_buoy_opt real :: afwa_ptype_ccn_tmp real :: afwa_ptype_tot_melt integer :: afwa_bad_data_check integer :: mean_diag integer :: mean_freq integer :: mean_interval integer :: diurnal_diag integer , DIMENSION(max_domains) :: nssl_ipelec integer :: nssl_isaund integer :: nssl_iscreen real :: nssl_lightrad integer :: nssl_idischarge integer :: nssl_ibrkd real :: nssl_ecrit real :: nssl_disfrac integer :: elec_physics integer :: perturb_bdy integer :: perturb_chem_bdy integer :: num_gca_levels integer :: gca_input_opt integer :: hybrid_opt real :: etac integer :: num_wif_levels integer :: wif_input_opt integer :: last_item_in_struct NAMELIST /time_control/ run_days NAMELIST /time_control/ run_hours NAMELIST /time_control/ run_minutes NAMELIST /time_control/ run_seconds NAMELIST /time_control/ start_year NAMELIST /time_control/ start_month NAMELIST /time_control/ start_day NAMELIST /time_control/ start_hour NAMELIST /time_control/ start_minute NAMELIST /time_control/ start_second NAMELIST /time_control/ end_year NAMELIST /time_control/ end_month NAMELIST /time_control/ end_day NAMELIST /time_control/ end_hour NAMELIST /time_control/ end_minute NAMELIST /time_control/ end_second NAMELIST /time_control/ interval_seconds NAMELIST /time_control/ input_from_file NAMELIST /time_control/ fine_input_stream NAMELIST /time_control/ input_from_hires NAMELIST /time_control/ rsmas_data_path NAMELIST /time_control/ all_ic_times NAMELIST /time_control/ julyr NAMELIST /time_control/ julday NAMELIST /time_control/ gmt NAMELIST /time_control/ input_inname NAMELIST /time_control/ input_outname NAMELIST /time_control/ bdy_inname NAMELIST /time_control/ bdy_outname NAMELIST /time_control/ rst_inname NAMELIST /time_control/ rst_outname NAMELIST /time_control/ write_input NAMELIST /time_control/ write_restart_at_0h NAMELIST /time_control/ write_hist_at_0h_rst NAMELIST /time_control/ adjust_output_times NAMELIST /time_control/ adjust_input_times NAMELIST /time_control/ diag_print NAMELIST /time_control/ nocolons NAMELIST /time_control/ cycling NAMELIST /time_control/ output_diagnostics NAMELIST /time_control/ nwp_diagnostics NAMELIST /time_control/ output_ready_flag NAMELIST /pio_control/ usepio NAMELIST /pio_control/ pioprocs NAMELIST /pio_control/ piostart NAMELIST /pio_control/ piostride NAMELIST /pio_control/ pioshift NAMELIST /dfi_control/ dfi_opt NAMELIST /dfi_control/ dfi_savehydmeteors NAMELIST /dfi_control/ dfi_nfilter NAMELIST /dfi_control/ dfi_write_filtered_input NAMELIST /dfi_control/ dfi_write_dfi_history NAMELIST /dfi_control/ dfi_cutoff_seconds NAMELIST /dfi_control/ dfi_time_dim NAMELIST /dfi_control/ dfi_fwdstop_year NAMELIST /dfi_control/ dfi_fwdstop_month NAMELIST /dfi_control/ dfi_fwdstop_day NAMELIST /dfi_control/ dfi_fwdstop_hour NAMELIST /dfi_control/ dfi_fwdstop_minute NAMELIST /dfi_control/ dfi_fwdstop_second NAMELIST /dfi_control/ dfi_bckstop_year NAMELIST /dfi_control/ dfi_bckstop_month NAMELIST /dfi_control/ dfi_bckstop_day NAMELIST /dfi_control/ dfi_bckstop_hour NAMELIST /dfi_control/ dfi_bckstop_minute NAMELIST /dfi_control/ dfi_bckstop_second NAMELIST /domains/ time_step NAMELIST /domains/ time_step_fract_num NAMELIST /domains/ time_step_fract_den NAMELIST /domains/ time_step_dfi NAMELIST /domains/ min_time_step NAMELIST /domains/ min_time_step_den NAMELIST /domains/ max_time_step NAMELIST /domains/ max_time_step_den NAMELIST /domains/ target_cfl NAMELIST /domains/ target_hcfl NAMELIST /domains/ max_step_increase_pct NAMELIST /domains/ starting_time_step NAMELIST /domains/ starting_time_step_den NAMELIST /domains/ step_to_output_time NAMELIST /domains/ adaptation_domain NAMELIST /domains/ use_adaptive_time_step NAMELIST /domains/ use_adaptive_time_step_dfi NAMELIST /domains/ max_dom NAMELIST /domains/ lats_to_mic NAMELIST /domains/ s_we NAMELIST /domains/ e_we NAMELIST /domains/ s_sn NAMELIST /domains/ e_sn NAMELIST /domains/ s_vert NAMELIST /domains/ e_vert NAMELIST /domains/ num_metgrid_levels NAMELIST /domains/ num_metgrid_soil_levels NAMELIST /domains/ p_top_requested NAMELIST /domains/ interp_theta NAMELIST /domains/ interp_type NAMELIST /domains/ rebalance NAMELIST /domains/ vert_refine_method NAMELIST /domains/ vert_refine_fact NAMELIST /domains/ extrap_type NAMELIST /domains/ t_extrap_type NAMELIST /domains/ hypsometric_opt NAMELIST /domains/ lowest_lev_from_sfc NAMELIST /domains/ use_levels_below_ground NAMELIST /domains/ use_tavg_for_tsk NAMELIST /domains/ use_surface NAMELIST /domains/ lagrange_order NAMELIST /domains/ force_sfc_in_vinterp NAMELIST /domains/ zap_close_levels NAMELIST /domains/ maxw_horiz_pres_diff NAMELIST /domains/ trop_horiz_pres_diff NAMELIST /domains/ maxw_above_this_level NAMELIST /domains/ use_maxw_level NAMELIST /domains/ use_trop_level NAMELIST /domains/ sfcp_to_sfcp NAMELIST /domains/ adjust_heights NAMELIST /domains/ smooth_cg_topo NAMELIST /domains/ nest_interp_coord NAMELIST /domains/ interp_method_type NAMELIST /domains/ aggregate_lu NAMELIST /domains/ rh2qv_wrt_liquid NAMELIST /domains/ rh2qv_method NAMELIST /domains/ qv_max_p_safe NAMELIST /domains/ qv_max_flag NAMELIST /domains/ qv_max_value NAMELIST /domains/ qv_min_p_safe NAMELIST /domains/ qv_min_flag NAMELIST /domains/ qv_min_value NAMELIST /domains/ ideal_init_method NAMELIST /domains/ dx NAMELIST /domains/ dy NAMELIST /domains/ grid_id NAMELIST /domains/ grid_allowed NAMELIST /domains/ parent_id NAMELIST /domains/ i_parent_start NAMELIST /domains/ j_parent_start NAMELIST /domains/ parent_grid_ratio NAMELIST /domains/ parent_time_step_ratio NAMELIST /domains/ feedback NAMELIST /domains/ smooth_option NAMELIST /domains/ blend_width NAMELIST /domains/ ztop NAMELIST /domains/ moad_grid_ratio NAMELIST /domains/ moad_time_step_ratio NAMELIST /domains/ shw NAMELIST /domains/ tile_sz_x NAMELIST /domains/ tile_sz_y NAMELIST /domains/ numtiles NAMELIST /domains/ numtiles_inc NAMELIST /domains/ numtiles_x NAMELIST /domains/ numtiles_y NAMELIST /domains/ tile_strategy NAMELIST /domains/ nproc_x NAMELIST /domains/ nproc_y NAMELIST /domains/ irand NAMELIST /domains/ num_moves NAMELIST /domains/ ts_buf_size NAMELIST /domains/ max_ts_locs NAMELIST /domains/ vortex_interval NAMELIST /domains/ max_vortex_speed NAMELIST /domains/ corral_dist NAMELIST /domains/ track_level NAMELIST /domains/ time_to_move NAMELIST /domains/ move_id NAMELIST /domains/ move_interval NAMELIST /domains/ move_cd_x NAMELIST /domains/ move_cd_y NAMELIST /domains/ swap_x NAMELIST /domains/ swap_y NAMELIST /domains/ cycle_x NAMELIST /domains/ cycle_y NAMELIST /domains/ reorder_mesh NAMELIST /domains/ perturb_input NAMELIST /domains/ eta_levels NAMELIST /domains/ max_dz NAMELIST /domains/ ocean_levels NAMELIST /domains/ ocean_z NAMELIST /domains/ ocean_t NAMELIST /domains/ ocean_s NAMELIST /domains/ num_traj NAMELIST /domains/ max_ts_level NAMELIST /domains/ track_loc_in NAMELIST /domains/ num_ext_model_couple_dom NAMELIST /tc/ insert_bogus_storm NAMELIST /tc/ remove_storm NAMELIST /tc/ num_storm NAMELIST /tc/ latc_loc NAMELIST /tc/ lonc_loc NAMELIST /tc/ vmax_meters_per_second NAMELIST /tc/ rmax NAMELIST /tc/ vmax_ratio NAMELIST /tc/ rankine_lid NAMELIST /physics/ physics_suite NAMELIST /physics/ force_read_thompson NAMELIST /physics/ write_thompson_tables NAMELIST /physics/ mp_physics NAMELIST /physics/ nssl_cccn NAMELIST /physics/ nssl_alphah NAMELIST /physics/ nssl_alphahl NAMELIST /physics/ nssl_cnoh NAMELIST /physics/ nssl_cnohl NAMELIST /physics/ nssl_cnor NAMELIST /physics/ nssl_cnos NAMELIST /physics/ nssl_rho_qh NAMELIST /physics/ nssl_rho_qhl NAMELIST /physics/ nssl_rho_qs NAMELIST /physics/ nudge_lightning NAMELIST /physics/ nudge_light_times NAMELIST /physics/ nudge_light_timee NAMELIST /physics/ nudge_light_int NAMELIST /physics/ path_to_files NAMELIST /physics/ gsfcgce_hail NAMELIST /physics/ gsfcgce_2ice NAMELIST /physics/ progn NAMELIST /physics/ accum_mode NAMELIST /physics/ aitken_mode NAMELIST /physics/ coarse_mode NAMELIST /physics/ do_radar_ref NAMELIST /physics/ ra_lw_physics NAMELIST /physics/ ra_sw_physics NAMELIST /physics/ radt NAMELIST /physics/ naer NAMELIST /physics/ sf_sfclay_physics NAMELIST /physics/ sf_surface_physics NAMELIST /physics/ bl_pbl_physics NAMELIST /physics/ bl_mynn_tkebudget NAMELIST /physics/ ysu_topdown_pblmix NAMELIST /physics/ shinhong_tke_diag NAMELIST /physics/ bl_mynn_tkeadvect NAMELIST /physics/ bl_mynn_cloudpdf NAMELIST /physics/ bl_mynn_mixlength NAMELIST /physics/ bl_mynn_edmf NAMELIST /physics/ bl_mynn_edmf_mom NAMELIST /physics/ bl_mynn_edmf_tke NAMELIST /physics/ bl_mynn_edmf_part NAMELIST /physics/ bl_mynn_cloudmix NAMELIST /physics/ bl_mynn_mixqt NAMELIST /physics/ icloud_bl NAMELIST /physics/ mfshconv NAMELIST /physics/ sf_urban_physics NAMELIST /physics/ bldt NAMELIST /physics/ cu_physics NAMELIST /physics/ shcu_physics NAMELIST /physics/ cu_diag NAMELIST /physics/ kf_edrates NAMELIST /physics/ kfeta_trigger NAMELIST /physics/ nsas_dx_factor NAMELIST /physics/ cudt NAMELIST /physics/ gsmdt NAMELIST /physics/ isfflx NAMELIST /physics/ ifsnow NAMELIST /physics/ icloud NAMELIST /physics/ ideal_xland NAMELIST /physics/ swrad_scat NAMELIST /physics/ surface_input_source NAMELIST /physics/ num_soil_layers NAMELIST /physics/ maxpatch NAMELIST /physics/ num_snow_layers NAMELIST /physics/ num_snso_layers NAMELIST /physics/ num_urban_layers NAMELIST /physics/ num_urban_hi NAMELIST /physics/ num_months NAMELIST /physics/ sf_surface_mosaic NAMELIST /physics/ mosaic_cat NAMELIST /physics/ mosaic_lu NAMELIST /physics/ mosaic_soil NAMELIST /physics/ maxiens NAMELIST /physics/ maxens NAMELIST /physics/ maxens2 NAMELIST /physics/ maxens3 NAMELIST /physics/ ensdim NAMELIST /physics/ cugd_avedx NAMELIST /physics/ clos_choice NAMELIST /physics/ imomentum NAMELIST /physics/ ishallow NAMELIST /physics/ convtrans_avglen_m NAMELIST /physics/ num_land_cat NAMELIST /physics/ num_soil_cat NAMELIST /physics/ mp_zero_out NAMELIST /physics/ mp_zero_out_thresh NAMELIST /physics/ seaice_threshold NAMELIST /physics/ sst_update NAMELIST /physics/ sst_skin NAMELIST /physics/ tmn_update NAMELIST /physics/ usemonalb NAMELIST /physics/ rdmaxalb NAMELIST /physics/ rdlai2d NAMELIST /physics/ ua_phys NAMELIST /physics/ opt_thcnd NAMELIST /physics/ co2tf NAMELIST /physics/ ra_call_offset NAMELIST /physics/ cam_abs_freq_s NAMELIST /physics/ levsiz NAMELIST /physics/ paerlev NAMELIST /physics/ cam_abs_dim1 NAMELIST /physics/ cam_abs_dim2 NAMELIST /physics/ lagday NAMELIST /physics/ no_src_types NAMELIST /physics/ alevsiz NAMELIST /physics/ o3input NAMELIST /physics/ aer_opt NAMELIST /physics/ swint_opt NAMELIST /physics/ aer_type NAMELIST /physics/ aer_aod550_opt NAMELIST /physics/ aer_angexp_opt NAMELIST /physics/ aer_ssa_opt NAMELIST /physics/ aer_asy_opt NAMELIST /physics/ aer_aod550_val NAMELIST /physics/ aer_angexp_val NAMELIST /physics/ aer_ssa_val NAMELIST /physics/ aer_asy_val NAMELIST /physics/ cu_rad_feedback NAMELIST /physics/ shallowcu_forced_ra NAMELIST /physics/ numbins NAMELIST /physics/ thbinsize NAMELIST /physics/ rbinsize NAMELIST /physics/ mindeepfreq NAMELIST /physics/ minshallowfreq NAMELIST /physics/ shcu_aerosols_opt NAMELIST /physics/ pxlsm_smois_init NAMELIST /physics/ omlcall NAMELIST /physics/ sf_ocean_physics NAMELIST /physics/ traj_opt NAMELIST /physics/ dm_has_traj NAMELIST /physics/ tracercall NAMELIST /physics/ omdt NAMELIST /physics/ oml_hml0 NAMELIST /physics/ oml_gamma NAMELIST /physics/ oml_relaxation_time NAMELIST /physics/ isftcflx NAMELIST /physics/ iz0tlnd NAMELIST /physics/ shadlen NAMELIST /physics/ slope_rad NAMELIST /physics/ topo_shading NAMELIST /physics/ topo_wind NAMELIST /physics/ no_mp_heating NAMELIST /physics/ fractional_seaice NAMELIST /physics/ seaice_snowdepth_opt NAMELIST /physics/ seaice_snowdepth_max NAMELIST /physics/ seaice_snowdepth_min NAMELIST /physics/ seaice_albedo_opt NAMELIST /physics/ seaice_albedo_default NAMELIST /physics/ seaice_thickness_opt NAMELIST /physics/ seaice_thickness_default NAMELIST /physics/ tice2tsk_if2cold NAMELIST /physics/ bucket_mm NAMELIST /physics/ bucket_j NAMELIST /physics/ mp_tend_lim NAMELIST /physics/ prec_acc_dt NAMELIST /physics/ grav_settling NAMELIST /physics/ sas_pgcon NAMELIST /physics/ scalar_pblmix NAMELIST /physics/ tracer_pblmix NAMELIST /physics/ use_aero_icbc NAMELIST /physics/ use_rap_aero_icbc NAMELIST /physics/ use_mp_re NAMELIST /physics/ ccn_conc NAMELIST /physics/ hail_opt NAMELIST /noah_mp/ dveg NAMELIST /noah_mp/ opt_crs NAMELIST /noah_mp/ opt_btr NAMELIST /noah_mp/ opt_run NAMELIST /noah_mp/ opt_sfc NAMELIST /noah_mp/ opt_frz NAMELIST /noah_mp/ opt_inf NAMELIST /noah_mp/ opt_rad NAMELIST /noah_mp/ opt_alb NAMELIST /noah_mp/ opt_snf NAMELIST /noah_mp/ opt_tbot NAMELIST /noah_mp/ opt_stc NAMELIST /noah_mp/ opt_gla NAMELIST /noah_mp/ opt_rsf NAMELIST /physics/ wtddt NAMELIST /fdda/ fgdt NAMELIST /fdda/ fgdtzero NAMELIST /fdda/ grid_fdda NAMELIST /fdda/ grid_sfdda NAMELIST /fdda/ if_no_pbl_nudging_uv NAMELIST /fdda/ if_no_pbl_nudging_t NAMELIST /fdda/ if_no_pbl_nudging_ph NAMELIST /fdda/ if_no_pbl_nudging_q NAMELIST /fdda/ if_zfac_uv NAMELIST /fdda/ k_zfac_uv NAMELIST /fdda/ if_zfac_t NAMELIST /fdda/ k_zfac_t NAMELIST /fdda/ if_zfac_ph NAMELIST /fdda/ k_zfac_ph NAMELIST /fdda/ if_zfac_q NAMELIST /fdda/ k_zfac_q NAMELIST /fdda/ dk_zfac_uv NAMELIST /fdda/ dk_zfac_t NAMELIST /fdda/ dk_zfac_ph NAMELIST /fdda/ guv NAMELIST /fdda/ guv_sfc NAMELIST /fdda/ gt NAMELIST /fdda/ gt_sfc NAMELIST /fdda/ gq NAMELIST /fdda/ gq_sfc NAMELIST /fdda/ gph NAMELIST /fdda/ dtramp_min NAMELIST /fdda/ if_ramping NAMELIST /fdda/ rinblw NAMELIST /fdda/ xwavenum NAMELIST /fdda/ ywavenum NAMELIST /fdda/ pxlsm_soil_nudge NAMELIST /fdda/ obs_nudge_opt NAMELIST /fdda/ max_obs NAMELIST /fdda/ fdda_start NAMELIST /fdda/ fdda_end NAMELIST /fdda/ obs_nudge_wind NAMELIST /fdda/ obs_coef_wind NAMELIST /fdda/ obs_nudge_temp NAMELIST /fdda/ obs_coef_temp NAMELIST /fdda/ obs_nudge_mois NAMELIST /fdda/ obs_coef_mois NAMELIST /fdda/ obs_nudge_pstr NAMELIST /fdda/ obs_coef_pstr NAMELIST /fdda/ obs_no_pbl_nudge_uv NAMELIST /fdda/ obs_no_pbl_nudge_t NAMELIST /fdda/ obs_no_pbl_nudge_q NAMELIST /fdda/ obs_sfc_scheme_horiz NAMELIST /fdda/ obs_sfc_scheme_vert NAMELIST /fdda/ obs_max_sndng_gap NAMELIST /fdda/ obs_nudgezfullr1_uv NAMELIST /fdda/ obs_nudgezrampr1_uv NAMELIST /fdda/ obs_nudgezfullr2_uv NAMELIST /fdda/ obs_nudgezrampr2_uv NAMELIST /fdda/ obs_nudgezfullr4_uv NAMELIST /fdda/ obs_nudgezrampr4_uv NAMELIST /fdda/ obs_nudgezfullr1_t NAMELIST /fdda/ obs_nudgezrampr1_t NAMELIST /fdda/ obs_nudgezfullr2_t NAMELIST /fdda/ obs_nudgezrampr2_t NAMELIST /fdda/ obs_nudgezfullr4_t NAMELIST /fdda/ obs_nudgezrampr4_t NAMELIST /fdda/ obs_nudgezfullr1_q NAMELIST /fdda/ obs_nudgezrampr1_q NAMELIST /fdda/ obs_nudgezfullr2_q NAMELIST /fdda/ obs_nudgezrampr2_q NAMELIST /fdda/ obs_nudgezfullr4_q NAMELIST /fdda/ obs_nudgezrampr4_q NAMELIST /fdda/ obs_nudgezfullmin NAMELIST /fdda/ obs_nudgezrampmin NAMELIST /fdda/ obs_nudgezmax NAMELIST /fdda/ obs_sfcfact NAMELIST /fdda/ obs_sfcfacr NAMELIST /fdda/ obs_dpsmx NAMELIST /fdda/ obs_rinxy NAMELIST /fdda/ obs_rinsig NAMELIST /fdda/ obs_twindo NAMELIST /fdda/ obs_npfi NAMELIST /fdda/ obs_ionf NAMELIST /fdda/ obs_idynin NAMELIST /fdda/ obs_dtramp NAMELIST /fdda/ obs_prt_max NAMELIST /fdda/ obs_prt_freq NAMELIST /fdda/ obs_ipf_in4dob NAMELIST /fdda/ obs_ipf_errob NAMELIST /fdda/ obs_ipf_nudob NAMELIST /fdda/ obs_ipf_init NAMELIST /fdda/ obs_scl_neg_qv_innov NAMELIST /scm/ scm_force NAMELIST /scm/ scm_force_dx NAMELIST /scm/ num_force_layers NAMELIST /scm/ scm_lu_index NAMELIST /scm/ scm_isltyp NAMELIST /scm/ scm_vegfra NAMELIST /scm/ scm_canwat NAMELIST /scm/ scm_lat NAMELIST /scm/ scm_lon NAMELIST /scm/ scm_th_t_tend NAMELIST /scm/ scm_qv_t_tend NAMELIST /scm/ scm_th_adv NAMELIST /scm/ scm_wind_adv NAMELIST /scm/ scm_qv_adv NAMELIST /scm/ scm_ql_adv NAMELIST /scm/ scm_vert_adv NAMELIST /scm/ num_force_soil_layers NAMELIST /scm/ scm_soilt_force NAMELIST /scm/ scm_soilq_force NAMELIST /scm/ scm_force_th_largescale NAMELIST /scm/ scm_force_qv_largescale NAMELIST /scm/ scm_force_ql_largescale NAMELIST /scm/ scm_force_wind_largescale NAMELIST /scm/ scm_force_skintemp NAMELIST /scm/ scm_force_flux NAMELIST /dynamics/ dyn_opt NAMELIST /dynamics/ rk_ord NAMELIST /dynamics/ w_damping NAMELIST /dynamics/ diff_opt NAMELIST /dynamics/ diff_opt_dfi NAMELIST /dynamics/ km_opt NAMELIST /dynamics/ km_opt_dfi NAMELIST /dynamics/ damp_opt NAMELIST /dynamics/ rad_nudge NAMELIST /dynamics/ gwd_opt NAMELIST /dynamics/ zdamp NAMELIST /dynamics/ dampcoef NAMELIST /dynamics/ khdif NAMELIST /dynamics/ kvdif NAMELIST /dynamics/ diff_6th_factor NAMELIST /dynamics/ diff_6th_opt NAMELIST /dynamics/ use_theta_m NAMELIST /dynamics/ use_q_diabatic NAMELIST /dynamics/ c_s NAMELIST /dynamics/ c_k NAMELIST /dynamics/ smdiv NAMELIST /dynamics/ emdiv NAMELIST /dynamics/ epssm NAMELIST /dynamics/ non_hydrostatic NAMELIST /dynamics/ use_input_w NAMELIST /dynamics/ time_step_sound NAMELIST /dynamics/ h_mom_adv_order NAMELIST /dynamics/ v_mom_adv_order NAMELIST /dynamics/ h_sca_adv_order NAMELIST /dynamics/ v_sca_adv_order NAMELIST /dynamics/ momentum_adv_opt NAMELIST /dynamics/ moist_adv_opt NAMELIST /dynamics/ moist_adv_dfi_opt NAMELIST /dynamics/ chem_adv_opt NAMELIST /dynamics/ tracer_adv_opt NAMELIST /dynamics/ scalar_adv_opt NAMELIST /dynamics/ tke_adv_opt NAMELIST /dynamics/ top_radiation NAMELIST /dynamics/ mix_isotropic NAMELIST /dynamics/ mix_upper_bound NAMELIST /dynamics/ top_lid NAMELIST /dynamics/ tke_upper_bound NAMELIST /dynamics/ tke_drag_coefficient NAMELIST /dynamics/ tke_heat_flux NAMELIST /dynamics/ pert_coriolis NAMELIST /dynamics/ coriolis2d NAMELIST /dynamics/ mix_full_fields NAMELIST /dynamics/ base_pres NAMELIST /dynamics/ base_temp NAMELIST /dynamics/ base_lapse NAMELIST /dynamics/ iso_temp NAMELIST /dynamics/ base_pres_strat NAMELIST /dynamics/ base_lapse_strat NAMELIST /dynamics/ use_baseparam_fr_nml NAMELIST /dynamics/ fft_filter_lat NAMELIST /dynamics/ coupled_filtering NAMELIST /dynamics/ pos_def NAMELIST /dynamics/ swap_pole_with_next_j NAMELIST /dynamics/ actual_distance_average NAMELIST /dynamics/ rotated_pole NAMELIST /dynamics/ do_coriolis NAMELIST /dynamics/ do_curvature NAMELIST /dynamics/ do_gradp NAMELIST /dynamics/ tracer_opt NAMELIST /dynamics/ tenddiag NAMELIST /bdy_control/ spec_bdy_width NAMELIST /bdy_control/ spec_zone NAMELIST /bdy_control/ relax_zone NAMELIST /bdy_control/ specified NAMELIST /bdy_control/ constant_bc NAMELIST /bdy_control/ periodic_x NAMELIST /bdy_control/ symmetric_xs NAMELIST /bdy_control/ symmetric_xe NAMELIST /bdy_control/ open_xs NAMELIST /bdy_control/ open_xe NAMELIST /bdy_control/ periodic_y NAMELIST /bdy_control/ symmetric_ys NAMELIST /bdy_control/ symmetric_ye NAMELIST /bdy_control/ open_ys NAMELIST /bdy_control/ open_ye NAMELIST /bdy_control/ polar NAMELIST /bdy_control/ nested NAMELIST /bdy_control/ spec_exp NAMELIST /bdy_control/ spec_bdy_final_mu NAMELIST /bdy_control/ real_data_init_type NAMELIST /bdy_control/ have_bcs_moist NAMELIST /bdy_control/ have_bcs_scalar NAMELIST /grib2/ background_proc_id NAMELIST /grib2/ forecast_proc_id NAMELIST /grib2/ production_status NAMELIST /grib2/ compression NAMELIST /physics/ windfarm_opt NAMELIST /physics/ windfarm_ij NAMELIST /physics/ hailcast_opt NAMELIST /physics/ lightning_option NAMELIST /physics/ lightning_dt NAMELIST /physics/ lightning_start_seconds NAMELIST /physics/ flashrate_factor NAMELIST /physics/ iccg_method NAMELIST /physics/ iccg_prescribed_num NAMELIST /physics/ iccg_prescribed_den NAMELIST /physics/ cellcount_method NAMELIST /physics/ cldtop_adjustment NAMELIST /physics/ sf_lake_physics NAMELIST /time_control/ auxinput1_inname NAMELIST /time_control/ io_form_auxinput1 NAMELIST /time_control/ override_restart_timers NAMELIST /time_control/ auxhist1_inname NAMELIST /time_control/ auxhist1_outname NAMELIST /time_control/ auxhist1_interval_y NAMELIST /time_control/ auxhist1_interval_d NAMELIST /time_control/ auxhist1_interval_h NAMELIST /time_control/ auxhist1_interval_m NAMELIST /time_control/ auxhist1_interval_s NAMELIST /time_control/ auxhist1_interval NAMELIST /time_control/ auxhist1_begin_y NAMELIST /time_control/ auxhist1_begin_d NAMELIST /time_control/ auxhist1_begin_h NAMELIST /time_control/ auxhist1_begin_m NAMELIST /time_control/ auxhist1_begin_s NAMELIST /time_control/ auxhist1_begin NAMELIST /time_control/ auxhist1_end_y NAMELIST /time_control/ auxhist1_end_d NAMELIST /time_control/ auxhist1_end_h NAMELIST /time_control/ auxhist1_end_m NAMELIST /time_control/ auxhist1_end_s NAMELIST /time_control/ auxhist1_end NAMELIST /time_control/ io_form_auxhist1 NAMELIST /time_control/ frames_per_auxhist1 NAMELIST /time_control/ auxhist2_inname NAMELIST /time_control/ auxhist2_outname NAMELIST /time_control/ auxhist2_interval_y NAMELIST /time_control/ auxhist2_interval_d NAMELIST /time_control/ auxhist2_interval_h NAMELIST /time_control/ auxhist2_interval_m NAMELIST /time_control/ auxhist2_interval_s NAMELIST /time_control/ auxhist2_interval NAMELIST /time_control/ auxhist2_begin_y NAMELIST /time_control/ auxhist2_begin_d NAMELIST /time_control/ auxhist2_begin_h NAMELIST /time_control/ auxhist2_begin_m NAMELIST /time_control/ auxhist2_begin_s NAMELIST /time_control/ auxhist2_begin NAMELIST /time_control/ auxhist2_end_y NAMELIST /time_control/ auxhist2_end_d NAMELIST /time_control/ auxhist2_end_h NAMELIST /time_control/ auxhist2_end_m NAMELIST /time_control/ auxhist2_end_s NAMELIST /time_control/ auxhist2_end NAMELIST /time_control/ io_form_auxhist2 NAMELIST /time_control/ frames_per_auxhist2 NAMELIST /time_control/ auxhist3_inname NAMELIST /time_control/ auxhist3_outname NAMELIST /time_control/ auxhist3_interval_y NAMELIST /time_control/ auxhist3_interval_d NAMELIST /time_control/ auxhist3_interval_h NAMELIST /time_control/ auxhist3_interval_m NAMELIST /time_control/ auxhist3_interval_s NAMELIST /time_control/ auxhist3_interval NAMELIST /time_control/ auxhist3_begin_y NAMELIST /time_control/ auxhist3_begin_d NAMELIST /time_control/ auxhist3_begin_h NAMELIST /time_control/ auxhist3_begin_m NAMELIST /time_control/ auxhist3_begin_s NAMELIST /time_control/ auxhist3_begin NAMELIST /time_control/ auxhist3_end_y NAMELIST /time_control/ auxhist3_end_d NAMELIST /time_control/ auxhist3_end_h NAMELIST /time_control/ auxhist3_end_m NAMELIST /time_control/ auxhist3_end_s NAMELIST /time_control/ auxhist3_end NAMELIST /time_control/ io_form_auxhist3 NAMELIST /time_control/ frames_per_auxhist3 NAMELIST /time_control/ auxhist4_inname NAMELIST /time_control/ auxhist4_outname NAMELIST /time_control/ auxhist4_interval_y NAMELIST /time_control/ auxhist4_interval_d NAMELIST /time_control/ auxhist4_interval_h NAMELIST /time_control/ auxhist4_interval_m NAMELIST /time_control/ auxhist4_interval_s NAMELIST /time_control/ auxhist4_interval NAMELIST /time_control/ auxhist4_begin_y NAMELIST /time_control/ auxhist4_begin_d NAMELIST /time_control/ auxhist4_begin_h NAMELIST /time_control/ auxhist4_begin_m NAMELIST /time_control/ auxhist4_begin_s NAMELIST /time_control/ auxhist4_begin NAMELIST /time_control/ auxhist4_end_y NAMELIST /time_control/ auxhist4_end_d NAMELIST /time_control/ auxhist4_end_h NAMELIST /time_control/ auxhist4_end_m NAMELIST /time_control/ auxhist4_end_s NAMELIST /time_control/ auxhist4_end NAMELIST /time_control/ io_form_auxhist4 NAMELIST /time_control/ frames_per_auxhist4 NAMELIST /time_control/ auxhist5_inname NAMELIST /time_control/ auxhist5_outname NAMELIST /time_control/ auxhist5_interval_y NAMELIST /time_control/ auxhist5_interval_d NAMELIST /time_control/ auxhist5_interval_h NAMELIST /time_control/ auxhist5_interval_m NAMELIST /time_control/ auxhist5_interval_s NAMELIST /time_control/ auxhist5_interval NAMELIST /time_control/ auxhist5_begin_y NAMELIST /time_control/ auxhist5_begin_d NAMELIST /time_control/ auxhist5_begin_h NAMELIST /time_control/ auxhist5_begin_m NAMELIST /time_control/ auxhist5_begin_s NAMELIST /time_control/ auxhist5_begin NAMELIST /time_control/ auxhist5_end_y NAMELIST /time_control/ auxhist5_end_d NAMELIST /time_control/ auxhist5_end_h NAMELIST /time_control/ auxhist5_end_m NAMELIST /time_control/ auxhist5_end_s NAMELIST /time_control/ auxhist5_end NAMELIST /time_control/ io_form_auxhist5 NAMELIST /time_control/ frames_per_auxhist5 NAMELIST /time_control/ auxhist6_inname NAMELIST /time_control/ auxhist6_outname NAMELIST /time_control/ auxhist6_interval_y NAMELIST /time_control/ auxhist6_interval_d NAMELIST /time_control/ auxhist6_interval_h NAMELIST /time_control/ auxhist6_interval_m NAMELIST /time_control/ auxhist6_interval_s NAMELIST /time_control/ auxhist6_interval NAMELIST /time_control/ auxhist6_begin_y NAMELIST /time_control/ auxhist6_begin_d NAMELIST /time_control/ auxhist6_begin_h NAMELIST /time_control/ auxhist6_begin_m NAMELIST /time_control/ auxhist6_begin_s NAMELIST /time_control/ auxhist6_begin NAMELIST /time_control/ auxhist6_end_y NAMELIST /time_control/ auxhist6_end_d NAMELIST /time_control/ auxhist6_end_h NAMELIST /time_control/ auxhist6_end_m NAMELIST /time_control/ auxhist6_end_s NAMELIST /time_control/ auxhist6_end NAMELIST /time_control/ io_form_auxhist6 NAMELIST /time_control/ frames_per_auxhist6 NAMELIST /time_control/ auxhist7_inname NAMELIST /time_control/ auxhist7_outname NAMELIST /time_control/ auxhist7_interval_y NAMELIST /time_control/ auxhist7_interval_d NAMELIST /time_control/ auxhist7_interval_h NAMELIST /time_control/ auxhist7_interval_m NAMELIST /time_control/ auxhist7_interval_s NAMELIST /time_control/ auxhist7_interval NAMELIST /time_control/ auxhist7_begin_y NAMELIST /time_control/ auxhist7_begin_d NAMELIST /time_control/ auxhist7_begin_h NAMELIST /time_control/ auxhist7_begin_m NAMELIST /time_control/ auxhist7_begin_s NAMELIST /time_control/ auxhist7_begin NAMELIST /time_control/ auxhist7_end_y NAMELIST /time_control/ auxhist7_end_d NAMELIST /time_control/ auxhist7_end_h NAMELIST /time_control/ auxhist7_end_m NAMELIST /time_control/ auxhist7_end_s NAMELIST /time_control/ auxhist7_end NAMELIST /time_control/ io_form_auxhist7 NAMELIST /time_control/ frames_per_auxhist7 NAMELIST /time_control/ auxhist8_inname NAMELIST /time_control/ auxhist8_outname NAMELIST /time_control/ auxhist8_interval_y NAMELIST /time_control/ auxhist8_interval_d NAMELIST /time_control/ auxhist8_interval_h NAMELIST /time_control/ auxhist8_interval_m NAMELIST /time_control/ auxhist8_interval_s NAMELIST /time_control/ auxhist8_interval NAMELIST /time_control/ auxhist8_begin_y NAMELIST /time_control/ auxhist8_begin_d NAMELIST /time_control/ auxhist8_begin_h NAMELIST /time_control/ auxhist8_begin_m NAMELIST /time_control/ auxhist8_begin_s NAMELIST /time_control/ auxhist8_begin NAMELIST /time_control/ auxhist8_end_y NAMELIST /time_control/ auxhist8_end_d NAMELIST /time_control/ auxhist8_end_h NAMELIST /time_control/ auxhist8_end_m NAMELIST /time_control/ auxhist8_end_s NAMELIST /time_control/ auxhist8_end NAMELIST /time_control/ io_form_auxhist8 NAMELIST /time_control/ frames_per_auxhist8 NAMELIST /time_control/ auxhist9_inname NAMELIST /time_control/ auxhist9_outname NAMELIST /time_control/ auxhist9_interval_y NAMELIST /time_control/ auxhist9_interval_d NAMELIST /time_control/ auxhist9_interval_h NAMELIST /time_control/ auxhist9_interval_m NAMELIST /time_control/ auxhist9_interval_s NAMELIST /time_control/ auxhist9_interval NAMELIST /time_control/ auxhist9_begin_y NAMELIST /time_control/ auxhist9_begin_d NAMELIST /time_control/ auxhist9_begin_h NAMELIST /time_control/ auxhist9_begin_m NAMELIST /time_control/ auxhist9_begin_s NAMELIST /time_control/ auxhist9_begin NAMELIST /time_control/ auxhist9_end_y NAMELIST /time_control/ auxhist9_end_d NAMELIST /time_control/ auxhist9_end_h NAMELIST /time_control/ auxhist9_end_m NAMELIST /time_control/ auxhist9_end_s NAMELIST /time_control/ auxhist9_end NAMELIST /time_control/ io_form_auxhist9 NAMELIST /time_control/ frames_per_auxhist9 NAMELIST /time_control/ auxhist10_inname NAMELIST /time_control/ auxhist10_outname NAMELIST /time_control/ auxhist10_interval_y NAMELIST /time_control/ auxhist10_interval_d NAMELIST /time_control/ auxhist10_interval_h NAMELIST /time_control/ auxhist10_interval_m NAMELIST /time_control/ auxhist10_interval_s NAMELIST /time_control/ auxhist10_interval NAMELIST /time_control/ auxhist10_begin_y NAMELIST /time_control/ auxhist10_begin_d NAMELIST /time_control/ auxhist10_begin_h NAMELIST /time_control/ auxhist10_begin_m NAMELIST /time_control/ auxhist10_begin_s NAMELIST /time_control/ auxhist10_begin NAMELIST /time_control/ auxhist10_end_y NAMELIST /time_control/ auxhist10_end_d NAMELIST /time_control/ auxhist10_end_h NAMELIST /time_control/ auxhist10_end_m NAMELIST /time_control/ auxhist10_end_s NAMELIST /time_control/ auxhist10_end NAMELIST /time_control/ io_form_auxhist10 NAMELIST /time_control/ frames_per_auxhist10 NAMELIST /time_control/ auxhist11_inname NAMELIST /time_control/ auxhist11_outname NAMELIST /time_control/ auxhist11_interval_y NAMELIST /time_control/ auxhist11_interval_d NAMELIST /time_control/ auxhist11_interval_h NAMELIST /time_control/ auxhist11_interval_m NAMELIST /time_control/ auxhist11_interval_s NAMELIST /time_control/ auxhist11_interval NAMELIST /time_control/ auxhist11_begin_y NAMELIST /time_control/ auxhist11_begin_d NAMELIST /time_control/ auxhist11_begin_h NAMELIST /time_control/ auxhist11_begin_m NAMELIST /time_control/ auxhist11_begin_s NAMELIST /time_control/ auxhist11_begin NAMELIST /time_control/ auxhist11_end_y NAMELIST /time_control/ auxhist11_end_d NAMELIST /time_control/ auxhist11_end_h NAMELIST /time_control/ auxhist11_end_m NAMELIST /time_control/ auxhist11_end_s NAMELIST /time_control/ auxhist11_end NAMELIST /time_control/ io_form_auxhist11 NAMELIST /time_control/ frames_per_auxhist11 NAMELIST /time_control/ auxhist12_inname NAMELIST /time_control/ auxhist12_outname NAMELIST /time_control/ auxhist12_interval_y NAMELIST /time_control/ auxhist12_interval_d NAMELIST /time_control/ auxhist12_interval_h NAMELIST /time_control/ auxhist12_interval_m NAMELIST /time_control/ auxhist12_interval_s NAMELIST /time_control/ auxhist12_interval NAMELIST /time_control/ auxhist12_begin_y NAMELIST /time_control/ auxhist12_begin_d NAMELIST /time_control/ auxhist12_begin_h NAMELIST /time_control/ auxhist12_begin_m NAMELIST /time_control/ auxhist12_begin_s NAMELIST /time_control/ auxhist12_begin NAMELIST /time_control/ auxhist12_end_y NAMELIST /time_control/ auxhist12_end_d NAMELIST /time_control/ auxhist12_end_h NAMELIST /time_control/ auxhist12_end_m NAMELIST /time_control/ auxhist12_end_s NAMELIST /time_control/ auxhist12_end NAMELIST /time_control/ io_form_auxhist12 NAMELIST /time_control/ frames_per_auxhist12 NAMELIST /time_control/ auxhist13_inname NAMELIST /time_control/ auxhist13_outname NAMELIST /time_control/ auxhist13_interval_y NAMELIST /time_control/ auxhist13_interval_d NAMELIST /time_control/ auxhist13_interval_h NAMELIST /time_control/ auxhist13_interval_m NAMELIST /time_control/ auxhist13_interval_s NAMELIST /time_control/ auxhist13_interval NAMELIST /time_control/ auxhist13_begin_y NAMELIST /time_control/ auxhist13_begin_d NAMELIST /time_control/ auxhist13_begin_h NAMELIST /time_control/ auxhist13_begin_m NAMELIST /time_control/ auxhist13_begin_s NAMELIST /time_control/ auxhist13_begin NAMELIST /time_control/ auxhist13_end_y NAMELIST /time_control/ auxhist13_end_d NAMELIST /time_control/ auxhist13_end_h NAMELIST /time_control/ auxhist13_end_m NAMELIST /time_control/ auxhist13_end_s NAMELIST /time_control/ auxhist13_end NAMELIST /time_control/ io_form_auxhist13 NAMELIST /time_control/ frames_per_auxhist13 NAMELIST /time_control/ auxhist14_inname NAMELIST /time_control/ auxhist14_outname NAMELIST /time_control/ auxhist14_interval_y NAMELIST /time_control/ auxhist14_interval_d NAMELIST /time_control/ auxhist14_interval_h NAMELIST /time_control/ auxhist14_interval_m NAMELIST /time_control/ auxhist14_interval_s NAMELIST /time_control/ auxhist14_interval NAMELIST /time_control/ auxhist14_begin_y NAMELIST /time_control/ auxhist14_begin_d NAMELIST /time_control/ auxhist14_begin_h NAMELIST /time_control/ auxhist14_begin_m NAMELIST /time_control/ auxhist14_begin_s NAMELIST /time_control/ auxhist14_begin NAMELIST /time_control/ auxhist14_end_y NAMELIST /time_control/ auxhist14_end_d NAMELIST /time_control/ auxhist14_end_h NAMELIST /time_control/ auxhist14_end_m NAMELIST /time_control/ auxhist14_end_s NAMELIST /time_control/ auxhist14_end NAMELIST /time_control/ io_form_auxhist14 NAMELIST /time_control/ frames_per_auxhist14 NAMELIST /time_control/ auxhist15_inname NAMELIST /time_control/ auxhist15_outname NAMELIST /time_control/ auxhist15_interval_y NAMELIST /time_control/ auxhist15_interval_d NAMELIST /time_control/ auxhist15_interval_h NAMELIST /time_control/ auxhist15_interval_m NAMELIST /time_control/ auxhist15_interval_s NAMELIST /time_control/ auxhist15_interval NAMELIST /time_control/ auxhist15_begin_y NAMELIST /time_control/ auxhist15_begin_d NAMELIST /time_control/ auxhist15_begin_h NAMELIST /time_control/ auxhist15_begin_m NAMELIST /time_control/ auxhist15_begin_s NAMELIST /time_control/ auxhist15_begin NAMELIST /time_control/ auxhist15_end_y NAMELIST /time_control/ auxhist15_end_d NAMELIST /time_control/ auxhist15_end_h NAMELIST /time_control/ auxhist15_end_m NAMELIST /time_control/ auxhist15_end_s NAMELIST /time_control/ auxhist15_end NAMELIST /time_control/ io_form_auxhist15 NAMELIST /time_control/ frames_per_auxhist15 NAMELIST /time_control/ auxhist16_inname NAMELIST /time_control/ auxhist16_outname NAMELIST /time_control/ auxhist16_interval_y NAMELIST /time_control/ auxhist16_interval_d NAMELIST /time_control/ auxhist16_interval_h NAMELIST /time_control/ auxhist16_interval_m NAMELIST /time_control/ auxhist16_interval_s NAMELIST /time_control/ auxhist16_interval NAMELIST /time_control/ auxhist16_begin_y NAMELIST /time_control/ auxhist16_begin_d NAMELIST /time_control/ auxhist16_begin_h NAMELIST /time_control/ auxhist16_begin_m NAMELIST /time_control/ auxhist16_begin_s NAMELIST /time_control/ auxhist16_begin NAMELIST /time_control/ auxhist16_end_y NAMELIST /time_control/ auxhist16_end_d NAMELIST /time_control/ auxhist16_end_h NAMELIST /time_control/ auxhist16_end_m NAMELIST /time_control/ auxhist16_end_s NAMELIST /time_control/ auxhist16_end NAMELIST /time_control/ io_form_auxhist16 NAMELIST /time_control/ frames_per_auxhist16 NAMELIST /time_control/ auxhist17_inname NAMELIST /time_control/ auxhist17_outname NAMELIST /time_control/ auxhist17_interval_y NAMELIST /time_control/ auxhist17_interval_d NAMELIST /time_control/ auxhist17_interval_h NAMELIST /time_control/ auxhist17_interval_m NAMELIST /time_control/ auxhist17_interval_s NAMELIST /time_control/ auxhist17_interval NAMELIST /time_control/ auxhist17_begin_y NAMELIST /time_control/ auxhist17_begin_d NAMELIST /time_control/ auxhist17_begin_h NAMELIST /time_control/ auxhist17_begin_m NAMELIST /time_control/ auxhist17_begin_s NAMELIST /time_control/ auxhist17_begin NAMELIST /time_control/ auxhist17_end_y NAMELIST /time_control/ auxhist17_end_d NAMELIST /time_control/ auxhist17_end_h NAMELIST /time_control/ auxhist17_end_m NAMELIST /time_control/ auxhist17_end_s NAMELIST /time_control/ auxhist17_end NAMELIST /time_control/ io_form_auxhist17 NAMELIST /time_control/ frames_per_auxhist17 NAMELIST /time_control/ auxhist18_inname NAMELIST /time_control/ auxhist18_outname NAMELIST /time_control/ auxhist18_interval_y NAMELIST /time_control/ auxhist18_interval_d NAMELIST /time_control/ auxhist18_interval_h NAMELIST /time_control/ auxhist18_interval_m NAMELIST /time_control/ auxhist18_interval_s NAMELIST /time_control/ auxhist18_interval NAMELIST /time_control/ auxhist18_begin_y NAMELIST /time_control/ auxhist18_begin_d NAMELIST /time_control/ auxhist18_begin_h NAMELIST /time_control/ auxhist18_begin_m NAMELIST /time_control/ auxhist18_begin_s NAMELIST /time_control/ auxhist18_begin NAMELIST /time_control/ auxhist18_end_y NAMELIST /time_control/ auxhist18_end_d NAMELIST /time_control/ auxhist18_end_h NAMELIST /time_control/ auxhist18_end_m NAMELIST /time_control/ auxhist18_end_s NAMELIST /time_control/ auxhist18_end NAMELIST /time_control/ io_form_auxhist18 NAMELIST /time_control/ frames_per_auxhist18 NAMELIST /time_control/ auxhist19_inname NAMELIST /time_control/ auxhist19_outname NAMELIST /time_control/ auxhist19_interval_y NAMELIST /time_control/ auxhist19_interval_d NAMELIST /time_control/ auxhist19_interval_h NAMELIST /time_control/ auxhist19_interval_m NAMELIST /time_control/ auxhist19_interval_s NAMELIST /time_control/ auxhist19_interval NAMELIST /time_control/ auxhist19_begin_y NAMELIST /time_control/ auxhist19_begin_d NAMELIST /time_control/ auxhist19_begin_h NAMELIST /time_control/ auxhist19_begin_m NAMELIST /time_control/ auxhist19_begin_s NAMELIST /time_control/ auxhist19_begin NAMELIST /time_control/ auxhist19_end_y NAMELIST /time_control/ auxhist19_end_d NAMELIST /time_control/ auxhist19_end_h NAMELIST /time_control/ auxhist19_end_m NAMELIST /time_control/ auxhist19_end_s NAMELIST /time_control/ auxhist19_end NAMELIST /time_control/ io_form_auxhist19 NAMELIST /time_control/ frames_per_auxhist19 NAMELIST /time_control/ auxhist20_inname NAMELIST /time_control/ auxhist20_outname NAMELIST /time_control/ auxhist20_interval_y NAMELIST /time_control/ auxhist20_interval_d NAMELIST /time_control/ auxhist20_interval_h NAMELIST /time_control/ auxhist20_interval_m NAMELIST /time_control/ auxhist20_interval_s NAMELIST /time_control/ auxhist20_interval NAMELIST /time_control/ auxhist20_begin_y NAMELIST /time_control/ auxhist20_begin_d NAMELIST /time_control/ auxhist20_begin_h NAMELIST /time_control/ auxhist20_begin_m NAMELIST /time_control/ auxhist20_begin_s NAMELIST /time_control/ auxhist20_begin NAMELIST /time_control/ auxhist20_end_y NAMELIST /time_control/ auxhist20_end_d NAMELIST /time_control/ auxhist20_end_h NAMELIST /time_control/ auxhist20_end_m NAMELIST /time_control/ auxhist20_end_s NAMELIST /time_control/ auxhist20_end NAMELIST /time_control/ io_form_auxhist20 NAMELIST /time_control/ frames_per_auxhist20 NAMELIST /time_control/ auxhist21_inname NAMELIST /time_control/ auxhist21_outname NAMELIST /time_control/ auxhist21_interval_y NAMELIST /time_control/ auxhist21_interval_d NAMELIST /time_control/ auxhist21_interval_h NAMELIST /time_control/ auxhist21_interval_m NAMELIST /time_control/ auxhist21_interval_s NAMELIST /time_control/ auxhist21_interval NAMELIST /time_control/ auxhist21_begin_y NAMELIST /time_control/ auxhist21_begin_d NAMELIST /time_control/ auxhist21_begin_h NAMELIST /time_control/ auxhist21_begin_m NAMELIST /time_control/ auxhist21_begin_s NAMELIST /time_control/ auxhist21_begin NAMELIST /time_control/ auxhist21_end_y NAMELIST /time_control/ auxhist21_end_d NAMELIST /time_control/ auxhist21_end_h NAMELIST /time_control/ auxhist21_end_m NAMELIST /time_control/ auxhist21_end_s NAMELIST /time_control/ auxhist21_end NAMELIST /time_control/ io_form_auxhist21 NAMELIST /time_control/ frames_per_auxhist21 NAMELIST /time_control/ auxhist22_inname NAMELIST /time_control/ auxhist22_outname NAMELIST /time_control/ auxhist22_interval_y NAMELIST /time_control/ auxhist22_interval_d NAMELIST /time_control/ auxhist22_interval_h NAMELIST /time_control/ auxhist22_interval_m NAMELIST /time_control/ auxhist22_interval_s NAMELIST /time_control/ auxhist22_interval NAMELIST /time_control/ auxhist22_begin_y NAMELIST /time_control/ auxhist22_begin_d NAMELIST /time_control/ auxhist22_begin_h NAMELIST /time_control/ auxhist22_begin_m NAMELIST /time_control/ auxhist22_begin_s NAMELIST /time_control/ auxhist22_begin NAMELIST /time_control/ auxhist22_end_y NAMELIST /time_control/ auxhist22_end_d NAMELIST /time_control/ auxhist22_end_h NAMELIST /time_control/ auxhist22_end_m NAMELIST /time_control/ auxhist22_end_s NAMELIST /time_control/ auxhist22_end NAMELIST /time_control/ io_form_auxhist22 NAMELIST /time_control/ frames_per_auxhist22 NAMELIST /time_control/ auxhist23_inname NAMELIST /time_control/ auxhist23_outname NAMELIST /time_control/ auxhist23_interval_y NAMELIST /time_control/ auxhist23_interval_d NAMELIST /time_control/ auxhist23_interval_h NAMELIST /time_control/ auxhist23_interval_m NAMELIST /time_control/ auxhist23_interval_s NAMELIST /time_control/ auxhist23_interval NAMELIST /time_control/ auxhist23_begin_y NAMELIST /time_control/ auxhist23_begin_d NAMELIST /time_control/ auxhist23_begin_h NAMELIST /time_control/ auxhist23_begin_m NAMELIST /time_control/ auxhist23_begin_s NAMELIST /time_control/ auxhist23_begin NAMELIST /time_control/ auxhist23_end_y NAMELIST /time_control/ auxhist23_end_d NAMELIST /time_control/ auxhist23_end_h NAMELIST /time_control/ auxhist23_end_m NAMELIST /time_control/ auxhist23_end_s NAMELIST /time_control/ auxhist23_end NAMELIST /time_control/ io_form_auxhist23 NAMELIST /time_control/ frames_per_auxhist23 NAMELIST /time_control/ auxhist24_inname NAMELIST /time_control/ auxhist24_outname NAMELIST /time_control/ auxhist24_interval_y NAMELIST /time_control/ auxhist24_interval_d NAMELIST /time_control/ auxhist24_interval_h NAMELIST /time_control/ auxhist24_interval_m NAMELIST /time_control/ auxhist24_interval_s NAMELIST /time_control/ auxhist24_interval NAMELIST /time_control/ auxhist24_begin_y NAMELIST /time_control/ auxhist24_begin_d NAMELIST /time_control/ auxhist24_begin_h NAMELIST /time_control/ auxhist24_begin_m NAMELIST /time_control/ auxhist24_begin_s NAMELIST /time_control/ auxhist24_begin NAMELIST /time_control/ auxhist24_end_y NAMELIST /time_control/ auxhist24_end_d NAMELIST /time_control/ auxhist24_end_h NAMELIST /time_control/ auxhist24_end_m NAMELIST /time_control/ auxhist24_end_s NAMELIST /time_control/ auxhist24_end NAMELIST /time_control/ io_form_auxhist24 NAMELIST /time_control/ frames_per_auxhist24 NAMELIST /time_control/ auxinput1_outname NAMELIST /time_control/ auxinput1_interval_y NAMELIST /time_control/ auxinput1_interval_d NAMELIST /time_control/ auxinput1_interval_h NAMELIST /time_control/ auxinput1_interval_m NAMELIST /time_control/ auxinput1_interval_s NAMELIST /time_control/ auxinput1_interval NAMELIST /time_control/ auxinput1_begin_y NAMELIST /time_control/ auxinput1_begin_d NAMELIST /time_control/ auxinput1_begin_h NAMELIST /time_control/ auxinput1_begin_m NAMELIST /time_control/ auxinput1_begin_s NAMELIST /time_control/ auxinput1_begin NAMELIST /time_control/ auxinput1_end_y NAMELIST /time_control/ auxinput1_end_d NAMELIST /time_control/ auxinput1_end_h NAMELIST /time_control/ auxinput1_end_m NAMELIST /time_control/ auxinput1_end_s NAMELIST /time_control/ auxinput1_end NAMELIST /time_control/ frames_per_auxinput1 NAMELIST /time_control/ auxinput2_inname NAMELIST /time_control/ auxinput2_outname NAMELIST /time_control/ auxinput2_interval_y NAMELIST /time_control/ auxinput2_interval_d NAMELIST /time_control/ auxinput2_interval_h NAMELIST /time_control/ auxinput2_interval_m NAMELIST /time_control/ auxinput2_interval_s NAMELIST /time_control/ auxinput2_interval NAMELIST /time_control/ auxinput2_begin_y NAMELIST /time_control/ auxinput2_begin_d NAMELIST /time_control/ auxinput2_begin_h NAMELIST /time_control/ auxinput2_begin_m NAMELIST /time_control/ auxinput2_begin_s NAMELIST /time_control/ auxinput2_begin NAMELIST /time_control/ auxinput2_end_y NAMELIST /time_control/ auxinput2_end_d NAMELIST /time_control/ auxinput2_end_h NAMELIST /time_control/ auxinput2_end_m NAMELIST /time_control/ auxinput2_end_s NAMELIST /time_control/ auxinput2_end NAMELIST /time_control/ io_form_auxinput2 NAMELIST /time_control/ frames_per_auxinput2 NAMELIST /time_control/ auxinput3_inname NAMELIST /time_control/ auxinput3_outname NAMELIST /time_control/ auxinput3_interval_y NAMELIST /time_control/ auxinput3_interval_d NAMELIST /time_control/ auxinput3_interval_h NAMELIST /time_control/ auxinput3_interval_m NAMELIST /time_control/ auxinput3_interval_s NAMELIST /time_control/ auxinput3_interval NAMELIST /time_control/ auxinput3_begin_y NAMELIST /time_control/ auxinput3_begin_d NAMELIST /time_control/ auxinput3_begin_h NAMELIST /time_control/ auxinput3_begin_m NAMELIST /time_control/ auxinput3_begin_s NAMELIST /time_control/ auxinput3_begin NAMELIST /time_control/ auxinput3_end_y NAMELIST /time_control/ auxinput3_end_d NAMELIST /time_control/ auxinput3_end_h NAMELIST /time_control/ auxinput3_end_m NAMELIST /time_control/ auxinput3_end_s NAMELIST /time_control/ auxinput3_end NAMELIST /time_control/ io_form_auxinput3 NAMELIST /time_control/ frames_per_auxinput3 NAMELIST /time_control/ auxinput4_inname NAMELIST /time_control/ auxinput4_outname NAMELIST /time_control/ auxinput4_interval_y NAMELIST /time_control/ auxinput4_interval_d NAMELIST /time_control/ auxinput4_interval_h NAMELIST /time_control/ auxinput4_interval_m NAMELIST /time_control/ auxinput4_interval_s NAMELIST /time_control/ auxinput4_interval NAMELIST /time_control/ auxinput4_begin_y NAMELIST /time_control/ auxinput4_begin_d NAMELIST /time_control/ auxinput4_begin_h NAMELIST /time_control/ auxinput4_begin_m NAMELIST /time_control/ auxinput4_begin_s NAMELIST /time_control/ auxinput4_begin NAMELIST /time_control/ auxinput4_end_y NAMELIST /time_control/ auxinput4_end_d NAMELIST /time_control/ auxinput4_end_h NAMELIST /time_control/ auxinput4_end_m NAMELIST /time_control/ auxinput4_end_s NAMELIST /time_control/ auxinput4_end NAMELIST /time_control/ io_form_auxinput4 NAMELIST /time_control/ frames_per_auxinput4 NAMELIST /time_control/ auxinput5_inname NAMELIST /time_control/ auxinput5_outname NAMELIST /time_control/ auxinput5_interval_y NAMELIST /time_control/ auxinput5_interval_d NAMELIST /time_control/ auxinput5_interval_h NAMELIST /time_control/ auxinput5_interval_m NAMELIST /time_control/ auxinput5_interval_s NAMELIST /time_control/ auxinput5_interval NAMELIST /time_control/ auxinput5_begin_y NAMELIST /time_control/ auxinput5_begin_d NAMELIST /time_control/ auxinput5_begin_h NAMELIST /time_control/ auxinput5_begin_m NAMELIST /time_control/ auxinput5_begin_s NAMELIST /time_control/ auxinput5_begin NAMELIST /time_control/ auxinput5_end_y NAMELIST /time_control/ auxinput5_end_d NAMELIST /time_control/ auxinput5_end_h NAMELIST /time_control/ auxinput5_end_m NAMELIST /time_control/ auxinput5_end_s NAMELIST /time_control/ auxinput5_end NAMELIST /time_control/ io_form_auxinput5 NAMELIST /time_control/ frames_per_auxinput5 NAMELIST /time_control/ auxinput6_inname NAMELIST /time_control/ auxinput6_outname NAMELIST /time_control/ auxinput6_interval_y NAMELIST /time_control/ auxinput6_interval_d NAMELIST /time_control/ auxinput6_interval_h NAMELIST /time_control/ auxinput6_interval_m NAMELIST /time_control/ auxinput6_interval_s NAMELIST /time_control/ auxinput6_interval NAMELIST /time_control/ auxinput6_begin_y NAMELIST /time_control/ auxinput6_begin_d NAMELIST /time_control/ auxinput6_begin_h NAMELIST /time_control/ auxinput6_begin_m NAMELIST /time_control/ auxinput6_begin_s NAMELIST /time_control/ auxinput6_begin NAMELIST /time_control/ auxinput6_end_y NAMELIST /time_control/ auxinput6_end_d NAMELIST /time_control/ auxinput6_end_h NAMELIST /time_control/ auxinput6_end_m NAMELIST /time_control/ auxinput6_end_s NAMELIST /time_control/ auxinput6_end NAMELIST /time_control/ io_form_auxinput6 NAMELIST /time_control/ frames_per_auxinput6 NAMELIST /time_control/ auxinput7_inname NAMELIST /time_control/ auxinput7_outname NAMELIST /time_control/ auxinput7_interval_y NAMELIST /time_control/ auxinput7_interval_d NAMELIST /time_control/ auxinput7_interval_h NAMELIST /time_control/ auxinput7_interval_m NAMELIST /time_control/ auxinput7_interval_s NAMELIST /time_control/ auxinput7_interval NAMELIST /time_control/ auxinput7_begin_y NAMELIST /time_control/ auxinput7_begin_d NAMELIST /time_control/ auxinput7_begin_h NAMELIST /time_control/ auxinput7_begin_m NAMELIST /time_control/ auxinput7_begin_s NAMELIST /time_control/ auxinput7_begin NAMELIST /time_control/ auxinput7_end_y NAMELIST /time_control/ auxinput7_end_d NAMELIST /time_control/ auxinput7_end_h NAMELIST /time_control/ auxinput7_end_m NAMELIST /time_control/ auxinput7_end_s NAMELIST /time_control/ auxinput7_end NAMELIST /time_control/ io_form_auxinput7 NAMELIST /time_control/ frames_per_auxinput7 NAMELIST /time_control/ auxinput8_inname NAMELIST /time_control/ auxinput8_outname NAMELIST /time_control/ auxinput8_interval_y NAMELIST /time_control/ auxinput8_interval_d NAMELIST /time_control/ auxinput8_interval_h NAMELIST /time_control/ auxinput8_interval_m NAMELIST /time_control/ auxinput8_interval_s NAMELIST /time_control/ auxinput8_interval NAMELIST /time_control/ auxinput8_begin_y NAMELIST /time_control/ auxinput8_begin_d NAMELIST /time_control/ auxinput8_begin_h NAMELIST /time_control/ auxinput8_begin_m NAMELIST /time_control/ auxinput8_begin_s NAMELIST /time_control/ auxinput8_begin NAMELIST /time_control/ auxinput8_end_y NAMELIST /time_control/ auxinput8_end_d NAMELIST /time_control/ auxinput8_end_h NAMELIST /time_control/ auxinput8_end_m NAMELIST /time_control/ auxinput8_end_s NAMELIST /time_control/ auxinput8_end NAMELIST /time_control/ io_form_auxinput8 NAMELIST /time_control/ frames_per_auxinput8 NAMELIST /time_control/ auxinput9_inname NAMELIST /time_control/ auxinput9_outname NAMELIST /time_control/ auxinput9_interval_y NAMELIST /time_control/ auxinput9_interval_d NAMELIST /time_control/ auxinput9_interval_h NAMELIST /time_control/ auxinput9_interval_m NAMELIST /time_control/ auxinput9_interval_s NAMELIST /time_control/ auxinput9_interval NAMELIST /time_control/ auxinput9_begin_y NAMELIST /time_control/ auxinput9_begin_d NAMELIST /time_control/ auxinput9_begin_h NAMELIST /time_control/ auxinput9_begin_m NAMELIST /time_control/ auxinput9_begin_s NAMELIST /time_control/ auxinput9_begin NAMELIST /time_control/ auxinput9_end_y NAMELIST /time_control/ auxinput9_end_d NAMELIST /time_control/ auxinput9_end_h NAMELIST /time_control/ auxinput9_end_m NAMELIST /time_control/ auxinput9_end_s NAMELIST /time_control/ auxinput9_end NAMELIST /time_control/ io_form_auxinput9 NAMELIST /time_control/ frames_per_auxinput9 NAMELIST /time_control/ auxinput10_inname NAMELIST /time_control/ auxinput10_outname NAMELIST /time_control/ auxinput10_interval_y NAMELIST /time_control/ auxinput10_interval_d NAMELIST /time_control/ auxinput10_interval_h NAMELIST /time_control/ auxinput10_interval_m NAMELIST /time_control/ auxinput10_interval_s NAMELIST /time_control/ auxinput10_interval NAMELIST /time_control/ auxinput10_begin_y NAMELIST /time_control/ auxinput10_begin_d NAMELIST /time_control/ auxinput10_begin_h NAMELIST /time_control/ auxinput10_begin_m NAMELIST /time_control/ auxinput10_begin_s NAMELIST /time_control/ auxinput10_begin NAMELIST /time_control/ auxinput10_end_y NAMELIST /time_control/ auxinput10_end_d NAMELIST /time_control/ auxinput10_end_h NAMELIST /time_control/ auxinput10_end_m NAMELIST /time_control/ auxinput10_end_s NAMELIST /time_control/ auxinput10_end NAMELIST /time_control/ io_form_auxinput10 NAMELIST /time_control/ frames_per_auxinput10 NAMELIST /time_control/ auxinput11_inname NAMELIST /time_control/ auxinput11_outname NAMELIST /time_control/ auxinput11_interval_y NAMELIST /time_control/ auxinput11_interval_d NAMELIST /time_control/ auxinput11_interval_h NAMELIST /time_control/ auxinput11_interval_m NAMELIST /time_control/ auxinput11_interval_s NAMELIST /time_control/ auxinput11_interval NAMELIST /time_control/ auxinput11_begin_y NAMELIST /time_control/ auxinput11_begin_d NAMELIST /time_control/ auxinput11_begin_h NAMELIST /time_control/ auxinput11_begin_m NAMELIST /time_control/ auxinput11_begin_s NAMELIST /time_control/ auxinput11_begin NAMELIST /time_control/ auxinput11_end_y NAMELIST /time_control/ auxinput11_end_d NAMELIST /time_control/ auxinput11_end_h NAMELIST /time_control/ auxinput11_end_m NAMELIST /time_control/ auxinput11_end_s NAMELIST /time_control/ auxinput11_end NAMELIST /time_control/ io_form_auxinput11 NAMELIST /time_control/ frames_per_auxinput11 NAMELIST /time_control/ auxinput12_inname NAMELIST /time_control/ auxinput12_outname NAMELIST /time_control/ auxinput12_interval_y NAMELIST /time_control/ auxinput12_interval_d NAMELIST /time_control/ auxinput12_interval_h NAMELIST /time_control/ auxinput12_interval_m NAMELIST /time_control/ auxinput12_interval_s NAMELIST /time_control/ auxinput12_interval NAMELIST /time_control/ auxinput12_begin_y NAMELIST /time_control/ auxinput12_begin_d NAMELIST /time_control/ auxinput12_begin_h NAMELIST /time_control/ auxinput12_begin_m NAMELIST /time_control/ auxinput12_begin_s NAMELIST /time_control/ auxinput12_begin NAMELIST /time_control/ auxinput12_end_y NAMELIST /time_control/ auxinput12_end_d NAMELIST /time_control/ auxinput12_end_h NAMELIST /time_control/ auxinput12_end_m NAMELIST /time_control/ auxinput12_end_s NAMELIST /time_control/ auxinput12_end NAMELIST /time_control/ io_form_auxinput12 NAMELIST /time_control/ frames_per_auxinput12 NAMELIST /time_control/ auxinput13_inname NAMELIST /time_control/ auxinput13_outname NAMELIST /time_control/ auxinput13_interval_y NAMELIST /time_control/ auxinput13_interval_d NAMELIST /time_control/ auxinput13_interval_h NAMELIST /time_control/ auxinput13_interval_m NAMELIST /time_control/ auxinput13_interval_s NAMELIST /time_control/ auxinput13_interval NAMELIST /time_control/ auxinput13_begin_y NAMELIST /time_control/ auxinput13_begin_d NAMELIST /time_control/ auxinput13_begin_h NAMELIST /time_control/ auxinput13_begin_m NAMELIST /time_control/ auxinput13_begin_s NAMELIST /time_control/ auxinput13_begin NAMELIST /time_control/ auxinput13_end_y NAMELIST /time_control/ auxinput13_end_d NAMELIST /time_control/ auxinput13_end_h NAMELIST /time_control/ auxinput13_end_m NAMELIST /time_control/ auxinput13_end_s NAMELIST /time_control/ auxinput13_end NAMELIST /time_control/ io_form_auxinput13 NAMELIST /time_control/ frames_per_auxinput13 NAMELIST /time_control/ auxinput14_inname NAMELIST /time_control/ auxinput14_outname NAMELIST /time_control/ auxinput14_interval_y NAMELIST /time_control/ auxinput14_interval_d NAMELIST /time_control/ auxinput14_interval_h NAMELIST /time_control/ auxinput14_interval_m NAMELIST /time_control/ auxinput14_interval_s NAMELIST /time_control/ auxinput14_interval NAMELIST /time_control/ auxinput14_begin_y NAMELIST /time_control/ auxinput14_begin_d NAMELIST /time_control/ auxinput14_begin_h NAMELIST /time_control/ auxinput14_begin_m NAMELIST /time_control/ auxinput14_begin_s NAMELIST /time_control/ auxinput14_begin NAMELIST /time_control/ auxinput14_end_y NAMELIST /time_control/ auxinput14_end_d NAMELIST /time_control/ auxinput14_end_h NAMELIST /time_control/ auxinput14_end_m NAMELIST /time_control/ auxinput14_end_s NAMELIST /time_control/ auxinput14_end NAMELIST /time_control/ io_form_auxinput14 NAMELIST /time_control/ frames_per_auxinput14 NAMELIST /time_control/ auxinput15_inname NAMELIST /time_control/ auxinput15_outname NAMELIST /time_control/ auxinput15_interval_y NAMELIST /time_control/ auxinput15_interval_d NAMELIST /time_control/ auxinput15_interval_h NAMELIST /time_control/ auxinput15_interval_m NAMELIST /time_control/ auxinput15_interval_s NAMELIST /time_control/ auxinput15_interval NAMELIST /time_control/ auxinput15_begin_y NAMELIST /time_control/ auxinput15_begin_d NAMELIST /time_control/ auxinput15_begin_h NAMELIST /time_control/ auxinput15_begin_m NAMELIST /time_control/ auxinput15_begin_s NAMELIST /time_control/ auxinput15_begin NAMELIST /time_control/ auxinput15_end_y NAMELIST /time_control/ auxinput15_end_d NAMELIST /time_control/ auxinput15_end_h NAMELIST /time_control/ auxinput15_end_m NAMELIST /time_control/ auxinput15_end_s NAMELIST /time_control/ auxinput15_end NAMELIST /time_control/ io_form_auxinput15 NAMELIST /time_control/ frames_per_auxinput15 NAMELIST /time_control/ auxinput16_inname NAMELIST /time_control/ auxinput16_outname NAMELIST /time_control/ auxinput16_interval_y NAMELIST /time_control/ auxinput16_interval_d NAMELIST /time_control/ auxinput16_interval_h NAMELIST /time_control/ auxinput16_interval_m NAMELIST /time_control/ auxinput16_interval_s NAMELIST /time_control/ auxinput16_interval NAMELIST /time_control/ auxinput16_begin_y NAMELIST /time_control/ auxinput16_begin_d NAMELIST /time_control/ auxinput16_begin_h NAMELIST /time_control/ auxinput16_begin_m NAMELIST /time_control/ auxinput16_begin_s NAMELIST /time_control/ auxinput16_begin NAMELIST /time_control/ auxinput16_end_y NAMELIST /time_control/ auxinput16_end_d NAMELIST /time_control/ auxinput16_end_h NAMELIST /time_control/ auxinput16_end_m NAMELIST /time_control/ auxinput16_end_s NAMELIST /time_control/ auxinput16_end NAMELIST /time_control/ io_form_auxinput16 NAMELIST /time_control/ frames_per_auxinput16 NAMELIST /time_control/ auxinput17_inname NAMELIST /time_control/ auxinput17_outname NAMELIST /time_control/ auxinput17_interval_y NAMELIST /time_control/ auxinput17_interval_d NAMELIST /time_control/ auxinput17_interval_h NAMELIST /time_control/ auxinput17_interval_m NAMELIST /time_control/ auxinput17_interval_s NAMELIST /time_control/ auxinput17_interval NAMELIST /time_control/ auxinput17_begin_y NAMELIST /time_control/ auxinput17_begin_d NAMELIST /time_control/ auxinput17_begin_h NAMELIST /time_control/ auxinput17_begin_m NAMELIST /time_control/ auxinput17_begin_s NAMELIST /time_control/ auxinput17_begin NAMELIST /time_control/ auxinput17_end_y NAMELIST /time_control/ auxinput17_end_d NAMELIST /time_control/ auxinput17_end_h NAMELIST /time_control/ auxinput17_end_m NAMELIST /time_control/ auxinput17_end_s NAMELIST /time_control/ auxinput17_end NAMELIST /time_control/ io_form_auxinput17 NAMELIST /time_control/ frames_per_auxinput17 NAMELIST /time_control/ auxinput18_inname NAMELIST /time_control/ auxinput18_outname NAMELIST /time_control/ auxinput18_interval_y NAMELIST /time_control/ auxinput18_interval_d NAMELIST /time_control/ auxinput18_interval_h NAMELIST /time_control/ auxinput18_interval_m NAMELIST /time_control/ auxinput18_interval_s NAMELIST /time_control/ auxinput18_interval NAMELIST /time_control/ auxinput18_begin_y NAMELIST /time_control/ auxinput18_begin_d NAMELIST /time_control/ auxinput18_begin_h NAMELIST /time_control/ auxinput18_begin_m NAMELIST /time_control/ auxinput18_begin_s NAMELIST /time_control/ auxinput18_begin NAMELIST /time_control/ auxinput18_end_y NAMELIST /time_control/ auxinput18_end_d NAMELIST /time_control/ auxinput18_end_h NAMELIST /time_control/ auxinput18_end_m NAMELIST /time_control/ auxinput18_end_s NAMELIST /time_control/ auxinput18_end NAMELIST /time_control/ io_form_auxinput18 NAMELIST /time_control/ frames_per_auxinput18 NAMELIST /time_control/ auxinput19_inname NAMELIST /time_control/ auxinput19_outname NAMELIST /time_control/ auxinput19_interval_y NAMELIST /time_control/ auxinput19_interval_d NAMELIST /time_control/ auxinput19_interval_h NAMELIST /time_control/ auxinput19_interval_m NAMELIST /time_control/ auxinput19_interval_s NAMELIST /time_control/ auxinput19_interval NAMELIST /time_control/ auxinput19_begin_y NAMELIST /time_control/ auxinput19_begin_d NAMELIST /time_control/ auxinput19_begin_h NAMELIST /time_control/ auxinput19_begin_m NAMELIST /time_control/ auxinput19_begin_s NAMELIST /time_control/ auxinput19_begin NAMELIST /time_control/ auxinput19_end_y NAMELIST /time_control/ auxinput19_end_d NAMELIST /time_control/ auxinput19_end_h NAMELIST /time_control/ auxinput19_end_m NAMELIST /time_control/ auxinput19_end_s NAMELIST /time_control/ auxinput19_end NAMELIST /time_control/ io_form_auxinput19 NAMELIST /time_control/ frames_per_auxinput19 NAMELIST /time_control/ auxinput20_inname NAMELIST /time_control/ auxinput20_outname NAMELIST /time_control/ auxinput20_interval_y NAMELIST /time_control/ auxinput20_interval_d NAMELIST /time_control/ auxinput20_interval_h NAMELIST /time_control/ auxinput20_interval_m NAMELIST /time_control/ auxinput20_interval_s NAMELIST /time_control/ auxinput20_interval NAMELIST /time_control/ auxinput20_begin_y NAMELIST /time_control/ auxinput20_begin_d NAMELIST /time_control/ auxinput20_begin_h NAMELIST /time_control/ auxinput20_begin_m NAMELIST /time_control/ auxinput20_begin_s NAMELIST /time_control/ auxinput20_begin NAMELIST /time_control/ auxinput20_end_y NAMELIST /time_control/ auxinput20_end_d NAMELIST /time_control/ auxinput20_end_h NAMELIST /time_control/ auxinput20_end_m NAMELIST /time_control/ auxinput20_end_s NAMELIST /time_control/ auxinput20_end NAMELIST /time_control/ io_form_auxinput20 NAMELIST /time_control/ frames_per_auxinput20 NAMELIST /time_control/ auxinput21_inname NAMELIST /time_control/ auxinput21_outname NAMELIST /time_control/ auxinput21_interval_y NAMELIST /time_control/ auxinput21_interval_d NAMELIST /time_control/ auxinput21_interval_h NAMELIST /time_control/ auxinput21_interval_m NAMELIST /time_control/ auxinput21_interval_s NAMELIST /time_control/ auxinput21_interval NAMELIST /time_control/ auxinput21_begin_y NAMELIST /time_control/ auxinput21_begin_d NAMELIST /time_control/ auxinput21_begin_h NAMELIST /time_control/ auxinput21_begin_m NAMELIST /time_control/ auxinput21_begin_s NAMELIST /time_control/ auxinput21_begin NAMELIST /time_control/ auxinput21_end_y NAMELIST /time_control/ auxinput21_end_d NAMELIST /time_control/ auxinput21_end_h NAMELIST /time_control/ auxinput21_end_m NAMELIST /time_control/ auxinput21_end_s NAMELIST /time_control/ auxinput21_end NAMELIST /time_control/ io_form_auxinput21 NAMELIST /time_control/ frames_per_auxinput21 NAMELIST /time_control/ auxinput22_inname NAMELIST /time_control/ auxinput22_outname NAMELIST /time_control/ auxinput22_interval_y NAMELIST /time_control/ auxinput22_interval_d NAMELIST /time_control/ auxinput22_interval_h NAMELIST /time_control/ auxinput22_interval_m NAMELIST /time_control/ auxinput22_interval_s NAMELIST /time_control/ auxinput22_interval NAMELIST /time_control/ auxinput22_begin_y NAMELIST /time_control/ auxinput22_begin_d NAMELIST /time_control/ auxinput22_begin_h NAMELIST /time_control/ auxinput22_begin_m NAMELIST /time_control/ auxinput22_begin_s NAMELIST /time_control/ auxinput22_begin NAMELIST /time_control/ auxinput22_end_y NAMELIST /time_control/ auxinput22_end_d NAMELIST /time_control/ auxinput22_end_h NAMELIST /time_control/ auxinput22_end_m NAMELIST /time_control/ auxinput22_end_s NAMELIST /time_control/ auxinput22_end NAMELIST /time_control/ io_form_auxinput22 NAMELIST /time_control/ frames_per_auxinput22 NAMELIST /time_control/ auxinput23_inname NAMELIST /time_control/ auxinput23_outname NAMELIST /time_control/ auxinput23_interval_y NAMELIST /time_control/ auxinput23_interval_d NAMELIST /time_control/ auxinput23_interval_h NAMELIST /time_control/ auxinput23_interval_m NAMELIST /time_control/ auxinput23_interval_s NAMELIST /time_control/ auxinput23_interval NAMELIST /time_control/ auxinput23_begin_y NAMELIST /time_control/ auxinput23_begin_d NAMELIST /time_control/ auxinput23_begin_h NAMELIST /time_control/ auxinput23_begin_m NAMELIST /time_control/ auxinput23_begin_s NAMELIST /time_control/ auxinput23_begin NAMELIST /time_control/ auxinput23_end_y NAMELIST /time_control/ auxinput23_end_d NAMELIST /time_control/ auxinput23_end_h NAMELIST /time_control/ auxinput23_end_m NAMELIST /time_control/ auxinput23_end_s NAMELIST /time_control/ auxinput23_end NAMELIST /time_control/ io_form_auxinput23 NAMELIST /time_control/ frames_per_auxinput23 NAMELIST /time_control/ auxinput24_inname NAMELIST /time_control/ auxinput24_outname NAMELIST /time_control/ auxinput24_interval_y NAMELIST /time_control/ auxinput24_interval_d NAMELIST /time_control/ auxinput24_interval_h NAMELIST /time_control/ auxinput24_interval_m NAMELIST /time_control/ auxinput24_interval_s NAMELIST /time_control/ auxinput24_interval NAMELIST /time_control/ auxinput24_begin_y NAMELIST /time_control/ auxinput24_begin_d NAMELIST /time_control/ auxinput24_begin_h NAMELIST /time_control/ auxinput24_begin_m NAMELIST /time_control/ auxinput24_begin_s NAMELIST /time_control/ auxinput24_begin NAMELIST /time_control/ auxinput24_end_y NAMELIST /time_control/ auxinput24_end_d NAMELIST /time_control/ auxinput24_end_h NAMELIST /time_control/ auxinput24_end_m NAMELIST /time_control/ auxinput24_end_s NAMELIST /time_control/ auxinput24_end NAMELIST /time_control/ io_form_auxinput24 NAMELIST /time_control/ frames_per_auxinput24 NAMELIST /time_control/ history_interval NAMELIST /time_control/ frames_per_outfile NAMELIST /time_control/ restart NAMELIST /time_control/ restart_interval NAMELIST /time_control/ io_form_input NAMELIST /time_control/ io_form_history NAMELIST /time_control/ io_form_restart NAMELIST /time_control/ io_form_boundary NAMELIST /time_control/ debug_level NAMELIST /time_control/ self_test_domain NAMELIST /time_control/ history_outname NAMELIST /time_control/ history_inname NAMELIST /time_control/ use_netcdf_classic NAMELIST /time_control/ history_interval_d NAMELIST /time_control/ history_interval_h NAMELIST /time_control/ history_interval_m NAMELIST /time_control/ history_interval_s NAMELIST /time_control/ inputout_interval_d NAMELIST /time_control/ inputout_interval_h NAMELIST /time_control/ inputout_interval_m NAMELIST /time_control/ inputout_interval_s NAMELIST /time_control/ inputout_interval NAMELIST /time_control/ restart_interval_d NAMELIST /time_control/ restart_interval_h NAMELIST /time_control/ restart_interval_m NAMELIST /time_control/ restart_interval_s NAMELIST /time_control/ history_begin_y NAMELIST /time_control/ history_begin_d NAMELIST /time_control/ history_begin_h NAMELIST /time_control/ history_begin_m NAMELIST /time_control/ history_begin_s NAMELIST /time_control/ history_begin NAMELIST /time_control/ inputout_begin_y NAMELIST /time_control/ inputout_begin_d NAMELIST /time_control/ inputout_begin_h NAMELIST /time_control/ inputout_begin_m NAMELIST /time_control/ inputout_begin_s NAMELIST /time_control/ restart_begin_y NAMELIST /time_control/ restart_begin_d NAMELIST /time_control/ restart_begin_h NAMELIST /time_control/ restart_begin_m NAMELIST /time_control/ restart_begin_s NAMELIST /time_control/ restart_begin NAMELIST /time_control/ history_end_y NAMELIST /time_control/ history_end_d NAMELIST /time_control/ history_end_h NAMELIST /time_control/ history_end_m NAMELIST /time_control/ history_end_s NAMELIST /time_control/ history_end NAMELIST /time_control/ inputout_end_y NAMELIST /time_control/ inputout_end_d NAMELIST /time_control/ inputout_end_h NAMELIST /time_control/ inputout_end_m NAMELIST /time_control/ inputout_end_s NAMELIST /time_control/ reset_simulation_start NAMELIST /domains/ sr_x NAMELIST /domains/ sr_y NAMELIST /fdda/ sgfdda_inname NAMELIST /fdda/ gfdda_inname NAMELIST /fdda/ sgfdda_interval_d NAMELIST /fdda/ sgfdda_interval_h NAMELIST /fdda/ sgfdda_interval_m NAMELIST /fdda/ sgfdda_interval_s NAMELIST /fdda/ sgfdda_interval_y NAMELIST /fdda/ sgfdda_interval NAMELIST /fdda/ gfdda_interval_d NAMELIST /fdda/ gfdda_interval_h NAMELIST /fdda/ gfdda_interval_m NAMELIST /fdda/ gfdda_interval_s NAMELIST /fdda/ gfdda_interval_y NAMELIST /fdda/ gfdda_interval NAMELIST /fdda/ sgfdda_begin_y NAMELIST /fdda/ sgfdda_begin_d NAMELIST /fdda/ sgfdda_begin_h NAMELIST /fdda/ sgfdda_begin_m NAMELIST /fdda/ sgfdda_begin_s NAMELIST /fdda/ gfdda_begin_y NAMELIST /fdda/ gfdda_begin_d NAMELIST /fdda/ gfdda_begin_h NAMELIST /fdda/ gfdda_begin_m NAMELIST /fdda/ gfdda_begin_s NAMELIST /fdda/ sgfdda_end_y NAMELIST /fdda/ sgfdda_end_d NAMELIST /fdda/ sgfdda_end_h NAMELIST /fdda/ sgfdda_end_m NAMELIST /fdda/ sgfdda_end_s NAMELIST /fdda/ gfdda_end_y NAMELIST /fdda/ gfdda_end_d NAMELIST /fdda/ gfdda_end_h NAMELIST /fdda/ gfdda_end_m NAMELIST /fdda/ gfdda_end_s NAMELIST /fdda/ io_form_sgfdda NAMELIST /fdda/ io_form_gfdda NAMELIST /time_control/ iofields_filename NAMELIST /time_control/ ignore_iofields_warning NAMELIST /time_control/ ncd_nofill NAMELIST /chem/ emi_inname NAMELIST /chem/ fireemi_inname NAMELIST /chem/ input_chem_inname NAMELIST /chem/ emi_outname NAMELIST /chem/ fireemi_outname NAMELIST /chem/ input_chem_outname NAMELIST /chem/ io_style_emissions NAMELIST /chem/ bioemdt NAMELIST /chem/ photdt NAMELIST /chem/ chemdt NAMELIST /chem/ ne_area NAMELIST /chem/ kemit NAMELIST /chem/ nmegan NAMELIST /chem/ kfuture NAMELIST /chem/ kfire NAMELIST /chem/ kemit_aircraft NAMELIST /chem/ kdvel NAMELIST /chem/ ndepvel NAMELIST /chem/ kdepvel NAMELIST /chem/ erosion_dim NAMELIST /chem/ biomass_emiss_opt NAMELIST /chem/ cam_mam_mode NAMELIST /chem/ cam_mam_nspec NAMELIST /chem/ cam_mp_mam_cpled NAMELIST /chem/ lightning_opt NAMELIST /chem/ lightning_time_step NAMELIST /chem/ temp_upper NAMELIST /chem/ temp_lower NAMELIST /chem/ n_ic NAMELIST /chem/ n_cg NAMELIST /chem/ passive_ltng NAMELIST /chem/ lflash_data NAMELIST /chem/ flashrate_method NAMELIST /chem/ vprm_opt NAMELIST /chem/ wpeat NAMELIST /chem/ wflood NAMELIST /chem/ term_opt NAMELIST /chem/ chem_conv_tr NAMELIST /chem/ conv_tr_wetscav NAMELIST /chem/ conv_tr_aqchem NAMELIST /chem/ chem_opt NAMELIST /chem/ gaschem_onoff NAMELIST /chem/ aerchem_onoff NAMELIST /chem/ wetscav_onoff NAMELIST /chem/ dustwd_onoff NAMELIST /chem/ cldchem_onoff NAMELIST /chem/ is_full_tuv NAMELIST /chem/ lambda_cutoff NAMELIST /chem/ cld_od_opt NAMELIST /chem/ pht_cldfrc_opt NAMELIST /chem/ vertmix_onoff NAMELIST /chem/ chem_in_opt NAMELIST /chem/ phot_opt NAMELIST /chem/ gas_drydep_opt NAMELIST /chem/ aer_drydep_opt NAMELIST /chem/ diagnostic_chem NAMELIST /chem/ aero_diag_opt NAMELIST /chem/ aero_cw_diag_opt NAMELIST /chem/ aer_aerodynres_opt NAMELIST /chem/ emiss_opt NAMELIST /chem/ emiss_opt_vol NAMELIST /chem/ dust_opt NAMELIST /chem/ dust_schme NAMELIST /chem/ dmsemis_opt NAMELIST /chem/ seas_opt NAMELIST /chem/ bio_emiss_opt NAMELIST /chem/ biomass_burn_opt NAMELIST /chem/ plumerisefire_frq NAMELIST /chem/ emiss_inpt_opt NAMELIST /chem/ gas_bc_opt NAMELIST /chem/ gas_ic_opt NAMELIST /chem/ aer_bc_opt NAMELIST /chem/ aer_ic_opt NAMELIST /chem/ have_bcs_chem NAMELIST /chem/ have_bcs_tracer NAMELIST /chem/ scale_fire_emiss NAMELIST /chem/ aer_ra_feedback NAMELIST /chem/ aer_op_opt NAMELIST /chem/ opt_pars_out NAMELIST /chem/ diagnostic_dep NAMELIST /chem/ aircraft_emiss_opt NAMELIST /chem/ have_bcs_upper NAMELIST /chem/ fixed_ubc_press NAMELIST /chem/ fixed_ubc_inname NAMELIST /chem/ trop_lev_inname NAMELIST /chem/ exo_coldens_inname NAMELIST /chem/ wes_seasonal_inname NAMELIST /chem/ chemdiag NAMELIST /chem/ dust_alpha NAMELIST /chem/ dust_gamma NAMELIST /chem/ dust_smtune NAMELIST /chem/ dust_ustune NAMELIST /chem/ dust_dsr NAMELIST /chem/ dust_veg NAMELIST /chem/ dust_soils NAMELIST /chem/ dust_smois NAMELIST /chem/ emiss_ash_hgt NAMELIST /chem/ depo_fact NAMELIST /chem/ track_chem_num NAMELIST /chem/ track_chem_name NAMELIST /chem/ track_rad_num NAMELIST /chem/ track_tuv_num NAMELIST /chem/ track_tuv_lev NAMELIST /chem/ n2o5_hetchem NAMELIST /chem/ af_lambda_start NAMELIST /chem/ af_lambda_end NAMELIST /chem/ lnox_opt NAMELIST /chem/ lnox_passive NAMELIST /physics/ ltng_temp_upper NAMELIST /physics/ ltng_temp_lower NAMELIST /chem/ has_o3_exo_coldens NAMELIST /chem/ du_at_grnd NAMELIST /chem/ scale_o3_to_grnd_exo_coldens NAMELIST /chem/ scale_o3_to_du_at_grnd NAMELIST /chem/ irr_opt NAMELIST /fire/ ifire NAMELIST /fire/ fire_boundary_guard NAMELIST /fire/ fire_num_ignitions NAMELIST /fire/ fire_ignition_ros1 NAMELIST /fire/ fire_ignition_start_lon1 NAMELIST /fire/ fire_ignition_start_lat1 NAMELIST /fire/ fire_ignition_end_lon1 NAMELIST /fire/ fire_ignition_end_lat1 NAMELIST /fire/ fire_ignition_radius1 NAMELIST /fire/ fire_ignition_start_time1 NAMELIST /fire/ fire_ignition_end_time1 NAMELIST /fire/ fire_ignition_ros2 NAMELIST /fire/ fire_ignition_start_lon2 NAMELIST /fire/ fire_ignition_start_lat2 NAMELIST /fire/ fire_ignition_end_lon2 NAMELIST /fire/ fire_ignition_end_lat2 NAMELIST /fire/ fire_ignition_radius2 NAMELIST /fire/ fire_ignition_start_time2 NAMELIST /fire/ fire_ignition_end_time2 NAMELIST /fire/ fire_ignition_ros3 NAMELIST /fire/ fire_ignition_start_lon3 NAMELIST /fire/ fire_ignition_start_lat3 NAMELIST /fire/ fire_ignition_end_lon3 NAMELIST /fire/ fire_ignition_end_lat3 NAMELIST /fire/ fire_ignition_radius3 NAMELIST /fire/ fire_ignition_start_time3 NAMELIST /fire/ fire_ignition_end_time3 NAMELIST /fire/ fire_ignition_ros4 NAMELIST /fire/ fire_ignition_start_lon4 NAMELIST /fire/ fire_ignition_start_lat4 NAMELIST /fire/ fire_ignition_end_lon4 NAMELIST /fire/ fire_ignition_end_lat4 NAMELIST /fire/ fire_ignition_radius4 NAMELIST /fire/ fire_ignition_start_time4 NAMELIST /fire/ fire_ignition_end_time4 NAMELIST /fire/ fire_ignition_ros5 NAMELIST /fire/ fire_ignition_start_lon5 NAMELIST /fire/ fire_ignition_start_lat5 NAMELIST /fire/ fire_ignition_end_lon5 NAMELIST /fire/ fire_ignition_end_lat5 NAMELIST /fire/ fire_ignition_radius5 NAMELIST /fire/ fire_ignition_start_time5 NAMELIST /fire/ fire_ignition_end_time5 NAMELIST /fire/ fire_ignition_start_x1 NAMELIST /fire/ fire_ignition_start_y1 NAMELIST /fire/ fire_ignition_end_x1 NAMELIST /fire/ fire_ignition_end_y1 NAMELIST /fire/ fire_ignition_start_x2 NAMELIST /fire/ fire_ignition_start_y2 NAMELIST /fire/ fire_ignition_end_x2 NAMELIST /fire/ fire_ignition_end_y2 NAMELIST /fire/ fire_ignition_start_x3 NAMELIST /fire/ fire_ignition_start_y3 NAMELIST /fire/ fire_ignition_end_x3 NAMELIST /fire/ fire_ignition_end_y3 NAMELIST /fire/ fire_ignition_start_x4 NAMELIST /fire/ fire_ignition_start_y4 NAMELIST /fire/ fire_ignition_end_x4 NAMELIST /fire/ fire_ignition_end_y4 NAMELIST /fire/ fire_ignition_start_x5 NAMELIST /fire/ fire_ignition_start_y5 NAMELIST /fire/ fire_ignition_end_x5 NAMELIST /fire/ fire_ignition_end_y5 NAMELIST /fire/ fire_lat_init NAMELIST /fire/ fire_lon_init NAMELIST /fire/ fire_ign_time NAMELIST /fire/ fire_shape NAMELIST /fire/ fire_sprd_mdl NAMELIST /fire/ fire_crwn_hgt NAMELIST /fire/ fire_ext_grnd NAMELIST /fire/ fire_ext_crwn NAMELIST /fire/ fire_wind_height NAMELIST /fire/ fire_fuel_read NAMELIST /fire/ fire_fuel_cat NAMELIST /fire/ fire_print_msg NAMELIST /fire/ fire_print_file NAMELIST /fire/ fire_fuel_left_method NAMELIST /fire/ fire_fuel_left_irl NAMELIST /fire/ fire_fuel_left_jrl NAMELIST /fire/ fire_back_weight NAMELIST /fire/ fire_grows_only NAMELIST /fire/ fire_upwinding NAMELIST /fire/ fire_upwind_split NAMELIST /fire/ fire_viscosity NAMELIST /fire/ fire_lfn_ext_up NAMELIST /fire/ fire_topo_from_atm NAMELIST /fire/ fire_advection NAMELIST /fire/ fire_test_steps NAMELIST /fire/ fire_const_time NAMELIST /fire/ fire_const_grnhfx NAMELIST /fire/ fire_const_grnqfx NAMELIST /fire/ fire_atm_feedback NAMELIST /fire/ fire_mountain_type NAMELIST /fire/ fire_mountain_height NAMELIST /fire/ fire_mountain_start_x NAMELIST /fire/ fire_mountain_start_y NAMELIST /fire/ fire_mountain_end_x NAMELIST /fire/ fire_mountain_end_y NAMELIST /fire/ delt_perturbation NAMELIST /fire/ xrad_perturbation NAMELIST /fire/ yrad_perturbation NAMELIST /fire/ zrad_perturbation NAMELIST /fire/ hght_perturbation NAMELIST /fire/ stretch_grd NAMELIST /fire/ stretch_hyp NAMELIST /fire/ z_grd_scale NAMELIST /fire/ sfc_full_init NAMELIST /fire/ sfc_lu_index NAMELIST /fire/ sfc_tsk NAMELIST /fire/ sfc_tmn NAMELIST /fire/ fire_read_lu NAMELIST /fire/ fire_read_tsk NAMELIST /fire/ fire_read_tmn NAMELIST /fire/ fire_read_atm_ht NAMELIST /fire/ fire_read_fire_ht NAMELIST /fire/ fire_read_atm_grad NAMELIST /fire/ fire_read_fire_grad NAMELIST /fire/ sfc_vegfra NAMELIST /fire/ sfc_canwat NAMELIST /fire/ sfc_ivgtyp NAMELIST /fire/ sfc_isltyp NAMELIST /dynamics/ do_avgflx_em NAMELIST /dynamics/ do_avgflx_cugd NAMELIST /stoch/ nens NAMELIST /stoch/ skebs NAMELIST /stoch/ stoch_force_opt NAMELIST /stoch/ skebs_vertstruc NAMELIST /stoch/ stoch_vertstruc_opt NAMELIST /stoch/ tot_backscat_psi NAMELIST /stoch/ tot_backscat_t NAMELIST /stoch/ ztau_psi NAMELIST /stoch/ ztau_t NAMELIST /stoch/ rexponent_psi NAMELIST /stoch/ rexponent_t NAMELIST /stoch/ zsigma2_eps NAMELIST /stoch/ zsigma2_eta NAMELIST /stoch/ kminforc NAMELIST /stoch/ lminforc NAMELIST /stoch/ kminforct NAMELIST /stoch/ lminforct NAMELIST /stoch/ kmaxforc NAMELIST /stoch/ lmaxforc NAMELIST /stoch/ kmaxforct NAMELIST /stoch/ lmaxforct NAMELIST /stoch/ iseed_skebs NAMELIST /stoch/ sppt NAMELIST /stoch/ gridpt_stddev_sppt NAMELIST /stoch/ stddev_cutoff_sppt NAMELIST /stoch/ lengthscale_sppt NAMELIST /stoch/ timescale_sppt NAMELIST /stoch/ sppt_vertstruc NAMELIST /stoch/ iseed_sppt NAMELIST /stoch/ rand_perturb NAMELIST /stoch/ gridpt_stddev_rand_pert NAMELIST /stoch/ stddev_cutoff_rand_pert NAMELIST /stoch/ lengthscale_rand_pert NAMELIST /stoch/ timescale_rand_pert NAMELIST /stoch/ rand_pert_vertstruc NAMELIST /stoch/ iseed_rand_pert NAMELIST /stoch/ spp NAMELIST /stoch/ hrrr_cycling NAMELIST /stoch/ spp_conv NAMELIST /stoch/ gridpt_stddev_spp_conv NAMELIST /stoch/ stddev_cutoff_spp_conv NAMELIST /stoch/ lengthscale_spp_conv NAMELIST /stoch/ timescale_spp_conv NAMELIST /stoch/ vertstruc_spp_conv NAMELIST /stoch/ iseed_spp_conv NAMELIST /stoch/ spp_pbl NAMELIST /stoch/ gridpt_stddev_spp_pbl NAMELIST /stoch/ stddev_cutoff_spp_pbl NAMELIST /stoch/ lengthscale_spp_pbl NAMELIST /stoch/ timescale_spp_pbl NAMELIST /stoch/ vertstruc_spp_pbl NAMELIST /stoch/ iseed_spp_pbl NAMELIST /stoch/ spp_lsm NAMELIST /stoch/ gridpt_stddev_spp_lsm NAMELIST /stoch/ stddev_cutoff_spp_lsm NAMELIST /stoch/ lengthscale_spp_lsm NAMELIST /stoch/ timescale_spp_lsm NAMELIST /stoch/ vertstruc_spp_lsm NAMELIST /stoch/ iseed_spp_lsm NAMELIST /dynamics/ sfs_opt NAMELIST /dynamics/ m_opt NAMELIST /physics/ lakedepth_default NAMELIST /physics/ lake_min_elev NAMELIST /physics/ use_lakedepth NAMELIST /diags/ p_lev_diags NAMELIST /diags/ p_lev_diags_dfi NAMELIST /diags/ num_press_levels NAMELIST /diags/ press_levels NAMELIST /diags/ use_tot_or_hyd_p NAMELIST /diags/ extrap_below_grnd NAMELIST /diags/ p_lev_missing NAMELIST /diags/ z_lev_diags NAMELIST /diags/ z_lev_diags_dfi NAMELIST /diags/ num_z_levels NAMELIST /diags/ z_levels NAMELIST /diags/ z_lev_missing NAMELIST /afwa/ afwa_diag_opt NAMELIST /afwa/ afwa_ptype_opt NAMELIST /afwa/ afwa_vil_opt NAMELIST /afwa/ afwa_radar_opt NAMELIST /afwa/ afwa_severe_opt NAMELIST /afwa/ afwa_icing_opt NAMELIST /afwa/ afwa_vis_opt NAMELIST /afwa/ afwa_cloud_opt NAMELIST /afwa/ afwa_therm_opt NAMELIST /afwa/ afwa_turb_opt NAMELIST /afwa/ afwa_buoy_opt NAMELIST /afwa/ afwa_ptype_ccn_tmp NAMELIST /afwa/ afwa_ptype_tot_melt NAMELIST /afwa/ afwa_bad_data_check NAMELIST /time_control/ mean_diag NAMELIST /time_control/ mean_freq NAMELIST /time_control/ mean_interval NAMELIST /time_control/ diurnal_diag NAMELIST /physics/ nssl_ipelec NAMELIST /physics/ nssl_isaund NAMELIST /physics/ nssl_iscreen NAMELIST /physics/ nssl_lightrad NAMELIST /physics/ nssl_idischarge NAMELIST /physics/ nssl_ibrkd NAMELIST /physics/ nssl_ecrit NAMELIST /physics/ nssl_disfrac NAMELIST /physics/ elec_physics NAMELIST /stoch/ perturb_bdy NAMELIST /stoch/ perturb_chem_bdy NAMELIST /domains/ num_gca_levels NAMELIST /domains/ gca_input_opt NAMELIST /dynamics/ hybrid_opt NAMELIST /dynamics/ etac NAMELIST /domains/ num_wif_levels NAMELIST /domains/ wif_input_opt logical , DIMENSION(max_domains) :: pd_moist, pd_chem, pd_tke, pd_scalar NAMELIST /dynamics/ pd_moist, pd_chem, pd_tke, pd_scalar integer , DIMENSION(max_domains) :: ucmcall NAMELIST /physics/ ucmcall integer , DIMENSION(max_domains) :: obs_nobs_prt NAMELIST /fdda/ obs_nobs_prt LOGICAL :: global, print_detail_airep, print_detail_timing NAMELIST /wrfvar1/ global, print_detail_airep, print_detail_timing LOGICAL :: write_qcw, write_qrn, write_qci, write_qsn NAMELIST /wrfvar2/ write_qcw, write_qrn, write_qci, write_qsn LOGICAL :: write_qgr, write_filtered_obs NAMELIST /wrfvar2/ write_qgr, write_filtered_obs LOGICAL :: use_eos_radobs NAMELIST /wrfvar4/ use_eos_radobs LOGICAL :: use_crtm_kmatrix_fast NAMELIST /wrfvar14/ use_crtm_kmatrix_fast CHARACTER (LEN=256) :: spccoeff_file, taucoeff_file, aerosolcoeff_file NAMELIST /wrfvar14/ spccoeff_file, taucoeff_file, aerosolcoeff_file CHARACTER (LEN=256) :: cloudcoeff_file, emiscoeff_file NAMELIST /wrfvar14/ cloudcoeff_file, emiscoeff_file REWIND ( UNIT = nml_read_unit ) if ( TRIM(nml_name) .eq. "dynamics" ) then READ ( UNIT = nml_read_unit , NML = dynamics , iostat=nml_error ) IF ( nml_error .EQ. 0 ) then CALL wrf_debug(0, "-- Are pd_moist, pd_chem, pd_tke, or pd_scalar still in your "// & TRIM(nml_name)//" namelist?") CALL wrf_debug(0, "-- Replace them with moist_adv_opt, chem_adv_opt, tke_adv_opt "// & " and scalar_adv_opt, respectively.") ENDIF else if ( TRIM(nml_name) .eq. "physics" ) then READ ( UNIT = nml_read_unit , NML = physics , iostat=nml_error ) IF ( nml_error .EQ. 0 ) then CALL wrf_debug(0, "-- Is ucmcall still in your "// TRIM(nml_name)//" namelist?") CALL wrf_debug(0, "-- Replace it with sf_urban_physics") ENDIF else if ( TRIM(nml_name) .eq. "fdda" ) then READ ( UNIT = nml_read_unit , NML = fdda , iostat=nml_error ) IF ( nml_error .EQ. 0 ) then CALL wrf_debug(0, "-- Is obs_nobs_prt still in your "// TRIM(nml_name)//" namelist?") CALL wrf_debug(0, "-- Replace it with obs_prt_max") ENDIF else if ( TRIM(nml_name) .eq. "wrfvar1" ) then READ ( UNIT = nml_read_unit , NML = wrfvar1 , iostat=nml_error ) IF ( nml_error .EQ. 0 ) then CALL wrf_debug(0, "-- Are global, print_detail_airep, print_detail_timing still in your "// & TRIM(nml_name)//" namelist?") CALL wrf_debug(0, "-- Remove global, print_detail_airep, print_detail_timing "// & "from wrfvar1 namelist as they are obsolete.") ENDIF else if ( TRIM(nml_name) .eq. "wrfvar2" ) then READ ( UNIT = nml_read_unit , NML = wrfvar2 , iostat=nml_error ) IF ( nml_error .EQ. 0 ) then CALL wrf_debug(0, "-- Are write_qcw, write_qrn, write_qci, write_qsn, write_qgr, "// & "write_filtered_obs still in your "// & TRIM(nml_name)//" namelist?") CALL wrf_debug(0, "-- Remove write_qcw, write_qrn, write_qci, write_qsn, write_qgr, "// & "write_filtered_obs as they are obsolete.") ENDIF else if ( TRIM(nml_name) .eq. "wrfvar4" ) then READ ( UNIT = nml_read_unit , NML = wrfvar4 , iostat=nml_error ) IF ( nml_error .EQ. 0 ) then CALL wrf_debug(0, "-- Is use_eos_radobs still in your "// & TRIM(nml_name)//" namelist?") CALL wrf_debug(0, "-- Remove use_eos_radobs as it is obsolete.") ENDIF else if ( TRIM(nml_name) .eq. "wrfvar14" ) then READ ( UNIT = nml_read_unit , NML = wrfvar14 , iostat=nml_error ) IF ( nml_error .EQ. 0 ) then CALL wrf_debug(0, "-- Are use_crtm_kmatrix_fast, spccoeff_file, taucoeff_file, "// & "aerosolcoeff_file, cloudcoeff_file, emiscoeff_file still in your "// & TRIM(nml_name)//" namelist?") CALL wrf_debug(0, "-- Remove them as they are obsolete.") ENDIF else IF ( & & (TRIM(nml_name) .EQ. 'time_control') & & .OR. (TRIM(nml_name) .EQ. 'pio_control') & & .OR. (TRIM(nml_name) .EQ. 'dfi_control') & & .OR. (TRIM(nml_name) .EQ. 'domains') & & .OR. (TRIM(nml_name) .EQ. 'tc') & & .OR. (TRIM(nml_name) .EQ. 'physics') & & .OR. (TRIM(nml_name) .EQ. 'noah_mp') & & .OR. (TRIM(nml_name) .EQ. 'fdda') & & .OR. (TRIM(nml_name) .EQ. 'scm') & & .OR. (TRIM(nml_name) .EQ. 'dynamics') & & .OR. (TRIM(nml_name) .EQ. 'bdy_control') & & .OR. (TRIM(nml_name) .EQ. 'grib2') & & .OR. (TRIM(nml_name) .EQ. 'chem') & & .OR. (TRIM(nml_name) .EQ. 'fire') & & .OR. (TRIM(nml_name) .EQ. 'stoch') & & .OR. (TRIM(nml_name) .EQ. 'diags') & & .OR. (TRIM(nml_name) .EQ. 'afwa') & ) THEN nml_error = 0 ELSE CALL wrf_debug(0, TRIM(nml_name)//" is not a valid namelist name") ENDIF end if IF ( nml_error .NE. 0 ) then return ENDIF END SUBROUTINE wrf_alt_nml_obsolete END MODULE module_configure INTEGER FUNCTION get_funit() IMPLICIT NONE INTEGER, PARAMETER :: min_unit_number = 30 INTEGER, PARAMETER :: max_unit_number = 99 LOGICAL :: opened DO get_funit = min_unit_number, max_unit_number INQUIRE(UNIT=get_funit, OPENED=opened) IF ( .NOT. opened ) RETURN END DO get_funit = -1 END FUNCTION get_funit SUBROUTINE set_scalar_indices_from_config ( idomain , dummy2, dummy1 ) USE module_driver_constants USE module_state_description USE module_wrf_error USE module_configure, ONLY : model_config_rec USE module_scalar_tables IMPLICIT NONE INTEGER , INTENT(IN) :: idomain INTEGER :: dummy1 INTEGER :: dummy2 INTEGER :: astat, istat INTEGER :: l, m, n INTEGER :: ndx INTEGER :: irr_cnt INTEGER :: funit INTEGER :: chem_opt INTEGER, ALLOCATABLE :: irr_ndx(:) CHARACTER(LEN=128) :: err_mes CHARACTER(LEN=128) :: fname CHARACTER(LEN=64) :: irr_rxt CHARACTER(LEN=64), POINTER :: rxt_lst(:) CHARACTER(LEN=32), ALLOCATABLE :: irr_lst(:) LOGICAL, ALLOCATABLE :: irr_msk(:) LOGICAL :: found INTEGER :: get_funit INTEGER, PARAMETER :: nchm_opts = 3 INTEGER :: chm_opt_ndx INTEGER :: chm_opts_cnt(nchm_opts) INTEGER :: chm_opts_ndx(nchm_opts) CHARACTER(len=32) :: chm_opts_name(nchm_opts) CHARACTER(len=64), TARGET :: rxtsym(346,nchm_opts) P_qv = 1 ; F_qv = .FALSE. P_qc = 1 ; F_qc = .FALSE. P_qr = 1 ; F_qr = .FALSE. P_qi = 1 ; F_qi = .FALSE. P_qs = 1 ; F_qs = .FALSE. P_qg = 1 ; F_qg = .FALSE. P_qh = 1 ; F_qh = .FALSE. P_qip = 1 ; F_qip = .FALSE. P_qic = 1 ; F_qic = .FALSE. P_qid = 1 ; F_qid = .FALSE. P_dfi_qv = 1 ; F_dfi_qv = .FALSE. P_dfi_qc = 1 ; F_dfi_qc = .FALSE. P_dfi_qr = 1 ; F_dfi_qr = .FALSE. P_dfi_qi = 1 ; F_dfi_qi = .FALSE. P_dfi_qs = 1 ; F_dfi_qs = .FALSE. P_dfi_qg = 1 ; F_dfi_qg = .FALSE. P_dfi_qh = 1 ; F_dfi_qh = .FALSE. P_qndrop = 1 ; F_qndrop = .FALSE. P_qni = 1 ; F_qni = .FALSE. P_qt = 1 ; F_qt = .FALSE. P_qns = 1 ; F_qns = .FALSE. P_qnr = 1 ; F_qnr = .FALSE. P_qng = 1 ; F_qng = .FALSE. P_qnh = 1 ; F_qnh = .FALSE. P_qnn = 1 ; F_qnn = .FALSE. P_qnc = 1 ; F_qnc = .FALSE. P_qvolg = 1 ; F_qvolg = .FALSE. P_qvolh = 1 ; F_qvolh = .FALSE. P_qrimef = 1 ; F_qrimef = .FALSE. P_qir = 1 ; F_qir = .FALSE. P_qib = 1 ; F_qib = .FALSE. P_qke_adv = 1 ; F_qke_adv = .FALSE. P_ff1i01 = 1 ; F_ff1i01 = .FALSE. P_ff1i02 = 1 ; F_ff1i02 = .FALSE. P_ff1i03 = 1 ; F_ff1i03 = .FALSE. P_ff1i04 = 1 ; F_ff1i04 = .FALSE. P_ff1i05 = 1 ; F_ff1i05 = .FALSE. P_ff1i06 = 1 ; F_ff1i06 = .FALSE. P_ff1i07 = 1 ; F_ff1i07 = .FALSE. P_ff1i08 = 1 ; F_ff1i08 = .FALSE. P_ff1i09 = 1 ; F_ff1i09 = .FALSE. P_ff1i10 = 1 ; F_ff1i10 = .FALSE. P_ff1i11 = 1 ; F_ff1i11 = .FALSE. P_ff1i12 = 1 ; F_ff1i12 = .FALSE. P_ff1i13 = 1 ; F_ff1i13 = .FALSE. P_ff1i14 = 1 ; F_ff1i14 = .FALSE. P_ff1i15 = 1 ; F_ff1i15 = .FALSE. P_ff1i16 = 1 ; F_ff1i16 = .FALSE. P_ff1i17 = 1 ; F_ff1i17 = .FALSE. P_ff1i18 = 1 ; F_ff1i18 = .FALSE. P_ff1i19 = 1 ; F_ff1i19 = .FALSE. P_ff1i20 = 1 ; F_ff1i20 = .FALSE. P_ff1i21 = 1 ; F_ff1i21 = .FALSE. P_ff1i22 = 1 ; F_ff1i22 = .FALSE. P_ff1i23 = 1 ; F_ff1i23 = .FALSE. P_ff1i24 = 1 ; F_ff1i24 = .FALSE. P_ff1i25 = 1 ; F_ff1i25 = .FALSE. P_ff1i26 = 1 ; F_ff1i26 = .FALSE. P_ff1i27 = 1 ; F_ff1i27 = .FALSE. P_ff1i28 = 1 ; F_ff1i28 = .FALSE. P_ff1i29 = 1 ; F_ff1i29 = .FALSE. P_ff1i30 = 1 ; F_ff1i30 = .FALSE. P_ff1i31 = 1 ; F_ff1i31 = .FALSE. P_ff1i32 = 1 ; F_ff1i32 = .FALSE. P_ff1i33 = 1 ; F_ff1i33 = .FALSE. P_ff5i01 = 1 ; F_ff5i01 = .FALSE. P_ff5i02 = 1 ; F_ff5i02 = .FALSE. P_ff5i03 = 1 ; F_ff5i03 = .FALSE. P_ff5i04 = 1 ; F_ff5i04 = .FALSE. P_ff5i05 = 1 ; F_ff5i05 = .FALSE. P_ff5i06 = 1 ; F_ff5i06 = .FALSE. P_ff5i07 = 1 ; F_ff5i07 = .FALSE. P_ff5i08 = 1 ; F_ff5i08 = .FALSE. P_ff5i09 = 1 ; F_ff5i09 = .FALSE. P_ff5i10 = 1 ; F_ff5i10 = .FALSE. P_ff5i11 = 1 ; F_ff5i11 = .FALSE. P_ff5i12 = 1 ; F_ff5i12 = .FALSE. P_ff5i13 = 1 ; F_ff5i13 = .FALSE. P_ff5i14 = 1 ; F_ff5i14 = .FALSE. P_ff5i15 = 1 ; F_ff5i15 = .FALSE. P_ff5i16 = 1 ; F_ff5i16 = .FALSE. P_ff5i17 = 1 ; F_ff5i17 = .FALSE. P_ff5i18 = 1 ; F_ff5i18 = .FALSE. P_ff5i19 = 1 ; F_ff5i19 = .FALSE. P_ff5i20 = 1 ; F_ff5i20 = .FALSE. P_ff5i21 = 1 ; F_ff5i21 = .FALSE. P_ff5i22 = 1 ; F_ff5i22 = .FALSE. P_ff5i23 = 1 ; F_ff5i23 = .FALSE. P_ff5i24 = 1 ; F_ff5i24 = .FALSE. P_ff5i25 = 1 ; F_ff5i25 = .FALSE. P_ff5i26 = 1 ; F_ff5i26 = .FALSE. P_ff5i27 = 1 ; F_ff5i27 = .FALSE. P_ff5i28 = 1 ; F_ff5i28 = .FALSE. P_ff5i29 = 1 ; F_ff5i29 = .FALSE. P_ff5i30 = 1 ; F_ff5i30 = .FALSE. P_ff5i31 = 1 ; F_ff5i31 = .FALSE. P_ff5i32 = 1 ; F_ff5i32 = .FALSE. P_ff5i33 = 1 ; F_ff5i33 = .FALSE. P_ff6i01 = 1 ; F_ff6i01 = .FALSE. P_ff6i02 = 1 ; F_ff6i02 = .FALSE. P_ff6i03 = 1 ; F_ff6i03 = .FALSE. P_ff6i04 = 1 ; F_ff6i04 = .FALSE. P_ff6i05 = 1 ; F_ff6i05 = .FALSE. P_ff6i06 = 1 ; F_ff6i06 = .FALSE. P_ff6i07 = 1 ; F_ff6i07 = .FALSE. P_ff6i08 = 1 ; F_ff6i08 = .FALSE. P_ff6i09 = 1 ; F_ff6i09 = .FALSE. P_ff6i10 = 1 ; F_ff6i10 = .FALSE. P_ff6i11 = 1 ; F_ff6i11 = .FALSE. P_ff6i12 = 1 ; F_ff6i12 = .FALSE. P_ff6i13 = 1 ; F_ff6i13 = .FALSE. P_ff6i14 = 1 ; F_ff6i14 = .FALSE. P_ff6i15 = 1 ; F_ff6i15 = .FALSE. P_ff6i16 = 1 ; F_ff6i16 = .FALSE. P_ff6i17 = 1 ; F_ff6i17 = .FALSE. P_ff6i18 = 1 ; F_ff6i18 = .FALSE. P_ff6i19 = 1 ; F_ff6i19 = .FALSE. P_ff6i20 = 1 ; F_ff6i20 = .FALSE. P_ff6i21 = 1 ; F_ff6i21 = .FALSE. P_ff6i22 = 1 ; F_ff6i22 = .FALSE. P_ff6i23 = 1 ; F_ff6i23 = .FALSE. P_ff6i24 = 1 ; F_ff6i24 = .FALSE. P_ff6i25 = 1 ; F_ff6i25 = .FALSE. P_ff6i26 = 1 ; F_ff6i26 = .FALSE. P_ff6i27 = 1 ; F_ff6i27 = .FALSE. P_ff6i28 = 1 ; F_ff6i28 = .FALSE. P_ff6i29 = 1 ; F_ff6i29 = .FALSE. P_ff6i30 = 1 ; F_ff6i30 = .FALSE. P_ff6i31 = 1 ; F_ff6i31 = .FALSE. P_ff6i32 = 1 ; F_ff6i32 = .FALSE. P_ff6i33 = 1 ; F_ff6i33 = .FALSE. P_ff8i01 = 1 ; F_ff8i01 = .FALSE. P_ff8i02 = 1 ; F_ff8i02 = .FALSE. P_ff8i03 = 1 ; F_ff8i03 = .FALSE. P_ff8i04 = 1 ; F_ff8i04 = .FALSE. P_ff8i05 = 1 ; F_ff8i05 = .FALSE. P_ff8i06 = 1 ; F_ff8i06 = .FALSE. P_ff8i07 = 1 ; F_ff8i07 = .FALSE. P_ff8i08 = 1 ; F_ff8i08 = .FALSE. P_ff8i09 = 1 ; F_ff8i09 = .FALSE. P_ff8i10 = 1 ; F_ff8i10 = .FALSE. P_ff8i11 = 1 ; F_ff8i11 = .FALSE. P_ff8i12 = 1 ; F_ff8i12 = .FALSE. P_ff8i13 = 1 ; F_ff8i13 = .FALSE. P_ff8i14 = 1 ; F_ff8i14 = .FALSE. P_ff8i15 = 1 ; F_ff8i15 = .FALSE. P_ff8i16 = 1 ; F_ff8i16 = .FALSE. P_ff8i17 = 1 ; F_ff8i17 = .FALSE. P_ff8i18 = 1 ; F_ff8i18 = .FALSE. P_ff8i19 = 1 ; F_ff8i19 = .FALSE. P_ff8i20 = 1 ; F_ff8i20 = .FALSE. P_ff8i21 = 1 ; F_ff8i21 = .FALSE. P_ff8i22 = 1 ; F_ff8i22 = .FALSE. P_ff8i23 = 1 ; F_ff8i23 = .FALSE. P_ff8i24 = 1 ; F_ff8i24 = .FALSE. P_ff8i25 = 1 ; F_ff8i25 = .FALSE. P_ff8i26 = 1 ; F_ff8i26 = .FALSE. P_ff8i27 = 1 ; F_ff8i27 = .FALSE. P_ff8i28 = 1 ; F_ff8i28 = .FALSE. P_ff8i29 = 1 ; F_ff8i29 = .FALSE. P_ff8i30 = 1 ; F_ff8i30 = .FALSE. P_ff8i31 = 1 ; F_ff8i31 = .FALSE. P_ff8i32 = 1 ; F_ff8i32 = .FALSE. P_ff8i33 = 1 ; F_ff8i33 = .FALSE. P_ff2i01 = 1 ; F_ff2i01 = .FALSE. P_ff2i02 = 1 ; F_ff2i02 = .FALSE. P_ff2i03 = 1 ; F_ff2i03 = .FALSE. P_ff2i04 = 1 ; F_ff2i04 = .FALSE. P_ff2i05 = 1 ; F_ff2i05 = .FALSE. P_ff2i06 = 1 ; F_ff2i06 = .FALSE. P_ff2i07 = 1 ; F_ff2i07 = .FALSE. P_ff2i08 = 1 ; F_ff2i08 = .FALSE. P_ff2i09 = 1 ; F_ff2i09 = .FALSE. P_ff2i10 = 1 ; F_ff2i10 = .FALSE. P_ff2i11 = 1 ; F_ff2i11 = .FALSE. P_ff2i12 = 1 ; F_ff2i12 = .FALSE. P_ff2i13 = 1 ; F_ff2i13 = .FALSE. P_ff2i14 = 1 ; F_ff2i14 = .FALSE. P_ff2i15 = 1 ; F_ff2i15 = .FALSE. P_ff2i16 = 1 ; F_ff2i16 = .FALSE. P_ff2i17 = 1 ; F_ff2i17 = .FALSE. P_ff2i18 = 1 ; F_ff2i18 = .FALSE. P_ff2i19 = 1 ; F_ff2i19 = .FALSE. P_ff2i20 = 1 ; F_ff2i20 = .FALSE. P_ff2i21 = 1 ; F_ff2i21 = .FALSE. P_ff2i22 = 1 ; F_ff2i22 = .FALSE. P_ff2i23 = 1 ; F_ff2i23 = .FALSE. P_ff2i24 = 1 ; F_ff2i24 = .FALSE. P_ff2i25 = 1 ; F_ff2i25 = .FALSE. P_ff2i26 = 1 ; F_ff2i26 = .FALSE. P_ff2i27 = 1 ; F_ff2i27 = .FALSE. P_ff2i28 = 1 ; F_ff2i28 = .FALSE. P_ff2i29 = 1 ; F_ff2i29 = .FALSE. P_ff2i30 = 1 ; F_ff2i30 = .FALSE. P_ff2i31 = 1 ; F_ff2i31 = .FALSE. P_ff2i32 = 1 ; F_ff2i32 = .FALSE. P_ff2i33 = 1 ; F_ff2i33 = .FALSE. P_ff3i01 = 1 ; F_ff3i01 = .FALSE. P_ff3i02 = 1 ; F_ff3i02 = .FALSE. P_ff3i03 = 1 ; F_ff3i03 = .FALSE. P_ff3i04 = 1 ; F_ff3i04 = .FALSE. P_ff3i05 = 1 ; F_ff3i05 = .FALSE. P_ff3i06 = 1 ; F_ff3i06 = .FALSE. P_ff3i07 = 1 ; F_ff3i07 = .FALSE. P_ff3i08 = 1 ; F_ff3i08 = .FALSE. P_ff3i09 = 1 ; F_ff3i09 = .FALSE. P_ff3i10 = 1 ; F_ff3i10 = .FALSE. P_ff3i11 = 1 ; F_ff3i11 = .FALSE. P_ff3i12 = 1 ; F_ff3i12 = .FALSE. P_ff3i13 = 1 ; F_ff3i13 = .FALSE. P_ff3i14 = 1 ; F_ff3i14 = .FALSE. P_ff3i15 = 1 ; F_ff3i15 = .FALSE. P_ff3i16 = 1 ; F_ff3i16 = .FALSE. P_ff3i17 = 1 ; F_ff3i17 = .FALSE. P_ff3i18 = 1 ; F_ff3i18 = .FALSE. P_ff3i19 = 1 ; F_ff3i19 = .FALSE. P_ff3i20 = 1 ; F_ff3i20 = .FALSE. P_ff3i21 = 1 ; F_ff3i21 = .FALSE. P_ff3i22 = 1 ; F_ff3i22 = .FALSE. P_ff3i23 = 1 ; F_ff3i23 = .FALSE. P_ff3i24 = 1 ; F_ff3i24 = .FALSE. P_ff3i25 = 1 ; F_ff3i25 = .FALSE. P_ff3i26 = 1 ; F_ff3i26 = .FALSE. P_ff3i27 = 1 ; F_ff3i27 = .FALSE. P_ff3i28 = 1 ; F_ff3i28 = .FALSE. P_ff3i29 = 1 ; F_ff3i29 = .FALSE. P_ff3i30 = 1 ; F_ff3i30 = .FALSE. P_ff3i31 = 1 ; F_ff3i31 = .FALSE. P_ff3i32 = 1 ; F_ff3i32 = .FALSE. P_ff3i33 = 1 ; F_ff3i33 = .FALSE. P_ff4i01 = 1 ; F_ff4i01 = .FALSE. P_ff4i02 = 1 ; F_ff4i02 = .FALSE. P_ff4i03 = 1 ; F_ff4i03 = .FALSE. P_ff4i04 = 1 ; F_ff4i04 = .FALSE. P_ff4i05 = 1 ; F_ff4i05 = .FALSE. P_ff4i06 = 1 ; F_ff4i06 = .FALSE. P_ff4i07 = 1 ; F_ff4i07 = .FALSE. P_ff4i08 = 1 ; F_ff4i08 = .FALSE. P_ff4i09 = 1 ; F_ff4i09 = .FALSE. P_ff4i10 = 1 ; F_ff4i10 = .FALSE. P_ff4i11 = 1 ; F_ff4i11 = .FALSE. P_ff4i12 = 1 ; F_ff4i12 = .FALSE. P_ff4i13 = 1 ; F_ff4i13 = .FALSE. P_ff4i14 = 1 ; F_ff4i14 = .FALSE. P_ff4i15 = 1 ; F_ff4i15 = .FALSE. P_ff4i16 = 1 ; F_ff4i16 = .FALSE. P_ff4i17 = 1 ; F_ff4i17 = .FALSE. P_ff4i18 = 1 ; F_ff4i18 = .FALSE. P_ff4i19 = 1 ; F_ff4i19 = .FALSE. P_ff4i20 = 1 ; F_ff4i20 = .FALSE. P_ff4i21 = 1 ; F_ff4i21 = .FALSE. P_ff4i22 = 1 ; F_ff4i22 = .FALSE. P_ff4i23 = 1 ; F_ff4i23 = .FALSE. P_ff4i24 = 1 ; F_ff4i24 = .FALSE. P_ff4i25 = 1 ; F_ff4i25 = .FALSE. P_ff4i26 = 1 ; F_ff4i26 = .FALSE. P_ff4i27 = 1 ; F_ff4i27 = .FALSE. P_ff4i28 = 1 ; F_ff4i28 = .FALSE. P_ff4i29 = 1 ; F_ff4i29 = .FALSE. P_ff4i30 = 1 ; F_ff4i30 = .FALSE. P_ff4i31 = 1 ; F_ff4i31 = .FALSE. P_ff4i32 = 1 ; F_ff4i32 = .FALSE. P_ff4i33 = 1 ; F_ff4i33 = .FALSE. P_ff7i01 = 1 ; F_ff7i01 = .FALSE. P_ff7i02 = 1 ; F_ff7i02 = .FALSE. P_ff7i03 = 1 ; F_ff7i03 = .FALSE. P_ff7i04 = 1 ; F_ff7i04 = .FALSE. P_ff7i05 = 1 ; F_ff7i05 = .FALSE. P_ff7i06 = 1 ; F_ff7i06 = .FALSE. P_ff7i07 = 1 ; F_ff7i07 = .FALSE. P_ff7i08 = 1 ; F_ff7i08 = .FALSE. P_ff7i09 = 1 ; F_ff7i09 = .FALSE. P_ff7i10 = 1 ; F_ff7i10 = .FALSE. P_ff7i11 = 1 ; F_ff7i11 = .FALSE. P_ff7i12 = 1 ; F_ff7i12 = .FALSE. P_ff7i13 = 1 ; F_ff7i13 = .FALSE. P_ff7i14 = 1 ; F_ff7i14 = .FALSE. P_ff7i15 = 1 ; F_ff7i15 = .FALSE. P_ff7i16 = 1 ; F_ff7i16 = .FALSE. P_ff7i17 = 1 ; F_ff7i17 = .FALSE. P_ff7i18 = 1 ; F_ff7i18 = .FALSE. P_ff7i19 = 1 ; F_ff7i19 = .FALSE. P_ff7i20 = 1 ; F_ff7i20 = .FALSE. P_ff7i21 = 1 ; F_ff7i21 = .FALSE. P_ff7i22 = 1 ; F_ff7i22 = .FALSE. P_ff7i23 = 1 ; F_ff7i23 = .FALSE. P_ff7i24 = 1 ; F_ff7i24 = .FALSE. P_ff7i25 = 1 ; F_ff7i25 = .FALSE. P_ff7i26 = 1 ; F_ff7i26 = .FALSE. P_ff7i27 = 1 ; F_ff7i27 = .FALSE. P_ff7i28 = 1 ; F_ff7i28 = .FALSE. P_ff7i29 = 1 ; F_ff7i29 = .FALSE. P_ff7i30 = 1 ; F_ff7i30 = .FALSE. P_ff7i31 = 1 ; F_ff7i31 = .FALSE. P_ff7i32 = 1 ; F_ff7i32 = .FALSE. P_ff7i33 = 1 ; F_ff7i33 = .FALSE. P_qnip = 1 ; F_qnip = .FALSE. P_qnic = 1 ; F_qnic = .FALSE. P_qnid = 1 ; F_qnid = .FALSE. P_effr = 1 ; F_effr = .FALSE. P_ice_effr = 1 ; F_ice_effr = .FALSE. P_tot_effr = 1 ; F_tot_effr = .FALSE. P_qic_effr = 1 ; F_qic_effr = .FALSE. P_qip_effr = 1 ; F_qip_effr = .FALSE. P_qid_effr = 1 ; F_qid_effr = .FALSE. P_scr = 1 ; F_scr = .FALSE. P_scw = 1 ; F_scw = .FALSE. P_sci = 1 ; F_sci = .FALSE. P_scs = 1 ; F_scs = .FALSE. P_sch = 1 ; F_sch = .FALSE. P_schl = 1 ; F_schl = .FALSE. P_sciona = 1 ; F_sciona = .FALSE. P_clnox = 1 ; F_clnox = .FALSE. P_qnwfa = 1 ; F_qnwfa = .FALSE. P_qnifa = 1 ; F_qnifa = .FALSE. P_dfi_qndrop = 1 ; F_dfi_qndrop = .FALSE. P_dfi_qni = 1 ; F_dfi_qni = .FALSE. P_dfi_qt = 1 ; F_dfi_qt = .FALSE. P_dfi_qns = 1 ; F_dfi_qns = .FALSE. P_dfi_qnr = 1 ; F_dfi_qnr = .FALSE. P_dfi_qng = 1 ; F_dfi_qng = .FALSE. P_dfi_qnh = 1 ; F_dfi_qnh = .FALSE. P_dfi_qnn = 1 ; F_dfi_qnn = .FALSE. P_dfi_qnc = 1 ; F_dfi_qnc = .FALSE. P_dfi_qvolg = 1 ; F_dfi_qvolg = .FALSE. P_dfi_qvolh = 1 ; F_dfi_qvolh = .FALSE. P_dfi_qir = 1 ; F_dfi_qir = .FALSE. P_dfi_qib = 1 ; F_dfi_qib = .FALSE. P_dfi_qke_adv = 1 ; F_dfi_qke_adv = .FALSE. P_dfi_qnwfa = 1 ; F_dfi_qnwfa = .FALSE. P_dfi_qnifa = 1 ; F_dfi_qnifa = .FALSE. P_ocarbon = 1 ; F_ocarbon = .FALSE. P_seasalt = 1 ; F_seasalt = .FALSE. P_dust = 1 ; F_dust = .FALSE. P_bcarbon = 1 ; F_bcarbon = .FALSE. P_sulfate = 1 ; F_sulfate = .FALSE. P_upperaer = 1 ; F_upperaer = .FALSE. P_mth01 = 1 ; F_mth01 = .FALSE. P_mth02 = 1 ; F_mth02 = .FALSE. P_mth03 = 1 ; F_mth03 = .FALSE. P_mth04 = 1 ; F_mth04 = .FALSE. P_mth05 = 1 ; F_mth05 = .FALSE. P_mth06 = 1 ; F_mth06 = .FALSE. P_mth07 = 1 ; F_mth07 = .FALSE. P_mth08 = 1 ; F_mth08 = .FALSE. P_mth09 = 1 ; F_mth09 = .FALSE. P_mth10 = 1 ; F_mth10 = .FALSE. P_mth11 = 1 ; F_mth11 = .FALSE. P_mth12 = 1 ; F_mth12 = .FALSE. P_sul = 1 ; F_sul = .FALSE. P_sslt = 1 ; F_sslt = .FALSE. P_dust1 = 1 ; F_dust1 = .FALSE. P_dust2 = 1 ; F_dust2 = .FALSE. P_dust3 = 1 ; F_dust3 = .FALSE. P_dust4 = 1 ; F_dust4 = .FALSE. P_ocpho = 1 ; F_ocpho = .FALSE. P_bcpho = 1 ; F_bcpho = .FALSE. P_ocphi = 1 ; F_ocphi = .FALSE. P_bcphi = 1 ; F_bcphi = .FALSE. P_bg = 1 ; F_bg = .FALSE. P_volc = 1 ; F_volc = .FALSE. P_u_ndg_new = 1 ; F_u_ndg_new = .FALSE. P_v_ndg_new = 1 ; F_v_ndg_new = .FALSE. P_t_ndg_new = 1 ; F_t_ndg_new = .FALSE. P_q_ndg_new = 1 ; F_q_ndg_new = .FALSE. P_ph_ndg_new = 1 ; F_ph_ndg_new = .FALSE. P_u_ndg_old = 1 ; F_u_ndg_old = .FALSE. P_v_ndg_old = 1 ; F_v_ndg_old = .FALSE. P_t_ndg_old = 1 ; F_t_ndg_old = .FALSE. P_q_ndg_old = 1 ; F_q_ndg_old = .FALSE. P_ph_ndg_old = 1 ; F_ph_ndg_old = .FALSE. P_mu_ndg_new = 1 ; F_mu_ndg_new = .FALSE. P_mu_ndg_old = 1 ; F_mu_ndg_old = .FALSE. P_advh_qv = 1 ; F_advh_qv = .FALSE. P_advz_qv = 1 ; F_advz_qv = .FALSE. P_e_iso = 1 ; F_e_iso = .FALSE. P_e_so2 = 1 ; F_e_so2 = .FALSE. P_e_no = 1 ; F_e_no = .FALSE. P_e_co = 1 ; F_e_co = .FALSE. P_e_co2 = 1 ; F_e_co2 = .FALSE. P_e_eth = 1 ; F_e_eth = .FALSE. P_e_hc3 = 1 ; F_e_hc3 = .FALSE. P_e_hc5 = 1 ; F_e_hc5 = .FALSE. P_e_hc8 = 1 ; F_e_hc8 = .FALSE. P_e_xyl = 1 ; F_e_xyl = .FALSE. P_e_ol2 = 1 ; F_e_ol2 = .FALSE. P_e_olt = 1 ; F_e_olt = .FALSE. P_e_oli = 1 ; F_e_oli = .FALSE. P_e_tol = 1 ; F_e_tol = .FALSE. P_e_csl = 1 ; F_e_csl = .FALSE. P_e_hcho = 1 ; F_e_hcho = .FALSE. P_e_ald = 1 ; F_e_ald = .FALSE. P_e_ket = 1 ; F_e_ket = .FALSE. P_e_ora2 = 1 ; F_e_ora2 = .FALSE. P_e_nh3 = 1 ; F_e_nh3 = .FALSE. P_e_pm_25 = 1 ; F_e_pm_25 = .FALSE. P_e_pm_10 = 1 ; F_e_pm_10 = .FALSE. P_e_pm25i = 1 ; F_e_pm25i = .FALSE. P_e_pm25j = 1 ; F_e_pm25j = .FALSE. P_e_eci = 1 ; F_e_eci = .FALSE. P_e_ecj = 1 ; F_e_ecj = .FALSE. P_e_naai = 1 ; F_e_naai = .FALSE. P_e_naaj = 1 ; F_e_naaj = .FALSE. P_e_orgi = 1 ; F_e_orgi = .FALSE. P_e_orgj = 1 ; F_e_orgj = .FALSE. P_e_so4i = 1 ; F_e_so4i = .FALSE. P_e_so4j = 1 ; F_e_so4j = .FALSE. P_e_no3i = 1 ; F_e_no3i = .FALSE. P_e_no3j = 1 ; F_e_no3j = .FALSE. P_e_nh4i = 1 ; F_e_nh4i = .FALSE. P_e_nh4j = 1 ; F_e_nh4j = .FALSE. P_e_nai = 1 ; F_e_nai = .FALSE. P_e_naj = 1 ; F_e_naj = .FALSE. P_e_cli = 1 ; F_e_cli = .FALSE. P_e_clj = 1 ; F_e_clj = .FALSE. P_e_bigalk = 1 ; F_e_bigalk = .FALSE. P_e_bigene = 1 ; F_e_bigene = .FALSE. P_e_c2h4 = 1 ; F_e_c2h4 = .FALSE. P_e_c2h6 = 1 ; F_e_c2h6 = .FALSE. P_e_c3h6 = 1 ; F_e_c3h6 = .FALSE. P_e_c3h8 = 1 ; F_e_c3h8 = .FALSE. P_e_ch2o = 1 ; F_e_ch2o = .FALSE. P_e_ch3cho = 1 ; F_e_ch3cho = .FALSE. P_e_ch3coch3 = 1 ; F_e_ch3coch3 = .FALSE. P_e_mek = 1 ; F_e_mek = .FALSE. P_e_toluene = 1 ; F_e_toluene = .FALSE. P_e_xylene = 1 ; F_e_xylene = .FALSE. P_e_isop = 1 ; F_e_isop = .FALSE. P_e_c10h16 = 1 ; F_e_c10h16 = .FALSE. P_e_voca = 1 ; F_e_voca = .FALSE. P_e_vocbb = 1 ; F_e_vocbb = .FALSE. P_e_macr = 1 ; F_e_macr = .FALSE. P_e_hono = 1 ; F_e_hono = .FALSE. P_e_c5h8 = 1 ; F_e_c5h8 = .FALSE. P_e_tm123b = 1 ; F_e_tm123b = .FALSE. P_e_tm124b = 1 ; F_e_tm124b = .FALSE. P_e_tm135b = 1 ; F_e_tm135b = .FALSE. P_e_oethtol = 1 ; F_e_oethtol = .FALSE. P_e_methtol = 1 ; F_e_methtol = .FALSE. P_e_pethtol = 1 ; F_e_pethtol = .FALSE. P_e_dime35eb = 1 ; F_e_dime35eb = .FALSE. P_e_c2h5cho = 1 ; F_e_c2h5cho = .FALSE. P_e_benzene = 1 ; F_e_benzene = .FALSE. P_e_nc4h10 = 1 ; F_e_nc4h10 = .FALSE. P_e_oxyl = 1 ; F_e_oxyl = .FALSE. P_e_tbut2ene = 1 ; F_e_tbut2ene = .FALSE. P_e_ch3co2h = 1 ; F_e_ch3co2h = .FALSE. P_e_bc_1 = 1 ; F_e_bc_1 = .FALSE. P_e_ec_1_25 = 1 ; F_e_ec_1_25 = .FALSE. P_e_ec_25_10 = 1 ; F_e_ec_25_10 = .FALSE. P_e_oc_dom = 1 ; F_e_oc_dom = .FALSE. P_e_oc_tra = 1 ; F_e_oc_tra = .FALSE. P_e_oc_25_10 = 1 ; F_e_oc_25_10 = .FALSE. P_e_pm25 = 1 ; F_e_pm25 = .FALSE. P_e_pm10 = 1 ; F_e_pm10 = .FALSE. P_e_oin_25 = 1 ; F_e_oin_25 = .FALSE. P_e_oin_10 = 1 ; F_e_oin_10 = .FALSE. P_e_no2 = 1 ; F_e_no2 = .FALSE. P_e_ch3oh = 1 ; F_e_ch3oh = .FALSE. P_e_c2h5oh = 1 ; F_e_c2h5oh = .FALSE. P_e_so4c = 1 ; F_e_so4c = .FALSE. P_e_no3c = 1 ; F_e_no3c = .FALSE. P_e_nh4c = 1 ; F_e_nh4c = .FALSE. P_e_nac = 1 ; F_e_nac = .FALSE. P_e_clc = 1 ; F_e_clc = .FALSE. P_e_orgc = 1 ; F_e_orgc = .FALSE. P_e_ecc = 1 ; F_e_ecc = .FALSE. P_e_orgi_a = 1 ; F_e_orgi_a = .FALSE. P_e_orgj_a = 1 ; F_e_orgj_a = .FALSE. P_e_orgi_bb = 1 ; F_e_orgi_bb = .FALSE. P_e_orgj_bb = 1 ; F_e_orgj_bb = .FALSE. P_e_co_a = 1 ; F_e_co_a = .FALSE. P_e_co_bb = 1 ; F_e_co_bb = .FALSE. P_e_bc = 1 ; F_e_bc = .FALSE. P_e_oc = 1 ; F_e_oc = .FALSE. P_e_sulf = 1 ; F_e_sulf = .FALSE. P_e_soag_bigalk = 1 ; F_e_soag_bigalk = .FALSE. P_e_soag_bigene = 1 ; F_e_soag_bigene = .FALSE. P_e_soag_isoprene = 1 ; F_e_soag_isoprene = .FALSE. P_e_soag_terpene = 1 ; F_e_soag_terpene = .FALSE. P_e_soag_toluene = 1 ; F_e_soag_toluene = .FALSE. P_e_dust_a1 = 1 ; F_e_dust_a1 = .FALSE. P_e_dust_a3 = 1 ; F_e_dust_a3 = .FALSE. P_e_ncl_a1 = 1 ; F_e_ncl_a1 = .FALSE. P_e_ncl_a2 = 1 ; F_e_ncl_a2 = .FALSE. P_e_ncl_a3 = 1 ; F_e_ncl_a3 = .FALSE. P_e_orgj_num = 1 ; F_e_orgj_num = .FALSE. P_e_ecj_num = 1 ; F_e_ecj_num = .FALSE. P_e_so4j_num = 1 ; F_e_so4j_num = .FALSE. P_e_so4i_num = 1 ; F_e_so4i_num = .FALSE. P_e_num_a3 = 1 ; F_e_num_a3 = .FALSE. P_e_dms = 1 ; F_e_dms = .FALSE. P_e_c2h2 = 1 ; F_e_c2h2 = .FALSE. P_e_alk3 = 1 ; F_e_alk3 = .FALSE. P_e_alk4 = 1 ; F_e_alk4 = .FALSE. P_e_alk5 = 1 ; F_e_alk5 = .FALSE. P_e_ethene = 1 ; F_e_ethene = .FALSE. P_e_ole1 = 1 ; F_e_ole1 = .FALSE. P_e_ole2 = 1 ; F_e_ole2 = .FALSE. P_e_aro1 = 1 ; F_e_aro1 = .FALSE. P_e_aro2 = 1 ; F_e_aro2 = .FALSE. P_e_ccho = 1 ; F_e_ccho = .FALSE. P_e_rcho = 1 ; F_e_rcho = .FALSE. P_e_acet = 1 ; F_e_acet = .FALSE. P_e_isoprene = 1 ; F_e_isoprene = .FALSE. P_e_terp = 1 ; F_e_terp = .FALSE. P_e_sesq = 1 ; F_e_sesq = .FALSE. P_e_phen = 1 ; F_e_phen = .FALSE. P_e_cres = 1 ; F_e_cres = .FALSE. P_e_meoh = 1 ; F_e_meoh = .FALSE. P_e_gly = 1 ; F_e_gly = .FALSE. P_e_mgly = 1 ; F_e_mgly = .FALSE. P_e_bacl = 1 ; F_e_bacl = .FALSE. P_e_isoprod = 1 ; F_e_isoprod = .FALSE. P_e_methacro = 1 ; F_e_methacro = .FALSE. P_e_mvk = 1 ; F_e_mvk = .FALSE. P_e_prod2 = 1 ; F_e_prod2 = .FALSE. P_e_ch4 = 1 ; F_e_ch4 = .FALSE. P_e_bald = 1 ; F_e_bald = .FALSE. P_e_hcooh = 1 ; F_e_hcooh = .FALSE. P_e_cco_oh = 1 ; F_e_cco_oh = .FALSE. P_e_rco_oh = 1 ; F_e_rco_oh = .FALSE. P_e_co2tst = 1 ; F_e_co2tst = .FALSE. P_e_cotst = 1 ; F_e_cotst = .FALSE. P_e_ch4tst = 1 ; F_e_ch4tst = .FALSE. P_e_hcl = 1 ; F_e_hcl = .FALSE. P_e_aldx = 1 ; F_e_aldx = .FALSE. P_e_par = 1 ; F_e_par = .FALSE. P_e_ole = 1 ; F_e_ole = .FALSE. P_e_iole = 1 ; F_e_iole = .FALSE. P_e_form = 1 ; F_e_form = .FALSE. P_e_etha = 1 ; F_e_etha = .FALSE. P_e_etoh = 1 ; F_e_etoh = .FALSE. P_e_ald2 = 1 ; F_e_ald2 = .FALSE. P_e_meo2 = 1 ; F_e_meo2 = .FALSE. P_e_psulf = 1 ; F_e_psulf = .FALSE. P_e_ccooh = 1 ; F_e_ccooh = .FALSE. P_e_iprod = 1 ; F_e_iprod = .FALSE. P_e_hg2 = 1 ; F_e_hg2 = .FALSE. P_e_hg0 = 1 ; F_e_hg0 = .FALSE. P_e_fmcl = 1 ; F_e_fmcl = .FALSE. P_e_hgp = 1 ; F_e_hgp = .FALSE. P_e_apin = 1 ; F_e_apin = .FALSE. P_e_bpin = 1 ; F_e_bpin = .FALSE. P_e_lim = 1 ; F_e_lim = .FALSE. P_e_ter = 1 ; F_e_ter = .FALSE. P_e_oci = 1 ; F_e_oci = .FALSE. P_e_hum = 1 ; F_e_hum = .FALSE. P_ebio_gee = 1 ; F_ebio_gee = .FALSE. P_ebio_res = 1 ; F_ebio_res = .FALSE. P_ebio_ch4wet = 1 ; F_ebio_ch4wet = .FALSE. P_ebio_ch4soil = 1 ; F_ebio_ch4soil = .FALSE. P_ebio_ch4term = 1 ; F_ebio_ch4term = .FALSE. P_edust1 = 1 ; F_edust1 = .FALSE. P_edust2 = 1 ; F_edust2 = .FALSE. P_edust3 = 1 ; F_edust3 = .FALSE. P_edust4 = 1 ; F_edust4 = .FALSE. P_edust5 = 1 ; F_edust5 = .FALSE. P_eseas1 = 1 ; F_eseas1 = .FALSE. P_eseas2 = 1 ; F_eseas2 = .FALSE. P_eseas3 = 1 ; F_eseas3 = .FALSE. P_eseas4 = 1 ; F_eseas4 = .FALSE. P_eseasj = 1 ; F_eseasj = .FALSE. P_eseasc = 1 ; F_eseasc = .FALSE. P_e_vash1 = 1 ; F_e_vash1 = .FALSE. P_e_vash2 = 1 ; F_e_vash2 = .FALSE. P_e_vash3 = 1 ; F_e_vash3 = .FALSE. P_e_vash4 = 1 ; F_e_vash4 = .FALSE. P_e_vash5 = 1 ; F_e_vash5 = .FALSE. P_e_vash6 = 1 ; F_e_vash6 = .FALSE. P_e_vash7 = 1 ; F_e_vash7 = .FALSE. P_e_vash8 = 1 ; F_e_vash8 = .FALSE. P_e_vash9 = 1 ; F_e_vash9 = .FALSE. P_e_vash10 = 1 ; F_e_vash10 = .FALSE. P_e_vso2 = 1 ; F_e_vso2 = .FALSE. P_ebu_no = 1 ; F_ebu_no = .FALSE. P_ebu_no2 = 1 ; F_ebu_no2 = .FALSE. P_ebu_co = 1 ; F_ebu_co = .FALSE. P_ebu_co2 = 1 ; F_ebu_co2 = .FALSE. P_ebu_eth = 1 ; F_ebu_eth = .FALSE. P_ebu_hc3 = 1 ; F_ebu_hc3 = .FALSE. P_ebu_hc5 = 1 ; F_ebu_hc5 = .FALSE. P_ebu_hc8 = 1 ; F_ebu_hc8 = .FALSE. P_ebu_ete = 1 ; F_ebu_ete = .FALSE. P_ebu_olt = 1 ; F_ebu_olt = .FALSE. P_ebu_oli = 1 ; F_ebu_oli = .FALSE. P_ebu_pm25 = 1 ; F_ebu_pm25 = .FALSE. P_ebu_pm10 = 1 ; F_ebu_pm10 = .FALSE. P_ebu_dien = 1 ; F_ebu_dien = .FALSE. P_ebu_iso = 1 ; F_ebu_iso = .FALSE. P_ebu_api = 1 ; F_ebu_api = .FALSE. P_ebu_lim = 1 ; F_ebu_lim = .FALSE. P_ebu_tol = 1 ; F_ebu_tol = .FALSE. P_ebu_xyl = 1 ; F_ebu_xyl = .FALSE. P_ebu_csl = 1 ; F_ebu_csl = .FALSE. P_ebu_hcho = 1 ; F_ebu_hcho = .FALSE. P_ebu_ald = 1 ; F_ebu_ald = .FALSE. P_ebu_ket = 1 ; F_ebu_ket = .FALSE. P_ebu_macr = 1 ; F_ebu_macr = .FALSE. P_ebu_ora1 = 1 ; F_ebu_ora1 = .FALSE. P_ebu_ora2 = 1 ; F_ebu_ora2 = .FALSE. P_ebu_nh3 = 1 ; F_ebu_nh3 = .FALSE. P_ebu_so2 = 1 ; F_ebu_so2 = .FALSE. P_ebu_dms = 1 ; F_ebu_dms = .FALSE. P_ebu_oc = 1 ; F_ebu_oc = .FALSE. P_ebu_bc = 1 ; F_ebu_bc = .FALSE. P_ebu_sulf = 1 ; F_ebu_sulf = .FALSE. P_ebu_bigalk = 1 ; F_ebu_bigalk = .FALSE. P_ebu_bigene = 1 ; F_ebu_bigene = .FALSE. P_ebu_c2h4 = 1 ; F_ebu_c2h4 = .FALSE. P_ebu_c2h5oh = 1 ; F_ebu_c2h5oh = .FALSE. P_ebu_c2h6 = 1 ; F_ebu_c2h6 = .FALSE. P_ebu_c3h6 = 1 ; F_ebu_c3h6 = .FALSE. P_ebu_c3h8 = 1 ; F_ebu_c3h8 = .FALSE. P_ebu_ch2o = 1 ; F_ebu_ch2o = .FALSE. P_ebu_ch3cho = 1 ; F_ebu_ch3cho = .FALSE. P_ebu_ch3coch3 = 1 ; F_ebu_ch3coch3 = .FALSE. P_ebu_ch3oh = 1 ; F_ebu_ch3oh = .FALSE. P_ebu_mek = 1 ; F_ebu_mek = .FALSE. P_ebu_toluene = 1 ; F_ebu_toluene = .FALSE. P_ebu_open = 1 ; F_ebu_open = .FALSE. P_ebu_c10h16 = 1 ; F_ebu_c10h16 = .FALSE. P_ebu_mgly = 1 ; F_ebu_mgly = .FALSE. P_ebu_ch3cooh = 1 ; F_ebu_ch3cooh = .FALSE. P_ebu_cres = 1 ; F_ebu_cres = .FALSE. P_ebu_glyald = 1 ; F_ebu_glyald = .FALSE. P_ebu_gly = 1 ; F_ebu_gly = .FALSE. P_ebu_acetol = 1 ; F_ebu_acetol = .FALSE. P_ebu_isop = 1 ; F_ebu_isop = .FALSE. P_ebu_mvk = 1 ; F_ebu_mvk = .FALSE. P_ebu_ch4 = 1 ; F_ebu_ch4 = .FALSE. P_ebu_in_no = 1 ; F_ebu_in_no = .FALSE. P_ebu_in_no2 = 1 ; F_ebu_in_no2 = .FALSE. P_ebu_in_co = 1 ; F_ebu_in_co = .FALSE. P_ebu_in_co2 = 1 ; F_ebu_in_co2 = .FALSE. P_ebu_in_eth = 1 ; F_ebu_in_eth = .FALSE. P_ebu_in_hc3 = 1 ; F_ebu_in_hc3 = .FALSE. P_ebu_in_hc5 = 1 ; F_ebu_in_hc5 = .FALSE. P_ebu_in_hc8 = 1 ; F_ebu_in_hc8 = .FALSE. P_ebu_in_ete = 1 ; F_ebu_in_ete = .FALSE. P_ebu_in_olt = 1 ; F_ebu_in_olt = .FALSE. P_ebu_in_oli = 1 ; F_ebu_in_oli = .FALSE. P_ebu_in_pm25 = 1 ; F_ebu_in_pm25 = .FALSE. P_ebu_in_pm10 = 1 ; F_ebu_in_pm10 = .FALSE. P_ebu_in_dien = 1 ; F_ebu_in_dien = .FALSE. P_ebu_in_iso = 1 ; F_ebu_in_iso = .FALSE. P_ebu_in_api = 1 ; F_ebu_in_api = .FALSE. P_ebu_in_lim = 1 ; F_ebu_in_lim = .FALSE. P_ebu_in_tol = 1 ; F_ebu_in_tol = .FALSE. P_ebu_in_xyl = 1 ; F_ebu_in_xyl = .FALSE. P_ebu_in_csl = 1 ; F_ebu_in_csl = .FALSE. P_ebu_in_hcho = 1 ; F_ebu_in_hcho = .FALSE. P_ebu_in_ald = 1 ; F_ebu_in_ald = .FALSE. P_ebu_in_ket = 1 ; F_ebu_in_ket = .FALSE. P_ebu_in_macr = 1 ; F_ebu_in_macr = .FALSE. P_ebu_in_ora1 = 1 ; F_ebu_in_ora1 = .FALSE. P_ebu_in_ora2 = 1 ; F_ebu_in_ora2 = .FALSE. P_ebu_in_nh3 = 1 ; F_ebu_in_nh3 = .FALSE. P_ebu_in_so2 = 1 ; F_ebu_in_so2 = .FALSE. P_ebu_in_dms = 1 ; F_ebu_in_dms = .FALSE. P_ebu_in_oc = 1 ; F_ebu_in_oc = .FALSE. P_ebu_in_bc = 1 ; F_ebu_in_bc = .FALSE. P_ebu_in_sulf = 1 ; F_ebu_in_sulf = .FALSE. P_ebu_in_ash = 1 ; F_ebu_in_ash = .FALSE. P_ebu_in_bigalk = 1 ; F_ebu_in_bigalk = .FALSE. P_ebu_in_bigene = 1 ; F_ebu_in_bigene = .FALSE. P_ebu_in_c2h4 = 1 ; F_ebu_in_c2h4 = .FALSE. P_ebu_in_c2h5oh = 1 ; F_ebu_in_c2h5oh = .FALSE. P_ebu_in_c2h6 = 1 ; F_ebu_in_c2h6 = .FALSE. P_ebu_in_c3h6 = 1 ; F_ebu_in_c3h6 = .FALSE. P_ebu_in_c3h8 = 1 ; F_ebu_in_c3h8 = .FALSE. P_ebu_in_ch2o = 1 ; F_ebu_in_ch2o = .FALSE. P_ebu_in_ch3cho = 1 ; F_ebu_in_ch3cho = .FALSE. P_ebu_in_ch3coch3 = 1 ; F_ebu_in_ch3coch3 = .FALSE. P_ebu_in_ch3oh = 1 ; F_ebu_in_ch3oh = .FALSE. P_ebu_in_mek = 1 ; F_ebu_in_mek = .FALSE. P_ebu_in_toluene = 1 ; F_ebu_in_toluene = .FALSE. P_ebu_in_open = 1 ; F_ebu_in_open = .FALSE. P_ebu_in_c10h16 = 1 ; F_ebu_in_c10h16 = .FALSE. P_ebu_in_mgly = 1 ; F_ebu_in_mgly = .FALSE. P_ebu_in_ch3cooh = 1 ; F_ebu_in_ch3cooh = .FALSE. P_ebu_in_cres = 1 ; F_ebu_in_cres = .FALSE. P_ebu_in_glyald = 1 ; F_ebu_in_glyald = .FALSE. P_ebu_in_gly = 1 ; F_ebu_in_gly = .FALSE. P_ebu_in_acetol = 1 ; F_ebu_in_acetol = .FALSE. P_ebu_in_isop = 1 ; F_ebu_in_isop = .FALSE. P_ebu_in_mvk = 1 ; F_ebu_in_mvk = .FALSE. P_ebu_in_ch4 = 1 ; F_ebu_in_ch4 = .FALSE. P_eac_so2 = 1 ; F_eac_so2 = .FALSE. P_eac_no = 1 ; F_eac_no = .FALSE. P_eac_co = 1 ; F_eac_co = .FALSE. P_eac_ch4 = 1 ; F_eac_ch4 = .FALSE. P_extcof3 = 1 ; F_extcof3 = .FALSE. P_extcof55 = 1 ; F_extcof55 = .FALSE. P_extcof106 = 1 ; F_extcof106 = .FALSE. P_extcof3_5 = 1 ; F_extcof3_5 = .FALSE. P_extcof8_12 = 1 ; F_extcof8_12 = .FALSE. P_bscof3 = 1 ; F_bscof3 = .FALSE. P_bscof55 = 1 ; F_bscof55 = .FALSE. P_bscof106 = 1 ; F_bscof106 = .FALSE. P_asympar3 = 1 ; F_asympar3 = .FALSE. P_asympar55 = 1 ; F_asympar55 = .FALSE. P_asympar106 = 1 ; F_asympar106 = .FALSE. P_conv_co = 1 ; F_conv_co = .FALSE. P_conv_o3 = 1 ; F_conv_o3 = .FALSE. P_conv_no = 1 ; F_conv_no = .FALSE. P_conv_no2 = 1 ; F_conv_no2 = .FALSE. P_conv_hno3 = 1 ; F_conv_hno3 = .FALSE. P_conv_iso = 1 ; F_conv_iso = .FALSE. P_conv_ho = 1 ; F_conv_ho = .FALSE. P_conv_ho2 = 1 ; F_conv_ho2 = .FALSE. P_chem_co = 1 ; F_chem_co = .FALSE. P_chem_o3 = 1 ; F_chem_o3 = .FALSE. P_chem_no = 1 ; F_chem_no = .FALSE. P_chem_no2 = 1 ; F_chem_no2 = .FALSE. P_chem_hno3 = 1 ; F_chem_hno3 = .FALSE. P_chem_iso = 1 ; F_chem_iso = .FALSE. P_chem_ho = 1 ; F_chem_ho = .FALSE. P_chem_ho2 = 1 ; F_chem_ho2 = .FALSE. P_vmix_co = 1 ; F_vmix_co = .FALSE. P_vmix_o3 = 1 ; F_vmix_o3 = .FALSE. P_vmix_no = 1 ; F_vmix_no = .FALSE. P_vmix_no2 = 1 ; F_vmix_no2 = .FALSE. P_vmix_hno3 = 1 ; F_vmix_hno3 = .FALSE. P_vmix_iso = 1 ; F_vmix_iso = .FALSE. P_vmix_ho = 1 ; F_vmix_ho = .FALSE. P_vmix_ho2 = 1 ; F_vmix_ho2 = .FALSE. P_advh_co = 1 ; F_advh_co = .FALSE. P_advh_o3 = 1 ; F_advh_o3 = .FALSE. P_advh_no = 1 ; F_advh_no = .FALSE. P_advh_no2 = 1 ; F_advh_no2 = .FALSE. P_advh_hno3 = 1 ; F_advh_hno3 = .FALSE. P_advh_iso = 1 ; F_advh_iso = .FALSE. P_advh_ho = 1 ; F_advh_ho = .FALSE. P_advh_ho2 = 1 ; F_advh_ho2 = .FALSE. P_advz_co = 1 ; F_advz_co = .FALSE. P_advz_o3 = 1 ; F_advz_o3 = .FALSE. P_advz_no = 1 ; F_advz_no = .FALSE. P_advz_no2 = 1 ; F_advz_no2 = .FALSE. P_advz_hno3 = 1 ; F_advz_hno3 = .FALSE. P_advz_iso = 1 ; F_advz_iso = .FALSE. P_advz_ho = 1 ; F_advz_ho = .FALSE. P_advz_ho2 = 1 ; F_advz_ho2 = .FALSE. P_dvel_o3 = 1 ; F_dvel_o3 = .FALSE. P_dvel_no = 1 ; F_dvel_no = .FALSE. P_dvel_no2 = 1 ; F_dvel_no2 = .FALSE. P_dvel_nh3 = 1 ; F_dvel_nh3 = .FALSE. P_dvel_hno3 = 1 ; F_dvel_hno3 = .FALSE. P_dvel_hno4 = 1 ; F_dvel_hno4 = .FALSE. P_dvel_h2o2 = 1 ; F_dvel_h2o2 = .FALSE. P_dvel_co = 1 ; F_dvel_co = .FALSE. P_dvel_ch3ooh = 1 ; F_dvel_ch3ooh = .FALSE. P_dvel_hcho = 1 ; F_dvel_hcho = .FALSE. P_dvel_ch3oh = 1 ; F_dvel_ch3oh = .FALSE. P_dvel_eo2 = 1 ; F_dvel_eo2 = .FALSE. P_dvel_ald = 1 ; F_dvel_ald = .FALSE. P_dvel_ch3cooh = 1 ; F_dvel_ch3cooh = .FALSE. P_dvel_acet = 1 ; F_dvel_acet = .FALSE. P_dvel_mgly = 1 ; F_dvel_mgly = .FALSE. P_dvel_gly = 1 ; F_dvel_gly = .FALSE. P_dvel_paa = 1 ; F_dvel_paa = .FALSE. P_dvel_pooh = 1 ; F_dvel_pooh = .FALSE. P_dvel_pan = 1 ; F_dvel_pan = .FALSE. P_dvel_mpan = 1 ; F_dvel_mpan = .FALSE. P_dvel_mco3 = 1 ; F_dvel_mco3 = .FALSE. P_dvel_mvkooh = 1 ; F_dvel_mvkooh = .FALSE. P_dvel_c2h5oh = 1 ; F_dvel_c2h5oh = .FALSE. P_dvel_etooh = 1 ; F_dvel_etooh = .FALSE. P_dvel_prooh = 1 ; F_dvel_prooh = .FALSE. P_dvel_acetp = 1 ; F_dvel_acetp = .FALSE. P_dvel_onit = 1 ; F_dvel_onit = .FALSE. P_dvel_onitr = 1 ; F_dvel_onitr = .FALSE. P_dvel_isooh = 1 ; F_dvel_isooh = .FALSE. P_dvel_acetol = 1 ; F_dvel_acetol = .FALSE. P_dvel_glyald = 1 ; F_dvel_glyald = .FALSE. P_dvel_hydrald = 1 ; F_dvel_hydrald = .FALSE. P_dvel_alkooh = 1 ; F_dvel_alkooh = .FALSE. P_dvel_mekooh = 1 ; F_dvel_mekooh = .FALSE. P_dvel_tolooh = 1 ; F_dvel_tolooh = .FALSE. P_dvel_xooh = 1 ; F_dvel_xooh = .FALSE. P_dvel_so2 = 1 ; F_dvel_so2 = .FALSE. P_dvel_so4 = 1 ; F_dvel_so4 = .FALSE. P_dvel_terpooh = 1 ; F_dvel_terpooh = .FALSE. P_dvel_cvasoax = 1 ; F_dvel_cvasoax = .FALSE. P_dvel_cvasoa1 = 1 ; F_dvel_cvasoa1 = .FALSE. P_dvel_cvasoa2 = 1 ; F_dvel_cvasoa2 = .FALSE. P_dvel_cvasoa3 = 1 ; F_dvel_cvasoa3 = .FALSE. P_dvel_cvasoa4 = 1 ; F_dvel_cvasoa4 = .FALSE. P_dvel_cvbsoax = 1 ; F_dvel_cvbsoax = .FALSE. P_dvel_cvbsoa1 = 1 ; F_dvel_cvbsoa1 = .FALSE. P_dvel_cvbsoa2 = 1 ; F_dvel_cvbsoa2 = .FALSE. P_dvel_cvbsoa3 = 1 ; F_dvel_cvbsoa3 = .FALSE. P_dvel_cvbsoa4 = 1 ; F_dvel_cvbsoa4 = .FALSE. P_ddmass_o3 = 1 ; F_ddmass_o3 = .FALSE. P_ddmass_no = 1 ; F_ddmass_no = .FALSE. P_ddmass_no2 = 1 ; F_ddmass_no2 = .FALSE. P_ddmass_nh3 = 1 ; F_ddmass_nh3 = .FALSE. P_ddmass_hno3 = 1 ; F_ddmass_hno3 = .FALSE. P_ddmass_hno4 = 1 ; F_ddmass_hno4 = .FALSE. P_ddmass_h2o2 = 1 ; F_ddmass_h2o2 = .FALSE. P_ddmass_co = 1 ; F_ddmass_co = .FALSE. P_ddmass_ch3ooh = 1 ; F_ddmass_ch3ooh = .FALSE. P_ddmass_hcho = 1 ; F_ddmass_hcho = .FALSE. P_ddmass_ch3oh = 1 ; F_ddmass_ch3oh = .FALSE. P_ddmass_eo2 = 1 ; F_ddmass_eo2 = .FALSE. P_ddmass_ald = 1 ; F_ddmass_ald = .FALSE. P_ddmass_ch3cooh = 1 ; F_ddmass_ch3cooh = .FALSE. P_ddmass_acet = 1 ; F_ddmass_acet = .FALSE. P_ddmass_mgly = 1 ; F_ddmass_mgly = .FALSE. P_ddmass_gly = 1 ; F_ddmass_gly = .FALSE. P_ddmass_paa = 1 ; F_ddmass_paa = .FALSE. P_ddmass_pooh = 1 ; F_ddmass_pooh = .FALSE. P_ddmass_pan = 1 ; F_ddmass_pan = .FALSE. P_ddmass_mpan = 1 ; F_ddmass_mpan = .FALSE. P_ddmass_mco3 = 1 ; F_ddmass_mco3 = .FALSE. P_ddmass_mvkooh = 1 ; F_ddmass_mvkooh = .FALSE. P_ddmass_c2h5oh = 1 ; F_ddmass_c2h5oh = .FALSE. P_ddmass_etooh = 1 ; F_ddmass_etooh = .FALSE. P_ddmass_prooh = 1 ; F_ddmass_prooh = .FALSE. P_ddmass_acetp = 1 ; F_ddmass_acetp = .FALSE. P_ddmass_onit = 1 ; F_ddmass_onit = .FALSE. P_ddmass_onitr = 1 ; F_ddmass_onitr = .FALSE. P_ddmass_isooh = 1 ; F_ddmass_isooh = .FALSE. P_ddmass_acetol = 1 ; F_ddmass_acetol = .FALSE. P_ddmass_glyald = 1 ; F_ddmass_glyald = .FALSE. P_ddmass_hydrald = 1 ; F_ddmass_hydrald = .FALSE. P_ddmass_alkooh = 1 ; F_ddmass_alkooh = .FALSE. P_ddmass_mekooh = 1 ; F_ddmass_mekooh = .FALSE. P_ddmass_tolooh = 1 ; F_ddmass_tolooh = .FALSE. P_ddmass_xooh = 1 ; F_ddmass_xooh = .FALSE. P_ddmass_so2 = 1 ; F_ddmass_so2 = .FALSE. P_ddmass_so4 = 1 ; F_ddmass_so4 = .FALSE. P_ddmass_terpooh = 1 ; F_ddmass_terpooh = .FALSE. P_ddmass_cvasoax = 1 ; F_ddmass_cvasoax = .FALSE. P_ddmass_cvasoa1 = 1 ; F_ddmass_cvasoa1 = .FALSE. P_ddmass_cvasoa2 = 1 ; F_ddmass_cvasoa2 = .FALSE. P_ddmass_cvasoa3 = 1 ; F_ddmass_cvasoa3 = .FALSE. P_ddmass_cvasoa4 = 1 ; F_ddmass_cvasoa4 = .FALSE. P_ddmass_cvbsoax = 1 ; F_ddmass_cvbsoax = .FALSE. P_ddmass_cvbsoa1 = 1 ; F_ddmass_cvbsoa1 = .FALSE. P_ddmass_cvbsoa2 = 1 ; F_ddmass_cvbsoa2 = .FALSE. P_ddmass_cvbsoa3 = 1 ; F_ddmass_cvbsoa3 = .FALSE. P_ddmass_cvbsoa4 = 1 ; F_ddmass_cvbsoa4 = .FALSE. P_ddmass_so4aj = 1 ; F_ddmass_so4aj = .FALSE. P_ddmass_so4ai = 1 ; F_ddmass_so4ai = .FALSE. P_ddmass_no3aj = 1 ; F_ddmass_no3aj = .FALSE. P_ddmass_no3ai = 1 ; F_ddmass_no3ai = .FALSE. P_ddmass_nh4aj = 1 ; F_ddmass_nh4aj = .FALSE. P_ddmass_nh4ai = 1 ; F_ddmass_nh4ai = .FALSE. P_ddmass_so4_a01 = 1 ; F_ddmass_so4_a01 = .FALSE. P_ddmass_no3_a01 = 1 ; F_ddmass_no3_a01 = .FALSE. P_ddmass_cl_a01 = 1 ; F_ddmass_cl_a01 = .FALSE. P_ddmass_nh4_a01 = 1 ; F_ddmass_nh4_a01 = .FALSE. P_ddmass_na_a01 = 1 ; F_ddmass_na_a01 = .FALSE. P_ddmass_oin_a01 = 1 ; F_ddmass_oin_a01 = .FALSE. P_ddmass_oc_a01 = 1 ; F_ddmass_oc_a01 = .FALSE. P_ddmass_bc_a01 = 1 ; F_ddmass_bc_a01 = .FALSE. P_ddmass_smpa_a01 = 1 ; F_ddmass_smpa_a01 = .FALSE. P_ddmass_smpbb_a01 = 1 ; F_ddmass_smpbb_a01 = .FALSE. P_ddmass_glysoa_a01 = 1 ; F_ddmass_glysoa_a01 = .FALSE. P_ddmass_biog1_c_a01 = 1 ; F_ddmass_biog1_c_a01 = .FALSE. P_ddmass_biog1_o_a01 = 1 ; F_ddmass_biog1_o_a01 = .FALSE. P_ddmass_asoax_a01 = 1 ; F_ddmass_asoax_a01 = .FALSE. P_ddmass_asoa1_a01 = 1 ; F_ddmass_asoa1_a01 = .FALSE. P_ddmass_asoa2_a01 = 1 ; F_ddmass_asoa2_a01 = .FALSE. P_ddmass_asoa3_a01 = 1 ; F_ddmass_asoa3_a01 = .FALSE. P_ddmass_asoa4_a01 = 1 ; F_ddmass_asoa4_a01 = .FALSE. P_ddmass_bsoax_a01 = 1 ; F_ddmass_bsoax_a01 = .FALSE. P_ddmass_bsoa1_a01 = 1 ; F_ddmass_bsoa1_a01 = .FALSE. P_ddmass_bsoa2_a01 = 1 ; F_ddmass_bsoa2_a01 = .FALSE. P_ddmass_bsoa3_a01 = 1 ; F_ddmass_bsoa3_a01 = .FALSE. P_ddmass_bsoa4_a01 = 1 ; F_ddmass_bsoa4_a01 = .FALSE. P_ddmass_so4_a02 = 1 ; F_ddmass_so4_a02 = .FALSE. P_ddmass_no3_a02 = 1 ; F_ddmass_no3_a02 = .FALSE. P_ddmass_cl_a02 = 1 ; F_ddmass_cl_a02 = .FALSE. P_ddmass_nh4_a02 = 1 ; F_ddmass_nh4_a02 = .FALSE. P_ddmass_na_a02 = 1 ; F_ddmass_na_a02 = .FALSE. P_ddmass_oin_a02 = 1 ; F_ddmass_oin_a02 = .FALSE. P_ddmass_oc_a02 = 1 ; F_ddmass_oc_a02 = .FALSE. P_ddmass_bc_a02 = 1 ; F_ddmass_bc_a02 = .FALSE. P_ddmass_smpa_a02 = 1 ; F_ddmass_smpa_a02 = .FALSE. P_ddmass_smpbb_a02 = 1 ; F_ddmass_smpbb_a02 = .FALSE. P_ddmass_glysoa_a02 = 1 ; F_ddmass_glysoa_a02 = .FALSE. P_ddmass_biog1_c_a02 = 1 ; F_ddmass_biog1_c_a02 = .FALSE. P_ddmass_biog1_o_a02 = 1 ; F_ddmass_biog1_o_a02 = .FALSE. P_ddmass_asoax_a02 = 1 ; F_ddmass_asoax_a02 = .FALSE. P_ddmass_asoa1_a02 = 1 ; F_ddmass_asoa1_a02 = .FALSE. P_ddmass_asoa2_a02 = 1 ; F_ddmass_asoa2_a02 = .FALSE. P_ddmass_asoa3_a02 = 1 ; F_ddmass_asoa3_a02 = .FALSE. P_ddmass_asoa4_a02 = 1 ; F_ddmass_asoa4_a02 = .FALSE. P_ddmass_bsoax_a02 = 1 ; F_ddmass_bsoax_a02 = .FALSE. P_ddmass_bsoa1_a02 = 1 ; F_ddmass_bsoa1_a02 = .FALSE. P_ddmass_bsoa2_a02 = 1 ; F_ddmass_bsoa2_a02 = .FALSE. P_ddmass_bsoa3_a02 = 1 ; F_ddmass_bsoa3_a02 = .FALSE. P_ddmass_bsoa4_a02 = 1 ; F_ddmass_bsoa4_a02 = .FALSE. P_ddmass_so4_a03 = 1 ; F_ddmass_so4_a03 = .FALSE. P_ddmass_no3_a03 = 1 ; F_ddmass_no3_a03 = .FALSE. P_ddmass_cl_a03 = 1 ; F_ddmass_cl_a03 = .FALSE. P_ddmass_nh4_a03 = 1 ; F_ddmass_nh4_a03 = .FALSE. P_ddmass_na_a03 = 1 ; F_ddmass_na_a03 = .FALSE. P_ddmass_oin_a03 = 1 ; F_ddmass_oin_a03 = .FALSE. P_ddmass_oc_a03 = 1 ; F_ddmass_oc_a03 = .FALSE. P_ddmass_bc_a03 = 1 ; F_ddmass_bc_a03 = .FALSE. P_ddmass_smpa_a03 = 1 ; F_ddmass_smpa_a03 = .FALSE. P_ddmass_smpbb_a03 = 1 ; F_ddmass_smpbb_a03 = .FALSE. P_ddmass_glysoa_a03 = 1 ; F_ddmass_glysoa_a03 = .FALSE. P_ddmass_biog1_c_a03 = 1 ; F_ddmass_biog1_c_a03 = .FALSE. P_ddmass_biog1_o_a03 = 1 ; F_ddmass_biog1_o_a03 = .FALSE. P_ddmass_asoax_a03 = 1 ; F_ddmass_asoax_a03 = .FALSE. P_ddmass_asoa1_a03 = 1 ; F_ddmass_asoa1_a03 = .FALSE. P_ddmass_asoa2_a03 = 1 ; F_ddmass_asoa2_a03 = .FALSE. P_ddmass_asoa3_a03 = 1 ; F_ddmass_asoa3_a03 = .FALSE. P_ddmass_asoa4_a03 = 1 ; F_ddmass_asoa4_a03 = .FALSE. P_ddmass_bsoax_a03 = 1 ; F_ddmass_bsoax_a03 = .FALSE. P_ddmass_bsoa1_a03 = 1 ; F_ddmass_bsoa1_a03 = .FALSE. P_ddmass_bsoa2_a03 = 1 ; F_ddmass_bsoa2_a03 = .FALSE. P_ddmass_bsoa3_a03 = 1 ; F_ddmass_bsoa3_a03 = .FALSE. P_ddmass_bsoa4_a03 = 1 ; F_ddmass_bsoa4_a03 = .FALSE. P_ddmass_so4_a04 = 1 ; F_ddmass_so4_a04 = .FALSE. P_ddmass_no3_a04 = 1 ; F_ddmass_no3_a04 = .FALSE. P_ddmass_cl_a04 = 1 ; F_ddmass_cl_a04 = .FALSE. P_ddmass_nh4_a04 = 1 ; F_ddmass_nh4_a04 = .FALSE. P_ddmass_na_a04 = 1 ; F_ddmass_na_a04 = .FALSE. P_ddmass_oin_a04 = 1 ; F_ddmass_oin_a04 = .FALSE. P_ddmass_oc_a04 = 1 ; F_ddmass_oc_a04 = .FALSE. P_ddmass_bc_a04 = 1 ; F_ddmass_bc_a04 = .FALSE. P_ddmass_smpa_a04 = 1 ; F_ddmass_smpa_a04 = .FALSE. P_ddmass_smpbb_a04 = 1 ; F_ddmass_smpbb_a04 = .FALSE. P_ddmass_glysoa_a04 = 1 ; F_ddmass_glysoa_a04 = .FALSE. P_ddmass_biog1_c_a04 = 1 ; F_ddmass_biog1_c_a04 = .FALSE. P_ddmass_biog1_o_a04 = 1 ; F_ddmass_biog1_o_a04 = .FALSE. P_ddmass_asoax_a04 = 1 ; F_ddmass_asoax_a04 = .FALSE. P_ddmass_asoa1_a04 = 1 ; F_ddmass_asoa1_a04 = .FALSE. P_ddmass_asoa2_a04 = 1 ; F_ddmass_asoa2_a04 = .FALSE. P_ddmass_asoa3_a04 = 1 ; F_ddmass_asoa3_a04 = .FALSE. P_ddmass_asoa4_a04 = 1 ; F_ddmass_asoa4_a04 = .FALSE. P_ddmass_bsoax_a04 = 1 ; F_ddmass_bsoax_a04 = .FALSE. P_ddmass_bsoa1_a04 = 1 ; F_ddmass_bsoa1_a04 = .FALSE. P_ddmass_bsoa2_a04 = 1 ; F_ddmass_bsoa2_a04 = .FALSE. P_ddmass_bsoa3_a04 = 1 ; F_ddmass_bsoa3_a04 = .FALSE. P_ddmass_bsoa4_a04 = 1 ; F_ddmass_bsoa4_a04 = .FALSE. P_ddmass_ca_a01 = 1 ; F_ddmass_ca_a01 = .FALSE. P_ddmass_ca_a02 = 1 ; F_ddmass_ca_a02 = .FALSE. P_ddmass_ca_a03 = 1 ; F_ddmass_ca_a03 = .FALSE. P_ddmass_ca_a04 = 1 ; F_ddmass_ca_a04 = .FALSE. P_ddmass_co3_a01 = 1 ; F_ddmass_co3_a01 = .FALSE. P_ddmass_co3_a02 = 1 ; F_ddmass_co3_a02 = .FALSE. P_ddmass_co3_a03 = 1 ; F_ddmass_co3_a03 = .FALSE. P_ddmass_co3_a04 = 1 ; F_ddmass_co3_a04 = .FALSE. P_ddmass_so4_cw01 = 1 ; F_ddmass_so4_cw01 = .FALSE. P_ddmass_no3_cw01 = 1 ; F_ddmass_no3_cw01 = .FALSE. P_ddmass_cl_cw01 = 1 ; F_ddmass_cl_cw01 = .FALSE. P_ddmass_nh4_cw01 = 1 ; F_ddmass_nh4_cw01 = .FALSE. P_ddmass_na_cw01 = 1 ; F_ddmass_na_cw01 = .FALSE. P_ddmass_oin_cw01 = 1 ; F_ddmass_oin_cw01 = .FALSE. P_ddmass_oc_cw01 = 1 ; F_ddmass_oc_cw01 = .FALSE. P_ddmass_bc_cw01 = 1 ; F_ddmass_bc_cw01 = .FALSE. P_ddmass_smpa_cw01 = 1 ; F_ddmass_smpa_cw01 = .FALSE. P_ddmass_smpbb_cw01 = 1 ; F_ddmass_smpbb_cw01 = .FALSE. P_ddmass_glysoa_cw01 = 1 ; F_ddmass_glysoa_cw01 = .FALSE. P_ddmass_biog1_c_cw01 = 1 ; F_ddmass_biog1_c_cw01 = .FALSE. P_ddmass_biog1_o_cw01 = 1 ; F_ddmass_biog1_o_cw01 = .FALSE. P_ddmass_asoax_cw01 = 1 ; F_ddmass_asoax_cw01 = .FALSE. P_ddmass_asoa1_cw01 = 1 ; F_ddmass_asoa1_cw01 = .FALSE. P_ddmass_asoa2_cw01 = 1 ; F_ddmass_asoa2_cw01 = .FALSE. P_ddmass_asoa3_cw01 = 1 ; F_ddmass_asoa3_cw01 = .FALSE. P_ddmass_asoa4_cw01 = 1 ; F_ddmass_asoa4_cw01 = .FALSE. P_ddmass_bsoax_cw01 = 1 ; F_ddmass_bsoax_cw01 = .FALSE. P_ddmass_bsoa1_cw01 = 1 ; F_ddmass_bsoa1_cw01 = .FALSE. P_ddmass_bsoa2_cw01 = 1 ; F_ddmass_bsoa2_cw01 = .FALSE. P_ddmass_bsoa3_cw01 = 1 ; F_ddmass_bsoa3_cw01 = .FALSE. P_ddmass_bsoa4_cw01 = 1 ; F_ddmass_bsoa4_cw01 = .FALSE. P_ddmass_so4_cw02 = 1 ; F_ddmass_so4_cw02 = .FALSE. P_ddmass_no3_cw02 = 1 ; F_ddmass_no3_cw02 = .FALSE. P_ddmass_cl_cw02 = 1 ; F_ddmass_cl_cw02 = .FALSE. P_ddmass_nh4_cw02 = 1 ; F_ddmass_nh4_cw02 = .FALSE. P_ddmass_na_cw02 = 1 ; F_ddmass_na_cw02 = .FALSE. P_ddmass_oin_cw02 = 1 ; F_ddmass_oin_cw02 = .FALSE. P_ddmass_oc_cw02 = 1 ; F_ddmass_oc_cw02 = .FALSE. P_ddmass_bc_cw02 = 1 ; F_ddmass_bc_cw02 = .FALSE. P_ddmass_smpa_cw02 = 1 ; F_ddmass_smpa_cw02 = .FALSE. P_ddmass_smpbb_cw02 = 1 ; F_ddmass_smpbb_cw02 = .FALSE. P_ddmass_glysoa_cw02 = 1 ; F_ddmass_glysoa_cw02 = .FALSE. P_ddmass_biog1_c_cw02 = 1 ; F_ddmass_biog1_c_cw02 = .FALSE. P_ddmass_biog1_o_cw02 = 1 ; F_ddmass_biog1_o_cw02 = .FALSE. P_ddmass_asoax_cw02 = 1 ; F_ddmass_asoax_cw02 = .FALSE. P_ddmass_asoa1_cw02 = 1 ; F_ddmass_asoa1_cw02 = .FALSE. P_ddmass_asoa2_cw02 = 1 ; F_ddmass_asoa2_cw02 = .FALSE. P_ddmass_asoa3_cw02 = 1 ; F_ddmass_asoa3_cw02 = .FALSE. P_ddmass_asoa4_cw02 = 1 ; F_ddmass_asoa4_cw02 = .FALSE. P_ddmass_bsoax_cw02 = 1 ; F_ddmass_bsoax_cw02 = .FALSE. P_ddmass_bsoa1_cw02 = 1 ; F_ddmass_bsoa1_cw02 = .FALSE. P_ddmass_bsoa2_cw02 = 1 ; F_ddmass_bsoa2_cw02 = .FALSE. P_ddmass_bsoa3_cw02 = 1 ; F_ddmass_bsoa3_cw02 = .FALSE. P_ddmass_bsoa4_cw02 = 1 ; F_ddmass_bsoa4_cw02 = .FALSE. P_ddmass_so4_cw03 = 1 ; F_ddmass_so4_cw03 = .FALSE. P_ddmass_no3_cw03 = 1 ; F_ddmass_no3_cw03 = .FALSE. P_ddmass_cl_cw03 = 1 ; F_ddmass_cl_cw03 = .FALSE. P_ddmass_nh4_cw03 = 1 ; F_ddmass_nh4_cw03 = .FALSE. P_ddmass_na_cw03 = 1 ; F_ddmass_na_cw03 = .FALSE. P_ddmass_oin_cw03 = 1 ; F_ddmass_oin_cw03 = .FALSE. P_ddmass_oc_cw03 = 1 ; F_ddmass_oc_cw03 = .FALSE. P_ddmass_bc_cw03 = 1 ; F_ddmass_bc_cw03 = .FALSE. P_ddmass_smpa_cw03 = 1 ; F_ddmass_smpa_cw03 = .FALSE. P_ddmass_smpbb_cw03 = 1 ; F_ddmass_smpbb_cw03 = .FALSE. P_ddmass_glysoa_cw03 = 1 ; F_ddmass_glysoa_cw03 = .FALSE. P_ddmass_biog1_c_cw03 = 1 ; F_ddmass_biog1_c_cw03 = .FALSE. P_ddmass_biog1_o_cw03 = 1 ; F_ddmass_biog1_o_cw03 = .FALSE. P_ddmass_asoax_cw03 = 1 ; F_ddmass_asoax_cw03 = .FALSE. P_ddmass_asoa1_cw03 = 1 ; F_ddmass_asoa1_cw03 = .FALSE. P_ddmass_asoa2_cw03 = 1 ; F_ddmass_asoa2_cw03 = .FALSE. P_ddmass_asoa3_cw03 = 1 ; F_ddmass_asoa3_cw03 = .FALSE. P_ddmass_asoa4_cw03 = 1 ; F_ddmass_asoa4_cw03 = .FALSE. P_ddmass_bsoax_cw03 = 1 ; F_ddmass_bsoax_cw03 = .FALSE. P_ddmass_bsoa1_cw03 = 1 ; F_ddmass_bsoa1_cw03 = .FALSE. P_ddmass_bsoa2_cw03 = 1 ; F_ddmass_bsoa2_cw03 = .FALSE. P_ddmass_bsoa3_cw03 = 1 ; F_ddmass_bsoa3_cw03 = .FALSE. P_ddmass_bsoa4_cw03 = 1 ; F_ddmass_bsoa4_cw03 = .FALSE. P_ddmass_so4_cw04 = 1 ; F_ddmass_so4_cw04 = .FALSE. P_ddmass_no3_cw04 = 1 ; F_ddmass_no3_cw04 = .FALSE. P_ddmass_cl_cw04 = 1 ; F_ddmass_cl_cw04 = .FALSE. P_ddmass_nh4_cw04 = 1 ; F_ddmass_nh4_cw04 = .FALSE. P_ddmass_na_cw04 = 1 ; F_ddmass_na_cw04 = .FALSE. P_ddmass_oin_cw04 = 1 ; F_ddmass_oin_cw04 = .FALSE. P_ddmass_oc_cw04 = 1 ; F_ddmass_oc_cw04 = .FALSE. P_ddmass_bc_cw04 = 1 ; F_ddmass_bc_cw04 = .FALSE. P_ddmass_smpa_cw04 = 1 ; F_ddmass_smpa_cw04 = .FALSE. P_ddmass_smpbb_cw04 = 1 ; F_ddmass_smpbb_cw04 = .FALSE. P_ddmass_glysoa_cw04 = 1 ; F_ddmass_glysoa_cw04 = .FALSE. P_ddmass_biog1_c_cw04 = 1 ; F_ddmass_biog1_c_cw04 = .FALSE. P_ddmass_biog1_o_cw04 = 1 ; F_ddmass_biog1_o_cw04 = .FALSE. P_ddmass_asoax_cw04 = 1 ; F_ddmass_asoax_cw04 = .FALSE. P_ddmass_asoa1_cw04 = 1 ; F_ddmass_asoa1_cw04 = .FALSE. P_ddmass_asoa2_cw04 = 1 ; F_ddmass_asoa2_cw04 = .FALSE. P_ddmass_asoa3_cw04 = 1 ; F_ddmass_asoa3_cw04 = .FALSE. P_ddmass_asoa4_cw04 = 1 ; F_ddmass_asoa4_cw04 = .FALSE. P_ddmass_bsoax_cw04 = 1 ; F_ddmass_bsoax_cw04 = .FALSE. P_ddmass_bsoa1_cw04 = 1 ; F_ddmass_bsoa1_cw04 = .FALSE. P_ddmass_bsoa2_cw04 = 1 ; F_ddmass_bsoa2_cw04 = .FALSE. P_ddmass_bsoa3_cw04 = 1 ; F_ddmass_bsoa3_cw04 = .FALSE. P_ddmass_bsoa4_cw04 = 1 ; F_ddmass_bsoa4_cw04 = .FALSE. P_ddmass_ca_cw01 = 1 ; F_ddmass_ca_cw01 = .FALSE. P_ddmass_ca_cw02 = 1 ; F_ddmass_ca_cw02 = .FALSE. P_ddmass_ca_cw03 = 1 ; F_ddmass_ca_cw03 = .FALSE. P_ddmass_ca_cw04 = 1 ; F_ddmass_ca_cw04 = .FALSE. P_ddmass_co3_cw01 = 1 ; F_ddmass_co3_cw01 = .FALSE. P_ddmass_co3_cw02 = 1 ; F_ddmass_co3_cw02 = .FALSE. P_ddmass_co3_cw03 = 1 ; F_ddmass_co3_cw03 = .FALSE. P_ddmass_co3_cw04 = 1 ; F_ddmass_co3_cw04 = .FALSE. P_vegfra_vprm = 1 ; F_vegfra_vprm = .FALSE. P_evi = 1 ; F_evi = .FALSE. P_evi_min = 1 ; F_evi_min = .FALSE. P_evi_max = 1 ; F_evi_max = .FALSE. P_lswi = 1 ; F_lswi = .FALSE. P_lswi_max = 1 ; F_lswi_max = .FALSE. P_lswi_min = 1 ; F_lswi_min = .FALSE. P_cpool = 1 ; F_cpool = .FALSE. P_wetmap = 1 ; F_wetmap = .FALSE. P_t_ann = 1 ; F_t_ann = .FALSE. P_so2 = 1 ; F_so2 = .FALSE. P_sulf = 1 ; F_sulf = .FALSE. P_no2 = 1 ; F_no2 = .FALSE. P_no = 1 ; F_no = .FALSE. P_o3 = 1 ; F_o3 = .FALSE. P_hno3 = 1 ; F_hno3 = .FALSE. P_h2o2 = 1 ; F_h2o2 = .FALSE. P_ald = 1 ; F_ald = .FALSE. P_hcho = 1 ; F_hcho = .FALSE. P_op1 = 1 ; F_op1 = .FALSE. P_op2 = 1 ; F_op2 = .FALSE. P_paa = 1 ; F_paa = .FALSE. P_ora1 = 1 ; F_ora1 = .FALSE. P_ora2 = 1 ; F_ora2 = .FALSE. P_nh3 = 1 ; F_nh3 = .FALSE. P_n2o5 = 1 ; F_n2o5 = .FALSE. P_no3 = 1 ; F_no3 = .FALSE. P_pan = 1 ; F_pan = .FALSE. P_hc3 = 1 ; F_hc3 = .FALSE. P_hc5 = 1 ; F_hc5 = .FALSE. P_hc8 = 1 ; F_hc8 = .FALSE. P_eth = 1 ; F_eth = .FALSE. P_co = 1 ; F_co = .FALSE. P_ol2 = 1 ; F_ol2 = .FALSE. P_olt = 1 ; F_olt = .FALSE. P_oli = 1 ; F_oli = .FALSE. P_tol = 1 ; F_tol = .FALSE. P_xyl = 1 ; F_xyl = .FALSE. P_aco3 = 1 ; F_aco3 = .FALSE. P_tpan = 1 ; F_tpan = .FALSE. P_hono = 1 ; F_hono = .FALSE. P_hno4 = 1 ; F_hno4 = .FALSE. P_ket = 1 ; F_ket = .FALSE. P_gly = 1 ; F_gly = .FALSE. P_mgly = 1 ; F_mgly = .FALSE. P_dcb = 1 ; F_dcb = .FALSE. P_onit = 1 ; F_onit = .FALSE. P_csl = 1 ; F_csl = .FALSE. P_iso = 1 ; F_iso = .FALSE. P_hcl = 1 ; F_hcl = .FALSE. P_ho = 1 ; F_ho = .FALSE. P_ho2 = 1 ; F_ho2 = .FALSE. P_aro1 = 1 ; F_aro1 = .FALSE. P_aro2 = 1 ; F_aro2 = .FALSE. P_alk1 = 1 ; F_alk1 = .FALSE. P_ole1 = 1 ; F_ole1 = .FALSE. P_api1 = 1 ; F_api1 = .FALSE. P_api2 = 1 ; F_api2 = .FALSE. P_lim1 = 1 ; F_lim1 = .FALSE. P_lim2 = 1 ; F_lim2 = .FALSE. P_psd1 = 1 ; F_psd1 = .FALSE. P_psd2 = 1 ; F_psd2 = .FALSE. P_nume = 1 ; F_nume = .FALSE. P_den = 1 ; F_den = .FALSE. P_bgas = 1 ; F_bgas = .FALSE. P_agas = 1 ; F_agas = .FALSE. P_pcg1_b_c = 1 ; F_pcg1_b_c = .FALSE. P_pcg2_b_c = 1 ; F_pcg2_b_c = .FALSE. P_pcg3_b_c = 1 ; F_pcg3_b_c = .FALSE. P_pcg4_b_c = 1 ; F_pcg4_b_c = .FALSE. P_pcg5_b_c = 1 ; F_pcg5_b_c = .FALSE. P_pcg6_b_c = 1 ; F_pcg6_b_c = .FALSE. P_pcg7_b_c = 1 ; F_pcg7_b_c = .FALSE. P_pcg8_b_c = 1 ; F_pcg8_b_c = .FALSE. P_pcg9_b_c = 1 ; F_pcg9_b_c = .FALSE. P_pcg1_b_o = 1 ; F_pcg1_b_o = .FALSE. P_pcg2_b_o = 1 ; F_pcg2_b_o = .FALSE. P_pcg3_b_o = 1 ; F_pcg3_b_o = .FALSE. P_pcg4_b_o = 1 ; F_pcg4_b_o = .FALSE. P_pcg5_b_o = 1 ; F_pcg5_b_o = .FALSE. P_pcg6_b_o = 1 ; F_pcg6_b_o = .FALSE. P_pcg7_b_o = 1 ; F_pcg7_b_o = .FALSE. P_pcg8_b_o = 1 ; F_pcg8_b_o = .FALSE. P_pcg9_b_o = 1 ; F_pcg9_b_o = .FALSE. P_pcg1_f_c = 1 ; F_pcg1_f_c = .FALSE. P_pcg2_f_c = 1 ; F_pcg2_f_c = .FALSE. P_pcg3_f_c = 1 ; F_pcg3_f_c = .FALSE. P_pcg4_f_c = 1 ; F_pcg4_f_c = .FALSE. P_pcg5_f_c = 1 ; F_pcg5_f_c = .FALSE. P_pcg6_f_c = 1 ; F_pcg6_f_c = .FALSE. P_pcg7_f_c = 1 ; F_pcg7_f_c = .FALSE. P_pcg8_f_c = 1 ; F_pcg8_f_c = .FALSE. P_pcg9_f_c = 1 ; F_pcg9_f_c = .FALSE. P_pcg1_f_o = 1 ; F_pcg1_f_o = .FALSE. P_pcg2_f_o = 1 ; F_pcg2_f_o = .FALSE. P_pcg3_f_o = 1 ; F_pcg3_f_o = .FALSE. P_pcg4_f_o = 1 ; F_pcg4_f_o = .FALSE. P_pcg5_f_o = 1 ; F_pcg5_f_o = .FALSE. P_pcg6_f_o = 1 ; F_pcg6_f_o = .FALSE. P_pcg7_f_o = 1 ; F_pcg7_f_o = .FALSE. P_pcg8_f_o = 1 ; F_pcg8_f_o = .FALSE. P_pcg9_f_o = 1 ; F_pcg9_f_o = .FALSE. P_opcg1_b_c = 1 ; F_opcg1_b_c = .FALSE. P_opcg2_b_c = 1 ; F_opcg2_b_c = .FALSE. P_opcg3_b_c = 1 ; F_opcg3_b_c = .FALSE. P_opcg4_b_c = 1 ; F_opcg4_b_c = .FALSE. P_opcg5_b_c = 1 ; F_opcg5_b_c = .FALSE. P_opcg6_b_c = 1 ; F_opcg6_b_c = .FALSE. P_opcg7_b_c = 1 ; F_opcg7_b_c = .FALSE. P_opcg8_b_c = 1 ; F_opcg8_b_c = .FALSE. P_opcg1_b_o = 1 ; F_opcg1_b_o = .FALSE. P_opcg2_b_o = 1 ; F_opcg2_b_o = .FALSE. P_opcg3_b_o = 1 ; F_opcg3_b_o = .FALSE. P_opcg4_b_o = 1 ; F_opcg4_b_o = .FALSE. P_opcg5_b_o = 1 ; F_opcg5_b_o = .FALSE. P_opcg6_b_o = 1 ; F_opcg6_b_o = .FALSE. P_opcg7_b_o = 1 ; F_opcg7_b_o = .FALSE. P_opcg8_b_o = 1 ; F_opcg8_b_o = .FALSE. P_opcg1_f_c = 1 ; F_opcg1_f_c = .FALSE. P_opcg2_f_c = 1 ; F_opcg2_f_c = .FALSE. P_opcg3_f_c = 1 ; F_opcg3_f_c = .FALSE. P_opcg4_f_c = 1 ; F_opcg4_f_c = .FALSE. P_opcg5_f_c = 1 ; F_opcg5_f_c = .FALSE. P_opcg6_f_c = 1 ; F_opcg6_f_c = .FALSE. P_opcg7_f_c = 1 ; F_opcg7_f_c = .FALSE. P_opcg8_f_c = 1 ; F_opcg8_f_c = .FALSE. P_opcg1_f_o = 1 ; F_opcg1_f_o = .FALSE. P_opcg2_f_o = 1 ; F_opcg2_f_o = .FALSE. P_opcg3_f_o = 1 ; F_opcg3_f_o = .FALSE. P_opcg4_f_o = 1 ; F_opcg4_f_o = .FALSE. P_opcg5_f_o = 1 ; F_opcg5_f_o = .FALSE. P_opcg6_f_o = 1 ; F_opcg6_f_o = .FALSE. P_opcg7_f_o = 1 ; F_opcg7_f_o = .FALSE. P_opcg8_f_o = 1 ; F_opcg8_f_o = .FALSE. P_ant1_c = 1 ; F_ant1_c = .FALSE. P_ant2_c = 1 ; F_ant2_c = .FALSE. P_ant3_c = 1 ; F_ant3_c = .FALSE. P_ant4_c = 1 ; F_ant4_c = .FALSE. P_ant1_o = 1 ; F_ant1_o = .FALSE. P_ant2_o = 1 ; F_ant2_o = .FALSE. P_ant3_o = 1 ; F_ant3_o = .FALSE. P_ant4_o = 1 ; F_ant4_o = .FALSE. P_biog1_c = 1 ; F_biog1_c = .FALSE. P_biog2_c = 1 ; F_biog2_c = .FALSE. P_biog3_c = 1 ; F_biog3_c = .FALSE. P_biog4_c = 1 ; F_biog4_c = .FALSE. P_biog1_o = 1 ; F_biog1_o = .FALSE. P_biog2_o = 1 ; F_biog2_o = .FALSE. P_biog3_o = 1 ; F_biog3_o = .FALSE. P_biog4_o = 1 ; F_biog4_o = .FALSE. P_smpa = 1 ; F_smpa = .FALSE. P_smpbb = 1 ; F_smpbb = .FALSE. P_ete = 1 ; F_ete = .FALSE. P_co2 = 1 ; F_co2 = .FALSE. P_ch4 = 1 ; F_ch4 = .FALSE. P_udd = 1 ; F_udd = .FALSE. P_hket = 1 ; F_hket = .FALSE. P_api = 1 ; F_api = .FALSE. P_lim = 1 ; F_lim = .FALSE. P_dien = 1 ; F_dien = .FALSE. P_macr = 1 ; F_macr = .FALSE. P_mbo = 1 ; F_mbo = .FALSE. P_cvasoax = 1 ; F_cvasoax = .FALSE. P_cvasoa1 = 1 ; F_cvasoa1 = .FALSE. P_cvasoa2 = 1 ; F_cvasoa2 = .FALSE. P_cvasoa3 = 1 ; F_cvasoa3 = .FALSE. P_cvasoa4 = 1 ; F_cvasoa4 = .FALSE. P_cvbsoax = 1 ; F_cvbsoax = .FALSE. P_cvbsoa1 = 1 ; F_cvbsoa1 = .FALSE. P_cvbsoa2 = 1 ; F_cvbsoa2 = .FALSE. P_cvbsoa3 = 1 ; F_cvbsoa3 = .FALSE. P_cvbsoa4 = 1 ; F_cvbsoa4 = .FALSE. P_ch3o2 = 1 ; F_ch3o2 = .FALSE. P_ethp = 1 ; F_ethp = .FALSE. P_ch3oh = 1 ; F_ch3oh = .FALSE. P_c2h5oh = 1 ; F_c2h5oh = .FALSE. P_par = 1 ; F_par = .FALSE. P_to2 = 1 ; F_to2 = .FALSE. P_cro = 1 ; F_cro = .FALSE. P_open = 1 ; F_open = .FALSE. P_op3 = 1 ; F_op3 = .FALSE. P_c2o3 = 1 ; F_c2o3 = .FALSE. P_ro2 = 1 ; F_ro2 = .FALSE. P_ano2 = 1 ; F_ano2 = .FALSE. P_nap = 1 ; F_nap = .FALSE. P_xo2 = 1 ; F_xo2 = .FALSE. P_xpar = 1 ; F_xpar = .FALSE. P_isoprd = 1 ; F_isoprd = .FALSE. P_isopp = 1 ; F_isopp = .FALSE. P_isopn = 1 ; F_isopn = .FALSE. P_isopo2 = 1 ; F_isopo2 = .FALSE. P_dms = 1 ; F_dms = .FALSE. P_msa = 1 ; F_msa = .FALSE. P_dmso = 1 ; F_dmso = .FALSE. P_dmso2 = 1 ; F_dmso2 = .FALSE. P_ch3so2h = 1 ; F_ch3so2h = .FALSE. P_ch3sch2oo = 1 ; F_ch3sch2oo = .FALSE. P_ch3so2 = 1 ; F_ch3so2 = .FALSE. P_ch3so3 = 1 ; F_ch3so3 = .FALSE. P_ch3so2oo = 1 ; F_ch3so2oo = .FALSE. P_ch3so2ch2oo = 1 ; F_ch3so2ch2oo = .FALSE. P_mtf = 1 ; F_mtf = .FALSE. P_ald2 = 1 ; F_ald2 = .FALSE. P_ror = 1 ; F_ror = .FALSE. P_ole = 1 ; F_ole = .FALSE. P_cres = 1 ; F_cres = .FALSE. P_xo2n = 1 ; F_xo2n = .FALSE. P_pna = 1 ; F_pna = .FALSE. P_o = 1 ; F_o = .FALSE. P_o1d_cb4 = 1 ; F_o1d_cb4 = .FALSE. P_n2o = 1 ; F_n2o = .FALSE. P_ch3ooh = 1 ; F_ch3ooh = .FALSE. P_h2 = 1 ; F_h2 = .FALSE. P_so4 = 1 ; F_so4 = .FALSE. P_eo2 = 1 ; F_eo2 = .FALSE. P_mco3 = 1 ; F_mco3 = .FALSE. P_xooh = 1 ; F_xooh = .FALSE. P_onitr = 1 ; F_onitr = .FALSE. P_glyald = 1 ; F_glyald = .FALSE. P_alkooh = 1 ; F_alkooh = .FALSE. P_tolooh = 1 ; F_tolooh = .FALSE. P_terpooh = 1 ; F_terpooh = .FALSE. P_nh4 = 1 ; F_nh4 = .FALSE. P_eo = 1 ; F_eo = .FALSE. P_po2 = 1 ; F_po2 = .FALSE. P_bigene = 1 ; F_bigene = .FALSE. P_bigalk = 1 ; F_bigalk = .FALSE. P_eneo2 = 1 ; F_eneo2 = .FALSE. P_alko2 = 1 ; F_alko2 = .FALSE. P_hydrald = 1 ; F_hydrald = .FALSE. P_c10h16 = 1 ; F_c10h16 = .FALSE. P_terpo2 = 1 ; F_terpo2 = .FALSE. P_tolo2 = 1 ; F_tolo2 = .FALSE. P_xoh = 1 ; F_xoh = .FALSE. P_hoch2oo = 1 ; F_hoch2oo = .FALSE. P_bepomuc = 1 ; F_bepomuc = .FALSE. P_benzo2 = 1 ; F_benzo2 = .FALSE. P_pheno2 = 1 ; F_pheno2 = .FALSE. P_pheno = 1 ; F_pheno = .FALSE. P_phenooh = 1 ; F_phenooh = .FALSE. P_c6h5o2 = 1 ; F_c6h5o2 = .FALSE. P_c6h5ooh = 1 ; F_c6h5ooh = .FALSE. P_benzooh = 1 ; F_benzooh = .FALSE. P_bigald1 = 1 ; F_bigald1 = .FALSE. P_bigald2 = 1 ; F_bigald2 = .FALSE. P_bigald3 = 1 ; F_bigald3 = .FALSE. P_bigald4 = 1 ; F_bigald4 = .FALSE. P_malo2 = 1 ; F_malo2 = .FALSE. P_tepomuc = 1 ; F_tepomuc = .FALSE. P_bzoo = 1 ; F_bzoo = .FALSE. P_bzooh = 1 ; F_bzooh = .FALSE. P_acbzo2 = 1 ; F_acbzo2 = .FALSE. P_dicarbo2 = 1 ; F_dicarbo2 = .FALSE. P_mdialo2 = 1 ; F_mdialo2 = .FALSE. P_xylenes = 1 ; F_xylenes = .FALSE. P_xylol = 1 ; F_xylol = .FALSE. P_xylolo2 = 1 ; F_xylolo2 = .FALSE. P_xylolooh = 1 ; F_xylolooh = .FALSE. P_xyleno2 = 1 ; F_xyleno2 = .FALSE. P_xylenooh = 1 ; F_xylenooh = .FALSE. P_pbznit = 1 ; F_pbznit = .FALSE. P_mboo2 = 1 ; F_mboo2 = .FALSE. P_hmprop = 1 ; F_hmprop = .FALSE. P_hmpropo2 = 1 ; F_hmpropo2 = .FALSE. P_mboooh = 1 ; F_mboooh = .FALSE. P_mbono3o2 = 1 ; F_mbono3o2 = .FALSE. P_apin = 1 ; F_apin = .FALSE. P_bpin = 1 ; F_bpin = .FALSE. P_limon = 1 ; F_limon = .FALSE. P_myrc = 1 ; F_myrc = .FALSE. P_bcary = 1 ; F_bcary = .FALSE. P_terprod1 = 1 ; F_terprod1 = .FALSE. P_terprod2 = 1 ; F_terprod2 = .FALSE. P_terp2o2 = 1 ; F_terp2o2 = .FALSE. P_terp2ooh = 1 ; F_terp2ooh = .FALSE. P_nterpo2 = 1 ; F_nterpo2 = .FALSE. P_vash_1 = 1 ; F_vash_1 = .FALSE. P_vash_2 = 1 ; F_vash_2 = .FALSE. P_vash_3 = 1 ; F_vash_3 = .FALSE. P_vash_4 = 1 ; F_vash_4 = .FALSE. P_vash_5 = 1 ; F_vash_5 = .FALSE. P_vash_6 = 1 ; F_vash_6 = .FALSE. P_vash_7 = 1 ; F_vash_7 = .FALSE. P_vash_8 = 1 ; F_vash_8 = .FALSE. P_vash_9 = 1 ; F_vash_9 = .FALSE. P_vash_10 = 1 ; F_vash_10 = .FALSE. P_hso3 = 1 ; F_hso3 = .FALSE. P_so3 = 1 ; F_so3 = .FALSE. P_nc4h10 = 1 ; F_nc4h10 = .FALSE. P_benzene = 1 ; F_benzene = .FALSE. P_oxyl = 1 ; F_oxyl = .FALSE. P_npropol = 1 ; F_npropol = .FALSE. P_tbut2ene = 1 ; F_tbut2ene = .FALSE. P_c2h5cho = 1 ; F_c2h5cho = .FALSE. P_ch3co2h = 1 ; F_ch3co2h = .FALSE. P_ic3h7no3 = 1 ; F_ic3h7no3 = .FALSE. P_ipropol = 1 ; F_ipropol = .FALSE. P_ch3no3 = 1 ; F_ch3no3 = .FALSE. P_c2h5no3 = 1 ; F_c2h5no3 = .FALSE. P_hoc2h4no3 = 1 ; F_hoc2h4no3 = .FALSE. P_hoc2h4ooh = 1 ; F_hoc2h4ooh = .FALSE. P_carb14 = 1 ; F_carb14 = .FALSE. P_carb17 = 1 ; F_carb17 = .FALSE. P_rn10no3 = 1 ; F_rn10no3 = .FALSE. P_rn13no3 = 1 ; F_rn13no3 = .FALSE. P_rn19no3 = 1 ; F_rn19no3 = .FALSE. P_rn9no3 = 1 ; F_rn9no3 = .FALSE. P_rn12no3 = 1 ; F_rn12no3 = .FALSE. P_rn15no3 = 1 ; F_rn15no3 = .FALSE. P_rn18no3 = 1 ; F_rn18no3 = .FALSE. P_rn16no3 = 1 ; F_rn16no3 = .FALSE. P_rn10ooh = 1 ; F_rn10ooh = .FALSE. P_rn13ooh = 1 ; F_rn13ooh = .FALSE. P_rn16ooh = 1 ; F_rn16ooh = .FALSE. P_rn19ooh = 1 ; F_rn19ooh = .FALSE. P_rn8ooh = 1 ; F_rn8ooh = .FALSE. P_rn11ooh = 1 ; F_rn11ooh = .FALSE. P_rn14ooh = 1 ; F_rn14ooh = .FALSE. P_rn17ooh = 1 ; F_rn17ooh = .FALSE. P_rn9ooh = 1 ; F_rn9ooh = .FALSE. P_rn12ooh = 1 ; F_rn12ooh = .FALSE. P_rn15ooh = 1 ; F_rn15ooh = .FALSE. P_rn18ooh = 1 ; F_rn18ooh = .FALSE. P_nrn6ooh = 1 ; F_nrn6ooh = .FALSE. P_nrn9ooh = 1 ; F_nrn9ooh = .FALSE. P_nrn12ooh = 1 ; F_nrn12ooh = .FALSE. P_apinene = 1 ; F_apinene = .FALSE. P_bpinene = 1 ; F_bpinene = .FALSE. P_carb7 = 1 ; F_carb7 = .FALSE. P_carb10 = 1 ; F_carb10 = .FALSE. P_carb13 = 1 ; F_carb13 = .FALSE. P_carb16 = 1 ; F_carb16 = .FALSE. P_carb3 = 1 ; F_carb3 = .FALSE. P_carb6 = 1 ; F_carb6 = .FALSE. P_carb9 = 1 ; F_carb9 = .FALSE. P_carb12 = 1 ; F_carb12 = .FALSE. P_carb15 = 1 ; F_carb15 = .FALSE. P_c2h5co3h = 1 ; F_c2h5co3h = .FALSE. P_c2h5co3 = 1 ; F_c2h5co3 = .FALSE. P_ppn = 1 ; F_ppn = .FALSE. P_hoch2cho = 1 ; F_hoch2cho = .FALSE. P_hoch2co3 = 1 ; F_hoch2co3 = .FALSE. P_hoch2co3h = 1 ; F_hoch2co3h = .FALSE. P_phan = 1 ; F_phan = .FALSE. P_ccarb12 = 1 ; F_ccarb12 = .FALSE. P_ch3cl = 1 ; F_ch3cl = .FALSE. P_ch2cl2 = 1 ; F_ch2cl2 = .FALSE. P_chcl3 = 1 ; F_chcl3 = .FALSE. P_ch3ccl3 = 1 ; F_ch3ccl3 = .FALSE. P_cdicleth = 1 ; F_cdicleth = .FALSE. P_tdicleth = 1 ; F_tdicleth = .FALSE. P_tricleth = 1 ; F_tricleth = .FALSE. P_tce = 1 ; F_tce = .FALSE. P_ucarb12 = 1 ; F_ucarb12 = .FALSE. P_ucarb10 = 1 ; F_ucarb10 = .FALSE. P_ru14no3 = 1 ; F_ru14no3 = .FALSE. P_ru14ooh = 1 ; F_ru14ooh = .FALSE. P_ru12ooh = 1 ; F_ru12ooh = .FALSE. P_ru10ooh = 1 ; F_ru10ooh = .FALSE. P_ru12pan = 1 ; F_ru12pan = .FALSE. P_nucarb12 = 1 ; F_nucarb12 = .FALSE. P_nru14ooh = 1 ; F_nru14ooh = .FALSE. P_nru12ooh = 1 ; F_nru12ooh = .FALSE. P_noa = 1 ; F_noa = .FALSE. P_ra13no3 = 1 ; F_ra13no3 = .FALSE. P_ra13ooh = 1 ; F_ra13ooh = .FALSE. P_udcarb8 = 1 ; F_udcarb8 = .FALSE. P_aroh14 = 1 ; F_aroh14 = .FALSE. P_raroh14 = 1 ; F_raroh14 = .FALSE. P_arnoh14 = 1 ; F_arnoh14 = .FALSE. P_ra16no3 = 1 ; F_ra16no3 = .FALSE. P_ra16ooh = 1 ; F_ra16ooh = .FALSE. P_udcarb11 = 1 ; F_udcarb11 = .FALSE. P_aroh17 = 1 ; F_aroh17 = .FALSE. P_raroh17 = 1 ; F_raroh17 = .FALSE. P_arnoh17 = 1 ; F_arnoh17 = .FALSE. P_udcarb14 = 1 ; F_udcarb14 = .FALSE. P_ra19no3 = 1 ; F_ra19no3 = .FALSE. P_ra19ooh = 1 ; F_ra19ooh = .FALSE. P_rtn28no3 = 1 ; F_rtn28no3 = .FALSE. P_rtn28ooh = 1 ; F_rtn28ooh = .FALSE. P_tncarb26 = 1 ; F_tncarb26 = .FALSE. P_rtn26ooh = 1 ; F_rtn26ooh = .FALSE. P_nrtn28ooh = 1 ; F_nrtn28ooh = .FALSE. P_rtn26pan = 1 ; F_rtn26pan = .FALSE. P_rtn25ooh = 1 ; F_rtn25ooh = .FALSE. P_rtn24ooh = 1 ; F_rtn24ooh = .FALSE. P_rtn23ooh = 1 ; F_rtn23ooh = .FALSE. P_rtn14ooh = 1 ; F_rtn14ooh = .FALSE. P_rtn10ooh = 1 ; F_rtn10ooh = .FALSE. P_tncarb10 = 1 ; F_tncarb10 = .FALSE. P_rtn25no3 = 1 ; F_rtn25no3 = .FALSE. P_tncarb15 = 1 ; F_tncarb15 = .FALSE. P_rcooh25 = 1 ; F_rcooh25 = .FALSE. P_rtx28no3 = 1 ; F_rtx28no3 = .FALSE. P_rtx28ooh = 1 ; F_rtx28ooh = .FALSE. P_txcarb24 = 1 ; F_txcarb24 = .FALSE. P_rtx24no3 = 1 ; F_rtx24no3 = .FALSE. P_rtx24ooh = 1 ; F_rtx24ooh = .FALSE. P_txcarb22 = 1 ; F_txcarb22 = .FALSE. P_rtx22no3 = 1 ; F_rtx22no3 = .FALSE. P_rtx22ooh = 1 ; F_rtx22ooh = .FALSE. P_nrtx28ooh = 1 ; F_nrtx28ooh = .FALSE. P_carb11a = 1 ; F_carb11a = .FALSE. P_anhy = 1 ; F_anhy = .FALSE. P_ch3o2no2 = 1 ; F_ch3o2no2 = .FALSE. P_c2h5ooh = 1 ; F_c2h5ooh = .FALSE. P_ch3cho = 1 ; F_ch3cho = .FALSE. P_c5h8 = 1 ; F_c5h8 = .FALSE. P_toluene = 1 ; F_toluene = .FALSE. P_rtn23no3 = 1 ; F_rtn23no3 = .FALSE. P_tncarb12 = 1 ; F_tncarb12 = .FALSE. P_tncarb11 = 1 ; F_tncarb11 = .FALSE. P_tm123b = 1 ; F_tm123b = .FALSE. P_tm124b = 1 ; F_tm124b = .FALSE. P_tm135b = 1 ; F_tm135b = .FALSE. P_oethtol = 1 ; F_oethtol = .FALSE. P_methtol = 1 ; F_methtol = .FALSE. P_pethtol = 1 ; F_pethtol = .FALSE. P_ra22no3 = 1 ; F_ra22no3 = .FALSE. P_ra22ooh = 1 ; F_ra22ooh = .FALSE. P_dime35eb = 1 ; F_dime35eb = .FALSE. P_ra25no3 = 1 ; F_ra25no3 = .FALSE. P_udcarb17 = 1 ; F_udcarb17 = .FALSE. P_ra25ooh = 1 ; F_ra25ooh = .FALSE. P_ch3s = 1 ; F_ch3s = .FALSE. P_ch3so = 1 ; F_ch3so = .FALSE. P_msia = 1 ; F_msia = .FALSE. P_clno2 = 1 ; F_clno2 = .FALSE. P_ch3oo = 1 ; F_ch3oo = .FALSE. P_c2h5o2 = 1 ; F_c2h5o2 = .FALSE. P_hoch2ch2o2 = 1 ; F_hoch2ch2o2 = .FALSE. P_ic3h7o2 = 1 ; F_ic3h7o2 = .FALSE. P_rn10o2 = 1 ; F_rn10o2 = .FALSE. P_rn13o2 = 1 ; F_rn13o2 = .FALSE. P_rn16o2 = 1 ; F_rn16o2 = .FALSE. P_rn19o2 = 1 ; F_rn19o2 = .FALSE. P_rn9o2 = 1 ; F_rn9o2 = .FALSE. P_rn12o2 = 1 ; F_rn12o2 = .FALSE. P_rn15o2 = 1 ; F_rn15o2 = .FALSE. P_rn18o2 = 1 ; F_rn18o2 = .FALSE. P_nrn6o2 = 1 ; F_nrn6o2 = .FALSE. P_nrn9o2 = 1 ; F_nrn9o2 = .FALSE. P_nrn12o2 = 1 ; F_nrn12o2 = .FALSE. P_rn11o2 = 1 ; F_rn11o2 = .FALSE. P_rn14o2 = 1 ; F_rn14o2 = .FALSE. P_rn8o2 = 1 ; F_rn8o2 = .FALSE. P_rn17o2 = 1 ; F_rn17o2 = .FALSE. P_rn13ao2 = 1 ; F_rn13ao2 = .FALSE. P_rn16ao2 = 1 ; F_rn16ao2 = .FALSE. P_rn15ao2 = 1 ; F_rn15ao2 = .FALSE. P_rn18ao2 = 1 ; F_rn18ao2 = .FALSE. P_ru10o2 = 1 ; F_ru10o2 = .FALSE. P_nru14o2 = 1 ; F_nru14o2 = .FALSE. P_nru12o2 = 1 ; F_nru12o2 = .FALSE. P_ra13o2 = 1 ; F_ra13o2 = .FALSE. P_nrtx28o2 = 1 ; F_nrtx28o2 = .FALSE. P_rtx24o2 = 1 ; F_rtx24o2 = .FALSE. P_rtx28o2 = 1 ; F_rtx28o2 = .FALSE. P_rtn25o2 = 1 ; F_rtn25o2 = .FALSE. P_rtn24o2 = 1 ; F_rtn24o2 = .FALSE. P_rtn23o2 = 1 ; F_rtn23o2 = .FALSE. P_rtn14o2 = 1 ; F_rtn14o2 = .FALSE. P_rtn10o2 = 1 ; F_rtn10o2 = .FALSE. P_nrtn28o2 = 1 ; F_nrtn28o2 = .FALSE. P_rtn26o2 = 1 ; F_rtn26o2 = .FALSE. P_rtn28o2 = 1 ; F_rtn28o2 = .FALSE. P_ra19ao2 = 1 ; F_ra19ao2 = .FALSE. P_ru14o2 = 1 ; F_ru14o2 = .FALSE. P_ru12o2 = 1 ; F_ru12o2 = .FALSE. P_ra16o2 = 1 ; F_ra16o2 = .FALSE. P_rtx22o2 = 1 ; F_rtx22o2 = .FALSE. P_ra22ao2 = 1 ; F_ra22ao2 = .FALSE. P_ra22bo2 = 1 ; F_ra22bo2 = .FALSE. P_ra25o2 = 1 ; F_ra25o2 = .FALSE. P_ra19co2 = 1 ; F_ra19co2 = .FALSE. P_tracer_1 = 1 ; F_tracer_1 = .FALSE. P_tracer_2 = 1 ; F_tracer_2 = .FALSE. P_tracer_3 = 1 ; F_tracer_3 = .FALSE. P_tracer_4 = 1 ; F_tracer_4 = .FALSE. P_tracer_5 = 1 ; F_tracer_5 = .FALSE. P_tracer_6 = 1 ; F_tracer_6 = .FALSE. P_tracer_7 = 1 ; F_tracer_7 = .FALSE. P_tracer_8 = 1 ; F_tracer_8 = .FALSE. P_tracer_9 = 1 ; F_tracer_9 = .FALSE. P_tracer_10 = 1 ; F_tracer_10 = .FALSE. P_tracer_11 = 1 ; F_tracer_11 = .FALSE. P_tracer_12 = 1 ; F_tracer_12 = .FALSE. P_tracer_13 = 1 ; F_tracer_13 = .FALSE. P_tracer_14 = 1 ; F_tracer_14 = .FALSE. P_tracer_15 = 1 ; F_tracer_15 = .FALSE. P_tracer_16 = 1 ; F_tracer_16 = .FALSE. P_tracer_17 = 1 ; F_tracer_17 = .FALSE. P_tracer_18 = 1 ; F_tracer_18 = .FALSE. P_tracer_19 = 1 ; F_tracer_19 = .FALSE. P_tracer_20 = 1 ; F_tracer_20 = .FALSE. P_tracer_ens = 1 ; F_tracer_ens = .FALSE. P_co2_bio = 1 ; F_co2_bio = .FALSE. P_co2_ant = 1 ; F_co2_ant = .FALSE. P_co2_oce = 1 ; F_co2_oce = .FALSE. P_co2_bck = 1 ; F_co2_bck = .FALSE. P_co2_bbu = 1 ; F_co2_bbu = .FALSE. P_co2_tst = 1 ; F_co2_tst = .FALSE. P_co_bck = 1 ; F_co_bck = .FALSE. P_co_ant = 1 ; F_co_ant = .FALSE. P_co_bbu = 1 ; F_co_bbu = .FALSE. P_co_tst = 1 ; F_co_tst = .FALSE. P_ch4_bio = 1 ; F_ch4_bio = .FALSE. P_ch4_ant = 1 ; F_ch4_ant = .FALSE. P_ch4_bbu = 1 ; F_ch4_bbu = .FALSE. P_ch4_bck = 1 ; F_ch4_bck = .FALSE. P_ch4_tst = 1 ; F_ch4_tst = .FALSE. P_h2so4 = 1 ; F_h2so4 = .FALSE. P_ccho = 1 ; F_ccho = .FALSE. P_rcho = 1 ; F_rcho = .FALSE. P_etoh = 1 ; F_etoh = .FALSE. P_cco_oh = 1 ; F_cco_oh = .FALSE. P_rco_oh = 1 ; F_rco_oh = .FALSE. P_bacl = 1 ; F_bacl = .FALSE. P_bald = 1 ; F_bald = .FALSE. P_isoprod = 1 ; F_isoprod = .FALSE. P_methacro = 1 ; F_methacro = .FALSE. P_prod2 = 1 ; F_prod2 = .FALSE. P_dcb1 = 1 ; F_dcb1 = .FALSE. P_dcb2 = 1 ; F_dcb2 = .FALSE. P_dcb3 = 1 ; F_dcb3 = .FALSE. P_ethene = 1 ; F_ethene = .FALSE. P_isoprene = 1 ; F_isoprene = .FALSE. P_c2h2 = 1 ; F_c2h2 = .FALSE. P_alk3 = 1 ; F_alk3 = .FALSE. P_alk4 = 1 ; F_alk4 = .FALSE. P_alk5 = 1 ; F_alk5 = .FALSE. P_ole2 = 1 ; F_ole2 = .FALSE. P_terp = 1 ; F_terp = .FALSE. P_sesq = 1 ; F_sesq = .FALSE. P_rno3 = 1 ; F_rno3 = .FALSE. P_nphe = 1 ; F_nphe = .FALSE. P_phen = 1 ; F_phen = .FALSE. P_pan2 = 1 ; F_pan2 = .FALSE. P_pbzn = 1 ; F_pbzn = .FALSE. P_ma_pan = 1 ; F_ma_pan = .FALSE. P_bc_spr = 1 ; F_bc_spr = .FALSE. P_oc_spr = 1 ; F_oc_spr = .FALSE. P_ssf = 1 ; F_ssf = .FALSE. P_ssc = 1 ; F_ssc = .FALSE. P_pm10_spr = 1 ; F_pm10_spr = .FALSE. P_pm25_spr = 1 ; F_pm25_spr = .FALSE. P_dst1 = 1 ; F_dst1 = .FALSE. P_dst2 = 1 ; F_dst2 = .FALSE. P_dst3 = 1 ; F_dst3 = .FALSE. P_cco_ooh = 1 ; F_cco_ooh = .FALSE. P_rco_o2 = 1 ; F_rco_o2 = .FALSE. P_rco_ooh = 1 ; F_rco_ooh = .FALSE. P_xn = 1 ; F_xn = .FALSE. P_xc = 1 ; F_xc = .FALSE. P_c_o2 = 1 ; F_c_o2 = .FALSE. P_cooh = 1 ; F_cooh = .FALSE. P_rooh = 1 ; F_rooh = .FALSE. P_ro2_r = 1 ; F_ro2_r = .FALSE. P_r2o2 = 1 ; F_r2o2 = .FALSE. P_ro2_n = 1 ; F_ro2_n = .FALSE. P_cco_o2 = 1 ; F_cco_o2 = .FALSE. P_bzco_o2 = 1 ; F_bzco_o2 = .FALSE. P_ma_rco3 = 1 ; F_ma_rco3 = .FALSE. P_voca = 1 ; F_voca = .FALSE. P_vocbb = 1 ; F_vocbb = .FALSE. P_o1d = 1 ; F_o1d = .FALSE. P_oh = 1 ; F_oh = .FALSE. P_ntr = 1 ; F_ntr = .FALSE. P_form = 1 ; F_form = .FALSE. P_aldx = 1 ; F_aldx = .FALSE. P_mepx = 1 ; F_mepx = .FALSE. P_hco3 = 1 ; F_hco3 = .FALSE. P_facd = 1 ; F_facd = .FALSE. P_pacd = 1 ; F_pacd = .FALSE. P_aacd = 1 ; F_aacd = .FALSE. P_cxo3 = 1 ; F_cxo3 = .FALSE. P_panx = 1 ; F_panx = .FALSE. P_iole = 1 ; F_iole = .FALSE. P_tolaer1 = 1 ; F_tolaer1 = .FALSE. P_tolaer2 = 1 ; F_tolaer2 = .FALSE. P_cslaer = 1 ; F_cslaer = .FALSE. P_xylaer1 = 1 ; F_xylaer1 = .FALSE. P_xylaer2 = 1 ; F_xylaer2 = .FALSE. P_isop = 1 ; F_isop = .FALSE. P_ispd = 1 ; F_ispd = .FALSE. P_isoaer1 = 1 ; F_isoaer1 = .FALSE. P_isoaer2 = 1 ; F_isoaer2 = .FALSE. P_sulaer = 1 ; F_sulaer = .FALSE. P_etha = 1 ; F_etha = .FALSE. P_terpaer = 1 ; F_terpaer = .FALSE. P_hum = 1 ; F_hum = .FALSE. P_humaer = 1 ; F_humaer = .FALSE. P_limaer1 = 1 ; F_limaer1 = .FALSE. P_limaer2 = 1 ; F_limaer2 = .FALSE. P_oci = 1 ; F_oci = .FALSE. P_ociaer1 = 1 ; F_ociaer1 = .FALSE. P_ociaer2 = 1 ; F_ociaer2 = .FALSE. P_apinaer1 = 1 ; F_apinaer1 = .FALSE. P_apinaer2 = 1 ; F_apinaer2 = .FALSE. P_apinaer3 = 1 ; F_apinaer3 = .FALSE. P_apinaer4 = 1 ; F_apinaer4 = .FALSE. P_bpinaer1 = 1 ; F_bpinaer1 = .FALSE. P_bpinaer2 = 1 ; F_bpinaer2 = .FALSE. P_bpinaer3 = 1 ; F_bpinaer3 = .FALSE. P_bpinaer4 = 1 ; F_bpinaer4 = .FALSE. P_bpinaer5 = 1 ; F_bpinaer5 = .FALSE. P_ter = 1 ; F_ter = .FALSE. P_teraer1 = 1 ; F_teraer1 = .FALSE. P_teraer2 = 1 ; F_teraer2 = .FALSE. P_alkh = 1 ; F_alkh = .FALSE. P_alkhaer1 = 1 ; F_alkhaer1 = .FALSE. P_pah = 1 ; F_pah = .FALSE. P_pahaer1 = 1 ; F_pahaer1 = .FALSE. P_pahaer2 = 1 ; F_pahaer2 = .FALSE. P_hg0 = 1 ; F_hg0 = .FALSE. P_hg2 = 1 ; F_hg2 = .FALSE. P_fmcl = 1 ; F_fmcl = .FALSE. P_cl = 1 ; F_cl = .FALSE. P_cl2 = 1 ; F_cl2 = .FALSE. P_hocl = 1 ; F_hocl = .FALSE. P_clo = 1 ; F_clo = .FALSE. P_pm_25 = 1 ; F_pm_25 = .FALSE. P_pm_10 = 1 ; F_pm_10 = .FALSE. P_so4aj = 1 ; F_so4aj = .FALSE. P_so4ai = 1 ; F_so4ai = .FALSE. P_nh4aj = 1 ; F_nh4aj = .FALSE. P_nh4ai = 1 ; F_nh4ai = .FALSE. P_no3aj = 1 ; F_no3aj = .FALSE. P_no3ai = 1 ; F_no3ai = .FALSE. P_naaj = 1 ; F_naaj = .FALSE. P_naai = 1 ; F_naai = .FALSE. P_claj = 1 ; F_claj = .FALSE. P_clai = 1 ; F_clai = .FALSE. P_orgaro1j = 1 ; F_orgaro1j = .FALSE. P_orgaro1i = 1 ; F_orgaro1i = .FALSE. P_orgaro2j = 1 ; F_orgaro2j = .FALSE. P_orgaro2i = 1 ; F_orgaro2i = .FALSE. P_orgalk1j = 1 ; F_orgalk1j = .FALSE. P_orgalk1i = 1 ; F_orgalk1i = .FALSE. P_orgole1j = 1 ; F_orgole1j = .FALSE. P_orgole1i = 1 ; F_orgole1i = .FALSE. P_orgba1j = 1 ; F_orgba1j = .FALSE. P_orgba1i = 1 ; F_orgba1i = .FALSE. P_orgba2j = 1 ; F_orgba2j = .FALSE. P_orgba2i = 1 ; F_orgba2i = .FALSE. P_orgba3j = 1 ; F_orgba3j = .FALSE. P_orgba3i = 1 ; F_orgba3i = .FALSE. P_orgba4j = 1 ; F_orgba4j = .FALSE. P_orgba4i = 1 ; F_orgba4i = .FALSE. P_orgpaj = 1 ; F_orgpaj = .FALSE. P_orgpai = 1 ; F_orgpai = .FALSE. P_ecj = 1 ; F_ecj = .FALSE. P_eci = 1 ; F_eci = .FALSE. P_p25j = 1 ; F_p25j = .FALSE. P_p25i = 1 ; F_p25i = .FALSE. P_antha = 1 ; F_antha = .FALSE. P_seas = 1 ; F_seas = .FALSE. P_soila = 1 ; F_soila = .FALSE. P_nu0 = 1 ; F_nu0 = .FALSE. P_ac0 = 1 ; F_ac0 = .FALSE. P_corn = 1 ; F_corn = .FALSE. P_asoa1j = 1 ; F_asoa1j = .FALSE. P_asoa1i = 1 ; F_asoa1i = .FALSE. P_asoa2j = 1 ; F_asoa2j = .FALSE. P_asoa2i = 1 ; F_asoa2i = .FALSE. P_asoa3j = 1 ; F_asoa3j = .FALSE. P_asoa3i = 1 ; F_asoa3i = .FALSE. P_asoa4j = 1 ; F_asoa4j = .FALSE. P_asoa4i = 1 ; F_asoa4i = .FALSE. P_bsoa1j = 1 ; F_bsoa1j = .FALSE. P_bsoa1i = 1 ; F_bsoa1i = .FALSE. P_bsoa2j = 1 ; F_bsoa2j = .FALSE. P_bsoa2i = 1 ; F_bsoa2i = .FALSE. P_bsoa3j = 1 ; F_bsoa3j = .FALSE. P_bsoa3i = 1 ; F_bsoa3i = .FALSE. P_bsoa4j = 1 ; F_bsoa4j = .FALSE. P_bsoa4i = 1 ; F_bsoa4i = .FALSE. P_so4cwj = 1 ; F_so4cwj = .FALSE. P_so4cwi = 1 ; F_so4cwi = .FALSE. P_nh4cwj = 1 ; F_nh4cwj = .FALSE. P_nh4cwi = 1 ; F_nh4cwi = .FALSE. P_no3cwj = 1 ; F_no3cwj = .FALSE. P_no3cwi = 1 ; F_no3cwi = .FALSE. P_nacwj = 1 ; F_nacwj = .FALSE. P_nacwi = 1 ; F_nacwi = .FALSE. P_clcwj = 1 ; F_clcwj = .FALSE. P_clcwi = 1 ; F_clcwi = .FALSE. P_orgaro1cwj = 1 ; F_orgaro1cwj = .FALSE. P_orgaro1cwi = 1 ; F_orgaro1cwi = .FALSE. P_orgaro2cwj = 1 ; F_orgaro2cwj = .FALSE. P_orgaro2cwi = 1 ; F_orgaro2cwi = .FALSE. P_orgalk1cwj = 1 ; F_orgalk1cwj = .FALSE. P_orgalk1cwi = 1 ; F_orgalk1cwi = .FALSE. P_orgole1cwj = 1 ; F_orgole1cwj = .FALSE. P_orgole1cwi = 1 ; F_orgole1cwi = .FALSE. P_orgba1cwj = 1 ; F_orgba1cwj = .FALSE. P_orgba1cwi = 1 ; F_orgba1cwi = .FALSE. P_orgba2cwj = 1 ; F_orgba2cwj = .FALSE. P_orgba2cwi = 1 ; F_orgba2cwi = .FALSE. P_orgba3cwj = 1 ; F_orgba3cwj = .FALSE. P_orgba3cwi = 1 ; F_orgba3cwi = .FALSE. P_orgba4cwj = 1 ; F_orgba4cwj = .FALSE. P_orgba4cwi = 1 ; F_orgba4cwi = .FALSE. P_orgpacwj = 1 ; F_orgpacwj = .FALSE. P_orgpacwi = 1 ; F_orgpacwi = .FALSE. P_eccwj = 1 ; F_eccwj = .FALSE. P_eccwi = 1 ; F_eccwi = .FALSE. P_p25cwj = 1 ; F_p25cwj = .FALSE. P_p25cwi = 1 ; F_p25cwi = .FALSE. P_anthcw = 1 ; F_anthcw = .FALSE. P_seascw = 1 ; F_seascw = .FALSE. P_soilcw = 1 ; F_soilcw = .FALSE. P_nu0cw = 1 ; F_nu0cw = .FALSE. P_ac0cw = 1 ; F_ac0cw = .FALSE. P_corncw = 1 ; F_corncw = .FALSE. P_asoa1cwj = 1 ; F_asoa1cwj = .FALSE. P_asoa1cwi = 1 ; F_asoa1cwi = .FALSE. P_asoa2cwj = 1 ; F_asoa2cwj = .FALSE. P_asoa2cwi = 1 ; F_asoa2cwi = .FALSE. P_asoa3cwj = 1 ; F_asoa3cwj = .FALSE. P_asoa3cwi = 1 ; F_asoa3cwi = .FALSE. P_asoa4cwj = 1 ; F_asoa4cwj = .FALSE. P_asoa4cwi = 1 ; F_asoa4cwi = .FALSE. P_bsoa1cwj = 1 ; F_bsoa1cwj = .FALSE. P_bsoa1cwi = 1 ; F_bsoa1cwi = .FALSE. P_bsoa2cwj = 1 ; F_bsoa2cwj = .FALSE. P_bsoa2cwi = 1 ; F_bsoa2cwi = .FALSE. P_bsoa3cwj = 1 ; F_bsoa3cwj = .FALSE. P_bsoa3cwi = 1 ; F_bsoa3cwi = .FALSE. P_bsoa4cwj = 1 ; F_bsoa4cwj = .FALSE. P_bsoa4cwi = 1 ; F_bsoa4cwi = .FALSE. P_hace = 1 ; F_hace = .FALSE. P_ishp = 1 ; F_ishp = .FALSE. P_ison = 1 ; F_ison = .FALSE. P_mahp = 1 ; F_mahp = .FALSE. P_mpan = 1 ; F_mpan = .FALSE. P_nald = 1 ; F_nald = .FALSE. P_so4_a01 = 1 ; F_so4_a01 = .FALSE. P_no3_a01 = 1 ; F_no3_a01 = .FALSE. P_aro1_a01 = 1 ; F_aro1_a01 = .FALSE. P_aro2_a01 = 1 ; F_aro2_a01 = .FALSE. P_alk1_a01 = 1 ; F_alk1_a01 = .FALSE. P_ole1_a01 = 1 ; F_ole1_a01 = .FALSE. P_api1_a01 = 1 ; F_api1_a01 = .FALSE. P_api2_a01 = 1 ; F_api2_a01 = .FALSE. P_lim1_a01 = 1 ; F_lim1_a01 = .FALSE. P_lim2_a01 = 1 ; F_lim2_a01 = .FALSE. P_pcg1_b_c_a01 = 1 ; F_pcg1_b_c_a01 = .FALSE. P_pcg2_b_c_a01 = 1 ; F_pcg2_b_c_a01 = .FALSE. P_pcg3_b_c_a01 = 1 ; F_pcg3_b_c_a01 = .FALSE. P_pcg4_b_c_a01 = 1 ; F_pcg4_b_c_a01 = .FALSE. P_pcg5_b_c_a01 = 1 ; F_pcg5_b_c_a01 = .FALSE. P_pcg6_b_c_a01 = 1 ; F_pcg6_b_c_a01 = .FALSE. P_pcg7_b_c_a01 = 1 ; F_pcg7_b_c_a01 = .FALSE. P_pcg8_b_c_a01 = 1 ; F_pcg8_b_c_a01 = .FALSE. P_pcg9_b_c_a01 = 1 ; F_pcg9_b_c_a01 = .FALSE. P_pcg1_b_o_a01 = 1 ; F_pcg1_b_o_a01 = .FALSE. P_pcg2_b_o_a01 = 1 ; F_pcg2_b_o_a01 = .FALSE. P_pcg3_b_o_a01 = 1 ; F_pcg3_b_o_a01 = .FALSE. P_pcg4_b_o_a01 = 1 ; F_pcg4_b_o_a01 = .FALSE. P_pcg5_b_o_a01 = 1 ; F_pcg5_b_o_a01 = .FALSE. P_pcg6_b_o_a01 = 1 ; F_pcg6_b_o_a01 = .FALSE. P_pcg7_b_o_a01 = 1 ; F_pcg7_b_o_a01 = .FALSE. P_pcg8_b_o_a01 = 1 ; F_pcg8_b_o_a01 = .FALSE. P_pcg9_b_o_a01 = 1 ; F_pcg9_b_o_a01 = .FALSE. P_pcg1_f_c_a01 = 1 ; F_pcg1_f_c_a01 = .FALSE. P_pcg2_f_c_a01 = 1 ; F_pcg2_f_c_a01 = .FALSE. P_pcg3_f_c_a01 = 1 ; F_pcg3_f_c_a01 = .FALSE. P_pcg4_f_c_a01 = 1 ; F_pcg4_f_c_a01 = .FALSE. P_pcg5_f_c_a01 = 1 ; F_pcg5_f_c_a01 = .FALSE. P_pcg6_f_c_a01 = 1 ; F_pcg6_f_c_a01 = .FALSE. P_pcg7_f_c_a01 = 1 ; F_pcg7_f_c_a01 = .FALSE. P_pcg8_f_c_a01 = 1 ; F_pcg8_f_c_a01 = .FALSE. P_pcg9_f_c_a01 = 1 ; F_pcg9_f_c_a01 = .FALSE. P_pcg1_f_o_a01 = 1 ; F_pcg1_f_o_a01 = .FALSE. P_pcg2_f_o_a01 = 1 ; F_pcg2_f_o_a01 = .FALSE. P_pcg3_f_o_a01 = 1 ; F_pcg3_f_o_a01 = .FALSE. P_pcg4_f_o_a01 = 1 ; F_pcg4_f_o_a01 = .FALSE. P_pcg5_f_o_a01 = 1 ; F_pcg5_f_o_a01 = .FALSE. P_pcg6_f_o_a01 = 1 ; F_pcg6_f_o_a01 = .FALSE. P_pcg7_f_o_a01 = 1 ; F_pcg7_f_o_a01 = .FALSE. P_pcg8_f_o_a01 = 1 ; F_pcg8_f_o_a01 = .FALSE. P_pcg9_f_o_a01 = 1 ; F_pcg9_f_o_a01 = .FALSE. P_opcg1_b_c_a01 = 1 ; F_opcg1_b_c_a01 = .FALSE. P_opcg2_b_c_a01 = 1 ; F_opcg2_b_c_a01 = .FALSE. P_opcg3_b_c_a01 = 1 ; F_opcg3_b_c_a01 = .FALSE. P_opcg4_b_c_a01 = 1 ; F_opcg4_b_c_a01 = .FALSE. P_opcg5_b_c_a01 = 1 ; F_opcg5_b_c_a01 = .FALSE. P_opcg6_b_c_a01 = 1 ; F_opcg6_b_c_a01 = .FALSE. P_opcg7_b_c_a01 = 1 ; F_opcg7_b_c_a01 = .FALSE. P_opcg8_b_c_a01 = 1 ; F_opcg8_b_c_a01 = .FALSE. P_opcg1_b_o_a01 = 1 ; F_opcg1_b_o_a01 = .FALSE. P_opcg2_b_o_a01 = 1 ; F_opcg2_b_o_a01 = .FALSE. P_opcg3_b_o_a01 = 1 ; F_opcg3_b_o_a01 = .FALSE. P_opcg4_b_o_a01 = 1 ; F_opcg4_b_o_a01 = .FALSE. P_opcg5_b_o_a01 = 1 ; F_opcg5_b_o_a01 = .FALSE. P_opcg6_b_o_a01 = 1 ; F_opcg6_b_o_a01 = .FALSE. P_opcg7_b_o_a01 = 1 ; F_opcg7_b_o_a01 = .FALSE. P_opcg8_b_o_a01 = 1 ; F_opcg8_b_o_a01 = .FALSE. P_opcg1_f_c_a01 = 1 ; F_opcg1_f_c_a01 = .FALSE. P_opcg2_f_c_a01 = 1 ; F_opcg2_f_c_a01 = .FALSE. P_opcg3_f_c_a01 = 1 ; F_opcg3_f_c_a01 = .FALSE. P_opcg4_f_c_a01 = 1 ; F_opcg4_f_c_a01 = .FALSE. P_opcg5_f_c_a01 = 1 ; F_opcg5_f_c_a01 = .FALSE. P_opcg6_f_c_a01 = 1 ; F_opcg6_f_c_a01 = .FALSE. P_opcg7_f_c_a01 = 1 ; F_opcg7_f_c_a01 = .FALSE. P_opcg8_f_c_a01 = 1 ; F_opcg8_f_c_a01 = .FALSE. P_opcg1_f_o_a01 = 1 ; F_opcg1_f_o_a01 = .FALSE. P_opcg2_f_o_a01 = 1 ; F_opcg2_f_o_a01 = .FALSE. P_opcg3_f_o_a01 = 1 ; F_opcg3_f_o_a01 = .FALSE. P_opcg4_f_o_a01 = 1 ; F_opcg4_f_o_a01 = .FALSE. P_opcg5_f_o_a01 = 1 ; F_opcg5_f_o_a01 = .FALSE. P_opcg6_f_o_a01 = 1 ; F_opcg6_f_o_a01 = .FALSE. P_opcg7_f_o_a01 = 1 ; F_opcg7_f_o_a01 = .FALSE. P_opcg8_f_o_a01 = 1 ; F_opcg8_f_o_a01 = .FALSE. P_smpa_a01 = 1 ; F_smpa_a01 = .FALSE. P_smpbb_a01 = 1 ; F_smpbb_a01 = .FALSE. P_ant1_c_a01 = 1 ; F_ant1_c_a01 = .FALSE. P_ant2_c_a01 = 1 ; F_ant2_c_a01 = .FALSE. P_ant3_c_a01 = 1 ; F_ant3_c_a01 = .FALSE. P_ant4_c_a01 = 1 ; F_ant4_c_a01 = .FALSE. P_ant1_o_a01 = 1 ; F_ant1_o_a01 = .FALSE. P_ant2_o_a01 = 1 ; F_ant2_o_a01 = .FALSE. P_ant3_o_a01 = 1 ; F_ant3_o_a01 = .FALSE. P_ant4_o_a01 = 1 ; F_ant4_o_a01 = .FALSE. P_biog1_c_a01 = 1 ; F_biog1_c_a01 = .FALSE. P_biog2_c_a01 = 1 ; F_biog2_c_a01 = .FALSE. P_biog3_c_a01 = 1 ; F_biog3_c_a01 = .FALSE. P_biog4_c_a01 = 1 ; F_biog4_c_a01 = .FALSE. P_biog1_o_a01 = 1 ; F_biog1_o_a01 = .FALSE. P_biog2_o_a01 = 1 ; F_biog2_o_a01 = .FALSE. P_biog3_o_a01 = 1 ; F_biog3_o_a01 = .FALSE. P_biog4_o_a01 = 1 ; F_biog4_o_a01 = .FALSE. P_asoax_a01 = 1 ; F_asoax_a01 = .FALSE. P_asoa1_a01 = 1 ; F_asoa1_a01 = .FALSE. P_asoa2_a01 = 1 ; F_asoa2_a01 = .FALSE. P_asoa3_a01 = 1 ; F_asoa3_a01 = .FALSE. P_asoa4_a01 = 1 ; F_asoa4_a01 = .FALSE. P_bsoax_a01 = 1 ; F_bsoax_a01 = .FALSE. P_bsoa1_a01 = 1 ; F_bsoa1_a01 = .FALSE. P_bsoa2_a01 = 1 ; F_bsoa2_a01 = .FALSE. P_bsoa3_a01 = 1 ; F_bsoa3_a01 = .FALSE. P_bsoa4_a01 = 1 ; F_bsoa4_a01 = .FALSE. P_glysoa_r1_a01 = 1 ; F_glysoa_r1_a01 = .FALSE. P_glysoa_r2_a01 = 1 ; F_glysoa_r2_a01 = .FALSE. P_glysoa_sfc_a01 = 1 ; F_glysoa_sfc_a01 = .FALSE. P_glysoa_nh4_a01 = 1 ; F_glysoa_nh4_a01 = .FALSE. P_glysoa_oh_a01 = 1 ; F_glysoa_oh_a01 = .FALSE. P_cl_a01 = 1 ; F_cl_a01 = .FALSE. P_msa_a01 = 1 ; F_msa_a01 = .FALSE. P_co3_a01 = 1 ; F_co3_a01 = .FALSE. P_nh4_a01 = 1 ; F_nh4_a01 = .FALSE. P_na_a01 = 1 ; F_na_a01 = .FALSE. P_ca_a01 = 1 ; F_ca_a01 = .FALSE. P_oin_a01 = 1 ; F_oin_a01 = .FALSE. P_oc_a01 = 1 ; F_oc_a01 = .FALSE. P_bc_a01 = 1 ; F_bc_a01 = .FALSE. P_hysw_a01 = 1 ; F_hysw_a01 = .FALSE. P_water_a01 = 1 ; F_water_a01 = .FALSE. P_num_a01 = 1 ; F_num_a01 = .FALSE. P_so4_a02 = 1 ; F_so4_a02 = .FALSE. P_no3_a02 = 1 ; F_no3_a02 = .FALSE. P_aro1_a02 = 1 ; F_aro1_a02 = .FALSE. P_aro2_a02 = 1 ; F_aro2_a02 = .FALSE. P_alk1_a02 = 1 ; F_alk1_a02 = .FALSE. P_ole1_a02 = 1 ; F_ole1_a02 = .FALSE. P_api1_a02 = 1 ; F_api1_a02 = .FALSE. P_api2_a02 = 1 ; F_api2_a02 = .FALSE. P_lim1_a02 = 1 ; F_lim1_a02 = .FALSE. P_lim2_a02 = 1 ; F_lim2_a02 = .FALSE. P_pcg1_b_c_a02 = 1 ; F_pcg1_b_c_a02 = .FALSE. P_pcg2_b_c_a02 = 1 ; F_pcg2_b_c_a02 = .FALSE. P_pcg3_b_c_a02 = 1 ; F_pcg3_b_c_a02 = .FALSE. P_pcg4_b_c_a02 = 1 ; F_pcg4_b_c_a02 = .FALSE. P_pcg5_b_c_a02 = 1 ; F_pcg5_b_c_a02 = .FALSE. P_pcg6_b_c_a02 = 1 ; F_pcg6_b_c_a02 = .FALSE. P_pcg7_b_c_a02 = 1 ; F_pcg7_b_c_a02 = .FALSE. P_pcg8_b_c_a02 = 1 ; F_pcg8_b_c_a02 = .FALSE. P_pcg9_b_c_a02 = 1 ; F_pcg9_b_c_a02 = .FALSE. P_pcg1_b_o_a02 = 1 ; F_pcg1_b_o_a02 = .FALSE. P_pcg2_b_o_a02 = 1 ; F_pcg2_b_o_a02 = .FALSE. P_pcg3_b_o_a02 = 1 ; F_pcg3_b_o_a02 = .FALSE. P_pcg4_b_o_a02 = 1 ; F_pcg4_b_o_a02 = .FALSE. P_pcg5_b_o_a02 = 1 ; F_pcg5_b_o_a02 = .FALSE. P_pcg6_b_o_a02 = 1 ; F_pcg6_b_o_a02 = .FALSE. P_pcg7_b_o_a02 = 1 ; F_pcg7_b_o_a02 = .FALSE. P_pcg8_b_o_a02 = 1 ; F_pcg8_b_o_a02 = .FALSE. P_pcg9_b_o_a02 = 1 ; F_pcg9_b_o_a02 = .FALSE. P_pcg1_f_c_a02 = 1 ; F_pcg1_f_c_a02 = .FALSE. P_pcg2_f_c_a02 = 1 ; F_pcg2_f_c_a02 = .FALSE. P_pcg3_f_c_a02 = 1 ; F_pcg3_f_c_a02 = .FALSE. P_pcg4_f_c_a02 = 1 ; F_pcg4_f_c_a02 = .FALSE. P_pcg5_f_c_a02 = 1 ; F_pcg5_f_c_a02 = .FALSE. P_pcg6_f_c_a02 = 1 ; F_pcg6_f_c_a02 = .FALSE. P_pcg7_f_c_a02 = 1 ; F_pcg7_f_c_a02 = .FALSE. P_pcg8_f_c_a02 = 1 ; F_pcg8_f_c_a02 = .FALSE. P_pcg9_f_c_a02 = 1 ; F_pcg9_f_c_a02 = .FALSE. P_pcg1_f_o_a02 = 1 ; F_pcg1_f_o_a02 = .FALSE. P_pcg2_f_o_a02 = 1 ; F_pcg2_f_o_a02 = .FALSE. P_pcg3_f_o_a02 = 1 ; F_pcg3_f_o_a02 = .FALSE. P_pcg4_f_o_a02 = 1 ; F_pcg4_f_o_a02 = .FALSE. P_pcg5_f_o_a02 = 1 ; F_pcg5_f_o_a02 = .FALSE. P_pcg6_f_o_a02 = 1 ; F_pcg6_f_o_a02 = .FALSE. P_pcg7_f_o_a02 = 1 ; F_pcg7_f_o_a02 = .FALSE. P_pcg8_f_o_a02 = 1 ; F_pcg8_f_o_a02 = .FALSE. P_pcg9_f_o_a02 = 1 ; F_pcg9_f_o_a02 = .FALSE. P_opcg1_b_c_a02 = 1 ; F_opcg1_b_c_a02 = .FALSE. P_opcg2_b_c_a02 = 1 ; F_opcg2_b_c_a02 = .FALSE. P_opcg3_b_c_a02 = 1 ; F_opcg3_b_c_a02 = .FALSE. P_opcg4_b_c_a02 = 1 ; F_opcg4_b_c_a02 = .FALSE. P_opcg5_b_c_a02 = 1 ; F_opcg5_b_c_a02 = .FALSE. P_opcg6_b_c_a02 = 1 ; F_opcg6_b_c_a02 = .FALSE. P_opcg7_b_c_a02 = 1 ; F_opcg7_b_c_a02 = .FALSE. P_opcg8_b_c_a02 = 1 ; F_opcg8_b_c_a02 = .FALSE. P_opcg1_b_o_a02 = 1 ; F_opcg1_b_o_a02 = .FALSE. P_opcg2_b_o_a02 = 1 ; F_opcg2_b_o_a02 = .FALSE. P_opcg3_b_o_a02 = 1 ; F_opcg3_b_o_a02 = .FALSE. P_opcg4_b_o_a02 = 1 ; F_opcg4_b_o_a02 = .FALSE. P_opcg5_b_o_a02 = 1 ; F_opcg5_b_o_a02 = .FALSE. P_opcg6_b_o_a02 = 1 ; F_opcg6_b_o_a02 = .FALSE. P_opcg7_b_o_a02 = 1 ; F_opcg7_b_o_a02 = .FALSE. P_opcg8_b_o_a02 = 1 ; F_opcg8_b_o_a02 = .FALSE. P_opcg1_f_c_a02 = 1 ; F_opcg1_f_c_a02 = .FALSE. P_opcg2_f_c_a02 = 1 ; F_opcg2_f_c_a02 = .FALSE. P_opcg3_f_c_a02 = 1 ; F_opcg3_f_c_a02 = .FALSE. P_opcg4_f_c_a02 = 1 ; F_opcg4_f_c_a02 = .FALSE. P_opcg5_f_c_a02 = 1 ; F_opcg5_f_c_a02 = .FALSE. P_opcg6_f_c_a02 = 1 ; F_opcg6_f_c_a02 = .FALSE. P_opcg7_f_c_a02 = 1 ; F_opcg7_f_c_a02 = .FALSE. P_opcg8_f_c_a02 = 1 ; F_opcg8_f_c_a02 = .FALSE. P_opcg1_f_o_a02 = 1 ; F_opcg1_f_o_a02 = .FALSE. P_opcg2_f_o_a02 = 1 ; F_opcg2_f_o_a02 = .FALSE. P_opcg3_f_o_a02 = 1 ; F_opcg3_f_o_a02 = .FALSE. P_opcg4_f_o_a02 = 1 ; F_opcg4_f_o_a02 = .FALSE. P_opcg5_f_o_a02 = 1 ; F_opcg5_f_o_a02 = .FALSE. P_opcg6_f_o_a02 = 1 ; F_opcg6_f_o_a02 = .FALSE. P_opcg7_f_o_a02 = 1 ; F_opcg7_f_o_a02 = .FALSE. P_opcg8_f_o_a02 = 1 ; F_opcg8_f_o_a02 = .FALSE. P_smpa_a02 = 1 ; F_smpa_a02 = .FALSE. P_smpbb_a02 = 1 ; F_smpbb_a02 = .FALSE. P_ant1_c_a02 = 1 ; F_ant1_c_a02 = .FALSE. P_ant2_c_a02 = 1 ; F_ant2_c_a02 = .FALSE. P_ant3_c_a02 = 1 ; F_ant3_c_a02 = .FALSE. P_ant4_c_a02 = 1 ; F_ant4_c_a02 = .FALSE. P_ant1_o_a02 = 1 ; F_ant1_o_a02 = .FALSE. P_ant2_o_a02 = 1 ; F_ant2_o_a02 = .FALSE. P_ant3_o_a02 = 1 ; F_ant3_o_a02 = .FALSE. P_ant4_o_a02 = 1 ; F_ant4_o_a02 = .FALSE. P_biog1_c_a02 = 1 ; F_biog1_c_a02 = .FALSE. P_biog2_c_a02 = 1 ; F_biog2_c_a02 = .FALSE. P_biog3_c_a02 = 1 ; F_biog3_c_a02 = .FALSE. P_biog4_c_a02 = 1 ; F_biog4_c_a02 = .FALSE. P_biog1_o_a02 = 1 ; F_biog1_o_a02 = .FALSE. P_biog2_o_a02 = 1 ; F_biog2_o_a02 = .FALSE. P_biog3_o_a02 = 1 ; F_biog3_o_a02 = .FALSE. P_biog4_o_a02 = 1 ; F_biog4_o_a02 = .FALSE. P_asoax_a02 = 1 ; F_asoax_a02 = .FALSE. P_asoa1_a02 = 1 ; F_asoa1_a02 = .FALSE. P_asoa2_a02 = 1 ; F_asoa2_a02 = .FALSE. P_asoa3_a02 = 1 ; F_asoa3_a02 = .FALSE. P_asoa4_a02 = 1 ; F_asoa4_a02 = .FALSE. P_bsoax_a02 = 1 ; F_bsoax_a02 = .FALSE. P_bsoa1_a02 = 1 ; F_bsoa1_a02 = .FALSE. P_bsoa2_a02 = 1 ; F_bsoa2_a02 = .FALSE. P_bsoa3_a02 = 1 ; F_bsoa3_a02 = .FALSE. P_bsoa4_a02 = 1 ; F_bsoa4_a02 = .FALSE. P_glysoa_r1_a02 = 1 ; F_glysoa_r1_a02 = .FALSE. P_glysoa_r2_a02 = 1 ; F_glysoa_r2_a02 = .FALSE. P_glysoa_sfc_a02 = 1 ; F_glysoa_sfc_a02 = .FALSE. P_glysoa_nh4_a02 = 1 ; F_glysoa_nh4_a02 = .FALSE. P_glysoa_oh_a02 = 1 ; F_glysoa_oh_a02 = .FALSE. P_cl_a02 = 1 ; F_cl_a02 = .FALSE. P_msa_a02 = 1 ; F_msa_a02 = .FALSE. P_co3_a02 = 1 ; F_co3_a02 = .FALSE. P_nh4_a02 = 1 ; F_nh4_a02 = .FALSE. P_na_a02 = 1 ; F_na_a02 = .FALSE. P_ca_a02 = 1 ; F_ca_a02 = .FALSE. P_oin_a02 = 1 ; F_oin_a02 = .FALSE. P_oc_a02 = 1 ; F_oc_a02 = .FALSE. P_bc_a02 = 1 ; F_bc_a02 = .FALSE. P_hysw_a02 = 1 ; F_hysw_a02 = .FALSE. P_water_a02 = 1 ; F_water_a02 = .FALSE. P_num_a02 = 1 ; F_num_a02 = .FALSE. P_so4_a03 = 1 ; F_so4_a03 = .FALSE. P_no3_a03 = 1 ; F_no3_a03 = .FALSE. P_aro1_a03 = 1 ; F_aro1_a03 = .FALSE. P_aro2_a03 = 1 ; F_aro2_a03 = .FALSE. P_alk1_a03 = 1 ; F_alk1_a03 = .FALSE. P_ole1_a03 = 1 ; F_ole1_a03 = .FALSE. P_api1_a03 = 1 ; F_api1_a03 = .FALSE. P_api2_a03 = 1 ; F_api2_a03 = .FALSE. P_lim1_a03 = 1 ; F_lim1_a03 = .FALSE. P_lim2_a03 = 1 ; F_lim2_a03 = .FALSE. P_pcg1_b_c_a03 = 1 ; F_pcg1_b_c_a03 = .FALSE. P_pcg2_b_c_a03 = 1 ; F_pcg2_b_c_a03 = .FALSE. P_pcg3_b_c_a03 = 1 ; F_pcg3_b_c_a03 = .FALSE. P_pcg4_b_c_a03 = 1 ; F_pcg4_b_c_a03 = .FALSE. P_pcg5_b_c_a03 = 1 ; F_pcg5_b_c_a03 = .FALSE. P_pcg6_b_c_a03 = 1 ; F_pcg6_b_c_a03 = .FALSE. P_pcg7_b_c_a03 = 1 ; F_pcg7_b_c_a03 = .FALSE. P_pcg8_b_c_a03 = 1 ; F_pcg8_b_c_a03 = .FALSE. P_pcg9_b_c_a03 = 1 ; F_pcg9_b_c_a03 = .FALSE. P_pcg1_b_o_a03 = 1 ; F_pcg1_b_o_a03 = .FALSE. P_pcg2_b_o_a03 = 1 ; F_pcg2_b_o_a03 = .FALSE. P_pcg3_b_o_a03 = 1 ; F_pcg3_b_o_a03 = .FALSE. P_pcg4_b_o_a03 = 1 ; F_pcg4_b_o_a03 = .FALSE. P_pcg5_b_o_a03 = 1 ; F_pcg5_b_o_a03 = .FALSE. P_pcg6_b_o_a03 = 1 ; F_pcg6_b_o_a03 = .FALSE. P_pcg7_b_o_a03 = 1 ; F_pcg7_b_o_a03 = .FALSE. P_pcg8_b_o_a03 = 1 ; F_pcg8_b_o_a03 = .FALSE. P_pcg9_b_o_a03 = 1 ; F_pcg9_b_o_a03 = .FALSE. P_pcg1_f_c_a03 = 1 ; F_pcg1_f_c_a03 = .FALSE. P_pcg2_f_c_a03 = 1 ; F_pcg2_f_c_a03 = .FALSE. P_pcg3_f_c_a03 = 1 ; F_pcg3_f_c_a03 = .FALSE. P_pcg4_f_c_a03 = 1 ; F_pcg4_f_c_a03 = .FALSE. P_pcg5_f_c_a03 = 1 ; F_pcg5_f_c_a03 = .FALSE. P_pcg6_f_c_a03 = 1 ; F_pcg6_f_c_a03 = .FALSE. P_pcg7_f_c_a03 = 1 ; F_pcg7_f_c_a03 = .FALSE. P_pcg8_f_c_a03 = 1 ; F_pcg8_f_c_a03 = .FALSE. P_pcg9_f_c_a03 = 1 ; F_pcg9_f_c_a03 = .FALSE. P_pcg1_f_o_a03 = 1 ; F_pcg1_f_o_a03 = .FALSE. P_pcg2_f_o_a03 = 1 ; F_pcg2_f_o_a03 = .FALSE. P_pcg3_f_o_a03 = 1 ; F_pcg3_f_o_a03 = .FALSE. P_pcg4_f_o_a03 = 1 ; F_pcg4_f_o_a03 = .FALSE. P_pcg5_f_o_a03 = 1 ; F_pcg5_f_o_a03 = .FALSE. P_pcg6_f_o_a03 = 1 ; F_pcg6_f_o_a03 = .FALSE. P_pcg7_f_o_a03 = 1 ; F_pcg7_f_o_a03 = .FALSE. P_pcg8_f_o_a03 = 1 ; F_pcg8_f_o_a03 = .FALSE. P_pcg9_f_o_a03 = 1 ; F_pcg9_f_o_a03 = .FALSE. P_opcg1_b_c_a03 = 1 ; F_opcg1_b_c_a03 = .FALSE. P_opcg2_b_c_a03 = 1 ; F_opcg2_b_c_a03 = .FALSE. P_opcg3_b_c_a03 = 1 ; F_opcg3_b_c_a03 = .FALSE. P_opcg4_b_c_a03 = 1 ; F_opcg4_b_c_a03 = .FALSE. P_opcg5_b_c_a03 = 1 ; F_opcg5_b_c_a03 = .FALSE. P_opcg6_b_c_a03 = 1 ; F_opcg6_b_c_a03 = .FALSE. P_opcg7_b_c_a03 = 1 ; F_opcg7_b_c_a03 = .FALSE. P_opcg8_b_c_a03 = 1 ; F_opcg8_b_c_a03 = .FALSE. P_opcg1_b_o_a03 = 1 ; F_opcg1_b_o_a03 = .FALSE. P_opcg2_b_o_a03 = 1 ; F_opcg2_b_o_a03 = .FALSE. P_opcg3_b_o_a03 = 1 ; F_opcg3_b_o_a03 = .FALSE. P_opcg4_b_o_a03 = 1 ; F_opcg4_b_o_a03 = .FALSE. P_opcg5_b_o_a03 = 1 ; F_opcg5_b_o_a03 = .FALSE. P_opcg6_b_o_a03 = 1 ; F_opcg6_b_o_a03 = .FALSE. P_opcg7_b_o_a03 = 1 ; F_opcg7_b_o_a03 = .FALSE. P_opcg8_b_o_a03 = 1 ; F_opcg8_b_o_a03 = .FALSE. P_opcg1_f_c_a03 = 1 ; F_opcg1_f_c_a03 = .FALSE. P_opcg2_f_c_a03 = 1 ; F_opcg2_f_c_a03 = .FALSE. P_opcg3_f_c_a03 = 1 ; F_opcg3_f_c_a03 = .FALSE. P_opcg4_f_c_a03 = 1 ; F_opcg4_f_c_a03 = .FALSE. P_opcg5_f_c_a03 = 1 ; F_opcg5_f_c_a03 = .FALSE. P_opcg6_f_c_a03 = 1 ; F_opcg6_f_c_a03 = .FALSE. P_opcg7_f_c_a03 = 1 ; F_opcg7_f_c_a03 = .FALSE. P_opcg8_f_c_a03 = 1 ; F_opcg8_f_c_a03 = .FALSE. P_opcg1_f_o_a03 = 1 ; F_opcg1_f_o_a03 = .FALSE. P_opcg2_f_o_a03 = 1 ; F_opcg2_f_o_a03 = .FALSE. P_opcg3_f_o_a03 = 1 ; F_opcg3_f_o_a03 = .FALSE. P_opcg4_f_o_a03 = 1 ; F_opcg4_f_o_a03 = .FALSE. P_opcg5_f_o_a03 = 1 ; F_opcg5_f_o_a03 = .FALSE. P_opcg6_f_o_a03 = 1 ; F_opcg6_f_o_a03 = .FALSE. P_opcg7_f_o_a03 = 1 ; F_opcg7_f_o_a03 = .FALSE. P_opcg8_f_o_a03 = 1 ; F_opcg8_f_o_a03 = .FALSE. P_smpa_a03 = 1 ; F_smpa_a03 = .FALSE. P_smpbb_a03 = 1 ; F_smpbb_a03 = .FALSE. P_ant1_c_a03 = 1 ; F_ant1_c_a03 = .FALSE. P_ant2_c_a03 = 1 ; F_ant2_c_a03 = .FALSE. P_ant3_c_a03 = 1 ; F_ant3_c_a03 = .FALSE. P_ant4_c_a03 = 1 ; F_ant4_c_a03 = .FALSE. P_ant1_o_a03 = 1 ; F_ant1_o_a03 = .FALSE. P_ant2_o_a03 = 1 ; F_ant2_o_a03 = .FALSE. P_ant3_o_a03 = 1 ; F_ant3_o_a03 = .FALSE. P_ant4_o_a03 = 1 ; F_ant4_o_a03 = .FALSE. P_biog1_c_a03 = 1 ; F_biog1_c_a03 = .FALSE. P_biog2_c_a03 = 1 ; F_biog2_c_a03 = .FALSE. P_biog3_c_a03 = 1 ; F_biog3_c_a03 = .FALSE. P_biog4_c_a03 = 1 ; F_biog4_c_a03 = .FALSE. P_biog1_o_a03 = 1 ; F_biog1_o_a03 = .FALSE. P_biog2_o_a03 = 1 ; F_biog2_o_a03 = .FALSE. P_biog3_o_a03 = 1 ; F_biog3_o_a03 = .FALSE. P_biog4_o_a03 = 1 ; F_biog4_o_a03 = .FALSE. P_asoax_a03 = 1 ; F_asoax_a03 = .FALSE. P_asoa1_a03 = 1 ; F_asoa1_a03 = .FALSE. P_asoa2_a03 = 1 ; F_asoa2_a03 = .FALSE. P_asoa3_a03 = 1 ; F_asoa3_a03 = .FALSE. P_asoa4_a03 = 1 ; F_asoa4_a03 = .FALSE. P_bsoax_a03 = 1 ; F_bsoax_a03 = .FALSE. P_bsoa1_a03 = 1 ; F_bsoa1_a03 = .FALSE. P_bsoa2_a03 = 1 ; F_bsoa2_a03 = .FALSE. P_bsoa3_a03 = 1 ; F_bsoa3_a03 = .FALSE. P_bsoa4_a03 = 1 ; F_bsoa4_a03 = .FALSE. P_glysoa_r1_a03 = 1 ; F_glysoa_r1_a03 = .FALSE. P_glysoa_r2_a03 = 1 ; F_glysoa_r2_a03 = .FALSE. P_glysoa_sfc_a03 = 1 ; F_glysoa_sfc_a03 = .FALSE. P_glysoa_nh4_a03 = 1 ; F_glysoa_nh4_a03 = .FALSE. P_glysoa_oh_a03 = 1 ; F_glysoa_oh_a03 = .FALSE. P_cl_a03 = 1 ; F_cl_a03 = .FALSE. P_msa_a03 = 1 ; F_msa_a03 = .FALSE. P_co3_a03 = 1 ; F_co3_a03 = .FALSE. P_nh4_a03 = 1 ; F_nh4_a03 = .FALSE. P_na_a03 = 1 ; F_na_a03 = .FALSE. P_ca_a03 = 1 ; F_ca_a03 = .FALSE. P_oin_a03 = 1 ; F_oin_a03 = .FALSE. P_oc_a03 = 1 ; F_oc_a03 = .FALSE. P_bc_a03 = 1 ; F_bc_a03 = .FALSE. P_hysw_a03 = 1 ; F_hysw_a03 = .FALSE. P_water_a03 = 1 ; F_water_a03 = .FALSE. P_num_a03 = 1 ; F_num_a03 = .FALSE. P_so4_a04 = 1 ; F_so4_a04 = .FALSE. P_no3_a04 = 1 ; F_no3_a04 = .FALSE. P_aro1_a04 = 1 ; F_aro1_a04 = .FALSE. P_aro2_a04 = 1 ; F_aro2_a04 = .FALSE. P_alk1_a04 = 1 ; F_alk1_a04 = .FALSE. P_ole1_a04 = 1 ; F_ole1_a04 = .FALSE. P_api1_a04 = 1 ; F_api1_a04 = .FALSE. P_api2_a04 = 1 ; F_api2_a04 = .FALSE. P_lim1_a04 = 1 ; F_lim1_a04 = .FALSE. P_lim2_a04 = 1 ; F_lim2_a04 = .FALSE. P_pcg1_b_c_a04 = 1 ; F_pcg1_b_c_a04 = .FALSE. P_pcg2_b_c_a04 = 1 ; F_pcg2_b_c_a04 = .FALSE. P_pcg3_b_c_a04 = 1 ; F_pcg3_b_c_a04 = .FALSE. P_pcg4_b_c_a04 = 1 ; F_pcg4_b_c_a04 = .FALSE. P_pcg5_b_c_a04 = 1 ; F_pcg5_b_c_a04 = .FALSE. P_pcg6_b_c_a04 = 1 ; F_pcg6_b_c_a04 = .FALSE. P_pcg7_b_c_a04 = 1 ; F_pcg7_b_c_a04 = .FALSE. P_pcg8_b_c_a04 = 1 ; F_pcg8_b_c_a04 = .FALSE. P_pcg9_b_c_a04 = 1 ; F_pcg9_b_c_a04 = .FALSE. P_pcg1_b_o_a04 = 1 ; F_pcg1_b_o_a04 = .FALSE. P_pcg2_b_o_a04 = 1 ; F_pcg2_b_o_a04 = .FALSE. P_pcg3_b_o_a04 = 1 ; F_pcg3_b_o_a04 = .FALSE. P_pcg4_b_o_a04 = 1 ; F_pcg4_b_o_a04 = .FALSE. P_pcg5_b_o_a04 = 1 ; F_pcg5_b_o_a04 = .FALSE. P_pcg6_b_o_a04 = 1 ; F_pcg6_b_o_a04 = .FALSE. P_pcg7_b_o_a04 = 1 ; F_pcg7_b_o_a04 = .FALSE. P_pcg8_b_o_a04 = 1 ; F_pcg8_b_o_a04 = .FALSE. P_pcg9_b_o_a04 = 1 ; F_pcg9_b_o_a04 = .FALSE. P_pcg1_f_c_a04 = 1 ; F_pcg1_f_c_a04 = .FALSE. P_pcg2_f_c_a04 = 1 ; F_pcg2_f_c_a04 = .FALSE. P_pcg3_f_c_a04 = 1 ; F_pcg3_f_c_a04 = .FALSE. P_pcg4_f_c_a04 = 1 ; F_pcg4_f_c_a04 = .FALSE. P_pcg5_f_c_a04 = 1 ; F_pcg5_f_c_a04 = .FALSE. P_pcg6_f_c_a04 = 1 ; F_pcg6_f_c_a04 = .FALSE. P_pcg7_f_c_a04 = 1 ; F_pcg7_f_c_a04 = .FALSE. P_pcg8_f_c_a04 = 1 ; F_pcg8_f_c_a04 = .FALSE. P_pcg9_f_c_a04 = 1 ; F_pcg9_f_c_a04 = .FALSE. P_pcg1_f_o_a04 = 1 ; F_pcg1_f_o_a04 = .FALSE. P_pcg2_f_o_a04 = 1 ; F_pcg2_f_o_a04 = .FALSE. P_pcg3_f_o_a04 = 1 ; F_pcg3_f_o_a04 = .FALSE. P_pcg4_f_o_a04 = 1 ; F_pcg4_f_o_a04 = .FALSE. P_pcg5_f_o_a04 = 1 ; F_pcg5_f_o_a04 = .FALSE. P_pcg6_f_o_a04 = 1 ; F_pcg6_f_o_a04 = .FALSE. P_pcg7_f_o_a04 = 1 ; F_pcg7_f_o_a04 = .FALSE. P_pcg8_f_o_a04 = 1 ; F_pcg8_f_o_a04 = .FALSE. P_pcg9_f_o_a04 = 1 ; F_pcg9_f_o_a04 = .FALSE. P_opcg1_b_c_a04 = 1 ; F_opcg1_b_c_a04 = .FALSE. P_opcg2_b_c_a04 = 1 ; F_opcg2_b_c_a04 = .FALSE. P_opcg3_b_c_a04 = 1 ; F_opcg3_b_c_a04 = .FALSE. P_opcg4_b_c_a04 = 1 ; F_opcg4_b_c_a04 = .FALSE. P_opcg5_b_c_a04 = 1 ; F_opcg5_b_c_a04 = .FALSE. P_opcg6_b_c_a04 = 1 ; F_opcg6_b_c_a04 = .FALSE. P_opcg7_b_c_a04 = 1 ; F_opcg7_b_c_a04 = .FALSE. P_opcg8_b_c_a04 = 1 ; F_opcg8_b_c_a04 = .FALSE. P_opcg1_b_o_a04 = 1 ; F_opcg1_b_o_a04 = .FALSE. P_opcg2_b_o_a04 = 1 ; F_opcg2_b_o_a04 = .FALSE. P_opcg3_b_o_a04 = 1 ; F_opcg3_b_o_a04 = .FALSE. P_opcg4_b_o_a04 = 1 ; F_opcg4_b_o_a04 = .FALSE. P_opcg5_b_o_a04 = 1 ; F_opcg5_b_o_a04 = .FALSE. P_opcg6_b_o_a04 = 1 ; F_opcg6_b_o_a04 = .FALSE. P_opcg7_b_o_a04 = 1 ; F_opcg7_b_o_a04 = .FALSE. P_opcg8_b_o_a04 = 1 ; F_opcg8_b_o_a04 = .FALSE. P_opcg1_f_c_a04 = 1 ; F_opcg1_f_c_a04 = .FALSE. P_opcg2_f_c_a04 = 1 ; F_opcg2_f_c_a04 = .FALSE. P_opcg3_f_c_a04 = 1 ; F_opcg3_f_c_a04 = .FALSE. P_opcg4_f_c_a04 = 1 ; F_opcg4_f_c_a04 = .FALSE. P_opcg5_f_c_a04 = 1 ; F_opcg5_f_c_a04 = .FALSE. P_opcg6_f_c_a04 = 1 ; F_opcg6_f_c_a04 = .FALSE. P_opcg7_f_c_a04 = 1 ; F_opcg7_f_c_a04 = .FALSE. P_opcg8_f_c_a04 = 1 ; F_opcg8_f_c_a04 = .FALSE. P_opcg1_f_o_a04 = 1 ; F_opcg1_f_o_a04 = .FALSE. P_opcg2_f_o_a04 = 1 ; F_opcg2_f_o_a04 = .FALSE. P_opcg3_f_o_a04 = 1 ; F_opcg3_f_o_a04 = .FALSE. P_opcg4_f_o_a04 = 1 ; F_opcg4_f_o_a04 = .FALSE. P_opcg5_f_o_a04 = 1 ; F_opcg5_f_o_a04 = .FALSE. P_opcg6_f_o_a04 = 1 ; F_opcg6_f_o_a04 = .FALSE. P_opcg7_f_o_a04 = 1 ; F_opcg7_f_o_a04 = .FALSE. P_opcg8_f_o_a04 = 1 ; F_opcg8_f_o_a04 = .FALSE. P_smpa_a04 = 1 ; F_smpa_a04 = .FALSE. P_smpbb_a04 = 1 ; F_smpbb_a04 = .FALSE. P_ant1_c_a04 = 1 ; F_ant1_c_a04 = .FALSE. P_ant2_c_a04 = 1 ; F_ant2_c_a04 = .FALSE. P_ant3_c_a04 = 1 ; F_ant3_c_a04 = .FALSE. P_ant4_c_a04 = 1 ; F_ant4_c_a04 = .FALSE. P_ant1_o_a04 = 1 ; F_ant1_o_a04 = .FALSE. P_ant2_o_a04 = 1 ; F_ant2_o_a04 = .FALSE. P_ant3_o_a04 = 1 ; F_ant3_o_a04 = .FALSE. P_ant4_o_a04 = 1 ; F_ant4_o_a04 = .FALSE. P_biog1_c_a04 = 1 ; F_biog1_c_a04 = .FALSE. P_biog2_c_a04 = 1 ; F_biog2_c_a04 = .FALSE. P_biog3_c_a04 = 1 ; F_biog3_c_a04 = .FALSE. P_biog4_c_a04 = 1 ; F_biog4_c_a04 = .FALSE. P_biog1_o_a04 = 1 ; F_biog1_o_a04 = .FALSE. P_biog2_o_a04 = 1 ; F_biog2_o_a04 = .FALSE. P_biog3_o_a04 = 1 ; F_biog3_o_a04 = .FALSE. P_biog4_o_a04 = 1 ; F_biog4_o_a04 = .FALSE. P_asoax_a04 = 1 ; F_asoax_a04 = .FALSE. P_asoa1_a04 = 1 ; F_asoa1_a04 = .FALSE. P_asoa2_a04 = 1 ; F_asoa2_a04 = .FALSE. P_asoa3_a04 = 1 ; F_asoa3_a04 = .FALSE. P_asoa4_a04 = 1 ; F_asoa4_a04 = .FALSE. P_bsoax_a04 = 1 ; F_bsoax_a04 = .FALSE. P_bsoa1_a04 = 1 ; F_bsoa1_a04 = .FALSE. P_bsoa2_a04 = 1 ; F_bsoa2_a04 = .FALSE. P_bsoa3_a04 = 1 ; F_bsoa3_a04 = .FALSE. P_bsoa4_a04 = 1 ; F_bsoa4_a04 = .FALSE. P_glysoa_r1_a04 = 1 ; F_glysoa_r1_a04 = .FALSE. P_glysoa_r2_a04 = 1 ; F_glysoa_r2_a04 = .FALSE. P_glysoa_sfc_a04 = 1 ; F_glysoa_sfc_a04 = .FALSE. P_glysoa_nh4_a04 = 1 ; F_glysoa_nh4_a04 = .FALSE. P_glysoa_oh_a04 = 1 ; F_glysoa_oh_a04 = .FALSE. P_cl_a04 = 1 ; F_cl_a04 = .FALSE. P_msa_a04 = 1 ; F_msa_a04 = .FALSE. P_co3_a04 = 1 ; F_co3_a04 = .FALSE. P_nh4_a04 = 1 ; F_nh4_a04 = .FALSE. P_na_a04 = 1 ; F_na_a04 = .FALSE. P_ca_a04 = 1 ; F_ca_a04 = .FALSE. P_oin_a04 = 1 ; F_oin_a04 = .FALSE. P_oc_a04 = 1 ; F_oc_a04 = .FALSE. P_bc_a04 = 1 ; F_bc_a04 = .FALSE. P_hysw_a04 = 1 ; F_hysw_a04 = .FALSE. P_water_a04 = 1 ; F_water_a04 = .FALSE. P_num_a04 = 1 ; F_num_a04 = .FALSE. P_so4_a05 = 1 ; F_so4_a05 = .FALSE. P_no3_a05 = 1 ; F_no3_a05 = .FALSE. P_aro1_a05 = 1 ; F_aro1_a05 = .FALSE. P_aro2_a05 = 1 ; F_aro2_a05 = .FALSE. P_alk1_a05 = 1 ; F_alk1_a05 = .FALSE. P_ole1_a05 = 1 ; F_ole1_a05 = .FALSE. P_api1_a05 = 1 ; F_api1_a05 = .FALSE. P_api2_a05 = 1 ; F_api2_a05 = .FALSE. P_lim1_a05 = 1 ; F_lim1_a05 = .FALSE. P_lim2_a05 = 1 ; F_lim2_a05 = .FALSE. P_pcg1_b_c_a05 = 1 ; F_pcg1_b_c_a05 = .FALSE. P_pcg2_b_c_a05 = 1 ; F_pcg2_b_c_a05 = .FALSE. P_pcg3_b_c_a05 = 1 ; F_pcg3_b_c_a05 = .FALSE. P_pcg4_b_c_a05 = 1 ; F_pcg4_b_c_a05 = .FALSE. P_pcg5_b_c_a05 = 1 ; F_pcg5_b_c_a05 = .FALSE. P_pcg6_b_c_a05 = 1 ; F_pcg6_b_c_a05 = .FALSE. P_pcg7_b_c_a05 = 1 ; F_pcg7_b_c_a05 = .FALSE. P_pcg8_b_c_a05 = 1 ; F_pcg8_b_c_a05 = .FALSE. P_pcg9_b_c_a05 = 1 ; F_pcg9_b_c_a05 = .FALSE. P_pcg1_b_o_a05 = 1 ; F_pcg1_b_o_a05 = .FALSE. P_pcg2_b_o_a05 = 1 ; F_pcg2_b_o_a05 = .FALSE. P_pcg3_b_o_a05 = 1 ; F_pcg3_b_o_a05 = .FALSE. P_pcg4_b_o_a05 = 1 ; F_pcg4_b_o_a05 = .FALSE. P_pcg5_b_o_a05 = 1 ; F_pcg5_b_o_a05 = .FALSE. P_pcg6_b_o_a05 = 1 ; F_pcg6_b_o_a05 = .FALSE. P_pcg7_b_o_a05 = 1 ; F_pcg7_b_o_a05 = .FALSE. P_pcg8_b_o_a05 = 1 ; F_pcg8_b_o_a05 = .FALSE. P_pcg9_b_o_a05 = 1 ; F_pcg9_b_o_a05 = .FALSE. P_pcg1_f_c_a05 = 1 ; F_pcg1_f_c_a05 = .FALSE. P_pcg2_f_c_a05 = 1 ; F_pcg2_f_c_a05 = .FALSE. P_pcg3_f_c_a05 = 1 ; F_pcg3_f_c_a05 = .FALSE. P_pcg4_f_c_a05 = 1 ; F_pcg4_f_c_a05 = .FALSE. P_pcg5_f_c_a05 = 1 ; F_pcg5_f_c_a05 = .FALSE. P_pcg6_f_c_a05 = 1 ; F_pcg6_f_c_a05 = .FALSE. P_pcg7_f_c_a05 = 1 ; F_pcg7_f_c_a05 = .FALSE. P_pcg8_f_c_a05 = 1 ; F_pcg8_f_c_a05 = .FALSE. P_pcg9_f_c_a05 = 1 ; F_pcg9_f_c_a05 = .FALSE. P_pcg1_f_o_a05 = 1 ; F_pcg1_f_o_a05 = .FALSE. P_pcg2_f_o_a05 = 1 ; F_pcg2_f_o_a05 = .FALSE. P_pcg3_f_o_a05 = 1 ; F_pcg3_f_o_a05 = .FALSE. P_pcg4_f_o_a05 = 1 ; F_pcg4_f_o_a05 = .FALSE. P_pcg5_f_o_a05 = 1 ; F_pcg5_f_o_a05 = .FALSE. P_pcg6_f_o_a05 = 1 ; F_pcg6_f_o_a05 = .FALSE. P_pcg7_f_o_a05 = 1 ; F_pcg7_f_o_a05 = .FALSE. P_pcg8_f_o_a05 = 1 ; F_pcg8_f_o_a05 = .FALSE. P_pcg9_f_o_a05 = 1 ; F_pcg9_f_o_a05 = .FALSE. P_opcg1_b_c_a05 = 1 ; F_opcg1_b_c_a05 = .FALSE. P_opcg2_b_c_a05 = 1 ; F_opcg2_b_c_a05 = .FALSE. P_opcg3_b_c_a05 = 1 ; F_opcg3_b_c_a05 = .FALSE. P_opcg4_b_c_a05 = 1 ; F_opcg4_b_c_a05 = .FALSE. P_opcg5_b_c_a05 = 1 ; F_opcg5_b_c_a05 = .FALSE. P_opcg6_b_c_a05 = 1 ; F_opcg6_b_c_a05 = .FALSE. P_opcg7_b_c_a05 = 1 ; F_opcg7_b_c_a05 = .FALSE. P_opcg8_b_c_a05 = 1 ; F_opcg8_b_c_a05 = .FALSE. P_opcg1_b_o_a05 = 1 ; F_opcg1_b_o_a05 = .FALSE. P_opcg2_b_o_a05 = 1 ; F_opcg2_b_o_a05 = .FALSE. P_opcg3_b_o_a05 = 1 ; F_opcg3_b_o_a05 = .FALSE. P_opcg4_b_o_a05 = 1 ; F_opcg4_b_o_a05 = .FALSE. P_opcg5_b_o_a05 = 1 ; F_opcg5_b_o_a05 = .FALSE. P_opcg6_b_o_a05 = 1 ; F_opcg6_b_o_a05 = .FALSE. P_opcg7_b_o_a05 = 1 ; F_opcg7_b_o_a05 = .FALSE. P_opcg8_b_o_a05 = 1 ; F_opcg8_b_o_a05 = .FALSE. P_opcg1_f_c_a05 = 1 ; F_opcg1_f_c_a05 = .FALSE. P_opcg2_f_c_a05 = 1 ; F_opcg2_f_c_a05 = .FALSE. P_opcg3_f_c_a05 = 1 ; F_opcg3_f_c_a05 = .FALSE. P_opcg4_f_c_a05 = 1 ; F_opcg4_f_c_a05 = .FALSE. P_opcg5_f_c_a05 = 1 ; F_opcg5_f_c_a05 = .FALSE. P_opcg6_f_c_a05 = 1 ; F_opcg6_f_c_a05 = .FALSE. P_opcg7_f_c_a05 = 1 ; F_opcg7_f_c_a05 = .FALSE. P_opcg8_f_c_a05 = 1 ; F_opcg8_f_c_a05 = .FALSE. P_opcg1_f_o_a05 = 1 ; F_opcg1_f_o_a05 = .FALSE. P_opcg2_f_o_a05 = 1 ; F_opcg2_f_o_a05 = .FALSE. P_opcg3_f_o_a05 = 1 ; F_opcg3_f_o_a05 = .FALSE. P_opcg4_f_o_a05 = 1 ; F_opcg4_f_o_a05 = .FALSE. P_opcg5_f_o_a05 = 1 ; F_opcg5_f_o_a05 = .FALSE. P_opcg6_f_o_a05 = 1 ; F_opcg6_f_o_a05 = .FALSE. P_opcg7_f_o_a05 = 1 ; F_opcg7_f_o_a05 = .FALSE. P_opcg8_f_o_a05 = 1 ; F_opcg8_f_o_a05 = .FALSE. P_ant1_c_a05 = 1 ; F_ant1_c_a05 = .FALSE. P_ant2_c_a05 = 1 ; F_ant2_c_a05 = .FALSE. P_ant3_c_a05 = 1 ; F_ant3_c_a05 = .FALSE. P_ant4_c_a05 = 1 ; F_ant4_c_a05 = .FALSE. P_ant1_o_a05 = 1 ; F_ant1_o_a05 = .FALSE. P_ant2_o_a05 = 1 ; F_ant2_o_a05 = .FALSE. P_ant3_o_a05 = 1 ; F_ant3_o_a05 = .FALSE. P_ant4_o_a05 = 1 ; F_ant4_o_a05 = .FALSE. P_biog1_c_a05 = 1 ; F_biog1_c_a05 = .FALSE. P_biog2_c_a05 = 1 ; F_biog2_c_a05 = .FALSE. P_biog3_c_a05 = 1 ; F_biog3_c_a05 = .FALSE. P_biog4_c_a05 = 1 ; F_biog4_c_a05 = .FALSE. P_biog1_o_a05 = 1 ; F_biog1_o_a05 = .FALSE. P_biog2_o_a05 = 1 ; F_biog2_o_a05 = .FALSE. P_biog3_o_a05 = 1 ; F_biog3_o_a05 = .FALSE. P_biog4_o_a05 = 1 ; F_biog4_o_a05 = .FALSE. P_cl_a05 = 1 ; F_cl_a05 = .FALSE. P_msa_a05 = 1 ; F_msa_a05 = .FALSE. P_co3_a05 = 1 ; F_co3_a05 = .FALSE. P_nh4_a05 = 1 ; F_nh4_a05 = .FALSE. P_na_a05 = 1 ; F_na_a05 = .FALSE. P_ca_a05 = 1 ; F_ca_a05 = .FALSE. P_oin_a05 = 1 ; F_oin_a05 = .FALSE. P_oc_a05 = 1 ; F_oc_a05 = .FALSE. P_bc_a05 = 1 ; F_bc_a05 = .FALSE. P_hysw_a05 = 1 ; F_hysw_a05 = .FALSE. P_water_a05 = 1 ; F_water_a05 = .FALSE. P_num_a05 = 1 ; F_num_a05 = .FALSE. P_so4_a06 = 1 ; F_so4_a06 = .FALSE. P_no3_a06 = 1 ; F_no3_a06 = .FALSE. P_aro1_a06 = 1 ; F_aro1_a06 = .FALSE. P_aro2_a06 = 1 ; F_aro2_a06 = .FALSE. P_alk1_a06 = 1 ; F_alk1_a06 = .FALSE. P_ole1_a06 = 1 ; F_ole1_a06 = .FALSE. P_api1_a06 = 1 ; F_api1_a06 = .FALSE. P_api2_a06 = 1 ; F_api2_a06 = .FALSE. P_lim1_a06 = 1 ; F_lim1_a06 = .FALSE. P_lim2_a06 = 1 ; F_lim2_a06 = .FALSE. P_pcg1_b_c_a06 = 1 ; F_pcg1_b_c_a06 = .FALSE. P_pcg2_b_c_a06 = 1 ; F_pcg2_b_c_a06 = .FALSE. P_pcg3_b_c_a06 = 1 ; F_pcg3_b_c_a06 = .FALSE. P_pcg4_b_c_a06 = 1 ; F_pcg4_b_c_a06 = .FALSE. P_pcg5_b_c_a06 = 1 ; F_pcg5_b_c_a06 = .FALSE. P_pcg6_b_c_a06 = 1 ; F_pcg6_b_c_a06 = .FALSE. P_pcg7_b_c_a06 = 1 ; F_pcg7_b_c_a06 = .FALSE. P_pcg8_b_c_a06 = 1 ; F_pcg8_b_c_a06 = .FALSE. P_pcg9_b_c_a06 = 1 ; F_pcg9_b_c_a06 = .FALSE. P_pcg1_b_o_a06 = 1 ; F_pcg1_b_o_a06 = .FALSE. P_pcg2_b_o_a06 = 1 ; F_pcg2_b_o_a06 = .FALSE. P_pcg3_b_o_a06 = 1 ; F_pcg3_b_o_a06 = .FALSE. P_pcg4_b_o_a06 = 1 ; F_pcg4_b_o_a06 = .FALSE. P_pcg5_b_o_a06 = 1 ; F_pcg5_b_o_a06 = .FALSE. P_pcg6_b_o_a06 = 1 ; F_pcg6_b_o_a06 = .FALSE. P_pcg7_b_o_a06 = 1 ; F_pcg7_b_o_a06 = .FALSE. P_pcg8_b_o_a06 = 1 ; F_pcg8_b_o_a06 = .FALSE. P_pcg9_b_o_a06 = 1 ; F_pcg9_b_o_a06 = .FALSE. P_pcg1_f_c_a06 = 1 ; F_pcg1_f_c_a06 = .FALSE. P_pcg2_f_c_a06 = 1 ; F_pcg2_f_c_a06 = .FALSE. P_pcg3_f_c_a06 = 1 ; F_pcg3_f_c_a06 = .FALSE. P_pcg4_f_c_a06 = 1 ; F_pcg4_f_c_a06 = .FALSE. P_pcg5_f_c_a06 = 1 ; F_pcg5_f_c_a06 = .FALSE. P_pcg6_f_c_a06 = 1 ; F_pcg6_f_c_a06 = .FALSE. P_pcg7_f_c_a06 = 1 ; F_pcg7_f_c_a06 = .FALSE. P_pcg8_f_c_a06 = 1 ; F_pcg8_f_c_a06 = .FALSE. P_pcg9_f_c_a06 = 1 ; F_pcg9_f_c_a06 = .FALSE. P_pcg1_f_o_a06 = 1 ; F_pcg1_f_o_a06 = .FALSE. P_pcg2_f_o_a06 = 1 ; F_pcg2_f_o_a06 = .FALSE. P_pcg3_f_o_a06 = 1 ; F_pcg3_f_o_a06 = .FALSE. P_pcg4_f_o_a06 = 1 ; F_pcg4_f_o_a06 = .FALSE. P_pcg5_f_o_a06 = 1 ; F_pcg5_f_o_a06 = .FALSE. P_pcg6_f_o_a06 = 1 ; F_pcg6_f_o_a06 = .FALSE. P_pcg7_f_o_a06 = 1 ; F_pcg7_f_o_a06 = .FALSE. P_pcg8_f_o_a06 = 1 ; F_pcg8_f_o_a06 = .FALSE. P_pcg9_f_o_a06 = 1 ; F_pcg9_f_o_a06 = .FALSE. P_opcg1_b_c_a06 = 1 ; F_opcg1_b_c_a06 = .FALSE. P_opcg2_b_c_a06 = 1 ; F_opcg2_b_c_a06 = .FALSE. P_opcg3_b_c_a06 = 1 ; F_opcg3_b_c_a06 = .FALSE. P_opcg4_b_c_a06 = 1 ; F_opcg4_b_c_a06 = .FALSE. P_opcg5_b_c_a06 = 1 ; F_opcg5_b_c_a06 = .FALSE. P_opcg6_b_c_a06 = 1 ; F_opcg6_b_c_a06 = .FALSE. P_opcg7_b_c_a06 = 1 ; F_opcg7_b_c_a06 = .FALSE. P_opcg8_b_c_a06 = 1 ; F_opcg8_b_c_a06 = .FALSE. P_opcg1_b_o_a06 = 1 ; F_opcg1_b_o_a06 = .FALSE. P_opcg2_b_o_a06 = 1 ; F_opcg2_b_o_a06 = .FALSE. P_opcg3_b_o_a06 = 1 ; F_opcg3_b_o_a06 = .FALSE. P_opcg4_b_o_a06 = 1 ; F_opcg4_b_o_a06 = .FALSE. P_opcg5_b_o_a06 = 1 ; F_opcg5_b_o_a06 = .FALSE. P_opcg6_b_o_a06 = 1 ; F_opcg6_b_o_a06 = .FALSE. P_opcg7_b_o_a06 = 1 ; F_opcg7_b_o_a06 = .FALSE. P_opcg8_b_o_a06 = 1 ; F_opcg8_b_o_a06 = .FALSE. P_opcg1_f_c_a06 = 1 ; F_opcg1_f_c_a06 = .FALSE. P_opcg2_f_c_a06 = 1 ; F_opcg2_f_c_a06 = .FALSE. P_opcg3_f_c_a06 = 1 ; F_opcg3_f_c_a06 = .FALSE. P_opcg4_f_c_a06 = 1 ; F_opcg4_f_c_a06 = .FALSE. P_opcg5_f_c_a06 = 1 ; F_opcg5_f_c_a06 = .FALSE. P_opcg6_f_c_a06 = 1 ; F_opcg6_f_c_a06 = .FALSE. P_opcg7_f_c_a06 = 1 ; F_opcg7_f_c_a06 = .FALSE. P_opcg8_f_c_a06 = 1 ; F_opcg8_f_c_a06 = .FALSE. P_opcg1_f_o_a06 = 1 ; F_opcg1_f_o_a06 = .FALSE. P_opcg2_f_o_a06 = 1 ; F_opcg2_f_o_a06 = .FALSE. P_opcg3_f_o_a06 = 1 ; F_opcg3_f_o_a06 = .FALSE. P_opcg4_f_o_a06 = 1 ; F_opcg4_f_o_a06 = .FALSE. P_opcg5_f_o_a06 = 1 ; F_opcg5_f_o_a06 = .FALSE. P_opcg6_f_o_a06 = 1 ; F_opcg6_f_o_a06 = .FALSE. P_opcg7_f_o_a06 = 1 ; F_opcg7_f_o_a06 = .FALSE. P_opcg8_f_o_a06 = 1 ; F_opcg8_f_o_a06 = .FALSE. P_ant1_c_a06 = 1 ; F_ant1_c_a06 = .FALSE. P_ant2_c_a06 = 1 ; F_ant2_c_a06 = .FALSE. P_ant3_c_a06 = 1 ; F_ant3_c_a06 = .FALSE. P_ant4_c_a06 = 1 ; F_ant4_c_a06 = .FALSE. P_ant1_o_a06 = 1 ; F_ant1_o_a06 = .FALSE. P_ant2_o_a06 = 1 ; F_ant2_o_a06 = .FALSE. P_ant3_o_a06 = 1 ; F_ant3_o_a06 = .FALSE. P_ant4_o_a06 = 1 ; F_ant4_o_a06 = .FALSE. P_biog1_c_a06 = 1 ; F_biog1_c_a06 = .FALSE. P_biog2_c_a06 = 1 ; F_biog2_c_a06 = .FALSE. P_biog3_c_a06 = 1 ; F_biog3_c_a06 = .FALSE. P_biog4_c_a06 = 1 ; F_biog4_c_a06 = .FALSE. P_biog1_o_a06 = 1 ; F_biog1_o_a06 = .FALSE. P_biog2_o_a06 = 1 ; F_biog2_o_a06 = .FALSE. P_biog3_o_a06 = 1 ; F_biog3_o_a06 = .FALSE. P_biog4_o_a06 = 1 ; F_biog4_o_a06 = .FALSE. P_cl_a06 = 1 ; F_cl_a06 = .FALSE. P_msa_a06 = 1 ; F_msa_a06 = .FALSE. P_co3_a06 = 1 ; F_co3_a06 = .FALSE. P_nh4_a06 = 1 ; F_nh4_a06 = .FALSE. P_na_a06 = 1 ; F_na_a06 = .FALSE. P_ca_a06 = 1 ; F_ca_a06 = .FALSE. P_oin_a06 = 1 ; F_oin_a06 = .FALSE. P_oc_a06 = 1 ; F_oc_a06 = .FALSE. P_bc_a06 = 1 ; F_bc_a06 = .FALSE. P_hysw_a06 = 1 ; F_hysw_a06 = .FALSE. P_water_a06 = 1 ; F_water_a06 = .FALSE. P_num_a06 = 1 ; F_num_a06 = .FALSE. P_so4_a07 = 1 ; F_so4_a07 = .FALSE. P_no3_a07 = 1 ; F_no3_a07 = .FALSE. P_aro1_a07 = 1 ; F_aro1_a07 = .FALSE. P_aro2_a07 = 1 ; F_aro2_a07 = .FALSE. P_alk1_a07 = 1 ; F_alk1_a07 = .FALSE. P_ole1_a07 = 1 ; F_ole1_a07 = .FALSE. P_api1_a07 = 1 ; F_api1_a07 = .FALSE. P_api2_a07 = 1 ; F_api2_a07 = .FALSE. P_lim1_a07 = 1 ; F_lim1_a07 = .FALSE. P_lim2_a07 = 1 ; F_lim2_a07 = .FALSE. P_pcg1_b_c_a07 = 1 ; F_pcg1_b_c_a07 = .FALSE. P_pcg2_b_c_a07 = 1 ; F_pcg2_b_c_a07 = .FALSE. P_pcg3_b_c_a07 = 1 ; F_pcg3_b_c_a07 = .FALSE. P_pcg4_b_c_a07 = 1 ; F_pcg4_b_c_a07 = .FALSE. P_pcg5_b_c_a07 = 1 ; F_pcg5_b_c_a07 = .FALSE. P_pcg6_b_c_a07 = 1 ; F_pcg6_b_c_a07 = .FALSE. P_pcg7_b_c_a07 = 1 ; F_pcg7_b_c_a07 = .FALSE. P_pcg8_b_c_a07 = 1 ; F_pcg8_b_c_a07 = .FALSE. P_pcg9_b_c_a07 = 1 ; F_pcg9_b_c_a07 = .FALSE. P_pcg1_b_o_a07 = 1 ; F_pcg1_b_o_a07 = .FALSE. P_pcg2_b_o_a07 = 1 ; F_pcg2_b_o_a07 = .FALSE. P_pcg3_b_o_a07 = 1 ; F_pcg3_b_o_a07 = .FALSE. P_pcg4_b_o_a07 = 1 ; F_pcg4_b_o_a07 = .FALSE. P_pcg5_b_o_a07 = 1 ; F_pcg5_b_o_a07 = .FALSE. P_pcg6_b_o_a07 = 1 ; F_pcg6_b_o_a07 = .FALSE. P_pcg7_b_o_a07 = 1 ; F_pcg7_b_o_a07 = .FALSE. P_pcg8_b_o_a07 = 1 ; F_pcg8_b_o_a07 = .FALSE. P_pcg9_b_o_a07 = 1 ; F_pcg9_b_o_a07 = .FALSE. P_pcg1_f_c_a07 = 1 ; F_pcg1_f_c_a07 = .FALSE. P_pcg2_f_c_a07 = 1 ; F_pcg2_f_c_a07 = .FALSE. P_pcg3_f_c_a07 = 1 ; F_pcg3_f_c_a07 = .FALSE. P_pcg4_f_c_a07 = 1 ; F_pcg4_f_c_a07 = .FALSE. P_pcg5_f_c_a07 = 1 ; F_pcg5_f_c_a07 = .FALSE. P_pcg6_f_c_a07 = 1 ; F_pcg6_f_c_a07 = .FALSE. P_pcg7_f_c_a07 = 1 ; F_pcg7_f_c_a07 = .FALSE. P_pcg8_f_c_a07 = 1 ; F_pcg8_f_c_a07 = .FALSE. P_pcg9_f_c_a07 = 1 ; F_pcg9_f_c_a07 = .FALSE. P_pcg1_f_o_a07 = 1 ; F_pcg1_f_o_a07 = .FALSE. P_pcg2_f_o_a07 = 1 ; F_pcg2_f_o_a07 = .FALSE. P_pcg3_f_o_a07 = 1 ; F_pcg3_f_o_a07 = .FALSE. P_pcg4_f_o_a07 = 1 ; F_pcg4_f_o_a07 = .FALSE. P_pcg5_f_o_a07 = 1 ; F_pcg5_f_o_a07 = .FALSE. P_pcg6_f_o_a07 = 1 ; F_pcg6_f_o_a07 = .FALSE. P_pcg7_f_o_a07 = 1 ; F_pcg7_f_o_a07 = .FALSE. P_pcg8_f_o_a07 = 1 ; F_pcg8_f_o_a07 = .FALSE. P_pcg9_f_o_a07 = 1 ; F_pcg9_f_o_a07 = .FALSE. P_opcg1_b_c_a07 = 1 ; F_opcg1_b_c_a07 = .FALSE. P_opcg2_b_c_a07 = 1 ; F_opcg2_b_c_a07 = .FALSE. P_opcg3_b_c_a07 = 1 ; F_opcg3_b_c_a07 = .FALSE. P_opcg4_b_c_a07 = 1 ; F_opcg4_b_c_a07 = .FALSE. P_opcg5_b_c_a07 = 1 ; F_opcg5_b_c_a07 = .FALSE. P_opcg6_b_c_a07 = 1 ; F_opcg6_b_c_a07 = .FALSE. P_opcg7_b_c_a07 = 1 ; F_opcg7_b_c_a07 = .FALSE. P_opcg8_b_c_a07 = 1 ; F_opcg8_b_c_a07 = .FALSE. P_opcg1_b_o_a07 = 1 ; F_opcg1_b_o_a07 = .FALSE. P_opcg2_b_o_a07 = 1 ; F_opcg2_b_o_a07 = .FALSE. P_opcg3_b_o_a07 = 1 ; F_opcg3_b_o_a07 = .FALSE. P_opcg4_b_o_a07 = 1 ; F_opcg4_b_o_a07 = .FALSE. P_opcg5_b_o_a07 = 1 ; F_opcg5_b_o_a07 = .FALSE. P_opcg6_b_o_a07 = 1 ; F_opcg6_b_o_a07 = .FALSE. P_opcg7_b_o_a07 = 1 ; F_opcg7_b_o_a07 = .FALSE. P_opcg8_b_o_a07 = 1 ; F_opcg8_b_o_a07 = .FALSE. P_opcg1_f_c_a07 = 1 ; F_opcg1_f_c_a07 = .FALSE. P_opcg2_f_c_a07 = 1 ; F_opcg2_f_c_a07 = .FALSE. P_opcg3_f_c_a07 = 1 ; F_opcg3_f_c_a07 = .FALSE. P_opcg4_f_c_a07 = 1 ; F_opcg4_f_c_a07 = .FALSE. P_opcg5_f_c_a07 = 1 ; F_opcg5_f_c_a07 = .FALSE. P_opcg6_f_c_a07 = 1 ; F_opcg6_f_c_a07 = .FALSE. P_opcg7_f_c_a07 = 1 ; F_opcg7_f_c_a07 = .FALSE. P_opcg8_f_c_a07 = 1 ; F_opcg8_f_c_a07 = .FALSE. P_opcg1_f_o_a07 = 1 ; F_opcg1_f_o_a07 = .FALSE. P_opcg2_f_o_a07 = 1 ; F_opcg2_f_o_a07 = .FALSE. P_opcg3_f_o_a07 = 1 ; F_opcg3_f_o_a07 = .FALSE. P_opcg4_f_o_a07 = 1 ; F_opcg4_f_o_a07 = .FALSE. P_opcg5_f_o_a07 = 1 ; F_opcg5_f_o_a07 = .FALSE. P_opcg6_f_o_a07 = 1 ; F_opcg6_f_o_a07 = .FALSE. P_opcg7_f_o_a07 = 1 ; F_opcg7_f_o_a07 = .FALSE. P_opcg8_f_o_a07 = 1 ; F_opcg8_f_o_a07 = .FALSE. P_ant1_c_a07 = 1 ; F_ant1_c_a07 = .FALSE. P_ant2_c_a07 = 1 ; F_ant2_c_a07 = .FALSE. P_ant3_c_a07 = 1 ; F_ant3_c_a07 = .FALSE. P_ant4_c_a07 = 1 ; F_ant4_c_a07 = .FALSE. P_ant1_o_a07 = 1 ; F_ant1_o_a07 = .FALSE. P_ant2_o_a07 = 1 ; F_ant2_o_a07 = .FALSE. P_ant3_o_a07 = 1 ; F_ant3_o_a07 = .FALSE. P_ant4_o_a07 = 1 ; F_ant4_o_a07 = .FALSE. P_biog1_c_a07 = 1 ; F_biog1_c_a07 = .FALSE. P_biog2_c_a07 = 1 ; F_biog2_c_a07 = .FALSE. P_biog3_c_a07 = 1 ; F_biog3_c_a07 = .FALSE. P_biog4_c_a07 = 1 ; F_biog4_c_a07 = .FALSE. P_biog1_o_a07 = 1 ; F_biog1_o_a07 = .FALSE. P_biog2_o_a07 = 1 ; F_biog2_o_a07 = .FALSE. P_biog3_o_a07 = 1 ; F_biog3_o_a07 = .FALSE. P_biog4_o_a07 = 1 ; F_biog4_o_a07 = .FALSE. P_cl_a07 = 1 ; F_cl_a07 = .FALSE. P_msa_a07 = 1 ; F_msa_a07 = .FALSE. P_co3_a07 = 1 ; F_co3_a07 = .FALSE. P_nh4_a07 = 1 ; F_nh4_a07 = .FALSE. P_na_a07 = 1 ; F_na_a07 = .FALSE. P_ca_a07 = 1 ; F_ca_a07 = .FALSE. P_oin_a07 = 1 ; F_oin_a07 = .FALSE. P_oc_a07 = 1 ; F_oc_a07 = .FALSE. P_bc_a07 = 1 ; F_bc_a07 = .FALSE. P_hysw_a07 = 1 ; F_hysw_a07 = .FALSE. P_water_a07 = 1 ; F_water_a07 = .FALSE. P_num_a07 = 1 ; F_num_a07 = .FALSE. P_so4_a08 = 1 ; F_so4_a08 = .FALSE. P_no3_a08 = 1 ; F_no3_a08 = .FALSE. P_aro1_a08 = 1 ; F_aro1_a08 = .FALSE. P_aro2_a08 = 1 ; F_aro2_a08 = .FALSE. P_alk1_a08 = 1 ; F_alk1_a08 = .FALSE. P_ole1_a08 = 1 ; F_ole1_a08 = .FALSE. P_api1_a08 = 1 ; F_api1_a08 = .FALSE. P_api2_a08 = 1 ; F_api2_a08 = .FALSE. P_lim1_a08 = 1 ; F_lim1_a08 = .FALSE. P_lim2_a08 = 1 ; F_lim2_a08 = .FALSE. P_pcg1_b_c_a08 = 1 ; F_pcg1_b_c_a08 = .FALSE. P_pcg2_b_c_a08 = 1 ; F_pcg2_b_c_a08 = .FALSE. P_pcg3_b_c_a08 = 1 ; F_pcg3_b_c_a08 = .FALSE. P_pcg4_b_c_a08 = 1 ; F_pcg4_b_c_a08 = .FALSE. P_pcg5_b_c_a08 = 1 ; F_pcg5_b_c_a08 = .FALSE. P_pcg6_b_c_a08 = 1 ; F_pcg6_b_c_a08 = .FALSE. P_pcg7_b_c_a08 = 1 ; F_pcg7_b_c_a08 = .FALSE. P_pcg8_b_c_a08 = 1 ; F_pcg8_b_c_a08 = .FALSE. P_pcg9_b_c_a08 = 1 ; F_pcg9_b_c_a08 = .FALSE. P_pcg1_b_o_a08 = 1 ; F_pcg1_b_o_a08 = .FALSE. P_pcg2_b_o_a08 = 1 ; F_pcg2_b_o_a08 = .FALSE. P_pcg3_b_o_a08 = 1 ; F_pcg3_b_o_a08 = .FALSE. P_pcg4_b_o_a08 = 1 ; F_pcg4_b_o_a08 = .FALSE. P_pcg5_b_o_a08 = 1 ; F_pcg5_b_o_a08 = .FALSE. P_pcg6_b_o_a08 = 1 ; F_pcg6_b_o_a08 = .FALSE. P_pcg7_b_o_a08 = 1 ; F_pcg7_b_o_a08 = .FALSE. P_pcg8_b_o_a08 = 1 ; F_pcg8_b_o_a08 = .FALSE. P_pcg9_b_o_a08 = 1 ; F_pcg9_b_o_a08 = .FALSE. P_pcg1_f_c_a08 = 1 ; F_pcg1_f_c_a08 = .FALSE. P_pcg2_f_c_a08 = 1 ; F_pcg2_f_c_a08 = .FALSE. P_pcg3_f_c_a08 = 1 ; F_pcg3_f_c_a08 = .FALSE. P_pcg4_f_c_a08 = 1 ; F_pcg4_f_c_a08 = .FALSE. P_pcg5_f_c_a08 = 1 ; F_pcg5_f_c_a08 = .FALSE. P_pcg6_f_c_a08 = 1 ; F_pcg6_f_c_a08 = .FALSE. P_pcg7_f_c_a08 = 1 ; F_pcg7_f_c_a08 = .FALSE. P_pcg8_f_c_a08 = 1 ; F_pcg8_f_c_a08 = .FALSE. P_pcg9_f_c_a08 = 1 ; F_pcg9_f_c_a08 = .FALSE. P_pcg1_f_o_a08 = 1 ; F_pcg1_f_o_a08 = .FALSE. P_pcg2_f_o_a08 = 1 ; F_pcg2_f_o_a08 = .FALSE. P_pcg3_f_o_a08 = 1 ; F_pcg3_f_o_a08 = .FALSE. P_pcg4_f_o_a08 = 1 ; F_pcg4_f_o_a08 = .FALSE. P_pcg5_f_o_a08 = 1 ; F_pcg5_f_o_a08 = .FALSE. P_pcg6_f_o_a08 = 1 ; F_pcg6_f_o_a08 = .FALSE. P_pcg7_f_o_a08 = 1 ; F_pcg7_f_o_a08 = .FALSE. P_pcg8_f_o_a08 = 1 ; F_pcg8_f_o_a08 = .FALSE. P_pcg9_f_o_a08 = 1 ; F_pcg9_f_o_a08 = .FALSE. P_opcg1_b_c_a08 = 1 ; F_opcg1_b_c_a08 = .FALSE. P_opcg2_b_c_a08 = 1 ; F_opcg2_b_c_a08 = .FALSE. P_opcg3_b_c_a08 = 1 ; F_opcg3_b_c_a08 = .FALSE. P_opcg4_b_c_a08 = 1 ; F_opcg4_b_c_a08 = .FALSE. P_opcg5_b_c_a08 = 1 ; F_opcg5_b_c_a08 = .FALSE. P_opcg6_b_c_a08 = 1 ; F_opcg6_b_c_a08 = .FALSE. P_opcg7_b_c_a08 = 1 ; F_opcg7_b_c_a08 = .FALSE. P_opcg8_b_c_a08 = 1 ; F_opcg8_b_c_a08 = .FALSE. P_opcg1_b_o_a08 = 1 ; F_opcg1_b_o_a08 = .FALSE. P_opcg2_b_o_a08 = 1 ; F_opcg2_b_o_a08 = .FALSE. P_opcg3_b_o_a08 = 1 ; F_opcg3_b_o_a08 = .FALSE. P_opcg4_b_o_a08 = 1 ; F_opcg4_b_o_a08 = .FALSE. P_opcg5_b_o_a08 = 1 ; F_opcg5_b_o_a08 = .FALSE. P_opcg6_b_o_a08 = 1 ; F_opcg6_b_o_a08 = .FALSE. P_opcg7_b_o_a08 = 1 ; F_opcg7_b_o_a08 = .FALSE. P_opcg8_b_o_a08 = 1 ; F_opcg8_b_o_a08 = .FALSE. P_opcg1_f_c_a08 = 1 ; F_opcg1_f_c_a08 = .FALSE. P_opcg2_f_c_a08 = 1 ; F_opcg2_f_c_a08 = .FALSE. P_opcg3_f_c_a08 = 1 ; F_opcg3_f_c_a08 = .FALSE. P_opcg4_f_c_a08 = 1 ; F_opcg4_f_c_a08 = .FALSE. P_opcg5_f_c_a08 = 1 ; F_opcg5_f_c_a08 = .FALSE. P_opcg6_f_c_a08 = 1 ; F_opcg6_f_c_a08 = .FALSE. P_opcg7_f_c_a08 = 1 ; F_opcg7_f_c_a08 = .FALSE. P_opcg8_f_c_a08 = 1 ; F_opcg8_f_c_a08 = .FALSE. P_opcg1_f_o_a08 = 1 ; F_opcg1_f_o_a08 = .FALSE. P_opcg2_f_o_a08 = 1 ; F_opcg2_f_o_a08 = .FALSE. P_opcg3_f_o_a08 = 1 ; F_opcg3_f_o_a08 = .FALSE. P_opcg4_f_o_a08 = 1 ; F_opcg4_f_o_a08 = .FALSE. P_opcg5_f_o_a08 = 1 ; F_opcg5_f_o_a08 = .FALSE. P_opcg6_f_o_a08 = 1 ; F_opcg6_f_o_a08 = .FALSE. P_opcg7_f_o_a08 = 1 ; F_opcg7_f_o_a08 = .FALSE. P_opcg8_f_o_a08 = 1 ; F_opcg8_f_o_a08 = .FALSE. P_ant1_c_a08 = 1 ; F_ant1_c_a08 = .FALSE. P_ant2_c_a08 = 1 ; F_ant2_c_a08 = .FALSE. P_ant3_c_a08 = 1 ; F_ant3_c_a08 = .FALSE. P_ant4_c_a08 = 1 ; F_ant4_c_a08 = .FALSE. P_ant1_o_a08 = 1 ; F_ant1_o_a08 = .FALSE. P_ant2_o_a08 = 1 ; F_ant2_o_a08 = .FALSE. P_ant3_o_a08 = 1 ; F_ant3_o_a08 = .FALSE. P_ant4_o_a08 = 1 ; F_ant4_o_a08 = .FALSE. P_biog1_c_a08 = 1 ; F_biog1_c_a08 = .FALSE. P_biog2_c_a08 = 1 ; F_biog2_c_a08 = .FALSE. P_biog3_c_a08 = 1 ; F_biog3_c_a08 = .FALSE. P_biog4_c_a08 = 1 ; F_biog4_c_a08 = .FALSE. P_biog1_o_a08 = 1 ; F_biog1_o_a08 = .FALSE. P_biog2_o_a08 = 1 ; F_biog2_o_a08 = .FALSE. P_biog3_o_a08 = 1 ; F_biog3_o_a08 = .FALSE. P_biog4_o_a08 = 1 ; F_biog4_o_a08 = .FALSE. P_cl_a08 = 1 ; F_cl_a08 = .FALSE. P_msa_a08 = 1 ; F_msa_a08 = .FALSE. P_co3_a08 = 1 ; F_co3_a08 = .FALSE. P_nh4_a08 = 1 ; F_nh4_a08 = .FALSE. P_na_a08 = 1 ; F_na_a08 = .FALSE. P_ca_a08 = 1 ; F_ca_a08 = .FALSE. P_oin_a08 = 1 ; F_oin_a08 = .FALSE. P_oc_a08 = 1 ; F_oc_a08 = .FALSE. P_bc_a08 = 1 ; F_bc_a08 = .FALSE. P_hysw_a08 = 1 ; F_hysw_a08 = .FALSE. P_water_a08 = 1 ; F_water_a08 = .FALSE. P_num_a08 = 1 ; F_num_a08 = .FALSE. P_so4_cw01 = 1 ; F_so4_cw01 = .FALSE. P_no3_cw01 = 1 ; F_no3_cw01 = .FALSE. P_cl_cw01 = 1 ; F_cl_cw01 = .FALSE. P_msa_cw01 = 1 ; F_msa_cw01 = .FALSE. P_co3_cw01 = 1 ; F_co3_cw01 = .FALSE. P_nh4_cw01 = 1 ; F_nh4_cw01 = .FALSE. P_na_cw01 = 1 ; F_na_cw01 = .FALSE. P_ca_cw01 = 1 ; F_ca_cw01 = .FALSE. P_oin_cw01 = 1 ; F_oin_cw01 = .FALSE. P_oc_cw01 = 1 ; F_oc_cw01 = .FALSE. P_bc_cw01 = 1 ; F_bc_cw01 = .FALSE. P_glysoa_r1_cw01 = 1 ; F_glysoa_r1_cw01 = .FALSE. P_glysoa_r2_cw01 = 1 ; F_glysoa_r2_cw01 = .FALSE. P_glysoa_sfc_cw01 = 1 ; F_glysoa_sfc_cw01 = .FALSE. P_glysoa_nh4_cw01 = 1 ; F_glysoa_nh4_cw01 = .FALSE. P_glysoa_oh_cw01 = 1 ; F_glysoa_oh_cw01 = .FALSE. P_num_cw01 = 1 ; F_num_cw01 = .FALSE. P_so4_cw02 = 1 ; F_so4_cw02 = .FALSE. P_no3_cw02 = 1 ; F_no3_cw02 = .FALSE. P_cl_cw02 = 1 ; F_cl_cw02 = .FALSE. P_msa_cw02 = 1 ; F_msa_cw02 = .FALSE. P_co3_cw02 = 1 ; F_co3_cw02 = .FALSE. P_nh4_cw02 = 1 ; F_nh4_cw02 = .FALSE. P_na_cw02 = 1 ; F_na_cw02 = .FALSE. P_ca_cw02 = 1 ; F_ca_cw02 = .FALSE. P_oin_cw02 = 1 ; F_oin_cw02 = .FALSE. P_oc_cw02 = 1 ; F_oc_cw02 = .FALSE. P_bc_cw02 = 1 ; F_bc_cw02 = .FALSE. P_glysoa_r1_cw02 = 1 ; F_glysoa_r1_cw02 = .FALSE. P_glysoa_r2_cw02 = 1 ; F_glysoa_r2_cw02 = .FALSE. P_glysoa_sfc_cw02 = 1 ; F_glysoa_sfc_cw02 = .FALSE. P_glysoa_nh4_cw02 = 1 ; F_glysoa_nh4_cw02 = .FALSE. P_glysoa_oh_cw02 = 1 ; F_glysoa_oh_cw02 = .FALSE. P_biog1_c_cw02 = 1 ; F_biog1_c_cw02 = .FALSE. P_biog1_o_cw02 = 1 ; F_biog1_o_cw02 = .FALSE. P_num_cw02 = 1 ; F_num_cw02 = .FALSE. P_so4_cw03 = 1 ; F_so4_cw03 = .FALSE. P_no3_cw03 = 1 ; F_no3_cw03 = .FALSE. P_cl_cw03 = 1 ; F_cl_cw03 = .FALSE. P_msa_cw03 = 1 ; F_msa_cw03 = .FALSE. P_co3_cw03 = 1 ; F_co3_cw03 = .FALSE. P_nh4_cw03 = 1 ; F_nh4_cw03 = .FALSE. P_na_cw03 = 1 ; F_na_cw03 = .FALSE. P_ca_cw03 = 1 ; F_ca_cw03 = .FALSE. P_oin_cw03 = 1 ; F_oin_cw03 = .FALSE. P_oc_cw03 = 1 ; F_oc_cw03 = .FALSE. P_bc_cw03 = 1 ; F_bc_cw03 = .FALSE. P_glysoa_r1_cw03 = 1 ; F_glysoa_r1_cw03 = .FALSE. P_glysoa_r2_cw03 = 1 ; F_glysoa_r2_cw03 = .FALSE. P_glysoa_sfc_cw03 = 1 ; F_glysoa_sfc_cw03 = .FALSE. P_glysoa_nh4_cw03 = 1 ; F_glysoa_nh4_cw03 = .FALSE. P_glysoa_oh_cw03 = 1 ; F_glysoa_oh_cw03 = .FALSE. P_biog1_c_cw03 = 1 ; F_biog1_c_cw03 = .FALSE. P_biog1_o_cw03 = 1 ; F_biog1_o_cw03 = .FALSE. P_num_cw03 = 1 ; F_num_cw03 = .FALSE. P_so4_cw04 = 1 ; F_so4_cw04 = .FALSE. P_no3_cw04 = 1 ; F_no3_cw04 = .FALSE. P_cl_cw04 = 1 ; F_cl_cw04 = .FALSE. P_msa_cw04 = 1 ; F_msa_cw04 = .FALSE. P_co3_cw04 = 1 ; F_co3_cw04 = .FALSE. P_nh4_cw04 = 1 ; F_nh4_cw04 = .FALSE. P_na_cw04 = 1 ; F_na_cw04 = .FALSE. P_ca_cw04 = 1 ; F_ca_cw04 = .FALSE. P_oin_cw04 = 1 ; F_oin_cw04 = .FALSE. P_oc_cw04 = 1 ; F_oc_cw04 = .FALSE. P_bc_cw04 = 1 ; F_bc_cw04 = .FALSE. P_glysoa_r1_cw04 = 1 ; F_glysoa_r1_cw04 = .FALSE. P_glysoa_r2_cw04 = 1 ; F_glysoa_r2_cw04 = .FALSE. P_glysoa_sfc_cw04 = 1 ; F_glysoa_sfc_cw04 = .FALSE. P_glysoa_nh4_cw04 = 1 ; F_glysoa_nh4_cw04 = .FALSE. P_glysoa_oh_cw04 = 1 ; F_glysoa_oh_cw04 = .FALSE. P_num_cw04 = 1 ; F_num_cw04 = .FALSE. P_so4_cw05 = 1 ; F_so4_cw05 = .FALSE. P_no3_cw05 = 1 ; F_no3_cw05 = .FALSE. P_cl_cw05 = 1 ; F_cl_cw05 = .FALSE. P_msa_cw05 = 1 ; F_msa_cw05 = .FALSE. P_co3_cw05 = 1 ; F_co3_cw05 = .FALSE. P_nh4_cw05 = 1 ; F_nh4_cw05 = .FALSE. P_na_cw05 = 1 ; F_na_cw05 = .FALSE. P_ca_cw05 = 1 ; F_ca_cw05 = .FALSE. P_oin_cw05 = 1 ; F_oin_cw05 = .FALSE. P_oc_cw05 = 1 ; F_oc_cw05 = .FALSE. P_bc_cw05 = 1 ; F_bc_cw05 = .FALSE. P_num_cw05 = 1 ; F_num_cw05 = .FALSE. P_so4_cw06 = 1 ; F_so4_cw06 = .FALSE. P_no3_cw06 = 1 ; F_no3_cw06 = .FALSE. P_cl_cw06 = 1 ; F_cl_cw06 = .FALSE. P_msa_cw06 = 1 ; F_msa_cw06 = .FALSE. P_co3_cw06 = 1 ; F_co3_cw06 = .FALSE. P_nh4_cw06 = 1 ; F_nh4_cw06 = .FALSE. P_na_cw06 = 1 ; F_na_cw06 = .FALSE. P_ca_cw06 = 1 ; F_ca_cw06 = .FALSE. P_oin_cw06 = 1 ; F_oin_cw06 = .FALSE. P_oc_cw06 = 1 ; F_oc_cw06 = .FALSE. P_bc_cw06 = 1 ; F_bc_cw06 = .FALSE. P_num_cw06 = 1 ; F_num_cw06 = .FALSE. P_so4_cw07 = 1 ; F_so4_cw07 = .FALSE. P_no3_cw07 = 1 ; F_no3_cw07 = .FALSE. P_cl_cw07 = 1 ; F_cl_cw07 = .FALSE. P_msa_cw07 = 1 ; F_msa_cw07 = .FALSE. P_co3_cw07 = 1 ; F_co3_cw07 = .FALSE. P_nh4_cw07 = 1 ; F_nh4_cw07 = .FALSE. P_na_cw07 = 1 ; F_na_cw07 = .FALSE. P_ca_cw07 = 1 ; F_ca_cw07 = .FALSE. P_oin_cw07 = 1 ; F_oin_cw07 = .FALSE. P_oc_cw07 = 1 ; F_oc_cw07 = .FALSE. P_bc_cw07 = 1 ; F_bc_cw07 = .FALSE. P_num_cw07 = 1 ; F_num_cw07 = .FALSE. P_so4_cw08 = 1 ; F_so4_cw08 = .FALSE. P_no3_cw08 = 1 ; F_no3_cw08 = .FALSE. P_cl_cw08 = 1 ; F_cl_cw08 = .FALSE. P_msa_cw08 = 1 ; F_msa_cw08 = .FALSE. P_co3_cw08 = 1 ; F_co3_cw08 = .FALSE. P_nh4_cw08 = 1 ; F_nh4_cw08 = .FALSE. P_na_cw08 = 1 ; F_na_cw08 = .FALSE. P_ca_cw08 = 1 ; F_ca_cw08 = .FALSE. P_oin_cw08 = 1 ; F_oin_cw08 = .FALSE. P_oc_cw08 = 1 ; F_oc_cw08 = .FALSE. P_bc_cw08 = 1 ; F_bc_cw08 = .FALSE. P_num_cw08 = 1 ; F_num_cw08 = .FALSE. P_asoax_cw01 = 1 ; F_asoax_cw01 = .FALSE. P_asoa1_cw01 = 1 ; F_asoa1_cw01 = .FALSE. P_asoa2_cw01 = 1 ; F_asoa2_cw01 = .FALSE. P_asoa3_cw01 = 1 ; F_asoa3_cw01 = .FALSE. P_asoa4_cw01 = 1 ; F_asoa4_cw01 = .FALSE. P_bsoax_cw01 = 1 ; F_bsoax_cw01 = .FALSE. P_bsoa1_cw01 = 1 ; F_bsoa1_cw01 = .FALSE. P_bsoa2_cw01 = 1 ; F_bsoa2_cw01 = .FALSE. P_bsoa3_cw01 = 1 ; F_bsoa3_cw01 = .FALSE. P_bsoa4_cw01 = 1 ; F_bsoa4_cw01 = .FALSE. P_asoax_cw02 = 1 ; F_asoax_cw02 = .FALSE. P_asoa1_cw02 = 1 ; F_asoa1_cw02 = .FALSE. P_asoa2_cw02 = 1 ; F_asoa2_cw02 = .FALSE. P_asoa3_cw02 = 1 ; F_asoa3_cw02 = .FALSE. P_asoa4_cw02 = 1 ; F_asoa4_cw02 = .FALSE. P_bsoax_cw02 = 1 ; F_bsoax_cw02 = .FALSE. P_bsoa1_cw02 = 1 ; F_bsoa1_cw02 = .FALSE. P_bsoa2_cw02 = 1 ; F_bsoa2_cw02 = .FALSE. P_bsoa3_cw02 = 1 ; F_bsoa3_cw02 = .FALSE. P_bsoa4_cw02 = 1 ; F_bsoa4_cw02 = .FALSE. P_asoax_cw03 = 1 ; F_asoax_cw03 = .FALSE. P_asoa1_cw03 = 1 ; F_asoa1_cw03 = .FALSE. P_asoa2_cw03 = 1 ; F_asoa2_cw03 = .FALSE. P_asoa3_cw03 = 1 ; F_asoa3_cw03 = .FALSE. P_asoa4_cw03 = 1 ; F_asoa4_cw03 = .FALSE. P_bsoax_cw03 = 1 ; F_bsoax_cw03 = .FALSE. P_bsoa1_cw03 = 1 ; F_bsoa1_cw03 = .FALSE. P_bsoa2_cw03 = 1 ; F_bsoa2_cw03 = .FALSE. P_bsoa3_cw03 = 1 ; F_bsoa3_cw03 = .FALSE. P_bsoa4_cw03 = 1 ; F_bsoa4_cw03 = .FALSE. P_asoax_cw04 = 1 ; F_asoax_cw04 = .FALSE. P_asoa1_cw04 = 1 ; F_asoa1_cw04 = .FALSE. P_asoa2_cw04 = 1 ; F_asoa2_cw04 = .FALSE. P_asoa3_cw04 = 1 ; F_asoa3_cw04 = .FALSE. P_asoa4_cw04 = 1 ; F_asoa4_cw04 = .FALSE. P_bsoax_cw04 = 1 ; F_bsoax_cw04 = .FALSE. P_bsoa1_cw04 = 1 ; F_bsoa1_cw04 = .FALSE. P_bsoa2_cw04 = 1 ; F_bsoa2_cw04 = .FALSE. P_bsoa3_cw04 = 1 ; F_bsoa3_cw04 = .FALSE. P_bsoa4_cw04 = 1 ; F_bsoa4_cw04 = .FALSE. P_pcg1_b_c_cw01 = 1 ; F_pcg1_b_c_cw01 = .FALSE. P_pcg1_b_o_cw01 = 1 ; F_pcg1_b_o_cw01 = .FALSE. P_opcg1_b_c_cw01 = 1 ; F_opcg1_b_c_cw01 = .FALSE. P_opcg1_b_o_cw01 = 1 ; F_opcg1_b_o_cw01 = .FALSE. P_pcg1_f_c_cw01 = 1 ; F_pcg1_f_c_cw01 = .FALSE. P_pcg1_f_o_cw01 = 1 ; F_pcg1_f_o_cw01 = .FALSE. P_opcg1_f_c_cw01 = 1 ; F_opcg1_f_c_cw01 = .FALSE. P_opcg1_f_o_cw01 = 1 ; F_opcg1_f_o_cw01 = .FALSE. P_ant1_c_cw01 = 1 ; F_ant1_c_cw01 = .FALSE. P_biog1_c_cw01 = 1 ; F_biog1_c_cw01 = .FALSE. P_pcg1_b_c_cw02 = 1 ; F_pcg1_b_c_cw02 = .FALSE. P_pcg1_b_o_cw02 = 1 ; F_pcg1_b_o_cw02 = .FALSE. P_opcg1_b_c_cw02 = 1 ; F_opcg1_b_c_cw02 = .FALSE. P_opcg1_b_o_cw02 = 1 ; F_opcg1_b_o_cw02 = .FALSE. P_pcg1_f_c_cw02 = 1 ; F_pcg1_f_c_cw02 = .FALSE. P_pcg1_f_o_cw02 = 1 ; F_pcg1_f_o_cw02 = .FALSE. P_opcg1_f_c_cw02 = 1 ; F_opcg1_f_c_cw02 = .FALSE. P_opcg1_f_o_cw02 = 1 ; F_opcg1_f_o_cw02 = .FALSE. P_ant1_c_cw02 = 1 ; F_ant1_c_cw02 = .FALSE. P_pcg1_b_c_cw03 = 1 ; F_pcg1_b_c_cw03 = .FALSE. P_pcg1_b_o_cw03 = 1 ; F_pcg1_b_o_cw03 = .FALSE. P_opcg1_b_c_cw03 = 1 ; F_opcg1_b_c_cw03 = .FALSE. P_opcg1_b_o_cw03 = 1 ; F_opcg1_b_o_cw03 = .FALSE. P_pcg1_f_c_cw03 = 1 ; F_pcg1_f_c_cw03 = .FALSE. P_pcg1_f_o_cw03 = 1 ; F_pcg1_f_o_cw03 = .FALSE. P_opcg1_f_c_cw03 = 1 ; F_opcg1_f_c_cw03 = .FALSE. P_opcg1_f_o_cw03 = 1 ; F_opcg1_f_o_cw03 = .FALSE. P_ant1_c_cw03 = 1 ; F_ant1_c_cw03 = .FALSE. P_pcg1_b_c_cw04 = 1 ; F_pcg1_b_c_cw04 = .FALSE. P_pcg1_b_o_cw04 = 1 ; F_pcg1_b_o_cw04 = .FALSE. P_opcg1_b_c_cw04 = 1 ; F_opcg1_b_c_cw04 = .FALSE. P_opcg1_b_o_cw04 = 1 ; F_opcg1_b_o_cw04 = .FALSE. P_pcg1_f_c_cw04 = 1 ; F_pcg1_f_c_cw04 = .FALSE. P_pcg1_f_o_cw04 = 1 ; F_pcg1_f_o_cw04 = .FALSE. P_opcg1_f_c_cw04 = 1 ; F_opcg1_f_c_cw04 = .FALSE. P_opcg1_f_o_cw04 = 1 ; F_opcg1_f_o_cw04 = .FALSE. P_ant1_c_cw04 = 1 ; F_ant1_c_cw04 = .FALSE. P_biog1_c_cw04 = 1 ; F_biog1_c_cw04 = .FALSE. P_pcg1_b_c_cw05 = 1 ; F_pcg1_b_c_cw05 = .FALSE. P_pcg1_b_o_cw05 = 1 ; F_pcg1_b_o_cw05 = .FALSE. P_opcg1_b_c_cw05 = 1 ; F_opcg1_b_c_cw05 = .FALSE. P_opcg1_b_o_cw05 = 1 ; F_opcg1_b_o_cw05 = .FALSE. P_pcg1_f_c_cw05 = 1 ; F_pcg1_f_c_cw05 = .FALSE. P_pcg1_f_o_cw05 = 1 ; F_pcg1_f_o_cw05 = .FALSE. P_opcg1_f_c_cw05 = 1 ; F_opcg1_f_c_cw05 = .FALSE. P_opcg1_f_o_cw05 = 1 ; F_opcg1_f_o_cw05 = .FALSE. P_ant1_c_cw05 = 1 ; F_ant1_c_cw05 = .FALSE. P_biog1_c_cw05 = 1 ; F_biog1_c_cw05 = .FALSE. P_pcg1_b_c_cw06 = 1 ; F_pcg1_b_c_cw06 = .FALSE. P_pcg1_b_o_cw06 = 1 ; F_pcg1_b_o_cw06 = .FALSE. P_opcg1_b_c_cw06 = 1 ; F_opcg1_b_c_cw06 = .FALSE. P_opcg1_b_o_cw06 = 1 ; F_opcg1_b_o_cw06 = .FALSE. P_pcg1_f_c_cw06 = 1 ; F_pcg1_f_c_cw06 = .FALSE. P_pcg1_f_o_cw06 = 1 ; F_pcg1_f_o_cw06 = .FALSE. P_opcg1_f_c_cw06 = 1 ; F_opcg1_f_c_cw06 = .FALSE. P_opcg1_f_o_cw06 = 1 ; F_opcg1_f_o_cw06 = .FALSE. P_ant1_c_cw06 = 1 ; F_ant1_c_cw06 = .FALSE. P_biog1_c_cw06 = 1 ; F_biog1_c_cw06 = .FALSE. P_pcg1_b_c_cw07 = 1 ; F_pcg1_b_c_cw07 = .FALSE. P_pcg1_b_o_cw07 = 1 ; F_pcg1_b_o_cw07 = .FALSE. P_opcg1_b_c_cw07 = 1 ; F_opcg1_b_c_cw07 = .FALSE. P_opcg1_b_o_cw07 = 1 ; F_opcg1_b_o_cw07 = .FALSE. P_pcg1_f_c_cw07 = 1 ; F_pcg1_f_c_cw07 = .FALSE. P_pcg1_f_o_cw07 = 1 ; F_pcg1_f_o_cw07 = .FALSE. P_opcg1_f_c_cw07 = 1 ; F_opcg1_f_c_cw07 = .FALSE. P_opcg1_f_o_cw07 = 1 ; F_opcg1_f_o_cw07 = .FALSE. P_ant1_c_cw07 = 1 ; F_ant1_c_cw07 = .FALSE. P_biog1_c_cw07 = 1 ; F_biog1_c_cw07 = .FALSE. P_pcg1_b_c_cw08 = 1 ; F_pcg1_b_c_cw08 = .FALSE. P_pcg1_b_o_cw08 = 1 ; F_pcg1_b_o_cw08 = .FALSE. P_opcg1_b_c_cw08 = 1 ; F_opcg1_b_c_cw08 = .FALSE. P_opcg1_b_o_cw08 = 1 ; F_opcg1_b_o_cw08 = .FALSE. P_pcg1_f_c_cw08 = 1 ; F_pcg1_f_c_cw08 = .FALSE. P_pcg1_f_o_cw08 = 1 ; F_pcg1_f_o_cw08 = .FALSE. P_opcg1_f_c_cw08 = 1 ; F_opcg1_f_c_cw08 = .FALSE. P_opcg1_f_o_cw08 = 1 ; F_opcg1_f_o_cw08 = .FALSE. P_ant1_c_cw08 = 1 ; F_ant1_c_cw08 = .FALSE. P_biog1_c_cw08 = 1 ; F_biog1_c_cw08 = .FALSE. P_bc1 = 1 ; F_bc1 = .FALSE. P_bc2 = 1 ; F_bc2 = .FALSE. P_oc1 = 1 ; F_oc1 = .FALSE. P_oc2 = 1 ; F_oc2 = .FALSE. P_p25 = 1 ; F_p25 = .FALSE. P_p10 = 1 ; F_p10 = .FALSE. P_dust_1 = 1 ; F_dust_1 = .FALSE. P_dust_2 = 1 ; F_dust_2 = .FALSE. P_dust_3 = 1 ; F_dust_3 = .FALSE. P_dust_4 = 1 ; F_dust_4 = .FALSE. P_dust_5 = 1 ; F_dust_5 = .FALSE. P_seas_1 = 1 ; F_seas_1 = .FALSE. P_seas_2 = 1 ; F_seas_2 = .FALSE. P_seas_3 = 1 ; F_seas_3 = .FALSE. P_seas_4 = 1 ; F_seas_4 = .FALSE. P_soag = 1 ; F_soag = .FALSE. P_so4_a1 = 1 ; F_so4_a1 = .FALSE. P_nh4_a1 = 1 ; F_nh4_a1 = .FALSE. P_bc_a1 = 1 ; F_bc_a1 = .FALSE. P_pom_a1 = 1 ; F_pom_a1 = .FALSE. P_soa_a1 = 1 ; F_soa_a1 = .FALSE. P_ncl_a1 = 1 ; F_ncl_a1 = .FALSE. P_dst_a1 = 1 ; F_dst_a1 = .FALSE. P_wtr_a1 = 1 ; F_wtr_a1 = .FALSE. P_num_a1 = 1 ; F_num_a1 = .FALSE. P_so4_a2 = 1 ; F_so4_a2 = .FALSE. P_nh4_a2 = 1 ; F_nh4_a2 = .FALSE. P_soa_a2 = 1 ; F_soa_a2 = .FALSE. P_ncl_a2 = 1 ; F_ncl_a2 = .FALSE. P_wtr_a2 = 1 ; F_wtr_a2 = .FALSE. P_num_a2 = 1 ; F_num_a2 = .FALSE. P_so4_a3 = 1 ; F_so4_a3 = .FALSE. P_bc_a3 = 1 ; F_bc_a3 = .FALSE. P_pom_a3 = 1 ; F_pom_a3 = .FALSE. P_ncl_a3 = 1 ; F_ncl_a3 = .FALSE. P_dst_a3 = 1 ; F_dst_a3 = .FALSE. P_wtr_a3 = 1 ; F_wtr_a3 = .FALSE. P_num_a3 = 1 ; F_num_a3 = .FALSE. P_so4_a4 = 1 ; F_so4_a4 = .FALSE. P_nh4_a4 = 1 ; F_nh4_a4 = .FALSE. P_ncl_a4 = 1 ; F_ncl_a4 = .FALSE. P_wtr_a4 = 1 ; F_wtr_a4 = .FALSE. P_num_a4 = 1 ; F_num_a4 = .FALSE. P_so4_a5 = 1 ; F_so4_a5 = .FALSE. P_nh4_a5 = 1 ; F_nh4_a5 = .FALSE. P_dst_a5 = 1 ; F_dst_a5 = .FALSE. P_wtr_a5 = 1 ; F_wtr_a5 = .FALSE. P_num_a5 = 1 ; F_num_a5 = .FALSE. P_so4_a6 = 1 ; F_so4_a6 = .FALSE. P_nh4_a6 = 1 ; F_nh4_a6 = .FALSE. P_ncl_a6 = 1 ; F_ncl_a6 = .FALSE. P_wtr_a6 = 1 ; F_wtr_a6 = .FALSE. P_num_a6 = 1 ; F_num_a6 = .FALSE. P_so4_a7 = 1 ; F_so4_a7 = .FALSE. P_nh4_a7 = 1 ; F_nh4_a7 = .FALSE. P_dst_a7 = 1 ; F_dst_a7 = .FALSE. P_wtr_a7 = 1 ; F_wtr_a7 = .FALSE. P_num_a7 = 1 ; F_num_a7 = .FALSE. P_so4_c1 = 1 ; F_so4_c1 = .FALSE. P_nh4_c1 = 1 ; F_nh4_c1 = .FALSE. P_bc_c1 = 1 ; F_bc_c1 = .FALSE. P_pom_c1 = 1 ; F_pom_c1 = .FALSE. P_soa_c1 = 1 ; F_soa_c1 = .FALSE. P_ncl_c1 = 1 ; F_ncl_c1 = .FALSE. P_dst_c1 = 1 ; F_dst_c1 = .FALSE. P_num_c1 = 1 ; F_num_c1 = .FALSE. P_so4_c2 = 1 ; F_so4_c2 = .FALSE. P_nh4_c2 = 1 ; F_nh4_c2 = .FALSE. P_soa_c2 = 1 ; F_soa_c2 = .FALSE. P_ncl_c2 = 1 ; F_ncl_c2 = .FALSE. P_num_c2 = 1 ; F_num_c2 = .FALSE. P_so4_c3 = 1 ; F_so4_c3 = .FALSE. P_bc_c3 = 1 ; F_bc_c3 = .FALSE. P_pom_c3 = 1 ; F_pom_c3 = .FALSE. P_ncl_c3 = 1 ; F_ncl_c3 = .FALSE. P_dst_c3 = 1 ; F_dst_c3 = .FALSE. P_num_c3 = 1 ; F_num_c3 = .FALSE. P_so4_c4 = 1 ; F_so4_c4 = .FALSE. P_nh4_c4 = 1 ; F_nh4_c4 = .FALSE. P_ncl_c4 = 1 ; F_ncl_c4 = .FALSE. P_num_c4 = 1 ; F_num_c4 = .FALSE. P_so4_c5 = 1 ; F_so4_c5 = .FALSE. P_nh4_c5 = 1 ; F_nh4_c5 = .FALSE. P_dst_c5 = 1 ; F_dst_c5 = .FALSE. P_num_c5 = 1 ; F_num_c5 = .FALSE. P_so4_c6 = 1 ; F_so4_c6 = .FALSE. P_nh4_c6 = 1 ; F_nh4_c6 = .FALSE. P_ncl_c6 = 1 ; F_ncl_c6 = .FALSE. P_num_c6 = 1 ; F_num_c6 = .FALSE. P_so4_c7 = 1 ; F_so4_c7 = .FALSE. P_nh4_c7 = 1 ; F_nh4_c7 = .FALSE. P_dst_c7 = 1 ; F_dst_c7 = .FALSE. P_num_c7 = 1 ; F_num_c7 = .FALSE. P_pa = 1 ; F_pa = .FALSE. P_aca = 1 ; F_aca = .FALSE. P_acet = 1 ; F_acet = .FALSE. P_isopr = 1 ; F_isopr = .FALSE. P_mvk = 1 ; F_mvk = .FALSE. P_iso2 = 1 ; F_iso2 = .FALSE. P_isooh = 1 ; F_isooh = .FALSE. P_mvko2 = 1 ; F_mvko2 = .FALSE. P_mvkooh = 1 ; F_mvkooh = .FALSE. P_acol = 1 ; F_acol = .FALSE. P_hcooh = 1 ; F_hcooh = .FALSE. P_naca = 1 ; F_naca = .FALSE. P_mglo = 1 ; F_mglo = .FALSE. P_c2h6 = 1 ; F_c2h6 = .FALSE. P_etooh = 1 ; F_etooh = .FALSE. P_c3h8 = 1 ; F_c3h8 = .FALSE. P_prooh = 1 ; F_prooh = .FALSE. P_acooh = 1 ; F_acooh = .FALSE. P_eto2 = 1 ; F_eto2 = .FALSE. P_pro2 = 1 ; F_pro2 = .FALSE. P_aco2 = 1 ; F_aco2 = .FALSE. P_c3h6 = 1 ; F_c3h6 = .FALSE. P_c3h6ooh = 1 ; F_c3h6ooh = .FALSE. P_c2h4 = 1 ; F_c2h4 = .FALSE. P_c4h10 = 1 ; F_c4h10 = .FALSE. P_buooh = 1 ; F_buooh = .FALSE. P_mek = 1 ; F_mek = .FALSE. P_mekooh = 1 ; F_mekooh = .FALSE. P_mecoco = 1 ; F_mecoco = .FALSE. P_c3h6o2 = 1 ; F_c3h6o2 = .FALSE. P_c4h9o2 = 1 ; F_c4h9o2 = .FALSE. P_meko2 = 1 ; F_meko2 = .FALSE. P_prono2 = 1 ; F_prono2 = .FALSE. P_acetol = 1 ; F_acetol = .FALSE. P_acetp = 1 ; F_acetp = .FALSE. P_aceto2 = 1 ; F_aceto2 = .FALSE. P_ch3cooh = 1 ; F_ch3cooh = .FALSE. P_c4h9ooh = 1 ; F_c4h9ooh = .FALSE. P_meo2 = 1 ; F_meo2 = .FALSE. P_meoh = 1 ; F_meoh = .FALSE. P_meo2no2 = 1 ; F_meo2no2 = .FALSE. P_smoke = 1 ; F_smoke = .FALSE. P_tr17_1 = 1 ; F_tr17_1 = .FALSE. P_tr17_2 = 1 ; F_tr17_2 = .FALSE. P_tr17_3 = 1 ; F_tr17_3 = .FALSE. P_tr17_4 = 1 ; F_tr17_4 = .FALSE. P_tr17_5 = 1 ; F_tr17_5 = .FALSE. P_tr17_6 = 1 ; F_tr17_6 = .FALSE. P_tr17_7 = 1 ; F_tr17_7 = .FALSE. P_tr17_8 = 1 ; F_tr17_8 = .FALSE. P_tr18_0 = 1 ; F_tr18_0 = .FALSE. P_tr18_1 = 1 ; F_tr18_1 = .FALSE. P_tr18_2 = 1 ; F_tr18_2 = .FALSE. P_tr18_3 = 1 ; F_tr18_3 = .FALSE. P_tr18_4 = 1 ; F_tr18_4 = .FALSE. P_tr18_5 = 1 ; F_tr18_5 = .FALSE. P_tr18_6 = 1 ; F_tr18_6 = .FALSE. P_tr18_7 = 1 ; F_tr18_7 = .FALSE. P_tr18_8 = 1 ; F_tr18_8 = .FALSE. P_tr18_9 = 1 ; F_tr18_9 = .FALSE. P_lnox_total = 1 ; F_lnox_total = .FALSE. P_lnox_ic = 1 ; F_lnox_ic = .FALSE. P_lnox_cg = 1 ; F_lnox_cg = .FALSE. P_m11 = 1 ; F_m11 = .FALSE. P_m22 = 1 ; F_m22 = .FALSE. P_m33 = 1 ; F_m33 = .FALSE. P_m12 = 1 ; F_m12 = .FALSE. P_m13 = 1 ; F_m13 = .FALSE. P_m23 = 1 ; F_m23 = .FALSE. P_r12 = 1 ; F_r12 = .FALSE. P_r13 = 1 ; F_r13 = .FALSE. P_r23 = 1 ; F_r23 = .FALSE. P_smnsmn = 1 ; F_smnsmn = .FALSE. P_m_hv_irr = 1 ; F_m_hv_irr = .FALSE. P_o3_hv_irr = 1 ; F_o3_hv_irr = .FALSE. P_o3_hv_a_irr = 1 ; F_o3_hv_a_irr = .FALSE. P_n2o_hv_irr = 1 ; F_n2o_hv_irr = .FALSE. P_no2_hv_irr = 1 ; F_no2_hv_irr = .FALSE. P_n2o5_hv_irr = 1 ; F_n2o5_hv_irr = .FALSE. P_hno3_hv_irr = 1 ; F_hno3_hv_irr = .FALSE. P_no3_hv_irr = 1 ; F_no3_hv_irr = .FALSE. P_ho2no2_hv_irr = 1 ; F_ho2no2_hv_irr = .FALSE. P_ch3ooh_hv_irr = 1 ; F_ch3ooh_hv_irr = .FALSE. P_ch2o_hv_irr = 1 ; F_ch2o_hv_irr = .FALSE. P_ch2o_hv_a_irr = 1 ; F_ch2o_hv_a_irr = .FALSE. P_h2o2_hv_irr = 1 ; F_h2o2_hv_irr = .FALSE. P_ch3cho_hv_irr = 1 ; F_ch3cho_hv_irr = .FALSE. P_pooh_hv_irr = 1 ; F_pooh_hv_irr = .FALSE. P_ch3coooh_hv_irr = 1 ; F_ch3coooh_hv_irr = .FALSE. P_pan_hv_irr = 1 ; F_pan_hv_irr = .FALSE. P_mpan_hv_irr = 1 ; F_mpan_hv_irr = .FALSE. P_macr_hv_irr = 1 ; F_macr_hv_irr = .FALSE. P_mvk_hv_irr = 1 ; F_mvk_hv_irr = .FALSE. P_c2h5ooh_hv_irr = 1 ; F_c2h5ooh_hv_irr = .FALSE. P_c3h7ooh_hv_irr = 1 ; F_c3h7ooh_hv_irr = .FALSE. P_rooh_hv_irr = 1 ; F_rooh_hv_irr = .FALSE. P_ch3coch3_hv_irr = 1 ; F_ch3coch3_hv_irr = .FALSE. P_ch3cocho_hv_irr = 1 ; F_ch3cocho_hv_irr = .FALSE. P_xooh_hv_irr = 1 ; F_xooh_hv_irr = .FALSE. P_onitr_hv_irr = 1 ; F_onitr_hv_irr = .FALSE. P_isopooh_hv_irr = 1 ; F_isopooh_hv_irr = .FALSE. P_hyac_hv_irr = 1 ; F_hyac_hv_irr = .FALSE. P_glyald_hv_irr = 1 ; F_glyald_hv_irr = .FALSE. P_mek_hv_irr = 1 ; F_mek_hv_irr = .FALSE. P_bigald_hv_irr = 1 ; F_bigald_hv_irr = .FALSE. P_glyoxal_hv_irr = 1 ; F_glyoxal_hv_irr = .FALSE. P_alkooh_hv_irr = 1 ; F_alkooh_hv_irr = .FALSE. P_mekooh_hv_irr = 1 ; F_mekooh_hv_irr = .FALSE. P_tolooh_hv_irr = 1 ; F_tolooh_hv_irr = .FALSE. P_terpooh_hv_irr = 1 ; F_terpooh_hv_irr = .FALSE. P_o_m_irr = 1 ; F_o_m_irr = .FALSE. P_o_o3_irr = 1 ; F_o_o3_irr = .FALSE. P_o1d_cb4_m_irr = 1 ; F_o1d_cb4_m_irr = .FALSE. P_o1d_cb4_h2o_irr = 1 ; F_o1d_cb4_h2o_irr = .FALSE. P_o1d_cb4_h2_irr = 1 ; F_o1d_cb4_h2_irr = .FALSE. P_oh_h2_irr = 1 ; F_oh_h2_irr = .FALSE. P_o_oh_irr = 1 ; F_o_oh_irr = .FALSE. P_o_ho2_irr = 1 ; F_o_ho2_irr = .FALSE. P_oh_o3_irr = 1 ; F_oh_o3_irr = .FALSE. P_ho2_o3_irr = 1 ; F_ho2_o3_irr = .FALSE. P_ho2_ho2_h2o_irr = 1 ; F_ho2_ho2_h2o_irr = .FALSE. P_h2o2_oh_irr = 1 ; F_h2o2_oh_irr = .FALSE. P_oh_ho2_irr = 1 ; F_oh_ho2_irr = .FALSE. P_oh_oh_irr = 1 ; F_oh_oh_irr = .FALSE. P_oh_oh_a_irr = 1 ; F_oh_oh_a_irr = .FALSE. P_n2o_o1d_cb4_irr = 1 ; F_n2o_o1d_cb4_irr = .FALSE. P_n2o_o1d_cb4_a_irr = 1 ; F_n2o_o1d_cb4_a_irr = .FALSE. P_no_ho2_irr = 1 ; F_no_ho2_irr = .FALSE. P_o3_no_irr = 1 ; F_o3_no_irr = .FALSE. P_o_no2_irr = 1 ; F_o_no2_irr = .FALSE. P_o3_no2_irr = 1 ; F_o3_no2_irr = .FALSE. P_no3_ho2_irr = 1 ; F_no3_ho2_irr = .FALSE. P_no3_no2_irr = 1 ; F_no3_no2_irr = .FALSE. P_n2o5_irr = 1 ; F_n2o5_irr = .FALSE. P_oh_no2_irr = 1 ; F_oh_no2_irr = .FALSE. P_oh_hno3_irr = 1 ; F_oh_hno3_irr = .FALSE. P_no3_no_irr = 1 ; F_no3_no_irr = .FALSE. P_ho2_no2_irr = 1 ; F_ho2_no2_irr = .FALSE. P_oh_ho2no2_irr = 1 ; F_oh_ho2no2_irr = .FALSE. P_ho2no2_irr = 1 ; F_ho2no2_irr = .FALSE. P_n2o5_m_irr = 1 ; F_n2o5_m_irr = .FALSE. P_no3_irr = 1 ; F_no3_irr = .FALSE. P_no2_irr = 1 ; F_no2_irr = .FALSE. P_ch4_oh_irr = 1 ; F_ch4_oh_irr = .FALSE. P_ch4_o1d_cb4_irr = 1 ; F_ch4_o1d_cb4_irr = .FALSE. P_ch3o2_no_irr = 1 ; F_ch3o2_no_irr = .FALSE. P_ch3o2_ch3o2_irr = 1 ; F_ch3o2_ch3o2_irr = .FALSE. P_ch3o2_ch3o2_a_irr = 1 ; F_ch3o2_ch3o2_a_irr = .FALSE. P_ch3o2_ho2_irr = 1 ; F_ch3o2_ho2_irr = .FALSE. P_ch3ooh_oh_irr = 1 ; F_ch3ooh_oh_irr = .FALSE. P_ch2o_no3_irr = 1 ; F_ch2o_no3_irr = .FALSE. P_ch2o_oh_irr = 1 ; F_ch2o_oh_irr = .FALSE. P_co_oh_irr = 1 ; F_co_oh_irr = .FALSE. P_c2h4_oh_irr = 1 ; F_c2h4_oh_irr = .FALSE. P_c2h4_o3_irr = 1 ; F_c2h4_o3_irr = .FALSE. P_so2_oh_irr = 1 ; F_so2_oh_irr = .FALSE. P_glyoxal_oh_irr = 1 ; F_glyoxal_oh_irr = .FALSE. P_eo2_no_irr = 1 ; F_eo2_no_irr = .FALSE. P_eo_m_irr = 1 ; F_eo_m_irr = .FALSE. P_eo_irr = 1 ; F_eo_irr = .FALSE. P_c2h6_oh_irr = 1 ; F_c2h6_oh_irr = .FALSE. P_c2h5o2_no_irr = 1 ; F_c2h5o2_no_irr = .FALSE. P_c2h5o2_ho2_irr = 1 ; F_c2h5o2_ho2_irr = .FALSE. P_c2h5o2_ch3o2_irr = 1 ; F_c2h5o2_ch3o2_irr = .FALSE. P_c2h5ooh_oh_irr = 1 ; F_c2h5ooh_oh_irr = .FALSE. P_c3h6_oh_irr = 1 ; F_c3h6_oh_irr = .FALSE. P_c3h6_o3_irr = 1 ; F_c3h6_o3_irr = .FALSE. P_c3h6_no3_irr = 1 ; F_c3h6_no3_irr = .FALSE. P_po2_no_irr = 1 ; F_po2_no_irr = .FALSE. P_po2_ho2_irr = 1 ; F_po2_ho2_irr = .FALSE. P_pooh_oh_irr = 1 ; F_pooh_oh_irr = .FALSE. P_ch3cho_oh_irr = 1 ; F_ch3cho_oh_irr = .FALSE. P_ch3cho_no3_irr = 1 ; F_ch3cho_no3_irr = .FALSE. P_ch3co3_no_irr = 1 ; F_ch3co3_no_irr = .FALSE. P_ch3co3_no2_irr = 1 ; F_ch3co3_no2_irr = .FALSE. P_ch3co3_ho2_irr = 1 ; F_ch3co3_ho2_irr = .FALSE. P_ch3co3_ch3o2_irr = 1 ; F_ch3co3_ch3o2_irr = .FALSE. P_ch3coooh_oh_irr = 1 ; F_ch3coooh_oh_irr = .FALSE. P_pan_irr = 1 ; F_pan_irr = .FALSE. P_ch3co3_ch3co3_irr = 1 ; F_ch3co3_ch3co3_irr = .FALSE. P_c3h8_oh_irr = 1 ; F_c3h8_oh_irr = .FALSE. P_c3h7o2_no_irr = 1 ; F_c3h7o2_no_irr = .FALSE. P_c3h7o2_ho2_irr = 1 ; F_c3h7o2_ho2_irr = .FALSE. P_c3h7o2_ch3o2_irr = 1 ; F_c3h7o2_ch3o2_irr = .FALSE. P_c3h7ooh_oh_irr = 1 ; F_c3h7ooh_oh_irr = .FALSE. P_ch3coch3_oh_irr = 1 ; F_ch3coch3_oh_irr = .FALSE. P_ro2_no_irr = 1 ; F_ro2_no_irr = .FALSE. P_ro2_ho2_irr = 1 ; F_ro2_ho2_irr = .FALSE. P_ro2_ch3o2_irr = 1 ; F_ro2_ch3o2_irr = .FALSE. P_rooh_oh_irr = 1 ; F_rooh_oh_irr = .FALSE. P_bigene_oh_irr = 1 ; F_bigene_oh_irr = .FALSE. P_eneo2_no_irr = 1 ; F_eneo2_no_irr = .FALSE. P_bigalk_oh_irr = 1 ; F_bigalk_oh_irr = .FALSE. P_alko2_no_irr = 1 ; F_alko2_no_irr = .FALSE. P_alko2_ho2_irr = 1 ; F_alko2_ho2_irr = .FALSE. P_alkooh_oh_irr = 1 ; F_alkooh_oh_irr = .FALSE. P_onit_oh_irr = 1 ; F_onit_oh_irr = .FALSE. P_mek_oh_irr = 1 ; F_mek_oh_irr = .FALSE. P_meko2_no_irr = 1 ; F_meko2_no_irr = .FALSE. P_meko2_ho2_irr = 1 ; F_meko2_ho2_irr = .FALSE. P_mekooh_oh_irr = 1 ; F_mekooh_oh_irr = .FALSE. P_toluene_oh_irr = 1 ; F_toluene_oh_irr = .FALSE. P_cresol_oh_irr = 1 ; F_cresol_oh_irr = .FALSE. P_xoh_no2_irr = 1 ; F_xoh_no2_irr = .FALSE. P_tolo2_no_irr = 1 ; F_tolo2_no_irr = .FALSE. P_tolo2_ho2_irr = 1 ; F_tolo2_ho2_irr = .FALSE. P_tolooh_oh_irr = 1 ; F_tolooh_oh_irr = .FALSE. P_isop_oh_irr = 1 ; F_isop_oh_irr = .FALSE. P_isop_o3_irr = 1 ; F_isop_o3_irr = .FALSE. P_isopo2_no_irr = 1 ; F_isopo2_no_irr = .FALSE. P_isopo2_no3_irr = 1 ; F_isopo2_no3_irr = .FALSE. P_isopo2_ho2_irr = 1 ; F_isopo2_ho2_irr = .FALSE. P_isopooh_oh_irr = 1 ; F_isopooh_oh_irr = .FALSE. P_isopo2_ch3o2_irr = 1 ; F_isopo2_ch3o2_irr = .FALSE. P_isopo2_ch3co3_irr = 1 ; F_isopo2_ch3co3_irr = .FALSE. P_mvk_oh_irr = 1 ; F_mvk_oh_irr = .FALSE. P_mvk_o3_irr = 1 ; F_mvk_o3_irr = .FALSE. P_macr_oh_irr = 1 ; F_macr_oh_irr = .FALSE. P_macr_o3_irr = 1 ; F_macr_o3_irr = .FALSE. P_macro2_no_irr = 1 ; F_macro2_no_irr = .FALSE. P_macro2_no_a_irr = 1 ; F_macro2_no_a_irr = .FALSE. P_macro2_no3_irr = 1 ; F_macro2_no3_irr = .FALSE. P_macro2_ho2_irr = 1 ; F_macro2_ho2_irr = .FALSE. P_macro2_ch3o2_irr = 1 ; F_macro2_ch3o2_irr = .FALSE. P_macro2_ch3co3_irr = 1 ; F_macro2_ch3co3_irr = .FALSE. P_macrooh_oh_irr = 1 ; F_macrooh_oh_irr = .FALSE. P_mco3_no_irr = 1 ; F_mco3_no_irr = .FALSE. P_mco3_no3_irr = 1 ; F_mco3_no3_irr = .FALSE. P_mco3_ho2_irr = 1 ; F_mco3_ho2_irr = .FALSE. P_mco3_ch3o2_irr = 1 ; F_mco3_ch3o2_irr = .FALSE. P_mco3_ch3co3_irr = 1 ; F_mco3_ch3co3_irr = .FALSE. P_mco3_mco3_irr = 1 ; F_mco3_mco3_irr = .FALSE. P_mco3_no2_m_irr = 1 ; F_mco3_no2_m_irr = .FALSE. P_mpan_m_irr = 1 ; F_mpan_m_irr = .FALSE. P_c10h16_oh_irr = 1 ; F_c10h16_oh_irr = .FALSE. P_c10h16_o3_irr = 1 ; F_c10h16_o3_irr = .FALSE. P_c10h16_no3_irr = 1 ; F_c10h16_no3_irr = .FALSE. P_terpo2_no_irr = 1 ; F_terpo2_no_irr = .FALSE. P_terpo2_ho2_irr = 1 ; F_terpo2_ho2_irr = .FALSE. P_terpooh_oh_irr = 1 ; F_terpooh_oh_irr = .FALSE. P_ch3cooh_oh_irr = 1 ; F_ch3cooh_oh_irr = .FALSE. P_isop_no3_irr = 1 ; F_isop_no3_irr = .FALSE. P_isopno3_no_irr = 1 ; F_isopno3_no_irr = .FALSE. P_isopno3_no3_irr = 1 ; F_isopno3_no3_irr = .FALSE. P_isopno3_ho2_irr = 1 ; F_isopno3_ho2_irr = .FALSE. P_ch3cocho_oh_irr = 1 ; F_ch3cocho_oh_irr = .FALSE. P_ch3cocho_no3_irr = 1 ; F_ch3cocho_no3_irr = .FALSE. P_onitr_oh_irr = 1 ; F_onitr_oh_irr = .FALSE. P_onitr_no3_irr = 1 ; F_onitr_no3_irr = .FALSE. P_hydrald_oh_irr = 1 ; F_hydrald_oh_irr = .FALSE. P_xo2_no_irr = 1 ; F_xo2_no_irr = .FALSE. P_xo2_no3_irr = 1 ; F_xo2_no3_irr = .FALSE. P_xo2_ho2_irr = 1 ; F_xo2_ho2_irr = .FALSE. P_xo2_ch3o2_irr = 1 ; F_xo2_ch3o2_irr = .FALSE. P_xo2_ch3co3_irr = 1 ; F_xo2_ch3co3_irr = .FALSE. P_xooh_oh_irr = 1 ; F_xooh_oh_irr = .FALSE. P_xooh_oh_a_irr = 1 ; F_xooh_oh_a_irr = .FALSE. P_ch3oh_oh_irr = 1 ; F_ch3oh_oh_irr = .FALSE. P_c2h5oh_oh_irr = 1 ; F_c2h5oh_oh_irr = .FALSE. P_mpan_oh_irr = 1 ; F_mpan_oh_irr = .FALSE. P_pan_oh_irr = 1 ; F_pan_oh_irr = .FALSE. P_hyac_oh_irr = 1 ; F_hyac_oh_irr = .FALSE. P_glyald_oh_irr = 1 ; F_glyald_oh_irr = .FALSE. P_dms_oh_irr = 1 ; F_dms_oh_irr = .FALSE. P_dms_oh_a_irr = 1 ; F_dms_oh_a_irr = .FALSE. P_dms_no3_irr = 1 ; F_dms_no3_irr = .FALSE. P_nh3_oh_irr = 1 ; F_nh3_oh_irr = .FALSE. P_ho2_irr = 1 ; F_ho2_irr = .FALSE. P_c2h5o2_c2h5o2_irr = 1 ; F_c2h5o2_c2h5o2_irr = .FALSE. P_m_hv_irr = 1 ; F_m_hv_irr = .FALSE. P_o3_hv_irr = 1 ; F_o3_hv_irr = .FALSE. P_o3_hv_a_irr = 1 ; F_o3_hv_a_irr = .FALSE. P_n2o_hv_irr = 1 ; F_n2o_hv_irr = .FALSE. P_no2_hv_irr = 1 ; F_no2_hv_irr = .FALSE. P_n2o5_hv_irr = 1 ; F_n2o5_hv_irr = .FALSE. P_hno3_hv_irr = 1 ; F_hno3_hv_irr = .FALSE. P_no3_hv_irr = 1 ; F_no3_hv_irr = .FALSE. P_ho2no2_hv_irr = 1 ; F_ho2no2_hv_irr = .FALSE. P_ch3ooh_hv_irr = 1 ; F_ch3ooh_hv_irr = .FALSE. P_ch2o_hv_irr = 1 ; F_ch2o_hv_irr = .FALSE. P_ch2o_hv_a_irr = 1 ; F_ch2o_hv_a_irr = .FALSE. P_h2o2_hv_irr = 1 ; F_h2o2_hv_irr = .FALSE. P_ch3cho_hv_irr = 1 ; F_ch3cho_hv_irr = .FALSE. P_pooh_hv_irr = 1 ; F_pooh_hv_irr = .FALSE. P_ch3coooh_hv_irr = 1 ; F_ch3coooh_hv_irr = .FALSE. P_pan_hv_irr = 1 ; F_pan_hv_irr = .FALSE. P_mpan_hv_irr = 1 ; F_mpan_hv_irr = .FALSE. P_macr_hv_irr = 1 ; F_macr_hv_irr = .FALSE. P_mvk_hv_irr = 1 ; F_mvk_hv_irr = .FALSE. P_c2h5ooh_hv_irr = 1 ; F_c2h5ooh_hv_irr = .FALSE. P_c3h7ooh_hv_irr = 1 ; F_c3h7ooh_hv_irr = .FALSE. P_rooh_hv_irr = 1 ; F_rooh_hv_irr = .FALSE. P_ch3coch3_hv_irr = 1 ; F_ch3coch3_hv_irr = .FALSE. P_ch3cocho_hv_irr = 1 ; F_ch3cocho_hv_irr = .FALSE. P_xooh_hv_irr = 1 ; F_xooh_hv_irr = .FALSE. P_onitr_hv_irr = 1 ; F_onitr_hv_irr = .FALSE. P_isopooh_hv_irr = 1 ; F_isopooh_hv_irr = .FALSE. P_hyac_hv_irr = 1 ; F_hyac_hv_irr = .FALSE. P_glyald_hv_irr = 1 ; F_glyald_hv_irr = .FALSE. P_mek_hv_irr = 1 ; F_mek_hv_irr = .FALSE. P_bigald_hv_irr = 1 ; F_bigald_hv_irr = .FALSE. P_glyoxal_hv_irr = 1 ; F_glyoxal_hv_irr = .FALSE. P_alkooh_hv_irr = 1 ; F_alkooh_hv_irr = .FALSE. P_mekooh_hv_irr = 1 ; F_mekooh_hv_irr = .FALSE. P_tolooh_hv_irr = 1 ; F_tolooh_hv_irr = .FALSE. P_bigald1_hv_irr = 1 ; F_bigald1_hv_irr = .FALSE. P_bepomuc_hv_irr = 1 ; F_bepomuc_hv_irr = .FALSE. P_tepomuc_hv_irr = 1 ; F_tepomuc_hv_irr = .FALSE. P_bigald2_hv_irr = 1 ; F_bigald2_hv_irr = .FALSE. P_bigald3_hv_irr = 1 ; F_bigald3_hv_irr = .FALSE. P_bigald4_hv_irr = 1 ; F_bigald4_hv_irr = .FALSE. P_mboooh_hv_irr = 1 ; F_mboooh_hv_irr = .FALSE. P_hmprop_hv_irr = 1 ; F_hmprop_hv_irr = .FALSE. P_terprod1_hv_irr = 1 ; F_terprod1_hv_irr = .FALSE. P_terprod2_hv_irr = 1 ; F_terprod2_hv_irr = .FALSE. P_terpooh_hv_irr = 1 ; F_terpooh_hv_irr = .FALSE. P_terp2ooh_hv_irr = 1 ; F_terp2ooh_hv_irr = .FALSE. P_hono_hv_irr = 1 ; F_hono_hv_irr = .FALSE. P_o_m_irr = 1 ; F_o_m_irr = .FALSE. P_o_o3_irr = 1 ; F_o_o3_irr = .FALSE. P_o1d_cb4_m_irr = 1 ; F_o1d_cb4_m_irr = .FALSE. P_o1d_cb4_h2o_irr = 1 ; F_o1d_cb4_h2o_irr = .FALSE. P_o1d_cb4_h2_irr = 1 ; F_o1d_cb4_h2_irr = .FALSE. P_oh_h2_irr = 1 ; F_oh_h2_irr = .FALSE. P_o_oh_irr = 1 ; F_o_oh_irr = .FALSE. P_o_ho2_irr = 1 ; F_o_ho2_irr = .FALSE. P_oh_o3_irr = 1 ; F_oh_o3_irr = .FALSE. P_ho2_o3_irr = 1 ; F_ho2_o3_irr = .FALSE. P_ho2_ho2_h2o_irr = 1 ; F_ho2_ho2_h2o_irr = .FALSE. P_h2o2_oh_irr = 1 ; F_h2o2_oh_irr = .FALSE. P_oh_ho2_irr = 1 ; F_oh_ho2_irr = .FALSE. P_oh_oh_irr = 1 ; F_oh_oh_irr = .FALSE. P_oh_oh_a_irr = 1 ; F_oh_oh_a_irr = .FALSE. P_n2o_o1d_cb4_irr = 1 ; F_n2o_o1d_cb4_irr = .FALSE. P_n2o_o1d_cb4_a_irr = 1 ; F_n2o_o1d_cb4_a_irr = .FALSE. P_no_ho2_irr = 1 ; F_no_ho2_irr = .FALSE. P_o3_no_irr = 1 ; F_o3_no_irr = .FALSE. P_o_no2_irr = 1 ; F_o_no2_irr = .FALSE. P_o3_no2_irr = 1 ; F_o3_no2_irr = .FALSE. P_no3_ho2_irr = 1 ; F_no3_ho2_irr = .FALSE. P_no3_no2_irr = 1 ; F_no3_no2_irr = .FALSE. P_n2o5_irr = 1 ; F_n2o5_irr = .FALSE. P_oh_no2_irr = 1 ; F_oh_no2_irr = .FALSE. P_oh_hno3_irr = 1 ; F_oh_hno3_irr = .FALSE. P_no3_no_irr = 1 ; F_no3_no_irr = .FALSE. P_ho2_no2_irr = 1 ; F_ho2_no2_irr = .FALSE. P_oh_ho2no2_irr = 1 ; F_oh_ho2no2_irr = .FALSE. P_ho2no2_irr = 1 ; F_ho2no2_irr = .FALSE. P_n2o5_m_irr = 1 ; F_n2o5_m_irr = .FALSE. P_no3_irr = 1 ; F_no3_irr = .FALSE. P_no2_irr = 1 ; F_no2_irr = .FALSE. P_ch4_oh_irr = 1 ; F_ch4_oh_irr = .FALSE. P_ch4_o1d_cb4_irr = 1 ; F_ch4_o1d_cb4_irr = .FALSE. P_ch3o2_no_irr = 1 ; F_ch3o2_no_irr = .FALSE. P_ch3o2_ch3o2_irr = 1 ; F_ch3o2_ch3o2_irr = .FALSE. P_ch3o2_ch3o2_a_irr = 1 ; F_ch3o2_ch3o2_a_irr = .FALSE. P_ch3o2_ho2_irr = 1 ; F_ch3o2_ho2_irr = .FALSE. P_ch3ooh_oh_irr = 1 ; F_ch3ooh_oh_irr = .FALSE. P_ch2o_no3_irr = 1 ; F_ch2o_no3_irr = .FALSE. P_ch2o_oh_irr = 1 ; F_ch2o_oh_irr = .FALSE. P_co_oh_irr = 1 ; F_co_oh_irr = .FALSE. P_c2h4_oh_irr = 1 ; F_c2h4_oh_irr = .FALSE. P_c2h4_o3_irr = 1 ; F_c2h4_o3_irr = .FALSE. P_so2_oh_irr = 1 ; F_so2_oh_irr = .FALSE. P_glyoxal_oh_irr = 1 ; F_glyoxal_oh_irr = .FALSE. P_eo2_no_irr = 1 ; F_eo2_no_irr = .FALSE. P_eo_m_irr = 1 ; F_eo_m_irr = .FALSE. P_eo_irr = 1 ; F_eo_irr = .FALSE. P_c2h6_oh_irr = 1 ; F_c2h6_oh_irr = .FALSE. P_c2h5o2_no_irr = 1 ; F_c2h5o2_no_irr = .FALSE. P_c2h5o2_ho2_irr = 1 ; F_c2h5o2_ho2_irr = .FALSE. P_c2h5o2_ch3o2_irr = 1 ; F_c2h5o2_ch3o2_irr = .FALSE. P_c2h5ooh_oh_irr = 1 ; F_c2h5ooh_oh_irr = .FALSE. P_c3h6_oh_irr = 1 ; F_c3h6_oh_irr = .FALSE. P_c3h6_o3_irr = 1 ; F_c3h6_o3_irr = .FALSE. P_c3h6_no3_irr = 1 ; F_c3h6_no3_irr = .FALSE. P_po2_no_irr = 1 ; F_po2_no_irr = .FALSE. P_po2_ho2_irr = 1 ; F_po2_ho2_irr = .FALSE. P_pooh_oh_irr = 1 ; F_pooh_oh_irr = .FALSE. P_ch3cho_oh_irr = 1 ; F_ch3cho_oh_irr = .FALSE. P_ch3cho_no3_irr = 1 ; F_ch3cho_no3_irr = .FALSE. P_ch3co3_no_irr = 1 ; F_ch3co3_no_irr = .FALSE. P_ch3co3_no2_irr = 1 ; F_ch3co3_no2_irr = .FALSE. P_ch3co3_ho2_irr = 1 ; F_ch3co3_ho2_irr = .FALSE. P_ch3co3_ch3o2_irr = 1 ; F_ch3co3_ch3o2_irr = .FALSE. P_ch3coooh_oh_irr = 1 ; F_ch3coooh_oh_irr = .FALSE. P_pan_irr = 1 ; F_pan_irr = .FALSE. P_ch3co3_ch3co3_irr = 1 ; F_ch3co3_ch3co3_irr = .FALSE. P_c3h8_oh_irr = 1 ; F_c3h8_oh_irr = .FALSE. P_c3h7o2_no_irr = 1 ; F_c3h7o2_no_irr = .FALSE. P_c3h7o2_ho2_irr = 1 ; F_c3h7o2_ho2_irr = .FALSE. P_c3h7o2_ch3o2_irr = 1 ; F_c3h7o2_ch3o2_irr = .FALSE. P_c3h7ooh_oh_irr = 1 ; F_c3h7ooh_oh_irr = .FALSE. P_ch3coch3_oh_irr = 1 ; F_ch3coch3_oh_irr = .FALSE. P_ro2_no_irr = 1 ; F_ro2_no_irr = .FALSE. P_ro2_ho2_irr = 1 ; F_ro2_ho2_irr = .FALSE. P_ro2_ch3o2_irr = 1 ; F_ro2_ch3o2_irr = .FALSE. P_rooh_oh_irr = 1 ; F_rooh_oh_irr = .FALSE. P_bigene_oh_irr = 1 ; F_bigene_oh_irr = .FALSE. P_eneo2_no_irr = 1 ; F_eneo2_no_irr = .FALSE. P_bigalk_oh_irr = 1 ; F_bigalk_oh_irr = .FALSE. P_alko2_no_irr = 1 ; F_alko2_no_irr = .FALSE. P_alko2_ho2_irr = 1 ; F_alko2_ho2_irr = .FALSE. P_alkooh_oh_irr = 1 ; F_alkooh_oh_irr = .FALSE. P_onit_oh_irr = 1 ; F_onit_oh_irr = .FALSE. P_mek_oh_irr = 1 ; F_mek_oh_irr = .FALSE. P_meko2_no_irr = 1 ; F_meko2_no_irr = .FALSE. P_meko2_ho2_irr = 1 ; F_meko2_ho2_irr = .FALSE. P_mekooh_oh_irr = 1 ; F_mekooh_oh_irr = .FALSE. P_tolo2_ho2_irr = 1 ; F_tolo2_ho2_irr = .FALSE. P_tolooh_oh_irr = 1 ; F_tolooh_oh_irr = .FALSE. P_isop_oh_irr = 1 ; F_isop_oh_irr = .FALSE. P_isop_o3_irr = 1 ; F_isop_o3_irr = .FALSE. P_isopo2_no_irr = 1 ; F_isopo2_no_irr = .FALSE. P_isopo2_no3_irr = 1 ; F_isopo2_no3_irr = .FALSE. P_isopo2_ho2_irr = 1 ; F_isopo2_ho2_irr = .FALSE. P_isopooh_oh_irr = 1 ; F_isopooh_oh_irr = .FALSE. P_isopo2_ch3o2_irr = 1 ; F_isopo2_ch3o2_irr = .FALSE. P_isopo2_ch3co3_irr = 1 ; F_isopo2_ch3co3_irr = .FALSE. P_mvk_oh_irr = 1 ; F_mvk_oh_irr = .FALSE. P_mvk_o3_irr = 1 ; F_mvk_o3_irr = .FALSE. P_macr_oh_irr = 1 ; F_macr_oh_irr = .FALSE. P_macr_o3_irr = 1 ; F_macr_o3_irr = .FALSE. P_macro2_no_irr = 1 ; F_macro2_no_irr = .FALSE. P_macro2_no_a_irr = 1 ; F_macro2_no_a_irr = .FALSE. P_macro2_no3_irr = 1 ; F_macro2_no3_irr = .FALSE. P_macro2_ho2_irr = 1 ; F_macro2_ho2_irr = .FALSE. P_macro2_ch3o2_irr = 1 ; F_macro2_ch3o2_irr = .FALSE. P_macro2_ch3co3_irr = 1 ; F_macro2_ch3co3_irr = .FALSE. P_macrooh_oh_irr = 1 ; F_macrooh_oh_irr = .FALSE. P_mco3_no_irr = 1 ; F_mco3_no_irr = .FALSE. P_mco3_no3_irr = 1 ; F_mco3_no3_irr = .FALSE. P_mco3_ho2_irr = 1 ; F_mco3_ho2_irr = .FALSE. P_mco3_ch3o2_irr = 1 ; F_mco3_ch3o2_irr = .FALSE. P_mco3_ch3co3_irr = 1 ; F_mco3_ch3co3_irr = .FALSE. P_mco3_mco3_irr = 1 ; F_mco3_mco3_irr = .FALSE. P_mco3_no2_m_irr = 1 ; F_mco3_no2_m_irr = .FALSE. P_mpan_m_irr = 1 ; F_mpan_m_irr = .FALSE. P_oh_benzene_irr = 1 ; F_oh_benzene_irr = .FALSE. P_oh_phenol_irr = 1 ; F_oh_phenol_irr = .FALSE. P_pheno2_no_irr = 1 ; F_pheno2_no_irr = .FALSE. P_pheno2_ho2_irr = 1 ; F_pheno2_ho2_irr = .FALSE. P_oh_phenooh_irr = 1 ; F_oh_phenooh_irr = .FALSE. P_pheno_no2_irr = 1 ; F_pheno_no2_irr = .FALSE. P_pheno_o3_irr = 1 ; F_pheno_o3_irr = .FALSE. P_c6h5o2_no_irr = 1 ; F_c6h5o2_no_irr = .FALSE. P_c6h5o2_ho2_irr = 1 ; F_c6h5o2_ho2_irr = .FALSE. P_oh_c6h5ooh_irr = 1 ; F_oh_c6h5ooh_irr = .FALSE. P_benzo2_no_irr = 1 ; F_benzo2_no_irr = .FALSE. P_benzo2_ho2_irr = 1 ; F_benzo2_ho2_irr = .FALSE. P_oh_benzooh_irr = 1 ; F_oh_benzooh_irr = .FALSE. P_malo2_no2_irr = 1 ; F_malo2_no2_irr = .FALSE. P_malo2_no_irr = 1 ; F_malo2_no_irr = .FALSE. P_malo2_ho2_irr = 1 ; F_malo2_ho2_irr = .FALSE. P_oh_toluene_irr = 1 ; F_oh_toluene_irr = .FALSE. P_oh_cresol_irr = 1 ; F_oh_cresol_irr = .FALSE. P_bzoo_ho2_irr = 1 ; F_bzoo_ho2_irr = .FALSE. P_oh_bzooh_irr = 1 ; F_oh_bzooh_irr = .FALSE. P_bzoo_no_irr = 1 ; F_bzoo_no_irr = .FALSE. P_oh_bzald_irr = 1 ; F_oh_bzald_irr = .FALSE. P_acbzo2_no2_irr = 1 ; F_acbzo2_no2_irr = .FALSE. P_pbznit_irr = 1 ; F_pbznit_irr = .FALSE. P_acbzo2_no_irr = 1 ; F_acbzo2_no_irr = .FALSE. P_acbzo2_ho2_irr = 1 ; F_acbzo2_ho2_irr = .FALSE. P_tolo2_no_irr = 1 ; F_tolo2_no_irr = .FALSE. P_dicarbo2_ho2_irr = 1 ; F_dicarbo2_ho2_irr = .FALSE. P_dicarbo2_no_irr = 1 ; F_dicarbo2_no_irr = .FALSE. P_mdialo2_ho2_irr = 1 ; F_mdialo2_ho2_irr = .FALSE. P_mdialo2_no_irr = 1 ; F_mdialo2_no_irr = .FALSE. P_dicarbo2_no2_irr = 1 ; F_dicarbo2_no2_irr = .FALSE. P_mdialo2_no2_irr = 1 ; F_mdialo2_no2_irr = .FALSE. P_oh_xylenes_irr = 1 ; F_oh_xylenes_irr = .FALSE. P_oh_xylol_irr = 1 ; F_oh_xylol_irr = .FALSE. P_xylolo2_no_irr = 1 ; F_xylolo2_no_irr = .FALSE. P_xylolo2_ho2_irr = 1 ; F_xylolo2_ho2_irr = .FALSE. P_oh_xylolooh_irr = 1 ; F_oh_xylolooh_irr = .FALSE. P_xyleno2_ho2_irr = 1 ; F_xyleno2_ho2_irr = .FALSE. P_oh_xylenooh_irr = 1 ; F_oh_xylenooh_irr = .FALSE. P_xyleno2_no_irr = 1 ; F_xyleno2_no_irr = .FALSE. P_apin_oh_irr = 1 ; F_apin_oh_irr = .FALSE. P_bpin_oh_irr = 1 ; F_bpin_oh_irr = .FALSE. P_limon_oh_irr = 1 ; F_limon_oh_irr = .FALSE. P_myrc_oh_irr = 1 ; F_myrc_oh_irr = .FALSE. P_bcary_oh_irr = 1 ; F_bcary_oh_irr = .FALSE. P_apin_o3_irr = 1 ; F_apin_o3_irr = .FALSE. P_bpin_o3_irr = 1 ; F_bpin_o3_irr = .FALSE. P_limon_o3_irr = 1 ; F_limon_o3_irr = .FALSE. P_myrc_o3_irr = 1 ; F_myrc_o3_irr = .FALSE. P_bcary_o3_irr = 1 ; F_bcary_o3_irr = .FALSE. P_limon_no3_irr = 1 ; F_limon_no3_irr = .FALSE. P_myrc_no3_irr = 1 ; F_myrc_no3_irr = .FALSE. P_bcary_no3_irr = 1 ; F_bcary_no3_irr = .FALSE. P_terpo2_no_irr = 1 ; F_terpo2_no_irr = .FALSE. P_terpo2_ho2_irr = 1 ; F_terpo2_ho2_irr = .FALSE. P_terpo2_ch3o2_irr = 1 ; F_terpo2_ch3o2_irr = .FALSE. P_terpooh_oh_irr = 1 ; F_terpooh_oh_irr = .FALSE. P_terp2ooh_oh_irr = 1 ; F_terp2ooh_oh_irr = .FALSE. P_terprod1_oh_irr = 1 ; F_terprod1_oh_irr = .FALSE. P_terprod1_no3_irr = 1 ; F_terprod1_no3_irr = .FALSE. P_terp2o2_no_irr = 1 ; F_terp2o2_no_irr = .FALSE. P_terp2o2_ho2_irr = 1 ; F_terp2o2_ho2_irr = .FALSE. P_terp2o2_ch3o2_irr = 1 ; F_terp2o2_ch3o2_irr = .FALSE. P_terprod2_oh_irr = 1 ; F_terprod2_oh_irr = .FALSE. P_nterpo2_no_irr = 1 ; F_nterpo2_no_irr = .FALSE. P_nterpo2_ho2_irr = 1 ; F_nterpo2_ho2_irr = .FALSE. P_nterpo2_ch3o2_irr = 1 ; F_nterpo2_ch3o2_irr = .FALSE. P_nterpo2_no3_irr = 1 ; F_nterpo2_no3_irr = .FALSE. P_ch3cooh_oh_irr = 1 ; F_ch3cooh_oh_irr = .FALSE. P_isop_no3_irr = 1 ; F_isop_no3_irr = .FALSE. P_isopno3_no_irr = 1 ; F_isopno3_no_irr = .FALSE. P_isopno3_no3_irr = 1 ; F_isopno3_no3_irr = .FALSE. P_isopno3_ho2_irr = 1 ; F_isopno3_ho2_irr = .FALSE. P_ch3cocho_oh_irr = 1 ; F_ch3cocho_oh_irr = .FALSE. P_ch3cocho_no3_irr = 1 ; F_ch3cocho_no3_irr = .FALSE. P_onitr_oh_irr = 1 ; F_onitr_oh_irr = .FALSE. P_onitr_no3_irr = 1 ; F_onitr_no3_irr = .FALSE. P_hydrald_oh_irr = 1 ; F_hydrald_oh_irr = .FALSE. P_xo2_no_irr = 1 ; F_xo2_no_irr = .FALSE. P_xo2_no3_irr = 1 ; F_xo2_no3_irr = .FALSE. P_xo2_ho2_irr = 1 ; F_xo2_ho2_irr = .FALSE. P_xo2_ch3o2_irr = 1 ; F_xo2_ch3o2_irr = .FALSE. P_xo2_ch3co3_irr = 1 ; F_xo2_ch3co3_irr = .FALSE. P_xooh_oh_irr = 1 ; F_xooh_oh_irr = .FALSE. P_xooh_oh_a_irr = 1 ; F_xooh_oh_a_irr = .FALSE. P_ch3oh_oh_irr = 1 ; F_ch3oh_oh_irr = .FALSE. P_c2h5oh_oh_irr = 1 ; F_c2h5oh_oh_irr = .FALSE. P_mpan_oh_irr = 1 ; F_mpan_oh_irr = .FALSE. P_pan_oh_irr = 1 ; F_pan_oh_irr = .FALSE. P_hyac_oh_irr = 1 ; F_hyac_oh_irr = .FALSE. P_glyald_oh_irr = 1 ; F_glyald_oh_irr = .FALSE. P_dms_oh_irr = 1 ; F_dms_oh_irr = .FALSE. P_dms_oh_a_irr = 1 ; F_dms_oh_a_irr = .FALSE. P_dms_no3_irr = 1 ; F_dms_no3_irr = .FALSE. P_nh3_oh_irr = 1 ; F_nh3_oh_irr = .FALSE. P_ho2_irr = 1 ; F_ho2_irr = .FALSE. P_c2h5o2_c2h5o2_irr = 1 ; F_c2h5o2_c2h5o2_irr = .FALSE. P_mbo_oh_irr = 1 ; F_mbo_oh_irr = .FALSE. P_mboo2_no_irr = 1 ; F_mboo2_no_irr = .FALSE. P_mboo2_ch3o2_irr = 1 ; F_mboo2_ch3o2_irr = .FALSE. P_hmprop_oh_irr = 1 ; F_hmprop_oh_irr = .FALSE. P_hmpropo2_no_irr = 1 ; F_hmpropo2_no_irr = .FALSE. P_hmpropo2_ho2_irr = 1 ; F_hmpropo2_ho2_irr = .FALSE. P_mboo2_ho2_irr = 1 ; F_mboo2_ho2_irr = .FALSE. P_mboooh_oh_irr = 1 ; F_mboooh_oh_irr = .FALSE. P_mbo_o3_irr = 1 ; F_mbo_o3_irr = .FALSE. P_mbo_no3_irr = 1 ; F_mbo_no3_irr = .FALSE. P_mbono3o2_ho2_irr = 1 ; F_mbono3o2_ho2_irr = .FALSE. P_mbono3o2_no_irr = 1 ; F_mbono3o2_no_irr = .FALSE. P_mbono3o2_no3_irr = 1 ; F_mbono3o2_no3_irr = .FALSE. P_c2h2_oh_irr = 1 ; F_c2h2_oh_irr = .FALSE. P_hcooh_oh_irr = 1 ; F_hcooh_oh_irr = .FALSE. P_ch2o_ho2_irr = 1 ; F_ch2o_ho2_irr = .FALSE. P_hoch2oo_irr = 1 ; F_hoch2oo_irr = .FALSE. P_hoch2oo_no_irr = 1 ; F_hoch2oo_no_irr = .FALSE. P_hoch2oo_ho2_irr = 1 ; F_hoch2oo_ho2_irr = .FALSE. P_voca_oh_irr = 1 ; F_voca_oh_irr = .FALSE. P_vocbb_oh_irr = 1 ; F_vocbb_oh_irr = .FALSE. P_isop_oh_a_irr = 1 ; F_isop_oh_a_irr = .FALSE. P_apin_oh_a_irr = 1 ; F_apin_oh_a_irr = .FALSE. P_bpin_oh_a_irr = 1 ; F_bpin_oh_a_irr = .FALSE. P_limon_oh_a_irr = 1 ; F_limon_oh_a_irr = .FALSE. P_m_hv_irr = 1 ; F_m_hv_irr = .FALSE. P_o3_hv_irr = 1 ; F_o3_hv_irr = .FALSE. P_o3_hv_a_irr = 1 ; F_o3_hv_a_irr = .FALSE. P_n2o_hv_irr = 1 ; F_n2o_hv_irr = .FALSE. P_no2_hv_irr = 1 ; F_no2_hv_irr = .FALSE. P_n2o5_hv_irr = 1 ; F_n2o5_hv_irr = .FALSE. P_hno3_hv_irr = 1 ; F_hno3_hv_irr = .FALSE. P_no3_hv_irr = 1 ; F_no3_hv_irr = .FALSE. P_ho2no2_hv_irr = 1 ; F_ho2no2_hv_irr = .FALSE. P_ch3ooh_hv_irr = 1 ; F_ch3ooh_hv_irr = .FALSE. P_ch2o_hv_irr = 1 ; F_ch2o_hv_irr = .FALSE. P_ch2o_hv_a_irr = 1 ; F_ch2o_hv_a_irr = .FALSE. P_h2o2_hv_irr = 1 ; F_h2o2_hv_irr = .FALSE. P_ch3cho_hv_irr = 1 ; F_ch3cho_hv_irr = .FALSE. P_pooh_hv_irr = 1 ; F_pooh_hv_irr = .FALSE. P_ch3coooh_hv_irr = 1 ; F_ch3coooh_hv_irr = .FALSE. P_pan_hv_irr = 1 ; F_pan_hv_irr = .FALSE. P_mpan_hv_irr = 1 ; F_mpan_hv_irr = .FALSE. P_macr_hv_irr = 1 ; F_macr_hv_irr = .FALSE. P_mvk_hv_irr = 1 ; F_mvk_hv_irr = .FALSE. P_c2h5ooh_hv_irr = 1 ; F_c2h5ooh_hv_irr = .FALSE. P_c3h7ooh_hv_irr = 1 ; F_c3h7ooh_hv_irr = .FALSE. P_rooh_hv_irr = 1 ; F_rooh_hv_irr = .FALSE. P_ch3coch3_hv_irr = 1 ; F_ch3coch3_hv_irr = .FALSE. P_ch3cocho_hv_irr = 1 ; F_ch3cocho_hv_irr = .FALSE. P_xooh_hv_irr = 1 ; F_xooh_hv_irr = .FALSE. P_onitr_hv_irr = 1 ; F_onitr_hv_irr = .FALSE. P_isopooh_hv_irr = 1 ; F_isopooh_hv_irr = .FALSE. P_hyac_hv_irr = 1 ; F_hyac_hv_irr = .FALSE. P_glyald_hv_irr = 1 ; F_glyald_hv_irr = .FALSE. P_mek_hv_irr = 1 ; F_mek_hv_irr = .FALSE. P_bigald_hv_irr = 1 ; F_bigald_hv_irr = .FALSE. P_glyoxal_hv_irr = 1 ; F_glyoxal_hv_irr = .FALSE. P_alkooh_hv_irr = 1 ; F_alkooh_hv_irr = .FALSE. P_mekooh_hv_irr = 1 ; F_mekooh_hv_irr = .FALSE. P_tolooh_hv_irr = 1 ; F_tolooh_hv_irr = .FALSE. P_bigald1_hv_irr = 1 ; F_bigald1_hv_irr = .FALSE. P_bepomuc_hv_irr = 1 ; F_bepomuc_hv_irr = .FALSE. P_tepomuc_hv_irr = 1 ; F_tepomuc_hv_irr = .FALSE. P_bigald2_hv_irr = 1 ; F_bigald2_hv_irr = .FALSE. P_bigald3_hv_irr = 1 ; F_bigald3_hv_irr = .FALSE. P_bigald4_hv_irr = 1 ; F_bigald4_hv_irr = .FALSE. P_mboooh_hv_irr = 1 ; F_mboooh_hv_irr = .FALSE. P_hmprop_hv_irr = 1 ; F_hmprop_hv_irr = .FALSE. P_terprod1_hv_irr = 1 ; F_terprod1_hv_irr = .FALSE. P_terprod2_hv_irr = 1 ; F_terprod2_hv_irr = .FALSE. P_terpooh_hv_irr = 1 ; F_terpooh_hv_irr = .FALSE. P_terp2ooh_hv_irr = 1 ; F_terp2ooh_hv_irr = .FALSE. P_hono_hv_irr = 1 ; F_hono_hv_irr = .FALSE. P_o_m_irr = 1 ; F_o_m_irr = .FALSE. P_o_o3_irr = 1 ; F_o_o3_irr = .FALSE. P_o1d_cb4_m_irr = 1 ; F_o1d_cb4_m_irr = .FALSE. P_o1d_cb4_h2o_irr = 1 ; F_o1d_cb4_h2o_irr = .FALSE. P_o1d_cb4_h2_irr = 1 ; F_o1d_cb4_h2_irr = .FALSE. P_oh_h2_irr = 1 ; F_oh_h2_irr = .FALSE. P_o_oh_irr = 1 ; F_o_oh_irr = .FALSE. P_o_ho2_irr = 1 ; F_o_ho2_irr = .FALSE. P_oh_o3_irr = 1 ; F_oh_o3_irr = .FALSE. P_ho2_o3_irr = 1 ; F_ho2_o3_irr = .FALSE. P_ho2_ho2_h2o_irr = 1 ; F_ho2_ho2_h2o_irr = .FALSE. P_h2o2_oh_irr = 1 ; F_h2o2_oh_irr = .FALSE. P_oh_ho2_irr = 1 ; F_oh_ho2_irr = .FALSE. P_oh_oh_irr = 1 ; F_oh_oh_irr = .FALSE. P_oh_oh_a_irr = 1 ; F_oh_oh_a_irr = .FALSE. P_n2o_o1d_cb4_irr = 1 ; F_n2o_o1d_cb4_irr = .FALSE. P_n2o_o1d_cb4_a_irr = 1 ; F_n2o_o1d_cb4_a_irr = .FALSE. P_no_ho2_irr = 1 ; F_no_ho2_irr = .FALSE. P_o3_no_irr = 1 ; F_o3_no_irr = .FALSE. P_o_no2_irr = 1 ; F_o_no2_irr = .FALSE. P_o3_no2_irr = 1 ; F_o3_no2_irr = .FALSE. P_no3_ho2_irr = 1 ; F_no3_ho2_irr = .FALSE. P_no3_no2_irr = 1 ; F_no3_no2_irr = .FALSE. P_n2o5_irr = 1 ; F_n2o5_irr = .FALSE. P_oh_no2_irr = 1 ; F_oh_no2_irr = .FALSE. P_oh_hno3_irr = 1 ; F_oh_hno3_irr = .FALSE. P_no3_no_irr = 1 ; F_no3_no_irr = .FALSE. P_ho2_no2_irr = 1 ; F_ho2_no2_irr = .FALSE. P_oh_ho2no2_irr = 1 ; F_oh_ho2no2_irr = .FALSE. P_ho2no2_irr = 1 ; F_ho2no2_irr = .FALSE. P_n2o5_m_irr = 1 ; F_n2o5_m_irr = .FALSE. P_no3_irr = 1 ; F_no3_irr = .FALSE. P_no2_irr = 1 ; F_no2_irr = .FALSE. P_ch4_oh_irr = 1 ; F_ch4_oh_irr = .FALSE. P_ch4_o1d_cb4_irr = 1 ; F_ch4_o1d_cb4_irr = .FALSE. P_ch3o2_no_irr = 1 ; F_ch3o2_no_irr = .FALSE. P_ch3o2_ch3o2_irr = 1 ; F_ch3o2_ch3o2_irr = .FALSE. P_ch3o2_ch3o2_a_irr = 1 ; F_ch3o2_ch3o2_a_irr = .FALSE. P_ch3o2_ho2_irr = 1 ; F_ch3o2_ho2_irr = .FALSE. P_ch3ooh_oh_irr = 1 ; F_ch3ooh_oh_irr = .FALSE. P_ch2o_no3_irr = 1 ; F_ch2o_no3_irr = .FALSE. P_ch2o_oh_irr = 1 ; F_ch2o_oh_irr = .FALSE. P_co_oh_irr = 1 ; F_co_oh_irr = .FALSE. P_c2h4_oh_irr = 1 ; F_c2h4_oh_irr = .FALSE. P_c2h4_o3_irr = 1 ; F_c2h4_o3_irr = .FALSE. P_so2_oh_irr = 1 ; F_so2_oh_irr = .FALSE. P_glyoxal_oh_irr = 1 ; F_glyoxal_oh_irr = .FALSE. P_eo2_no_irr = 1 ; F_eo2_no_irr = .FALSE. P_eo_m_irr = 1 ; F_eo_m_irr = .FALSE. P_eo_irr = 1 ; F_eo_irr = .FALSE. P_c2h6_oh_irr = 1 ; F_c2h6_oh_irr = .FALSE. P_c2h5o2_no_irr = 1 ; F_c2h5o2_no_irr = .FALSE. P_c2h5o2_ho2_irr = 1 ; F_c2h5o2_ho2_irr = .FALSE. P_c2h5o2_ch3o2_irr = 1 ; F_c2h5o2_ch3o2_irr = .FALSE. P_c2h5ooh_oh_irr = 1 ; F_c2h5ooh_oh_irr = .FALSE. P_c3h6_oh_irr = 1 ; F_c3h6_oh_irr = .FALSE. P_c3h6_o3_irr = 1 ; F_c3h6_o3_irr = .FALSE. P_c3h6_no3_irr = 1 ; F_c3h6_no3_irr = .FALSE. P_po2_no_irr = 1 ; F_po2_no_irr = .FALSE. P_po2_ho2_irr = 1 ; F_po2_ho2_irr = .FALSE. P_pooh_oh_irr = 1 ; F_pooh_oh_irr = .FALSE. P_ch3cho_oh_irr = 1 ; F_ch3cho_oh_irr = .FALSE. P_ch3cho_no3_irr = 1 ; F_ch3cho_no3_irr = .FALSE. P_ch3co3_no_irr = 1 ; F_ch3co3_no_irr = .FALSE. P_ch3co3_no2_irr = 1 ; F_ch3co3_no2_irr = .FALSE. P_ch3co3_ho2_irr = 1 ; F_ch3co3_ho2_irr = .FALSE. P_ch3co3_ch3o2_irr = 1 ; F_ch3co3_ch3o2_irr = .FALSE. P_ch3coooh_oh_irr = 1 ; F_ch3coooh_oh_irr = .FALSE. P_pan_irr = 1 ; F_pan_irr = .FALSE. P_ch3co3_ch3co3_irr = 1 ; F_ch3co3_ch3co3_irr = .FALSE. P_c3h8_oh_irr = 1 ; F_c3h8_oh_irr = .FALSE. P_c3h7o2_no_irr = 1 ; F_c3h7o2_no_irr = .FALSE. P_c3h7o2_ho2_irr = 1 ; F_c3h7o2_ho2_irr = .FALSE. P_c3h7o2_ch3o2_irr = 1 ; F_c3h7o2_ch3o2_irr = .FALSE. P_c3h7ooh_oh_irr = 1 ; F_c3h7ooh_oh_irr = .FALSE. P_ch3coch3_oh_irr = 1 ; F_ch3coch3_oh_irr = .FALSE. P_ro2_no_irr = 1 ; F_ro2_no_irr = .FALSE. P_ro2_ho2_irr = 1 ; F_ro2_ho2_irr = .FALSE. P_ro2_ch3o2_irr = 1 ; F_ro2_ch3o2_irr = .FALSE. P_rooh_oh_irr = 1 ; F_rooh_oh_irr = .FALSE. P_bigene_oh_irr = 1 ; F_bigene_oh_irr = .FALSE. P_bigene_oh_a_irr = 1 ; F_bigene_oh_a_irr = .FALSE. P_bigene_oh_b_irr = 1 ; F_bigene_oh_b_irr = .FALSE. P_bigene_oh_c_irr = 1 ; F_bigene_oh_c_irr = .FALSE. P_bigene_oh_d_irr = 1 ; F_bigene_oh_d_irr = .FALSE. P_eneo2_no_irr = 1 ; F_eneo2_no_irr = .FALSE. P_bigalk_oh_irr = 1 ; F_bigalk_oh_irr = .FALSE. P_bigalk_oh_a_irr = 1 ; F_bigalk_oh_a_irr = .FALSE. P_bigalk_oh_b_irr = 1 ; F_bigalk_oh_b_irr = .FALSE. P_bigalk_oh_c_irr = 1 ; F_bigalk_oh_c_irr = .FALSE. P_bigalk_oh_d_irr = 1 ; F_bigalk_oh_d_irr = .FALSE. P_alko2_no_irr = 1 ; F_alko2_no_irr = .FALSE. P_alko2_ho2_irr = 1 ; F_alko2_ho2_irr = .FALSE. P_alkooh_oh_irr = 1 ; F_alkooh_oh_irr = .FALSE. P_onit_oh_irr = 1 ; F_onit_oh_irr = .FALSE. P_mek_oh_irr = 1 ; F_mek_oh_irr = .FALSE. P_meko2_no_irr = 1 ; F_meko2_no_irr = .FALSE. P_meko2_ho2_irr = 1 ; F_meko2_ho2_irr = .FALSE. P_mekooh_oh_irr = 1 ; F_mekooh_oh_irr = .FALSE. P_tolo2_ho2_irr = 1 ; F_tolo2_ho2_irr = .FALSE. P_tolooh_oh_irr = 1 ; F_tolooh_oh_irr = .FALSE. P_isop_oh_irr = 1 ; F_isop_oh_irr = .FALSE. P_isop_oh_a_irr = 1 ; F_isop_oh_a_irr = .FALSE. P_isop_oh_b_irr = 1 ; F_isop_oh_b_irr = .FALSE. P_isop_oh_c_irr = 1 ; F_isop_oh_c_irr = .FALSE. P_isop_oh_d_irr = 1 ; F_isop_oh_d_irr = .FALSE. P_isop_o3_irr = 1 ; F_isop_o3_irr = .FALSE. P_isop_o3_a_irr = 1 ; F_isop_o3_a_irr = .FALSE. P_isop_o3_b_irr = 1 ; F_isop_o3_b_irr = .FALSE. P_isop_o3_c_irr = 1 ; F_isop_o3_c_irr = .FALSE. P_isop_o3_d_irr = 1 ; F_isop_o3_d_irr = .FALSE. P_isopo2_no_irr = 1 ; F_isopo2_no_irr = .FALSE. P_isopo2_no3_irr = 1 ; F_isopo2_no3_irr = .FALSE. P_isopo2_ho2_irr = 1 ; F_isopo2_ho2_irr = .FALSE. P_isopooh_oh_irr = 1 ; F_isopooh_oh_irr = .FALSE. P_isopo2_ch3o2_irr = 1 ; F_isopo2_ch3o2_irr = .FALSE. P_isopo2_ch3co3_irr = 1 ; F_isopo2_ch3co3_irr = .FALSE. P_mvk_oh_irr = 1 ; F_mvk_oh_irr = .FALSE. P_mvk_o3_irr = 1 ; F_mvk_o3_irr = .FALSE. P_macr_oh_irr = 1 ; F_macr_oh_irr = .FALSE. P_macr_o3_irr = 1 ; F_macr_o3_irr = .FALSE. P_macro2_no_irr = 1 ; F_macro2_no_irr = .FALSE. P_macro2_no_a_irr = 1 ; F_macro2_no_a_irr = .FALSE. P_macro2_no3_irr = 1 ; F_macro2_no3_irr = .FALSE. P_macro2_ho2_irr = 1 ; F_macro2_ho2_irr = .FALSE. P_macro2_ch3o2_irr = 1 ; F_macro2_ch3o2_irr = .FALSE. P_macro2_ch3co3_irr = 1 ; F_macro2_ch3co3_irr = .FALSE. P_macrooh_oh_irr = 1 ; F_macrooh_oh_irr = .FALSE. P_mco3_no_irr = 1 ; F_mco3_no_irr = .FALSE. P_mco3_no3_irr = 1 ; F_mco3_no3_irr = .FALSE. P_mco3_ho2_irr = 1 ; F_mco3_ho2_irr = .FALSE. P_mco3_ch3o2_irr = 1 ; F_mco3_ch3o2_irr = .FALSE. P_mco3_ch3co3_irr = 1 ; F_mco3_ch3co3_irr = .FALSE. P_mco3_mco3_irr = 1 ; F_mco3_mco3_irr = .FALSE. P_mco3_no2_m_irr = 1 ; F_mco3_no2_m_irr = .FALSE. P_mpan_m_irr = 1 ; F_mpan_m_irr = .FALSE. P_oh_benzene_irr = 1 ; F_oh_benzene_irr = .FALSE. P_oh_benzene_a_irr = 1 ; F_oh_benzene_a_irr = .FALSE. P_oh_benzene_b_irr = 1 ; F_oh_benzene_b_irr = .FALSE. P_oh_benzene_c_irr = 1 ; F_oh_benzene_c_irr = .FALSE. P_oh_benzene_d_irr = 1 ; F_oh_benzene_d_irr = .FALSE. P_oh_phenol_irr = 1 ; F_oh_phenol_irr = .FALSE. P_pheno2_no_irr = 1 ; F_pheno2_no_irr = .FALSE. P_pheno2_ho2_irr = 1 ; F_pheno2_ho2_irr = .FALSE. P_oh_phenooh_irr = 1 ; F_oh_phenooh_irr = .FALSE. P_pheno_no2_irr = 1 ; F_pheno_no2_irr = .FALSE. P_pheno_o3_irr = 1 ; F_pheno_o3_irr = .FALSE. P_c6h5o2_no_irr = 1 ; F_c6h5o2_no_irr = .FALSE. P_c6h5o2_ho2_irr = 1 ; F_c6h5o2_ho2_irr = .FALSE. P_oh_c6h5ooh_irr = 1 ; F_oh_c6h5ooh_irr = .FALSE. P_benzo2_no_irr = 1 ; F_benzo2_no_irr = .FALSE. P_benzo2_ho2_irr = 1 ; F_benzo2_ho2_irr = .FALSE. P_oh_benzooh_irr = 1 ; F_oh_benzooh_irr = .FALSE. P_malo2_no2_irr = 1 ; F_malo2_no2_irr = .FALSE. P_malo2_no_irr = 1 ; F_malo2_no_irr = .FALSE. P_malo2_ho2_irr = 1 ; F_malo2_ho2_irr = .FALSE. P_oh_toluene_irr = 1 ; F_oh_toluene_irr = .FALSE. P_oh_toluene_a_irr = 1 ; F_oh_toluene_a_irr = .FALSE. P_oh_toluene_b_irr = 1 ; F_oh_toluene_b_irr = .FALSE. P_oh_toluene_c_irr = 1 ; F_oh_toluene_c_irr = .FALSE. P_oh_toluene_d_irr = 1 ; F_oh_toluene_d_irr = .FALSE. P_oh_cresol_irr = 1 ; F_oh_cresol_irr = .FALSE. P_bzoo_ho2_irr = 1 ; F_bzoo_ho2_irr = .FALSE. P_oh_bzooh_irr = 1 ; F_oh_bzooh_irr = .FALSE. P_bzoo_no_irr = 1 ; F_bzoo_no_irr = .FALSE. P_oh_bzald_irr = 1 ; F_oh_bzald_irr = .FALSE. P_acbzo2_no2_irr = 1 ; F_acbzo2_no2_irr = .FALSE. P_pbznit_irr = 1 ; F_pbznit_irr = .FALSE. P_acbzo2_no_irr = 1 ; F_acbzo2_no_irr = .FALSE. P_acbzo2_ho2_irr = 1 ; F_acbzo2_ho2_irr = .FALSE. P_tolo2_no_irr = 1 ; F_tolo2_no_irr = .FALSE. P_dicarbo2_ho2_irr = 1 ; F_dicarbo2_ho2_irr = .FALSE. P_dicarbo2_no_irr = 1 ; F_dicarbo2_no_irr = .FALSE. P_mdialo2_ho2_irr = 1 ; F_mdialo2_ho2_irr = .FALSE. P_mdialo2_no_irr = 1 ; F_mdialo2_no_irr = .FALSE. P_dicarbo2_no2_irr = 1 ; F_dicarbo2_no2_irr = .FALSE. P_mdialo2_no2_irr = 1 ; F_mdialo2_no2_irr = .FALSE. P_oh_xylenes_irr = 1 ; F_oh_xylenes_irr = .FALSE. P_oh_xylenes_a_irr = 1 ; F_oh_xylenes_a_irr = .FALSE. P_oh_xylenes_b_irr = 1 ; F_oh_xylenes_b_irr = .FALSE. P_oh_xylenes_c_irr = 1 ; F_oh_xylenes_c_irr = .FALSE. P_oh_xylenes_d_irr = 1 ; F_oh_xylenes_d_irr = .FALSE. P_oh_xylol_irr = 1 ; F_oh_xylol_irr = .FALSE. P_xylolo2_no_irr = 1 ; F_xylolo2_no_irr = .FALSE. P_xylolo2_ho2_irr = 1 ; F_xylolo2_ho2_irr = .FALSE. P_oh_xylolooh_irr = 1 ; F_oh_xylolooh_irr = .FALSE. P_xyleno2_ho2_irr = 1 ; F_xyleno2_ho2_irr = .FALSE. P_oh_xylenooh_irr = 1 ; F_oh_xylenooh_irr = .FALSE. P_xyleno2_no_irr = 1 ; F_xyleno2_no_irr = .FALSE. P_apin_oh_irr = 1 ; F_apin_oh_irr = .FALSE. P_apin_oh_a_irr = 1 ; F_apin_oh_a_irr = .FALSE. P_apin_oh_b_irr = 1 ; F_apin_oh_b_irr = .FALSE. P_apin_oh_c_irr = 1 ; F_apin_oh_c_irr = .FALSE. P_apin_oh_d_irr = 1 ; F_apin_oh_d_irr = .FALSE. P_bpin_oh_irr = 1 ; F_bpin_oh_irr = .FALSE. P_bpin_oh_a_irr = 1 ; F_bpin_oh_a_irr = .FALSE. P_bpin_oh_b_irr = 1 ; F_bpin_oh_b_irr = .FALSE. P_bpin_oh_c_irr = 1 ; F_bpin_oh_c_irr = .FALSE. P_bpin_oh_d_irr = 1 ; F_bpin_oh_d_irr = .FALSE. P_limon_oh_irr = 1 ; F_limon_oh_irr = .FALSE. P_limon_oh_a_irr = 1 ; F_limon_oh_a_irr = .FALSE. P_limon_oh_b_irr = 1 ; F_limon_oh_b_irr = .FALSE. P_limon_oh_c_irr = 1 ; F_limon_oh_c_irr = .FALSE. P_limon_oh_d_irr = 1 ; F_limon_oh_d_irr = .FALSE. P_myrc_oh_irr = 1 ; F_myrc_oh_irr = .FALSE. P_bcary_oh_irr = 1 ; F_bcary_oh_irr = .FALSE. P_apin_o3_irr = 1 ; F_apin_o3_irr = .FALSE. P_apin_o3_a_irr = 1 ; F_apin_o3_a_irr = .FALSE. P_apin_o3_b_irr = 1 ; F_apin_o3_b_irr = .FALSE. P_apin_o3_c_irr = 1 ; F_apin_o3_c_irr = .FALSE. P_apin_o3_d_irr = 1 ; F_apin_o3_d_irr = .FALSE. P_bpin_o3_irr = 1 ; F_bpin_o3_irr = .FALSE. P_bpin_o3_a_irr = 1 ; F_bpin_o3_a_irr = .FALSE. P_bpin_o3_b_irr = 1 ; F_bpin_o3_b_irr = .FALSE. P_bpin_o3_c_irr = 1 ; F_bpin_o3_c_irr = .FALSE. P_bpin_o3_d_irr = 1 ; F_bpin_o3_d_irr = .FALSE. P_limon_o3_irr = 1 ; F_limon_o3_irr = .FALSE. P_limon_o3_a_irr = 1 ; F_limon_o3_a_irr = .FALSE. P_limon_o3_b_irr = 1 ; F_limon_o3_b_irr = .FALSE. P_limon_o3_c_irr = 1 ; F_limon_o3_c_irr = .FALSE. P_limon_o3_d_irr = 1 ; F_limon_o3_d_irr = .FALSE. P_myrc_o3_irr = 1 ; F_myrc_o3_irr = .FALSE. P_bcary_o3_irr = 1 ; F_bcary_o3_irr = .FALSE. P_limon_no3_irr = 1 ; F_limon_no3_irr = .FALSE. P_myrc_no3_irr = 1 ; F_myrc_no3_irr = .FALSE. P_bcary_no3_irr = 1 ; F_bcary_no3_irr = .FALSE. P_terpo2_no_irr = 1 ; F_terpo2_no_irr = .FALSE. P_terpo2_ho2_irr = 1 ; F_terpo2_ho2_irr = .FALSE. P_terpo2_ch3o2_irr = 1 ; F_terpo2_ch3o2_irr = .FALSE. P_terpooh_oh_irr = 1 ; F_terpooh_oh_irr = .FALSE. P_terp2ooh_oh_irr = 1 ; F_terp2ooh_oh_irr = .FALSE. P_terprod1_oh_irr = 1 ; F_terprod1_oh_irr = .FALSE. P_terprod1_no3_irr = 1 ; F_terprod1_no3_irr = .FALSE. P_terp2o2_no_irr = 1 ; F_terp2o2_no_irr = .FALSE. P_terp2o2_ho2_irr = 1 ; F_terp2o2_ho2_irr = .FALSE. P_terp2o2_ch3o2_irr = 1 ; F_terp2o2_ch3o2_irr = .FALSE. P_terprod2_oh_irr = 1 ; F_terprod2_oh_irr = .FALSE. P_nterpo2_no_irr = 1 ; F_nterpo2_no_irr = .FALSE. P_nterpo2_ho2_irr = 1 ; F_nterpo2_ho2_irr = .FALSE. P_nterpo2_ch3o2_irr = 1 ; F_nterpo2_ch3o2_irr = .FALSE. P_nterpo2_no3_irr = 1 ; F_nterpo2_no3_irr = .FALSE. P_ch3cooh_oh_irr = 1 ; F_ch3cooh_oh_irr = .FALSE. P_isop_no3_irr = 1 ; F_isop_no3_irr = .FALSE. P_isopno3_no_irr = 1 ; F_isopno3_no_irr = .FALSE. P_isopno3_no3_irr = 1 ; F_isopno3_no3_irr = .FALSE. P_isopno3_ho2_irr = 1 ; F_isopno3_ho2_irr = .FALSE. P_ch3cocho_oh_irr = 1 ; F_ch3cocho_oh_irr = .FALSE. P_ch3cocho_no3_irr = 1 ; F_ch3cocho_no3_irr = .FALSE. P_onitr_oh_irr = 1 ; F_onitr_oh_irr = .FALSE. P_onitr_no3_irr = 1 ; F_onitr_no3_irr = .FALSE. P_hydrald_oh_irr = 1 ; F_hydrald_oh_irr = .FALSE. P_xo2_no_irr = 1 ; F_xo2_no_irr = .FALSE. P_xo2_no3_irr = 1 ; F_xo2_no3_irr = .FALSE. P_xo2_ho2_irr = 1 ; F_xo2_ho2_irr = .FALSE. P_xo2_ch3o2_irr = 1 ; F_xo2_ch3o2_irr = .FALSE. P_xo2_ch3co3_irr = 1 ; F_xo2_ch3co3_irr = .FALSE. P_xooh_oh_irr = 1 ; F_xooh_oh_irr = .FALSE. P_xooh_oh_a_irr = 1 ; F_xooh_oh_a_irr = .FALSE. P_ch3oh_oh_irr = 1 ; F_ch3oh_oh_irr = .FALSE. P_c2h5oh_oh_irr = 1 ; F_c2h5oh_oh_irr = .FALSE. P_mpan_oh_irr = 1 ; F_mpan_oh_irr = .FALSE. P_pan_oh_irr = 1 ; F_pan_oh_irr = .FALSE. P_hyac_oh_irr = 1 ; F_hyac_oh_irr = .FALSE. P_glyald_oh_irr = 1 ; F_glyald_oh_irr = .FALSE. P_dms_oh_irr = 1 ; F_dms_oh_irr = .FALSE. P_dms_oh_a_irr = 1 ; F_dms_oh_a_irr = .FALSE. P_dms_no3_irr = 1 ; F_dms_no3_irr = .FALSE. P_nh3_oh_irr = 1 ; F_nh3_oh_irr = .FALSE. P_ho2_irr = 1 ; F_ho2_irr = .FALSE. P_c2h5o2_c2h5o2_irr = 1 ; F_c2h5o2_c2h5o2_irr = .FALSE. P_mbo_oh_irr = 1 ; F_mbo_oh_irr = .FALSE. P_mboo2_no_irr = 1 ; F_mboo2_no_irr = .FALSE. P_mboo2_ch3o2_irr = 1 ; F_mboo2_ch3o2_irr = .FALSE. P_hmprop_oh_irr = 1 ; F_hmprop_oh_irr = .FALSE. P_hmpropo2_no_irr = 1 ; F_hmpropo2_no_irr = .FALSE. P_hmpropo2_ho2_irr = 1 ; F_hmpropo2_ho2_irr = .FALSE. P_mboo2_ho2_irr = 1 ; F_mboo2_ho2_irr = .FALSE. P_mboooh_oh_irr = 1 ; F_mboooh_oh_irr = .FALSE. P_mbo_o3_irr = 1 ; F_mbo_o3_irr = .FALSE. P_mbo_no3_irr = 1 ; F_mbo_no3_irr = .FALSE. P_mbono3o2_ho2_irr = 1 ; F_mbono3o2_ho2_irr = .FALSE. P_mbono3o2_no_irr = 1 ; F_mbono3o2_no_irr = .FALSE. P_mbono3o2_no3_irr = 1 ; F_mbono3o2_no3_irr = .FALSE. P_c2h2_oh_irr = 1 ; F_c2h2_oh_irr = .FALSE. P_hcooh_oh_irr = 1 ; F_hcooh_oh_irr = .FALSE. P_ch2o_ho2_irr = 1 ; F_ch2o_ho2_irr = .FALSE. P_hoch2oo_irr = 1 ; F_hoch2oo_irr = .FALSE. P_hoch2oo_no_irr = 1 ; F_hoch2oo_no_irr = .FALSE. P_hoch2oo_ho2_irr = 1 ; F_hoch2oo_ho2_irr = .FALSE. P_cvasoa4_oh_irr = 1 ; F_cvasoa4_oh_irr = .FALSE. P_cvasoa3_oh_irr = 1 ; F_cvasoa3_oh_irr = .FALSE. P_cvasoa2_oh_irr = 1 ; F_cvasoa2_oh_irr = .FALSE. P_cvasoa1_oh_irr = 1 ; F_cvasoa1_oh_irr = .FALSE. P_cvbsoa4_oh_irr = 1 ; F_cvbsoa4_oh_irr = .FALSE. P_cvbsoa3_oh_irr = 1 ; F_cvbsoa3_oh_irr = .FALSE. P_cvbsoa2_oh_irr = 1 ; F_cvbsoa2_oh_irr = .FALSE. P_cvbsoa1_oh_irr = 1 ; F_cvbsoa1_oh_irr = .FALSE. IF (model_config_rec%mp_physics(idomain)==0)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==1)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==2)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==3)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==4)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==5)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( scalar_index_table( PARAM_qt , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qt = scalar_num_table(idomain) scalar_index_table( PARAM_qt , idomain ) = P_qt ELSE P_qt = scalar_index_table( PARAM_qt , idomain ) END IF scalar_boundary_table( idomain, P_qt ) = .TRUE. scalar_dname_table( idomain, P_qt ) = 'CWM' scalar_desc_table( idomain, P_qt ) = 'Total condensate mixing ratio' scalar_units_table( idomain, P_qt ) = 'kg kg-1' scalar_streams_table( idomain, P_qt )%stream(1) = 33554433 scalar_streams_table( idomain, P_qt )%stream(2) = 2097152 F_qt = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==15)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( scalar_index_table( PARAM_qrimef , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qrimef = scalar_num_table(idomain) scalar_index_table( PARAM_qrimef , idomain ) = P_qrimef ELSE P_qrimef = scalar_index_table( PARAM_qrimef , idomain ) END IF scalar_boundary_table( idomain, P_qrimef ) = .TRUE. scalar_dname_table( idomain, P_qrimef ) = 'QRIMEF' scalar_desc_table( idomain, P_qrimef ) = 'rime factor * qi' scalar_units_table( idomain, P_qrimef ) = 'kg kg-1' scalar_streams_table( idomain, P_qrimef )%stream(1) = 33554433 scalar_streams_table( idomain, P_qrimef )%stream(2) = 2097152 F_qrimef = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==6)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==7)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==8)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==9)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 F_qnh = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==10)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 F_qng = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==11)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 F_qns = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==13)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==14)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==16)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==17)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 F_qndrop = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 F_qnh = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 F_qvolg = .TRUE. IF ( scalar_index_table( PARAM_qvolh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolh = scalar_num_table(idomain) scalar_index_table( PARAM_qvolh , idomain ) = P_qvolh ELSE P_qvolh = scalar_index_table( PARAM_qvolh , idomain ) END IF scalar_boundary_table( idomain, P_qvolh ) = .TRUE. scalar_dname_table( idomain, P_qvolh ) = 'QVHAIL' scalar_desc_table( idomain, P_qvolh ) = 'Hail Particle Volume' scalar_units_table( idomain, P_qvolh ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolh )%stream(1) = 33554433 scalar_streams_table( idomain, P_qvolh )%stream(2) = 2097152 F_qvolh = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==18)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 F_qndrop = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 F_qnh = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 F_qvolg = .TRUE. IF ( scalar_index_table( PARAM_qvolh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolh = scalar_num_table(idomain) scalar_index_table( PARAM_qvolh , idomain ) = P_qvolh ELSE P_qvolh = scalar_index_table( PARAM_qvolh , idomain ) END IF scalar_boundary_table( idomain, P_qvolh ) = .TRUE. scalar_dname_table( idomain, P_qvolh ) = 'QVHAIL' scalar_desc_table( idomain, P_qvolh ) = 'Hail Particle Volume' scalar_units_table( idomain, P_qvolh ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolh )%stream(1) = 33554433 scalar_streams_table( idomain, P_qvolh )%stream(2) = 2097152 F_qvolh = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==19)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 F_qh = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 F_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==21)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==22)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 F_qndrop = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qvolg , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qvolg = scalar_num_table(idomain) scalar_index_table( PARAM_qvolg , idomain ) = P_qvolg ELSE P_qvolg = scalar_index_table( PARAM_qvolg , idomain ) END IF scalar_boundary_table( idomain, P_qvolg ) = .TRUE. scalar_dname_table( idomain, P_qvolg ) = 'QVGRAUPEL' scalar_desc_table( idomain, P_qvolg ) = 'Graupel Particle Volume' scalar_units_table( idomain, P_qvolg ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qvolg )%stream(1) = 33554433 scalar_streams_table( idomain, P_qvolg )%stream(2) = 2097152 F_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==28)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnwfa , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnwfa = scalar_num_table(idomain) scalar_index_table( PARAM_qnwfa , idomain ) = P_qnwfa ELSE P_qnwfa = scalar_index_table( PARAM_qnwfa , idomain ) END IF scalar_boundary_table( idomain, P_qnwfa ) = .TRUE. scalar_dname_table( idomain, P_qnwfa ) = 'QNWFA' scalar_desc_table( idomain, P_qnwfa ) = 'water-friendly aerosol number con' scalar_units_table( idomain, P_qnwfa ) = ' kg(-1)' scalar_streams_table( idomain, P_qnwfa )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnwfa )%stream(2) = 2097152 F_qnwfa = .TRUE. IF ( scalar_index_table( PARAM_qnifa , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnifa = scalar_num_table(idomain) scalar_index_table( PARAM_qnifa , idomain ) = P_qnifa ELSE P_qnifa = scalar_index_table( PARAM_qnifa , idomain ) END IF scalar_boundary_table( idomain, P_qnifa ) = .TRUE. scalar_dname_table( idomain, P_qnifa ) = 'QNIFA' scalar_desc_table( idomain, P_qnifa ) = 'ice-friendly aerosol number con' scalar_units_table( idomain, P_qnifa ) = ' kg(-1)' scalar_streams_table( idomain, P_qnifa )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnifa )%stream(2) = 2097152 F_qnifa = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==50)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qir , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qir = scalar_num_table(idomain) scalar_index_table( PARAM_qir , idomain ) = P_qir ELSE P_qir = scalar_index_table( PARAM_qir , idomain ) END IF scalar_boundary_table( idomain, P_qir ) = .TRUE. scalar_dname_table( idomain, P_qir ) = 'QIR' scalar_desc_table( idomain, P_qir ) = 'Rime ice mass-1 mixing ratio' scalar_units_table( idomain, P_qir ) = 'kg kg(-1)' scalar_streams_table( idomain, P_qir )%stream(1) = 33554433 scalar_streams_table( idomain, P_qir )%stream(2) = 2097152 F_qir = .TRUE. IF ( scalar_index_table( PARAM_qib , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qib = scalar_num_table(idomain) scalar_index_table( PARAM_qib , idomain ) = P_qib ELSE P_qib = scalar_index_table( PARAM_qib , idomain ) END IF scalar_boundary_table( idomain, P_qib ) = .TRUE. scalar_dname_table( idomain, P_qib ) = 'QIB' scalar_desc_table( idomain, P_qib ) = 'Rime ice volume-1 mixing ratio' scalar_units_table( idomain, P_qib ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qib )%stream(1) = 33554433 scalar_streams_table( idomain, P_qib )%stream(2) = 2097152 F_qib = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==51)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qir , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qir = scalar_num_table(idomain) scalar_index_table( PARAM_qir , idomain ) = P_qir ELSE P_qir = scalar_index_table( PARAM_qir , idomain ) END IF scalar_boundary_table( idomain, P_qir ) = .TRUE. scalar_dname_table( idomain, P_qir ) = 'QIR' scalar_desc_table( idomain, P_qir ) = 'Rime ice mass-1 mixing ratio' scalar_units_table( idomain, P_qir ) = 'kg kg(-1)' scalar_streams_table( idomain, P_qir )%stream(1) = 33554433 scalar_streams_table( idomain, P_qir )%stream(2) = 2097152 F_qir = .TRUE. IF ( scalar_index_table( PARAM_qib , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qib = scalar_num_table(idomain) scalar_index_table( PARAM_qib , idomain ) = P_qib ELSE P_qib = scalar_index_table( PARAM_qib , idomain ) END IF scalar_boundary_table( idomain, P_qib ) = .TRUE. scalar_dname_table( idomain, P_qib ) = 'QIB' scalar_desc_table( idomain, P_qib ) = 'Rime ice volume-1 mixing ratio' scalar_units_table( idomain, P_qib ) = 'm(3) kg(-1)' scalar_streams_table( idomain, P_qib )%stream(1) = 33554433 scalar_streams_table( idomain, P_qib )%stream(2) = 2097152 F_qib = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==95)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( scalar_index_table( PARAM_qt , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qt = scalar_num_table(idomain) scalar_index_table( PARAM_qt , idomain ) = P_qt ELSE P_qt = scalar_index_table( PARAM_qt , idomain ) END IF scalar_boundary_table( idomain, P_qt ) = .TRUE. scalar_dname_table( idomain, P_qt ) = 'CWM' scalar_desc_table( idomain, P_qt ) = 'Total condensate mixing ratio' scalar_units_table( idomain, P_qt ) = 'kg kg-1' scalar_streams_table( idomain, P_qt )%stream(1) = 33554433 scalar_streams_table( idomain, P_qt )%stream(2) = 2097152 F_qt = .TRUE. END IF IF (model_config_rec%compute_radar_ref==1)THEN END IF IF (model_config_rec%mp_physics_dfi(idomain)==-1)THEN END IF IF (model_config_rec%mp_physics_dfi(idomain)==0)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==1)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==2)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==3)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==4)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==5)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qt , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qt = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qt , idomain ) = P_dfi_qt ELSE P_dfi_qt = dfi_scalar_index_table( PARAM_dfi_qt , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qt ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qt ) = 'DFI_CWM' dfi_scalar_desc_table( idomain, P_dfi_qt ) = 'DFI Total condensate mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qt ) = 'kg kg-1' dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(2) = 2097152 F_dfi_qt = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==6)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==7)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==8)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==9)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qh , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qh = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qh , idomain ) = P_dfi_qh ELSE P_dfi_qh = dfi_moist_index_table( PARAM_dfi_qh , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qh ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qh ) = 'DFI_QHAIL' dfi_moist_desc_table( idomain, P_dfi_qh ) = 'Hail mixing ratio' dfi_moist_units_table( idomain, P_dfi_qh ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qh )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qh )%stream(2) = 2097152 F_dfi_qh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qns , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qns = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qns , idomain ) = P_dfi_qns ELSE P_dfi_qns = dfi_scalar_index_table( PARAM_dfi_qns , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qns ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qns ) = 'DFI_QNSNOW' dfi_scalar_desc_table( idomain, P_dfi_qns ) = 'DFI Snow Number concentration' dfi_scalar_units_table( idomain, P_dfi_qns ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(2) = 2097152 F_dfi_qns = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qng , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qng = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qng , idomain ) = P_dfi_qng ELSE P_dfi_qng = dfi_scalar_index_table( PARAM_dfi_qng , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qng ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qng ) = 'DFI_QNGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qng ) = 'DFI Graupel Number concentration' dfi_scalar_units_table( idomain, P_dfi_qng ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(2) = 2097152 F_dfi_qng = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnh = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) = P_dfi_qnh ELSE P_dfi_qnh = dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnh ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnh ) = 'DFI_QNHAIL' dfi_scalar_desc_table( idomain, P_dfi_qnh ) = 'DFI Hail Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnh ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(2) = 2097152 F_dfi_qnh = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==10)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qns , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qns = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qns , idomain ) = P_dfi_qns ELSE P_dfi_qns = dfi_scalar_index_table( PARAM_dfi_qns , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qns ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qns ) = 'DFI_QNSNOW' dfi_scalar_desc_table( idomain, P_dfi_qns ) = 'DFI Snow Number concentration' dfi_scalar_units_table( idomain, P_dfi_qns ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(2) = 2097152 F_dfi_qns = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qng , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qng = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qng , idomain ) = P_dfi_qng ELSE P_dfi_qng = dfi_scalar_index_table( PARAM_dfi_qng , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qng ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qng ) = 'DFI_QNGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qng ) = 'DFI Graupel Number concentration' dfi_scalar_units_table( idomain, P_dfi_qng ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(2) = 2097152 F_dfi_qng = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==14)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnn = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) = P_dfi_qnn ELSE P_dfi_qnn = dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnn ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnn ) = 'DFI_QNCC' dfi_scalar_desc_table( idomain, P_dfi_qnn ) = 'DFI CNN Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnn ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(2) = 2097152 F_dfi_qnn = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==16)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnn = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) = P_dfi_qnn ELSE P_dfi_qnn = dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnn ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnn ) = 'DFI_QNCC' dfi_scalar_desc_table( idomain, P_dfi_qnn ) = 'DFI CNN Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnn ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(2) = 2097152 F_dfi_qnn = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==17)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qh , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qh = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qh , idomain ) = P_dfi_qh ELSE P_dfi_qh = dfi_moist_index_table( PARAM_dfi_qh , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qh ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qh ) = 'DFI_QHAIL' dfi_moist_desc_table( idomain, P_dfi_qh ) = 'Hail mixing ratio' dfi_moist_units_table( idomain, P_dfi_qh ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qh )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qh )%stream(2) = 2097152 F_dfi_qh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qndrop = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) = P_dfi_qndrop ELSE P_dfi_qndrop = dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qndrop ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qndrop ) = 'DFI_QNDROP' dfi_scalar_desc_table( idomain, P_dfi_qndrop ) = 'DFI Droplet number mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qndrop ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(2) = 2097152 F_dfi_qndrop = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qns , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qns = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qns , idomain ) = P_dfi_qns ELSE P_dfi_qns = dfi_scalar_index_table( PARAM_dfi_qns , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qns ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qns ) = 'DFI_QNSNOW' dfi_scalar_desc_table( idomain, P_dfi_qns ) = 'DFI Snow Number concentration' dfi_scalar_units_table( idomain, P_dfi_qns ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(2) = 2097152 F_dfi_qns = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qng , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qng = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qng , idomain ) = P_dfi_qng ELSE P_dfi_qng = dfi_scalar_index_table( PARAM_dfi_qng , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qng ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qng ) = 'DFI_QNGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qng ) = 'DFI Graupel Number concentration' dfi_scalar_units_table( idomain, P_dfi_qng ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(2) = 2097152 F_dfi_qng = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnh = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) = P_dfi_qnh ELSE P_dfi_qnh = dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnh ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnh ) = 'DFI_QNHAIL' dfi_scalar_desc_table( idomain, P_dfi_qnh ) = 'DFI Hail Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnh ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(2) = 2097152 F_dfi_qnh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvolg = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) = P_dfi_qvolg ELSE P_dfi_qvolg = dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvolg ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvolg ) = 'DFI_QVGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qvolg ) = 'DFI Graupel Particle Volume' dfi_scalar_units_table( idomain, P_dfi_qvolg ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(1) = 1 dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(2) = 2097152 F_dfi_qvolg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvolh , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvolh = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvolh , idomain ) = P_dfi_qvolh ELSE P_dfi_qvolh = dfi_scalar_index_table( PARAM_dfi_qvolh , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvolh ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvolh ) = 'DFI_QVHAIL' dfi_scalar_desc_table( idomain, P_dfi_qvolh ) = 'DFI Hail Particle Volume' dfi_scalar_units_table( idomain, P_dfi_qvolh ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvolh )%stream(1) = 1 dfi_scalar_streams_table( idomain, P_dfi_qvolh )%stream(2) = 2097152 F_dfi_qvolh = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==18)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qh , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qh = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qh , idomain ) = P_dfi_qh ELSE P_dfi_qh = dfi_moist_index_table( PARAM_dfi_qh , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qh ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qh ) = 'DFI_QHAIL' dfi_moist_desc_table( idomain, P_dfi_qh ) = 'Hail mixing ratio' dfi_moist_units_table( idomain, P_dfi_qh ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qh )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qh )%stream(2) = 2097152 F_dfi_qh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qndrop = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) = P_dfi_qndrop ELSE P_dfi_qndrop = dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qndrop ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qndrop ) = 'DFI_QNDROP' dfi_scalar_desc_table( idomain, P_dfi_qndrop ) = 'DFI Droplet number mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qndrop ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(2) = 2097152 F_dfi_qndrop = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnn = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) = P_dfi_qnn ELSE P_dfi_qnn = dfi_scalar_index_table( PARAM_dfi_qnn , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnn ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnn ) = 'DFI_QNCC' dfi_scalar_desc_table( idomain, P_dfi_qnn ) = 'DFI CNN Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnn ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnn )%stream(2) = 2097152 F_dfi_qnn = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qns , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qns = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qns , idomain ) = P_dfi_qns ELSE P_dfi_qns = dfi_scalar_index_table( PARAM_dfi_qns , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qns ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qns ) = 'DFI_QNSNOW' dfi_scalar_desc_table( idomain, P_dfi_qns ) = 'DFI Snow Number concentration' dfi_scalar_units_table( idomain, P_dfi_qns ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qns )%stream(2) = 2097152 F_dfi_qns = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qng , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qng = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qng , idomain ) = P_dfi_qng ELSE P_dfi_qng = dfi_scalar_index_table( PARAM_dfi_qng , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qng ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qng ) = 'DFI_QNGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qng ) = 'DFI Graupel Number concentration' dfi_scalar_units_table( idomain, P_dfi_qng ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qng )%stream(2) = 2097152 F_dfi_qng = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnh = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) = P_dfi_qnh ELSE P_dfi_qnh = dfi_scalar_index_table( PARAM_dfi_qnh , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnh ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnh ) = 'DFI_QNHAIL' dfi_scalar_desc_table( idomain, P_dfi_qnh ) = 'DFI Hail Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnh ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnh )%stream(2) = 2097152 F_dfi_qnh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvolg = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) = P_dfi_qvolg ELSE P_dfi_qvolg = dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvolg ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvolg ) = 'DFI_QVGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qvolg ) = 'DFI Graupel Particle Volume' dfi_scalar_units_table( idomain, P_dfi_qvolg ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(1) = 1 dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(2) = 2097152 F_dfi_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==19)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qh , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qh = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qh , idomain ) = P_dfi_qh ELSE P_dfi_qh = dfi_moist_index_table( PARAM_dfi_qh , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qh ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qh ) = 'DFI_QHAIL' dfi_moist_desc_table( idomain, P_dfi_qh ) = 'Hail mixing ratio' dfi_moist_units_table( idomain, P_dfi_qh ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qh )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qh )%stream(2) = 2097152 F_dfi_qh = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qvolg = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) = P_dfi_qvolg ELSE P_dfi_qvolg = dfi_scalar_index_table( PARAM_dfi_qvolg , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qvolg ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qvolg ) = 'DFI_QVGRAUPEL' dfi_scalar_desc_table( idomain, P_dfi_qvolg ) = 'DFI Graupel Particle Volume' dfi_scalar_units_table( idomain, P_dfi_qvolg ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(1) = 1 dfi_scalar_streams_table( idomain, P_dfi_qvolg )%stream(2) = 2097152 F_dfi_qvolg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==21)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==28)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qg , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qg = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qg , idomain ) = P_dfi_qg ELSE P_dfi_qg = dfi_moist_index_table( PARAM_dfi_qg , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qg ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qg ) = 'DFI_QGRAUP' dfi_moist_desc_table( idomain, P_dfi_qg ) = 'Graupel mixing ratio' dfi_moist_units_table( idomain, P_dfi_qg ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qg )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qg )%stream(2) = 2097152 F_dfi_qg = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnwfa , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnwfa = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnwfa , idomain ) = P_dfi_qnwfa ELSE P_dfi_qnwfa = dfi_scalar_index_table( PARAM_dfi_qnwfa , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnwfa ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnwfa ) = 'DFI_QNWFA' dfi_scalar_desc_table( idomain, P_dfi_qnwfa ) = 'DFI water-friendly aerosol number con' dfi_scalar_units_table( idomain, P_dfi_qnwfa ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnwfa )%stream(1) = 33554433 dfi_scalar_streams_table( idomain, P_dfi_qnwfa )%stream(2) = 2097152 F_dfi_qnwfa = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnifa , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnifa = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnifa , idomain ) = P_dfi_qnifa ELSE P_dfi_qnifa = dfi_scalar_index_table( PARAM_dfi_qnifa , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnifa ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnifa ) = 'DFI_QNIFA' dfi_scalar_desc_table( idomain, P_dfi_qnifa ) = 'DFI ice-friendly aerosol number con' dfi_scalar_units_table( idomain, P_dfi_qnifa ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnifa )%stream(1) = 33554433 dfi_scalar_streams_table( idomain, P_dfi_qnifa )%stream(2) = 2097152 F_dfi_qnifa = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==50)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qir , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qir = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qir , idomain ) = P_dfi_qir ELSE P_dfi_qir = dfi_scalar_index_table( PARAM_dfi_qir , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qir ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qir ) = 'DFI_QIR' dfi_scalar_desc_table( idomain, P_dfi_qir ) = 'DFI Rime ice mass-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qir ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qir )%stream(1) = 1 dfi_scalar_streams_table( idomain, P_dfi_qir )%stream(2) = 2097152 F_dfi_qir = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qib , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qib = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qib , idomain ) = P_dfi_qib ELSE P_dfi_qib = dfi_scalar_index_table( PARAM_dfi_qib , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qib ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qib ) = 'DFI_QIB' dfi_scalar_desc_table( idomain, P_dfi_qib ) = 'DFI Rime ice volume-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qib ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qib )%stream(1) = 1 dfi_scalar_streams_table( idomain, P_dfi_qib )%stream(2) = 2097152 F_dfi_qib = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==51)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qi , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qi = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qi , idomain ) = P_dfi_qi ELSE P_dfi_qi = dfi_moist_index_table( PARAM_dfi_qi , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qi ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qi ) = 'DFI_QICE' dfi_moist_desc_table( idomain, P_dfi_qi ) = 'Ice mixing ratio' dfi_moist_units_table( idomain, P_dfi_qi ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qi )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qi )%stream(2) = 2097152 F_dfi_qi = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnc = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) = P_dfi_qnc ELSE P_dfi_qnc = dfi_scalar_index_table( PARAM_dfi_qnc , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnc ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnc ) = 'DFI_QNCLOUD' dfi_scalar_desc_table( idomain, P_dfi_qnc ) = 'DFI Cloud Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnc ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnc )%stream(2) = 2097152 F_dfi_qnc = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qni , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qni = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qni , idomain ) = P_dfi_qni ELSE P_dfi_qni = dfi_scalar_index_table( PARAM_dfi_qni , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qni ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qni ) = 'DFI_QNICE' dfi_scalar_desc_table( idomain, P_dfi_qni ) = 'DFI Ice Number concentration' dfi_scalar_units_table( idomain, P_dfi_qni ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qni )%stream(2) = 2097152 F_dfi_qni = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qnr = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) = P_dfi_qnr ELSE P_dfi_qnr = dfi_scalar_index_table( PARAM_dfi_qnr , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qnr ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qnr ) = 'DFI_QNRAIN' dfi_scalar_desc_table( idomain, P_dfi_qnr ) = 'DFI Rain Number concentration' dfi_scalar_units_table( idomain, P_dfi_qnr ) = ' kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qnr )%stream(2) = 2097152 F_dfi_qnr = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qir , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qir = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qir , idomain ) = P_dfi_qir ELSE P_dfi_qir = dfi_scalar_index_table( PARAM_dfi_qir , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qir ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qir ) = 'DFI_QIR' dfi_scalar_desc_table( idomain, P_dfi_qir ) = 'DFI Rime ice mass-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qir ) = 'kg kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qir )%stream(1) = 1 dfi_scalar_streams_table( idomain, P_dfi_qir )%stream(2) = 2097152 F_dfi_qir = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qib , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qib = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qib , idomain ) = P_dfi_qib ELSE P_dfi_qib = dfi_scalar_index_table( PARAM_dfi_qib , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qib ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qib ) = 'DFI_QIB' dfi_scalar_desc_table( idomain, P_dfi_qib ) = 'DFI Rime ice volume-1 mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qib ) = 'm(3) kg(-1)' dfi_scalar_streams_table( idomain, P_dfi_qib )%stream(1) = 1 dfi_scalar_streams_table( idomain, P_dfi_qib )%stream(2) = 2097152 F_dfi_qib = .TRUE. END IF IF (model_config_rec%mp_physics_dfi(idomain)==95)THEN IF ( dfi_moist_index_table( PARAM_dfi_qv , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qv = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qv , idomain ) = P_dfi_qv ELSE P_dfi_qv = dfi_moist_index_table( PARAM_dfi_qv , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qv ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qv ) = 'DFI_QVAPOR' dfi_moist_desc_table( idomain, P_dfi_qv ) = 'Water vapor mixing ratio' dfi_moist_units_table( idomain, P_dfi_qv ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qv )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qv )%stream(2) = 2097152 F_dfi_qv = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qc , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qc = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qc , idomain ) = P_dfi_qc ELSE P_dfi_qc = dfi_moist_index_table( PARAM_dfi_qc , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qc ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qc ) = 'DFI_QCLOUD' dfi_moist_desc_table( idomain, P_dfi_qc ) = 'Cloud water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qc ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qc )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qc )%stream(2) = 2097152 F_dfi_qc = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qr , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qr = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qr , idomain ) = P_dfi_qr ELSE P_dfi_qr = dfi_moist_index_table( PARAM_dfi_qr , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qr ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qr ) = 'DFI_QRAIN' dfi_moist_desc_table( idomain, P_dfi_qr ) = 'Rain water mixing ratio' dfi_moist_units_table( idomain, P_dfi_qr ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qr )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qr )%stream(2) = 2097152 F_dfi_qr = .TRUE. IF ( dfi_moist_index_table( PARAM_dfi_qs , idomain ) .lt. 1 ) THEN dfi_moist_num_table(idomain) = dfi_moist_num_table(idomain) + 1 P_dfi_qs = dfi_moist_num_table(idomain) dfi_moist_index_table( PARAM_dfi_qs , idomain ) = P_dfi_qs ELSE P_dfi_qs = dfi_moist_index_table( PARAM_dfi_qs , idomain ) END IF dfi_moist_boundary_table( idomain, P_dfi_qs ) = .TRUE. dfi_moist_dname_table( idomain, P_dfi_qs ) = 'DFI_QSNOW' dfi_moist_desc_table( idomain, P_dfi_qs ) = 'Snow mixing ratio' dfi_moist_units_table( idomain, P_dfi_qs ) = 'kg kg-1' dfi_moist_streams_table( idomain, P_dfi_qs )%stream(1) = 0 dfi_moist_streams_table( idomain, P_dfi_qs )%stream(2) = 2097152 F_dfi_qs = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qt , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qt = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qt , idomain ) = P_dfi_qt ELSE P_dfi_qt = dfi_scalar_index_table( PARAM_dfi_qt , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qt ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qt ) = 'DFI_CWM' dfi_scalar_desc_table( idomain, P_dfi_qt ) = 'DFI Total condensate mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qt ) = 'kg kg-1' dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qt )%stream(2) = 2097152 F_dfi_qt = .TRUE. END IF IF (model_config_rec%progn(idomain)==0)THEN END IF IF (model_config_rec%progn(idomain)==1)THEN IF ( scalar_index_table( PARAM_qndrop , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qndrop = scalar_num_table(idomain) scalar_index_table( PARAM_qndrop , idomain ) = P_qndrop ELSE P_qndrop = scalar_index_table( PARAM_qndrop , idomain ) END IF scalar_boundary_table( idomain, P_qndrop ) = .TRUE. scalar_dname_table( idomain, P_qndrop ) = 'QNDROP' scalar_desc_table( idomain, P_qndrop ) = 'Droplet number mixing ratio' scalar_units_table( idomain, P_qndrop ) = ' kg-1' scalar_streams_table( idomain, P_qndrop )%stream(1) = 33554433 scalar_streams_table( idomain, P_qndrop )%stream(2) = 2097152 F_qndrop = .TRUE. IF ( dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qndrop = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) = P_dfi_qndrop ELSE P_dfi_qndrop = dfi_scalar_index_table( PARAM_dfi_qndrop , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qndrop ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qndrop ) = 'DFI_QNDROP' dfi_scalar_desc_table( idomain, P_dfi_qndrop ) = 'DFI Droplet number mixing ratio' dfi_scalar_units_table( idomain, P_dfi_qndrop ) = ' kg-1' dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qndrop )%stream(2) = 2097152 F_dfi_qndrop = .TRUE. END IF IF (model_config_rec%alloc_qndropsource==0)THEN END IF IF (model_config_rec%alloc_qndropsource==1)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==1)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==3)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 F_mth12 = .TRUE. IF ( aerosolc_index_table( PARAM_sul , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_sul = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_sul , idomain ) = P_sul ELSE P_sul = aerosolc_index_table( PARAM_sul , idomain ) END IF aerosolc_boundary_table( idomain, P_sul ) = .FALSE. aerosolc_dname_table( idomain, P_sul ) = 'SUL' aerosolc_desc_table( idomain, P_sul ) = 'SUL aerosol concentration' aerosolc_units_table( idomain, P_sul ) = '-' aerosolc_streams_table( idomain, P_sul )%stream(1) = 0 aerosolc_streams_table( idomain, P_sul )%stream(2) = 0 F_sul = .TRUE. IF ( aerosolc_index_table( PARAM_sslt , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_sslt = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_sslt , idomain ) = P_sslt ELSE P_sslt = aerosolc_index_table( PARAM_sslt , idomain ) END IF aerosolc_boundary_table( idomain, P_sslt ) = .FALSE. aerosolc_dname_table( idomain, P_sslt ) = 'SSLT' aerosolc_desc_table( idomain, P_sslt ) = 'SSLT aerosol concentration' aerosolc_units_table( idomain, P_sslt ) = '-' aerosolc_streams_table( idomain, P_sslt )%stream(1) = 0 aerosolc_streams_table( idomain, P_sslt )%stream(2) = 0 F_sslt = .TRUE. IF ( aerosolc_index_table( PARAM_dust1 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust1 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust1 , idomain ) = P_dust1 ELSE P_dust1 = aerosolc_index_table( PARAM_dust1 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust1 ) = .FALSE. aerosolc_dname_table( idomain, P_dust1 ) = 'DUST1' aerosolc_desc_table( idomain, P_dust1 ) = 'DUST1 aerosol concentration' aerosolc_units_table( idomain, P_dust1 ) = '-' aerosolc_streams_table( idomain, P_dust1 )%stream(1) = 0 aerosolc_streams_table( idomain, P_dust1 )%stream(2) = 0 F_dust1 = .TRUE. IF ( aerosolc_index_table( PARAM_dust2 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust2 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust2 , idomain ) = P_dust2 ELSE P_dust2 = aerosolc_index_table( PARAM_dust2 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust2 ) = .FALSE. aerosolc_dname_table( idomain, P_dust2 ) = 'DUST2' aerosolc_desc_table( idomain, P_dust2 ) = 'DUST2 aerosol concentration' aerosolc_units_table( idomain, P_dust2 ) = '-' aerosolc_streams_table( idomain, P_dust2 )%stream(1) = 0 aerosolc_streams_table( idomain, P_dust2 )%stream(2) = 0 F_dust2 = .TRUE. IF ( aerosolc_index_table( PARAM_dust3 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust3 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust3 , idomain ) = P_dust3 ELSE P_dust3 = aerosolc_index_table( PARAM_dust3 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust3 ) = .FALSE. aerosolc_dname_table( idomain, P_dust3 ) = 'DUST3' aerosolc_desc_table( idomain, P_dust3 ) = 'DUST3 aerosol concentration' aerosolc_units_table( idomain, P_dust3 ) = '-' aerosolc_streams_table( idomain, P_dust3 )%stream(1) = 0 aerosolc_streams_table( idomain, P_dust3 )%stream(2) = 0 F_dust3 = .TRUE. IF ( aerosolc_index_table( PARAM_dust4 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust4 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust4 , idomain ) = P_dust4 ELSE P_dust4 = aerosolc_index_table( PARAM_dust4 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust4 ) = .FALSE. aerosolc_dname_table( idomain, P_dust4 ) = 'DUST4' aerosolc_desc_table( idomain, P_dust4 ) = 'DUST4 aerosol concentration' aerosolc_units_table( idomain, P_dust4 ) = '-' aerosolc_streams_table( idomain, P_dust4 )%stream(1) = 0 aerosolc_streams_table( idomain, P_dust4 )%stream(2) = 0 F_dust4 = .TRUE. IF ( aerosolc_index_table( PARAM_ocpho , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_ocpho = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_ocpho , idomain ) = P_ocpho ELSE P_ocpho = aerosolc_index_table( PARAM_ocpho , idomain ) END IF aerosolc_boundary_table( idomain, P_ocpho ) = .FALSE. aerosolc_dname_table( idomain, P_ocpho ) = 'OCPHO' aerosolc_desc_table( idomain, P_ocpho ) = 'OCPHO aerosol concentration' aerosolc_units_table( idomain, P_ocpho ) = '-' aerosolc_streams_table( idomain, P_ocpho )%stream(1) = 0 aerosolc_streams_table( idomain, P_ocpho )%stream(2) = 0 F_ocpho = .TRUE. IF ( aerosolc_index_table( PARAM_bcpho , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bcpho = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bcpho , idomain ) = P_bcpho ELSE P_bcpho = aerosolc_index_table( PARAM_bcpho , idomain ) END IF aerosolc_boundary_table( idomain, P_bcpho ) = .FALSE. aerosolc_dname_table( idomain, P_bcpho ) = 'BCPHO' aerosolc_desc_table( idomain, P_bcpho ) = 'BCPHO aerosol concentration' aerosolc_units_table( idomain, P_bcpho ) = '-' aerosolc_streams_table( idomain, P_bcpho )%stream(1) = 0 aerosolc_streams_table( idomain, P_bcpho )%stream(2) = 0 F_bcpho = .TRUE. IF ( aerosolc_index_table( PARAM_ocphi , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_ocphi = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_ocphi , idomain ) = P_ocphi ELSE P_ocphi = aerosolc_index_table( PARAM_ocphi , idomain ) END IF aerosolc_boundary_table( idomain, P_ocphi ) = .FALSE. aerosolc_dname_table( idomain, P_ocphi ) = 'OCPHI' aerosolc_desc_table( idomain, P_ocphi ) = 'OCPHI aerosol concentration' aerosolc_units_table( idomain, P_ocphi ) = '-' aerosolc_streams_table( idomain, P_ocphi )%stream(1) = 0 aerosolc_streams_table( idomain, P_ocphi )%stream(2) = 0 F_ocphi = .TRUE. IF ( aerosolc_index_table( PARAM_bcphi , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bcphi = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bcphi , idomain ) = P_bcphi ELSE P_bcphi = aerosolc_index_table( PARAM_bcphi , idomain ) END IF aerosolc_boundary_table( idomain, P_bcphi ) = .FALSE. aerosolc_dname_table( idomain, P_bcphi ) = 'BCPHI' aerosolc_desc_table( idomain, P_bcphi ) = 'BCPHI aerosol concentration' aerosolc_units_table( idomain, P_bcphi ) = '-' aerosolc_streams_table( idomain, P_bcphi )%stream(1) = 0 aerosolc_streams_table( idomain, P_bcphi )%stream(2) = 0 F_bcphi = .TRUE. IF ( aerosolc_index_table( PARAM_bg , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bg = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bg , idomain ) = P_bg ELSE P_bg = aerosolc_index_table( PARAM_bg , idomain ) END IF aerosolc_boundary_table( idomain, P_bg ) = .FALSE. aerosolc_dname_table( idomain, P_bg ) = 'BG' aerosolc_desc_table( idomain, P_bg ) = 'BG aerosol concentration' aerosolc_units_table( idomain, P_bg ) = '-' aerosolc_streams_table( idomain, P_bg )%stream(1) = 0 aerosolc_streams_table( idomain, P_bg )%stream(2) = 0 F_bg = .TRUE. IF ( aerosolc_index_table( PARAM_volc , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_volc = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_volc , idomain ) = P_volc ELSE P_volc = aerosolc_index_table( PARAM_volc , idomain ) END IF aerosolc_boundary_table( idomain, P_volc ) = .FALSE. aerosolc_dname_table( idomain, P_volc ) = 'VOLC' aerosolc_desc_table( idomain, P_volc ) = 'VOLC aerosol concentration' aerosolc_units_table( idomain, P_volc ) = '-' aerosolc_streams_table( idomain, P_volc )%stream(1) = 0 aerosolc_streams_table( idomain, P_volc )%stream(2) = 0 F_volc = .TRUE. END IF IF (model_config_rec%ra_lw_physics(idomain)==4)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 F_mth12 = .TRUE. END IF IF (model_config_rec%ra_lw_physics(idomain)==24)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 F_mth12 = .TRUE. END IF IF (model_config_rec%ra_lw_physics(idomain)==5)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==7)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==31)THEN END IF IF (model_config_rec%ra_lw_physics(idomain)==99)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==1)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==2)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==3)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 F_mth12 = .TRUE. IF ( aerosolc_index_table( PARAM_sul , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_sul = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_sul , idomain ) = P_sul ELSE P_sul = aerosolc_index_table( PARAM_sul , idomain ) END IF aerosolc_boundary_table( idomain, P_sul ) = .FALSE. aerosolc_dname_table( idomain, P_sul ) = 'SUL' aerosolc_desc_table( idomain, P_sul ) = 'SUL aerosol concentration' aerosolc_units_table( idomain, P_sul ) = '-' aerosolc_streams_table( idomain, P_sul )%stream(1) = 0 aerosolc_streams_table( idomain, P_sul )%stream(2) = 0 F_sul = .TRUE. IF ( aerosolc_index_table( PARAM_sslt , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_sslt = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_sslt , idomain ) = P_sslt ELSE P_sslt = aerosolc_index_table( PARAM_sslt , idomain ) END IF aerosolc_boundary_table( idomain, P_sslt ) = .FALSE. aerosolc_dname_table( idomain, P_sslt ) = 'SSLT' aerosolc_desc_table( idomain, P_sslt ) = 'SSLT aerosol concentration' aerosolc_units_table( idomain, P_sslt ) = '-' aerosolc_streams_table( idomain, P_sslt )%stream(1) = 0 aerosolc_streams_table( idomain, P_sslt )%stream(2) = 0 F_sslt = .TRUE. IF ( aerosolc_index_table( PARAM_dust1 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust1 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust1 , idomain ) = P_dust1 ELSE P_dust1 = aerosolc_index_table( PARAM_dust1 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust1 ) = .FALSE. aerosolc_dname_table( idomain, P_dust1 ) = 'DUST1' aerosolc_desc_table( idomain, P_dust1 ) = 'DUST1 aerosol concentration' aerosolc_units_table( idomain, P_dust1 ) = '-' aerosolc_streams_table( idomain, P_dust1 )%stream(1) = 0 aerosolc_streams_table( idomain, P_dust1 )%stream(2) = 0 F_dust1 = .TRUE. IF ( aerosolc_index_table( PARAM_dust2 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust2 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust2 , idomain ) = P_dust2 ELSE P_dust2 = aerosolc_index_table( PARAM_dust2 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust2 ) = .FALSE. aerosolc_dname_table( idomain, P_dust2 ) = 'DUST2' aerosolc_desc_table( idomain, P_dust2 ) = 'DUST2 aerosol concentration' aerosolc_units_table( idomain, P_dust2 ) = '-' aerosolc_streams_table( idomain, P_dust2 )%stream(1) = 0 aerosolc_streams_table( idomain, P_dust2 )%stream(2) = 0 F_dust2 = .TRUE. IF ( aerosolc_index_table( PARAM_dust3 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust3 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust3 , idomain ) = P_dust3 ELSE P_dust3 = aerosolc_index_table( PARAM_dust3 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust3 ) = .FALSE. aerosolc_dname_table( idomain, P_dust3 ) = 'DUST3' aerosolc_desc_table( idomain, P_dust3 ) = 'DUST3 aerosol concentration' aerosolc_units_table( idomain, P_dust3 ) = '-' aerosolc_streams_table( idomain, P_dust3 )%stream(1) = 0 aerosolc_streams_table( idomain, P_dust3 )%stream(2) = 0 F_dust3 = .TRUE. IF ( aerosolc_index_table( PARAM_dust4 , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_dust4 = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_dust4 , idomain ) = P_dust4 ELSE P_dust4 = aerosolc_index_table( PARAM_dust4 , idomain ) END IF aerosolc_boundary_table( idomain, P_dust4 ) = .FALSE. aerosolc_dname_table( idomain, P_dust4 ) = 'DUST4' aerosolc_desc_table( idomain, P_dust4 ) = 'DUST4 aerosol concentration' aerosolc_units_table( idomain, P_dust4 ) = '-' aerosolc_streams_table( idomain, P_dust4 )%stream(1) = 0 aerosolc_streams_table( idomain, P_dust4 )%stream(2) = 0 F_dust4 = .TRUE. IF ( aerosolc_index_table( PARAM_ocpho , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_ocpho = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_ocpho , idomain ) = P_ocpho ELSE P_ocpho = aerosolc_index_table( PARAM_ocpho , idomain ) END IF aerosolc_boundary_table( idomain, P_ocpho ) = .FALSE. aerosolc_dname_table( idomain, P_ocpho ) = 'OCPHO' aerosolc_desc_table( idomain, P_ocpho ) = 'OCPHO aerosol concentration' aerosolc_units_table( idomain, P_ocpho ) = '-' aerosolc_streams_table( idomain, P_ocpho )%stream(1) = 0 aerosolc_streams_table( idomain, P_ocpho )%stream(2) = 0 F_ocpho = .TRUE. IF ( aerosolc_index_table( PARAM_bcpho , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bcpho = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bcpho , idomain ) = P_bcpho ELSE P_bcpho = aerosolc_index_table( PARAM_bcpho , idomain ) END IF aerosolc_boundary_table( idomain, P_bcpho ) = .FALSE. aerosolc_dname_table( idomain, P_bcpho ) = 'BCPHO' aerosolc_desc_table( idomain, P_bcpho ) = 'BCPHO aerosol concentration' aerosolc_units_table( idomain, P_bcpho ) = '-' aerosolc_streams_table( idomain, P_bcpho )%stream(1) = 0 aerosolc_streams_table( idomain, P_bcpho )%stream(2) = 0 F_bcpho = .TRUE. IF ( aerosolc_index_table( PARAM_ocphi , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_ocphi = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_ocphi , idomain ) = P_ocphi ELSE P_ocphi = aerosolc_index_table( PARAM_ocphi , idomain ) END IF aerosolc_boundary_table( idomain, P_ocphi ) = .FALSE. aerosolc_dname_table( idomain, P_ocphi ) = 'OCPHI' aerosolc_desc_table( idomain, P_ocphi ) = 'OCPHI aerosol concentration' aerosolc_units_table( idomain, P_ocphi ) = '-' aerosolc_streams_table( idomain, P_ocphi )%stream(1) = 0 aerosolc_streams_table( idomain, P_ocphi )%stream(2) = 0 F_ocphi = .TRUE. IF ( aerosolc_index_table( PARAM_bcphi , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bcphi = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bcphi , idomain ) = P_bcphi ELSE P_bcphi = aerosolc_index_table( PARAM_bcphi , idomain ) END IF aerosolc_boundary_table( idomain, P_bcphi ) = .FALSE. aerosolc_dname_table( idomain, P_bcphi ) = 'BCPHI' aerosolc_desc_table( idomain, P_bcphi ) = 'BCPHI aerosol concentration' aerosolc_units_table( idomain, P_bcphi ) = '-' aerosolc_streams_table( idomain, P_bcphi )%stream(1) = 0 aerosolc_streams_table( idomain, P_bcphi )%stream(2) = 0 F_bcphi = .TRUE. IF ( aerosolc_index_table( PARAM_bg , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_bg = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_bg , idomain ) = P_bg ELSE P_bg = aerosolc_index_table( PARAM_bg , idomain ) END IF aerosolc_boundary_table( idomain, P_bg ) = .FALSE. aerosolc_dname_table( idomain, P_bg ) = 'BG' aerosolc_desc_table( idomain, P_bg ) = 'BG aerosol concentration' aerosolc_units_table( idomain, P_bg ) = '-' aerosolc_streams_table( idomain, P_bg )%stream(1) = 0 aerosolc_streams_table( idomain, P_bg )%stream(2) = 0 F_bg = .TRUE. IF ( aerosolc_index_table( PARAM_volc , idomain ) .lt. 1 ) THEN aerosolc_num_table(idomain) = aerosolc_num_table(idomain) + 1 P_volc = aerosolc_num_table(idomain) aerosolc_index_table( PARAM_volc , idomain ) = P_volc ELSE P_volc = aerosolc_index_table( PARAM_volc , idomain ) END IF aerosolc_boundary_table( idomain, P_volc ) = .FALSE. aerosolc_dname_table( idomain, P_volc ) = 'VOLC' aerosolc_desc_table( idomain, P_volc ) = 'VOLC aerosol concentration' aerosolc_units_table( idomain, P_volc ) = '-' aerosolc_streams_table( idomain, P_volc )%stream(1) = 0 aerosolc_streams_table( idomain, P_volc )%stream(2) = 0 F_volc = .TRUE. END IF IF (model_config_rec%ra_sw_physics(idomain)==4)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 F_mth12 = .TRUE. IF ( aerod_index_table( PARAM_ocarbon , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_ocarbon = aerod_num_table(idomain) aerod_index_table( PARAM_ocarbon , idomain ) = P_ocarbon ELSE P_ocarbon = aerod_index_table( PARAM_ocarbon , idomain ) END IF aerod_boundary_table( idomain, P_ocarbon ) = .FALSE. aerod_dname_table( idomain, P_ocarbon ) = 'ocarbon' aerod_desc_table( idomain, P_ocarbon ) = 'organic carbon' aerod_units_table( idomain, P_ocarbon ) = '-' aerod_streams_table( idomain, P_ocarbon )%stream(1) = 0 aerod_streams_table( idomain, P_ocarbon )%stream(2) = 0 F_ocarbon = .TRUE. IF ( aerod_index_table( PARAM_seasalt , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_seasalt = aerod_num_table(idomain) aerod_index_table( PARAM_seasalt , idomain ) = P_seasalt ELSE P_seasalt = aerod_index_table( PARAM_seasalt , idomain ) END IF aerod_boundary_table( idomain, P_seasalt ) = .FALSE. aerod_dname_table( idomain, P_seasalt ) = 'seasalt' aerod_desc_table( idomain, P_seasalt ) = 'sea salt' aerod_units_table( idomain, P_seasalt ) = '-' aerod_streams_table( idomain, P_seasalt )%stream(1) = 0 aerod_streams_table( idomain, P_seasalt )%stream(2) = 0 F_seasalt = .TRUE. IF ( aerod_index_table( PARAM_dust , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_dust = aerod_num_table(idomain) aerod_index_table( PARAM_dust , idomain ) = P_dust ELSE P_dust = aerod_index_table( PARAM_dust , idomain ) END IF aerod_boundary_table( idomain, P_dust ) = .FALSE. aerod_dname_table( idomain, P_dust ) = 'dust' aerod_desc_table( idomain, P_dust ) = 'dust' aerod_units_table( idomain, P_dust ) = '-' aerod_streams_table( idomain, P_dust )%stream(1) = 0 aerod_streams_table( idomain, P_dust )%stream(2) = 0 F_dust = .TRUE. IF ( aerod_index_table( PARAM_bcarbon , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_bcarbon = aerod_num_table(idomain) aerod_index_table( PARAM_bcarbon , idomain ) = P_bcarbon ELSE P_bcarbon = aerod_index_table( PARAM_bcarbon , idomain ) END IF aerod_boundary_table( idomain, P_bcarbon ) = .FALSE. aerod_dname_table( idomain, P_bcarbon ) = 'bcarbon' aerod_desc_table( idomain, P_bcarbon ) = 'black carbon' aerod_units_table( idomain, P_bcarbon ) = '-' aerod_streams_table( idomain, P_bcarbon )%stream(1) = 0 aerod_streams_table( idomain, P_bcarbon )%stream(2) = 0 F_bcarbon = .TRUE. IF ( aerod_index_table( PARAM_sulfate , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_sulfate = aerod_num_table(idomain) aerod_index_table( PARAM_sulfate , idomain ) = P_sulfate ELSE P_sulfate = aerod_index_table( PARAM_sulfate , idomain ) END IF aerod_boundary_table( idomain, P_sulfate ) = .FALSE. aerod_dname_table( idomain, P_sulfate ) = 'sulfate' aerod_desc_table( idomain, P_sulfate ) = 'sulfate' aerod_units_table( idomain, P_sulfate ) = '-' aerod_streams_table( idomain, P_sulfate )%stream(1) = 0 aerod_streams_table( idomain, P_sulfate )%stream(2) = 0 F_sulfate = .TRUE. IF ( aerod_index_table( PARAM_upperaer , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_upperaer = aerod_num_table(idomain) aerod_index_table( PARAM_upperaer , idomain ) = P_upperaer ELSE P_upperaer = aerod_index_table( PARAM_upperaer , idomain ) END IF aerod_boundary_table( idomain, P_upperaer ) = .FALSE. aerod_dname_table( idomain, P_upperaer ) = 'upperaer' aerod_desc_table( idomain, P_upperaer ) = 'volcanic ash' aerod_units_table( idomain, P_upperaer ) = '-' aerod_streams_table( idomain, P_upperaer )%stream(1) = 0 aerod_streams_table( idomain, P_upperaer )%stream(2) = 0 F_upperaer = .TRUE. END IF IF (model_config_rec%ra_sw_physics(idomain)==24)THEN IF ( ozmixm_index_table( PARAM_mth01 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth01 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth01 , idomain ) = P_mth01 ELSE P_mth01 = ozmixm_index_table( PARAM_mth01 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth01 ) = .FALSE. ozmixm_dname_table( idomain, P_mth01 ) = '' ozmixm_desc_table( idomain, P_mth01 ) = '-' ozmixm_units_table( idomain, P_mth01 ) = '-' ozmixm_streams_table( idomain, P_mth01 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth01 )%stream(2) = 0 F_mth01 = .TRUE. IF ( ozmixm_index_table( PARAM_mth02 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth02 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth02 , idomain ) = P_mth02 ELSE P_mth02 = ozmixm_index_table( PARAM_mth02 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth02 ) = .FALSE. ozmixm_dname_table( idomain, P_mth02 ) = '' ozmixm_desc_table( idomain, P_mth02 ) = '-' ozmixm_units_table( idomain, P_mth02 ) = '-' ozmixm_streams_table( idomain, P_mth02 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth02 )%stream(2) = 0 F_mth02 = .TRUE. IF ( ozmixm_index_table( PARAM_mth03 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth03 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth03 , idomain ) = P_mth03 ELSE P_mth03 = ozmixm_index_table( PARAM_mth03 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth03 ) = .FALSE. ozmixm_dname_table( idomain, P_mth03 ) = '' ozmixm_desc_table( idomain, P_mth03 ) = '-' ozmixm_units_table( idomain, P_mth03 ) = '-' ozmixm_streams_table( idomain, P_mth03 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth03 )%stream(2) = 0 F_mth03 = .TRUE. IF ( ozmixm_index_table( PARAM_mth04 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth04 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth04 , idomain ) = P_mth04 ELSE P_mth04 = ozmixm_index_table( PARAM_mth04 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth04 ) = .FALSE. ozmixm_dname_table( idomain, P_mth04 ) = '' ozmixm_desc_table( idomain, P_mth04 ) = '-' ozmixm_units_table( idomain, P_mth04 ) = '-' ozmixm_streams_table( idomain, P_mth04 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth04 )%stream(2) = 0 F_mth04 = .TRUE. IF ( ozmixm_index_table( PARAM_mth05 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth05 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth05 , idomain ) = P_mth05 ELSE P_mth05 = ozmixm_index_table( PARAM_mth05 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth05 ) = .FALSE. ozmixm_dname_table( idomain, P_mth05 ) = '' ozmixm_desc_table( idomain, P_mth05 ) = '-' ozmixm_units_table( idomain, P_mth05 ) = '-' ozmixm_streams_table( idomain, P_mth05 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth05 )%stream(2) = 0 F_mth05 = .TRUE. IF ( ozmixm_index_table( PARAM_mth06 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth06 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth06 , idomain ) = P_mth06 ELSE P_mth06 = ozmixm_index_table( PARAM_mth06 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth06 ) = .FALSE. ozmixm_dname_table( idomain, P_mth06 ) = '' ozmixm_desc_table( idomain, P_mth06 ) = '-' ozmixm_units_table( idomain, P_mth06 ) = '-' ozmixm_streams_table( idomain, P_mth06 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth06 )%stream(2) = 0 F_mth06 = .TRUE. IF ( ozmixm_index_table( PARAM_mth07 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth07 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth07 , idomain ) = P_mth07 ELSE P_mth07 = ozmixm_index_table( PARAM_mth07 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth07 ) = .FALSE. ozmixm_dname_table( idomain, P_mth07 ) = '' ozmixm_desc_table( idomain, P_mth07 ) = '-' ozmixm_units_table( idomain, P_mth07 ) = '-' ozmixm_streams_table( idomain, P_mth07 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth07 )%stream(2) = 0 F_mth07 = .TRUE. IF ( ozmixm_index_table( PARAM_mth08 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth08 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth08 , idomain ) = P_mth08 ELSE P_mth08 = ozmixm_index_table( PARAM_mth08 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth08 ) = .FALSE. ozmixm_dname_table( idomain, P_mth08 ) = '' ozmixm_desc_table( idomain, P_mth08 ) = '-' ozmixm_units_table( idomain, P_mth08 ) = '-' ozmixm_streams_table( idomain, P_mth08 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth08 )%stream(2) = 0 F_mth08 = .TRUE. IF ( ozmixm_index_table( PARAM_mth09 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth09 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth09 , idomain ) = P_mth09 ELSE P_mth09 = ozmixm_index_table( PARAM_mth09 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth09 ) = .FALSE. ozmixm_dname_table( idomain, P_mth09 ) = '' ozmixm_desc_table( idomain, P_mth09 ) = '-' ozmixm_units_table( idomain, P_mth09 ) = '-' ozmixm_streams_table( idomain, P_mth09 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth09 )%stream(2) = 0 F_mth09 = .TRUE. IF ( ozmixm_index_table( PARAM_mth10 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth10 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth10 , idomain ) = P_mth10 ELSE P_mth10 = ozmixm_index_table( PARAM_mth10 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth10 ) = .FALSE. ozmixm_dname_table( idomain, P_mth10 ) = '' ozmixm_desc_table( idomain, P_mth10 ) = '-' ozmixm_units_table( idomain, P_mth10 ) = '-' ozmixm_streams_table( idomain, P_mth10 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth10 )%stream(2) = 0 F_mth10 = .TRUE. IF ( ozmixm_index_table( PARAM_mth11 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth11 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth11 , idomain ) = P_mth11 ELSE P_mth11 = ozmixm_index_table( PARAM_mth11 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth11 ) = .FALSE. ozmixm_dname_table( idomain, P_mth11 ) = '' ozmixm_desc_table( idomain, P_mth11 ) = '-' ozmixm_units_table( idomain, P_mth11 ) = '-' ozmixm_streams_table( idomain, P_mth11 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth11 )%stream(2) = 0 F_mth11 = .TRUE. IF ( ozmixm_index_table( PARAM_mth12 , idomain ) .lt. 1 ) THEN ozmixm_num_table(idomain) = ozmixm_num_table(idomain) + 1 P_mth12 = ozmixm_num_table(idomain) ozmixm_index_table( PARAM_mth12 , idomain ) = P_mth12 ELSE P_mth12 = ozmixm_index_table( PARAM_mth12 , idomain ) END IF ozmixm_boundary_table( idomain, P_mth12 ) = .FALSE. ozmixm_dname_table( idomain, P_mth12 ) = '' ozmixm_desc_table( idomain, P_mth12 ) = '-' ozmixm_units_table( idomain, P_mth12 ) = '-' ozmixm_streams_table( idomain, P_mth12 )%stream(1) = 0 ozmixm_streams_table( idomain, P_mth12 )%stream(2) = 0 F_mth12 = .TRUE. IF ( aerod_index_table( PARAM_ocarbon , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_ocarbon = aerod_num_table(idomain) aerod_index_table( PARAM_ocarbon , idomain ) = P_ocarbon ELSE P_ocarbon = aerod_index_table( PARAM_ocarbon , idomain ) END IF aerod_boundary_table( idomain, P_ocarbon ) = .FALSE. aerod_dname_table( idomain, P_ocarbon ) = 'ocarbon' aerod_desc_table( idomain, P_ocarbon ) = 'organic carbon' aerod_units_table( idomain, P_ocarbon ) = '-' aerod_streams_table( idomain, P_ocarbon )%stream(1) = 0 aerod_streams_table( idomain, P_ocarbon )%stream(2) = 0 F_ocarbon = .TRUE. IF ( aerod_index_table( PARAM_seasalt , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_seasalt = aerod_num_table(idomain) aerod_index_table( PARAM_seasalt , idomain ) = P_seasalt ELSE P_seasalt = aerod_index_table( PARAM_seasalt , idomain ) END IF aerod_boundary_table( idomain, P_seasalt ) = .FALSE. aerod_dname_table( idomain, P_seasalt ) = 'seasalt' aerod_desc_table( idomain, P_seasalt ) = 'sea salt' aerod_units_table( idomain, P_seasalt ) = '-' aerod_streams_table( idomain, P_seasalt )%stream(1) = 0 aerod_streams_table( idomain, P_seasalt )%stream(2) = 0 F_seasalt = .TRUE. IF ( aerod_index_table( PARAM_dust , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_dust = aerod_num_table(idomain) aerod_index_table( PARAM_dust , idomain ) = P_dust ELSE P_dust = aerod_index_table( PARAM_dust , idomain ) END IF aerod_boundary_table( idomain, P_dust ) = .FALSE. aerod_dname_table( idomain, P_dust ) = 'dust' aerod_desc_table( idomain, P_dust ) = 'dust' aerod_units_table( idomain, P_dust ) = '-' aerod_streams_table( idomain, P_dust )%stream(1) = 0 aerod_streams_table( idomain, P_dust )%stream(2) = 0 F_dust = .TRUE. IF ( aerod_index_table( PARAM_bcarbon , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_bcarbon = aerod_num_table(idomain) aerod_index_table( PARAM_bcarbon , idomain ) = P_bcarbon ELSE P_bcarbon = aerod_index_table( PARAM_bcarbon , idomain ) END IF aerod_boundary_table( idomain, P_bcarbon ) = .FALSE. aerod_dname_table( idomain, P_bcarbon ) = 'bcarbon' aerod_desc_table( idomain, P_bcarbon ) = 'black carbon' aerod_units_table( idomain, P_bcarbon ) = '-' aerod_streams_table( idomain, P_bcarbon )%stream(1) = 0 aerod_streams_table( idomain, P_bcarbon )%stream(2) = 0 F_bcarbon = .TRUE. IF ( aerod_index_table( PARAM_sulfate , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_sulfate = aerod_num_table(idomain) aerod_index_table( PARAM_sulfate , idomain ) = P_sulfate ELSE P_sulfate = aerod_index_table( PARAM_sulfate , idomain ) END IF aerod_boundary_table( idomain, P_sulfate ) = .FALSE. aerod_dname_table( idomain, P_sulfate ) = 'sulfate' aerod_desc_table( idomain, P_sulfate ) = 'sulfate' aerod_units_table( idomain, P_sulfate ) = '-' aerod_streams_table( idomain, P_sulfate )%stream(1) = 0 aerod_streams_table( idomain, P_sulfate )%stream(2) = 0 F_sulfate = .TRUE. IF ( aerod_index_table( PARAM_upperaer , idomain ) .lt. 1 ) THEN aerod_num_table(idomain) = aerod_num_table(idomain) + 1 P_upperaer = aerod_num_table(idomain) aerod_index_table( PARAM_upperaer , idomain ) = P_upperaer ELSE P_upperaer = aerod_index_table( PARAM_upperaer , idomain ) END IF aerod_boundary_table( idomain, P_upperaer ) = .FALSE. aerod_dname_table( idomain, P_upperaer ) = 'upperaer' aerod_desc_table( idomain, P_upperaer ) = 'volcanic ash' aerod_units_table( idomain, P_upperaer ) = '-' aerod_streams_table( idomain, P_upperaer )%stream(1) = 0 aerod_streams_table( idomain, P_upperaer )%stream(2) = 0 F_upperaer = .TRUE. END IF IF (model_config_rec%ra_sw_physics(idomain)==5)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==7)THEN END IF IF (model_config_rec%ra_sw_physics(idomain)==99)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==4)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==5)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==7)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==10)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==89)THEN END IF IF (model_config_rec%sf_sfclay_physics(idomain)==91)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_urban_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==1)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==2)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==3)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==4)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==5)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==7)THEN END IF IF (model_config_rec%sf_surface_physics(idomain)==8)THEN END IF IF (model_config_rec%sf_surface_mosaic==1)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==1)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==2)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==3)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==4)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==5)THEN IF ( scalar_index_table( PARAM_qke_adv , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qke_adv = scalar_num_table(idomain) scalar_index_table( PARAM_qke_adv , idomain ) = P_qke_adv ELSE P_qke_adv = scalar_index_table( PARAM_qke_adv , idomain ) END IF scalar_boundary_table( idomain, P_qke_adv ) = .TRUE. scalar_dname_table( idomain, P_qke_adv ) = 'qke_adv' scalar_desc_table( idomain, P_qke_adv ) = 'twice TKE from MYNN' scalar_units_table( idomain, P_qke_adv ) = 'm2 s-2' scalar_streams_table( idomain, P_qke_adv )%stream(1) = 33554432 scalar_streams_table( idomain, P_qke_adv )%stream(2) = 2097152 F_qke_adv = .TRUE. END IF IF (model_config_rec%bl_pbl_physics(idomain)==6)THEN IF ( scalar_index_table( PARAM_qke_adv , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qke_adv = scalar_num_table(idomain) scalar_index_table( PARAM_qke_adv , idomain ) = P_qke_adv ELSE P_qke_adv = scalar_index_table( PARAM_qke_adv , idomain ) END IF scalar_boundary_table( idomain, P_qke_adv ) = .TRUE. scalar_dname_table( idomain, P_qke_adv ) = 'qke_adv' scalar_desc_table( idomain, P_qke_adv ) = 'twice TKE from MYNN' scalar_units_table( idomain, P_qke_adv ) = 'm2 s-2' scalar_streams_table( idomain, P_qke_adv )%stream(1) = 33554432 scalar_streams_table( idomain, P_qke_adv )%stream(2) = 2097152 F_qke_adv = .TRUE. END IF IF (model_config_rec%bl_pbl_physics(idomain)==7)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==8)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==9)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==10)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==11)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==12)THEN END IF IF (model_config_rec%bl_pbl_physics(idomain)==99)THEN END IF IF (model_config_rec%bl_mynn_tkebudget(idomain)==1)THEN END IF IF (model_config_rec%bl_mynn_edmf(idomain)==1)THEN END IF IF (model_config_rec%bl_mynn_edmf(idomain)==2)THEN END IF IF (model_config_rec%icloud_bl==1)THEN END IF IF (model_config_rec%bl_pbl_physics_dfi(idomain)==5)THEN IF ( dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qke_adv = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) = P_dfi_qke_adv ELSE P_dfi_qke_adv = dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qke_adv ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qke_adv ) = 'dfi_qke_adv' dfi_scalar_desc_table( idomain, P_dfi_qke_adv ) = 'DFI twice TKE from MYNN' dfi_scalar_units_table( idomain, P_dfi_qke_adv ) = 'm2 s-2' dfi_scalar_streams_table( idomain, P_dfi_qke_adv )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qke_adv )%stream(2) = 2097152 F_dfi_qke_adv = .TRUE. END IF IF (model_config_rec%bl_pbl_physics_dfi(idomain)==6)THEN IF ( dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) .lt. 1 ) THEN dfi_scalar_num_table(idomain) = dfi_scalar_num_table(idomain) + 1 P_dfi_qke_adv = dfi_scalar_num_table(idomain) dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) = P_dfi_qke_adv ELSE P_dfi_qke_adv = dfi_scalar_index_table( PARAM_dfi_qke_adv , idomain ) END IF dfi_scalar_boundary_table( idomain, P_dfi_qke_adv ) = .TRUE. dfi_scalar_dname_table( idomain, P_dfi_qke_adv ) = 'dfi_qke_adv' dfi_scalar_desc_table( idomain, P_dfi_qke_adv ) = 'DFI twice TKE from MYNN' dfi_scalar_units_table( idomain, P_dfi_qke_adv ) = 'm2 s-2' dfi_scalar_streams_table( idomain, P_dfi_qke_adv )%stream(1) = 0 dfi_scalar_streams_table( idomain, P_dfi_qke_adv )%stream(2) = 2097152 F_dfi_qke_adv = .TRUE. END IF IF (model_config_rec%cu_physics(idomain)==0)THEN END IF IF (model_config_rec%cu_physics(idomain)==1)THEN END IF IF (model_config_rec%cu_physics(idomain)==2)THEN END IF IF (model_config_rec%cu_physics(idomain)==3)THEN END IF IF (model_config_rec%cu_physics(idomain)==4)THEN END IF IF (model_config_rec%cu_physics(idomain)==5)THEN END IF IF (model_config_rec%cu_physics(idomain)==6)THEN END IF IF (model_config_rec%cu_physics(idomain)==7)THEN END IF IF (model_config_rec%cu_physics(idomain)==10)THEN END IF IF (model_config_rec%cu_physics(idomain)==11)THEN END IF IF (model_config_rec%cu_physics(idomain)==14)THEN END IF IF (model_config_rec%cu_physics(idomain)==16)THEN END IF IF (model_config_rec%cu_physics(idomain)==93)THEN END IF IF (model_config_rec%cu_physics(idomain)==94)THEN END IF IF (model_config_rec%cu_physics(idomain)==95)THEN END IF IF (model_config_rec%cu_physics(idomain)==99)THEN END IF IF (model_config_rec%cu_diag(idomain)==1)THEN END IF IF (model_config_rec%kf_edrates(idomain)==1)THEN END IF IF (model_config_rec%cu_used==0)THEN END IF IF (model_config_rec%cu_used==1)THEN END IF IF (model_config_rec%cam_used==0)THEN END IF IF (model_config_rec%cam_used==1)THEN END IF IF (model_config_rec%shcu_physics(idomain)==0)THEN END IF IF (model_config_rec%shcu_physics(idomain)==1)THEN END IF IF (model_config_rec%shcu_physics(idomain)==2)THEN END IF IF (model_config_rec%shcu_physics(idomain)==3)THEN END IF IF (model_config_rec%shcu_used==0)THEN END IF IF (model_config_rec%shcu_used==1)THEN END IF IF (model_config_rec%grav_settling(idomain)==0)THEN END IF IF (model_config_rec%grav_settling(idomain)==1)THEN END IF IF (model_config_rec%grav_settling(idomain)==2)THEN END IF IF (model_config_rec%grid_fdda(idomain)==1)THEN IF ( fdda3d_index_table( PARAM_u_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_u_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_u_ndg_old , idomain ) = P_u_ndg_old ELSE P_u_ndg_old = fdda3d_index_table( PARAM_u_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_u_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_u_ndg_old ) = 'U_NDG_OLD' fdda3d_desc_table( idomain, P_u_ndg_old ) = 'OLD X WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_u_ndg_old ) = 'm s-1' fdda3d_streams_table( idomain, P_u_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_u_ndg_old )%stream(2) = 2097168 F_u_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_v_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_v_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_v_ndg_old , idomain ) = P_v_ndg_old ELSE P_v_ndg_old = fdda3d_index_table( PARAM_v_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_v_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_v_ndg_old ) = 'V_NDG_OLD' fdda3d_desc_table( idomain, P_v_ndg_old ) = 'OLD Y WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_v_ndg_old ) = 'm s-1' fdda3d_streams_table( idomain, P_v_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_v_ndg_old )%stream(2) = 2097168 F_v_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_t_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_t_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_t_ndg_old , idomain ) = P_t_ndg_old ELSE P_t_ndg_old = fdda3d_index_table( PARAM_t_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_t_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_t_ndg_old ) = 'T_NDG_OLD' fdda3d_desc_table( idomain, P_t_ndg_old ) = 'OLD PERT POT TEMP FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_t_ndg_old ) = 'K' fdda3d_streams_table( idomain, P_t_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_t_ndg_old )%stream(2) = 2097168 F_t_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_q_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_q_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_q_ndg_old , idomain ) = P_q_ndg_old ELSE P_q_ndg_old = fdda3d_index_table( PARAM_q_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_q_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_q_ndg_old ) = 'Q_NDG_OLD' fdda3d_desc_table( idomain, P_q_ndg_old ) = 'OLD WATER VAPOR MIX RATIO FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_q_ndg_old ) = 'kg/kg' fdda3d_streams_table( idomain, P_q_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_q_ndg_old )%stream(2) = 2097168 F_q_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_ph_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_ph_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_ph_ndg_old , idomain ) = P_ph_ndg_old ELSE P_ph_ndg_old = fdda3d_index_table( PARAM_ph_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_ph_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_ph_ndg_old ) = 'PH_NDG_OLD' fdda3d_desc_table( idomain, P_ph_ndg_old ) = 'OLD PERT GEOPOTENTIAL FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_ph_ndg_old ) = 'kg/kg' fdda3d_streams_table( idomain, P_ph_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_ph_ndg_old )%stream(2) = 2097168 F_ph_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_u_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_u_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_u_ndg_new , idomain ) = P_u_ndg_new ELSE P_u_ndg_new = fdda3d_index_table( PARAM_u_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_u_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_u_ndg_new ) = 'U_NDG_NEW' fdda3d_desc_table( idomain, P_u_ndg_new ) = 'NEW X WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_u_ndg_new ) = 'm s-1' fdda3d_streams_table( idomain, P_u_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_u_ndg_new )%stream(2) = 2097168 F_u_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_v_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_v_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_v_ndg_new , idomain ) = P_v_ndg_new ELSE P_v_ndg_new = fdda3d_index_table( PARAM_v_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_v_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_v_ndg_new ) = 'V_NDG_NEW' fdda3d_desc_table( idomain, P_v_ndg_new ) = 'NEW Y WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_v_ndg_new ) = 'm s-1' fdda3d_streams_table( idomain, P_v_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_v_ndg_new )%stream(2) = 2097168 F_v_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_t_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_t_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_t_ndg_new , idomain ) = P_t_ndg_new ELSE P_t_ndg_new = fdda3d_index_table( PARAM_t_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_t_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_t_ndg_new ) = 'T_NDG_NEW' fdda3d_desc_table( idomain, P_t_ndg_new ) = 'NEW PERT POT TEMP FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_t_ndg_new ) = 'K' fdda3d_streams_table( idomain, P_t_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_t_ndg_new )%stream(2) = 2097168 F_t_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_q_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_q_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_q_ndg_new , idomain ) = P_q_ndg_new ELSE P_q_ndg_new = fdda3d_index_table( PARAM_q_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_q_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_q_ndg_new ) = 'Q_NDG_NEW' fdda3d_desc_table( idomain, P_q_ndg_new ) = 'NEW WATER VAPOR MIX RATIO FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_q_ndg_new ) = 'kg/kg' fdda3d_streams_table( idomain, P_q_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_q_ndg_new )%stream(2) = 2097168 F_q_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_ph_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_ph_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_ph_ndg_new , idomain ) = P_ph_ndg_new ELSE P_ph_ndg_new = fdda3d_index_table( PARAM_ph_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_ph_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_ph_ndg_new ) = 'PH_NDG_NEW' fdda3d_desc_table( idomain, P_ph_ndg_new ) = 'NEW PERT GEOPOTENTIAL FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_ph_ndg_new ) = 'kg/kg' fdda3d_streams_table( idomain, P_ph_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_ph_ndg_new )%stream(2) = 2097168 F_ph_ndg_new = .TRUE. IF ( fdda2d_index_table( PARAM_mu_ndg_old , idomain ) .lt. 1 ) THEN fdda2d_num_table(idomain) = fdda2d_num_table(idomain) + 1 P_mu_ndg_old = fdda2d_num_table(idomain) fdda2d_index_table( PARAM_mu_ndg_old , idomain ) = P_mu_ndg_old ELSE P_mu_ndg_old = fdda2d_index_table( PARAM_mu_ndg_old , idomain ) END IF fdda2d_boundary_table( idomain, P_mu_ndg_old ) = .FALSE. fdda2d_dname_table( idomain, P_mu_ndg_old ) = 'MU_NDG_OLD' fdda2d_desc_table( idomain, P_mu_ndg_old ) = 'OLD PERT COLUMN DRY MASS FOR FDDA GRID NUDGING' fdda2d_units_table( idomain, P_mu_ndg_old ) = 'Pa' fdda2d_streams_table( idomain, P_mu_ndg_old )%stream(1) = 0 fdda2d_streams_table( idomain, P_mu_ndg_old )%stream(2) = 2097168 F_mu_ndg_old = .TRUE. IF ( fdda2d_index_table( PARAM_mu_ndg_new , idomain ) .lt. 1 ) THEN fdda2d_num_table(idomain) = fdda2d_num_table(idomain) + 1 P_mu_ndg_new = fdda2d_num_table(idomain) fdda2d_index_table( PARAM_mu_ndg_new , idomain ) = P_mu_ndg_new ELSE P_mu_ndg_new = fdda2d_index_table( PARAM_mu_ndg_new , idomain ) END IF fdda2d_boundary_table( idomain, P_mu_ndg_new ) = .FALSE. fdda2d_dname_table( idomain, P_mu_ndg_new ) = 'MU_NDG_NEW' fdda2d_desc_table( idomain, P_mu_ndg_new ) = 'NEW PERT COLUMN DRY MASS FOR FDDA GRID NUDGING' fdda2d_units_table( idomain, P_mu_ndg_new ) = 'Pa' fdda2d_streams_table( idomain, P_mu_ndg_new )%stream(1) = 0 fdda2d_streams_table( idomain, P_mu_ndg_new )%stream(2) = 2097168 F_mu_ndg_new = .TRUE. END IF IF (model_config_rec%grid_fdda(idomain)==2)THEN IF ( fdda3d_index_table( PARAM_u_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_u_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_u_ndg_old , idomain ) = P_u_ndg_old ELSE P_u_ndg_old = fdda3d_index_table( PARAM_u_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_u_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_u_ndg_old ) = 'U_NDG_OLD' fdda3d_desc_table( idomain, P_u_ndg_old ) = 'OLD X WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_u_ndg_old ) = 'm s-1' fdda3d_streams_table( idomain, P_u_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_u_ndg_old )%stream(2) = 2097168 F_u_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_v_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_v_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_v_ndg_old , idomain ) = P_v_ndg_old ELSE P_v_ndg_old = fdda3d_index_table( PARAM_v_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_v_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_v_ndg_old ) = 'V_NDG_OLD' fdda3d_desc_table( idomain, P_v_ndg_old ) = 'OLD Y WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_v_ndg_old ) = 'm s-1' fdda3d_streams_table( idomain, P_v_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_v_ndg_old )%stream(2) = 2097168 F_v_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_t_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_t_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_t_ndg_old , idomain ) = P_t_ndg_old ELSE P_t_ndg_old = fdda3d_index_table( PARAM_t_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_t_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_t_ndg_old ) = 'T_NDG_OLD' fdda3d_desc_table( idomain, P_t_ndg_old ) = 'OLD PERT POT TEMP FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_t_ndg_old ) = 'K' fdda3d_streams_table( idomain, P_t_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_t_ndg_old )%stream(2) = 2097168 F_t_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_q_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_q_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_q_ndg_old , idomain ) = P_q_ndg_old ELSE P_q_ndg_old = fdda3d_index_table( PARAM_q_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_q_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_q_ndg_old ) = 'Q_NDG_OLD' fdda3d_desc_table( idomain, P_q_ndg_old ) = 'OLD WATER VAPOR MIX RATIO FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_q_ndg_old ) = 'kg/kg' fdda3d_streams_table( idomain, P_q_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_q_ndg_old )%stream(2) = 2097168 F_q_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_ph_ndg_old , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_ph_ndg_old = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_ph_ndg_old , idomain ) = P_ph_ndg_old ELSE P_ph_ndg_old = fdda3d_index_table( PARAM_ph_ndg_old , idomain ) END IF fdda3d_boundary_table( idomain, P_ph_ndg_old ) = .FALSE. fdda3d_dname_table( idomain, P_ph_ndg_old ) = 'PH_NDG_OLD' fdda3d_desc_table( idomain, P_ph_ndg_old ) = 'OLD PERT GEOPOTENTIAL FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_ph_ndg_old ) = 'kg/kg' fdda3d_streams_table( idomain, P_ph_ndg_old )%stream(1) = 0 fdda3d_streams_table( idomain, P_ph_ndg_old )%stream(2) = 2097168 F_ph_ndg_old = .TRUE. IF ( fdda3d_index_table( PARAM_u_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_u_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_u_ndg_new , idomain ) = P_u_ndg_new ELSE P_u_ndg_new = fdda3d_index_table( PARAM_u_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_u_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_u_ndg_new ) = 'U_NDG_NEW' fdda3d_desc_table( idomain, P_u_ndg_new ) = 'NEW X WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_u_ndg_new ) = 'm s-1' fdda3d_streams_table( idomain, P_u_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_u_ndg_new )%stream(2) = 2097168 F_u_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_v_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_v_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_v_ndg_new , idomain ) = P_v_ndg_new ELSE P_v_ndg_new = fdda3d_index_table( PARAM_v_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_v_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_v_ndg_new ) = 'V_NDG_NEW' fdda3d_desc_table( idomain, P_v_ndg_new ) = 'NEW Y WIND FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_v_ndg_new ) = 'm s-1' fdda3d_streams_table( idomain, P_v_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_v_ndg_new )%stream(2) = 2097168 F_v_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_t_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_t_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_t_ndg_new , idomain ) = P_t_ndg_new ELSE P_t_ndg_new = fdda3d_index_table( PARAM_t_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_t_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_t_ndg_new ) = 'T_NDG_NEW' fdda3d_desc_table( idomain, P_t_ndg_new ) = 'NEW PERT POT TEMP FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_t_ndg_new ) = 'K' fdda3d_streams_table( idomain, P_t_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_t_ndg_new )%stream(2) = 2097168 F_t_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_q_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_q_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_q_ndg_new , idomain ) = P_q_ndg_new ELSE P_q_ndg_new = fdda3d_index_table( PARAM_q_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_q_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_q_ndg_new ) = 'Q_NDG_NEW' fdda3d_desc_table( idomain, P_q_ndg_new ) = 'NEW WATER VAPOR MIX RATIO FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_q_ndg_new ) = 'kg/kg' fdda3d_streams_table( idomain, P_q_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_q_ndg_new )%stream(2) = 2097168 F_q_ndg_new = .TRUE. IF ( fdda3d_index_table( PARAM_ph_ndg_new , idomain ) .lt. 1 ) THEN fdda3d_num_table(idomain) = fdda3d_num_table(idomain) + 1 P_ph_ndg_new = fdda3d_num_table(idomain) fdda3d_index_table( PARAM_ph_ndg_new , idomain ) = P_ph_ndg_new ELSE P_ph_ndg_new = fdda3d_index_table( PARAM_ph_ndg_new , idomain ) END IF fdda3d_boundary_table( idomain, P_ph_ndg_new ) = .FALSE. fdda3d_dname_table( idomain, P_ph_ndg_new ) = 'PH_NDG_NEW' fdda3d_desc_table( idomain, P_ph_ndg_new ) = 'NEW PERT GEOPOTENTIAL FOR FDDA GRID NUDGING' fdda3d_units_table( idomain, P_ph_ndg_new ) = 'kg/kg' fdda3d_streams_table( idomain, P_ph_ndg_new )%stream(1) = 0 fdda3d_streams_table( idomain, P_ph_ndg_new )%stream(2) = 2097168 F_ph_ndg_new = .TRUE. IF ( fdda2d_index_table( PARAM_mu_ndg_old , idomain ) .lt. 1 ) THEN fdda2d_num_table(idomain) = fdda2d_num_table(idomain) + 1 P_mu_ndg_old = fdda2d_num_table(idomain) fdda2d_index_table( PARAM_mu_ndg_old , idomain ) = P_mu_ndg_old ELSE P_mu_ndg_old = fdda2d_index_table( PARAM_mu_ndg_old , idomain ) END IF fdda2d_boundary_table( idomain, P_mu_ndg_old ) = .FALSE. fdda2d_dname_table( idomain, P_mu_ndg_old ) = 'MU_NDG_OLD' fdda2d_desc_table( idomain, P_mu_ndg_old ) = 'OLD PERT COLUMN DRY MASS FOR FDDA GRID NUDGING' fdda2d_units_table( idomain, P_mu_ndg_old ) = 'Pa' fdda2d_streams_table( idomain, P_mu_ndg_old )%stream(1) = 0 fdda2d_streams_table( idomain, P_mu_ndg_old )%stream(2) = 2097168 F_mu_ndg_old = .TRUE. IF ( fdda2d_index_table( PARAM_mu_ndg_new , idomain ) .lt. 1 ) THEN fdda2d_num_table(idomain) = fdda2d_num_table(idomain) + 1 P_mu_ndg_new = fdda2d_num_table(idomain) fdda2d_index_table( PARAM_mu_ndg_new , idomain ) = P_mu_ndg_new ELSE P_mu_ndg_new = fdda2d_index_table( PARAM_mu_ndg_new , idomain ) END IF fdda2d_boundary_table( idomain, P_mu_ndg_new ) = .FALSE. fdda2d_dname_table( idomain, P_mu_ndg_new ) = 'MU_NDG_NEW' fdda2d_desc_table( idomain, P_mu_ndg_new ) = 'NEW PERT COLUMN DRY MASS FOR FDDA GRID NUDGING' fdda2d_units_table( idomain, P_mu_ndg_new ) = 'Pa' fdda2d_streams_table( idomain, P_mu_ndg_new )%stream(1) = 0 fdda2d_streams_table( idomain, P_mu_ndg_new )%stream(2) = 2097168 F_mu_ndg_new = .TRUE. END IF IF (model_config_rec%grid_sfdda(idomain)==1)THEN END IF IF (model_config_rec%obs_nudge_opt(idomain)==1)THEN END IF IF (model_config_rec%grid_sfdda(idomain)==2)THEN END IF IF (model_config_rec%aer_opt==1)THEN END IF IF (model_config_rec%aer_opt==2)THEN END IF IF (model_config_rec%slope_rad(idomain)==1)THEN END IF IF (model_config_rec%gwd_opt==1)THEN END IF IF (model_config_rec%sf_ocean_physics==1)THEN END IF IF (model_config_rec%sf_ocean_physics==2)THEN END IF IF (model_config_rec%scm_force==1)THEN END IF IF (model_config_rec%prec_acc_opt==1)THEN END IF IF (model_config_rec%bucketr_opt==1)THEN END IF IF (model_config_rec%bucketf_opt==1)THEN END IF IF (model_config_rec%momentum_adv_opt(idomain)==1)THEN END IF IF (model_config_rec%momentum_adv_opt(idomain)==3)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==0)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==1)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==2)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==3)THEN END IF IF (model_config_rec%moist_adv_opt(idomain)==4)THEN END IF IF (model_config_rec%output_diagnostics==1)THEN END IF IF (model_config_rec%nwp_diagnostics==1)THEN END IF IF (model_config_rec%dfi_stage(idomain)==0)THEN END IF IF (model_config_rec%dfi_stage(idomain)==1)THEN END IF IF (model_config_rec%dfi_stage(idomain)==2)THEN END IF IF (model_config_rec%dfi_stage(idomain)==3)THEN END IF IF (model_config_rec%dfi_stage(idomain)==4)THEN END IF IF (model_config_rec%dfi_stage(idomain)==5)THEN END IF IF (model_config_rec%dfi_opt==0)THEN END IF IF (model_config_rec%dfi_opt==1)THEN END IF IF (model_config_rec%dfi_opt==2)THEN END IF IF (model_config_rec%dfi_opt==3)THEN END IF IF (model_config_rec%nest_interp_coord==0)THEN END IF IF (model_config_rec%nest_interp_coord==1)THEN END IF IF (model_config_rec%tenddiag(idomain)==0)THEN END IF IF (model_config_rec%tenddiag(idomain)==1)THEN IF ( advh_t_index_table( PARAM_advh_qv , idomain ) .lt. 1 ) THEN advh_t_num_table(idomain) = advh_t_num_table(idomain) + 1 P_advh_qv = advh_t_num_table(idomain) advh_t_index_table( PARAM_advh_qv , idomain ) = P_advh_qv ELSE P_advh_qv = advh_t_index_table( PARAM_advh_qv , idomain ) END IF advh_t_boundary_table( idomain, P_advh_qv ) = .FALSE. advh_t_dname_table( idomain, P_advh_qv ) = 'advh_qv' advh_t_desc_table( idomain, P_advh_qv ) = 'ACCUMULATED HORIZONTAL TENDENCY FOR WATER VAPOR' advh_t_units_table( idomain, P_advh_qv ) = 'kg kg-1' advh_t_streams_table( idomain, P_advh_qv )%stream(1) = 0 advh_t_streams_table( idomain, P_advh_qv )%stream(2) = 0 F_advh_qv = .TRUE. IF ( advz_t_index_table( PARAM_advz_qv , idomain ) .lt. 1 ) THEN advz_t_num_table(idomain) = advz_t_num_table(idomain) + 1 P_advz_qv = advz_t_num_table(idomain) advz_t_index_table( PARAM_advz_qv , idomain ) = P_advz_qv ELSE P_advz_qv = advz_t_index_table( PARAM_advz_qv , idomain ) END IF advz_t_boundary_table( idomain, P_advz_qv ) = .FALSE. advz_t_dname_table( idomain, P_advz_qv ) = 'advz_qv' advz_t_desc_table( idomain, P_advz_qv ) = 'ACCUMULATED VERTICAL TENDENCY FOR WATER VAPOR' advz_t_units_table( idomain, P_advz_qv ) = 'kg kg-1' advz_t_streams_table( idomain, P_advz_qv )%stream(1) = 0 advz_t_streams_table( idomain, P_advz_qv )%stream(2) = 0 F_advz_qv = .TRUE. END IF IF (model_config_rec%traj_opt==0)THEN END IF IF (model_config_rec%traj_opt==1)THEN END IF IF (model_config_rec%seaice_albedo_opt==0)THEN END IF IF (model_config_rec%seaice_albedo_opt==1)THEN END IF IF (model_config_rec%seaice_albedo_opt==2)THEN END IF IF (model_config_rec%seaice_snowdepth_opt==0)THEN END IF IF (model_config_rec%seaice_snowdepth_opt==1)THEN END IF IF (model_config_rec%seaice_thickness_opt==0)THEN END IF IF (model_config_rec%seaice_thickness_opt==1)THEN END IF IF (model_config_rec%process_time_series==0)THEN END IF IF (model_config_rec%process_time_series==1)THEN END IF IF (model_config_rec%hailcast_opt(idomain)==1)THEN END IF IF (model_config_rec%lightning_option(idomain)==0)THEN END IF IF (model_config_rec%lightning_option(idomain)==1)THEN END IF IF (model_config_rec%lightning_option(idomain)==2)THEN END IF IF (model_config_rec%lightning_option(idomain)==11)THEN END IF IF (model_config_rec%lightning_option(idomain)==3)THEN END IF IF (model_config_rec%io_form_restart==1)THEN END IF IF (model_config_rec%io_form_restart==2)THEN END IF IF (model_config_rec%io_form_restart==3)THEN END IF IF (model_config_rec%io_form_restart==4)THEN END IF IF (model_config_rec%io_form_restart==5)THEN END IF IF (model_config_rec%io_form_restart==6)THEN END IF IF (model_config_rec%io_form_restart==7)THEN END IF IF (model_config_rec%io_form_restart==8)THEN END IF IF (model_config_rec%io_form_restart==9)THEN END IF IF (model_config_rec%io_form_restart==10)THEN END IF IF (model_config_rec%io_form_restart==11)THEN END IF IF (model_config_rec%io_form_restart==12)THEN END IF IF (model_config_rec%wrf_hydro==0)THEN END IF IF (model_config_rec%wrf_hydro==1)THEN END IF IF (model_config_rec%windfarm_opt(idomain)==0)THEN END IF IF (model_config_rec%windfarm_opt(idomain)==1)THEN END IF IF (model_config_rec%fft_used==0)THEN END IF IF (model_config_rec%fft_used==1)THEN END IF IF (model_config_rec%chem_opt(idomain)==0)THEN END IF IF (model_config_rec%chem_opt(idomain)==1)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==2)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==5)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 F_mtf = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==6)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==7)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==8)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a05 = chem_num_table(idomain) chem_index_table( PARAM_ca_a05 , idomain ) = P_ca_a05 ELSE P_ca_a05 = chem_index_table( PARAM_ca_a05 , idomain ) END IF chem_boundary_table( idomain, P_ca_a05 ) = .TRUE. chem_dname_table( idomain, P_ca_a05 ) = 'ca_a05' chem_desc_table( idomain, P_ca_a05 ) = 'Calcium, aerosol bin 05' chem_units_table( idomain, P_ca_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a05 )%stream(2) = 2097216 F_ca_a05 = .TRUE. IF ( chem_index_table( PARAM_ca_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a06 = chem_num_table(idomain) chem_index_table( PARAM_ca_a06 , idomain ) = P_ca_a06 ELSE P_ca_a06 = chem_index_table( PARAM_ca_a06 , idomain ) END IF chem_boundary_table( idomain, P_ca_a06 ) = .TRUE. chem_dname_table( idomain, P_ca_a06 ) = 'ca_a06' chem_desc_table( idomain, P_ca_a06 ) = 'Calcium, aerosol bin 06' chem_units_table( idomain, P_ca_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a06 )%stream(2) = 2097216 F_ca_a06 = .TRUE. IF ( chem_index_table( PARAM_ca_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a07 = chem_num_table(idomain) chem_index_table( PARAM_ca_a07 , idomain ) = P_ca_a07 ELSE P_ca_a07 = chem_index_table( PARAM_ca_a07 , idomain ) END IF chem_boundary_table( idomain, P_ca_a07 ) = .TRUE. chem_dname_table( idomain, P_ca_a07 ) = 'ca_a07' chem_desc_table( idomain, P_ca_a07 ) = 'Calcium, aerosol bin 07' chem_units_table( idomain, P_ca_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a07 )%stream(2) = 2097216 F_ca_a07 = .TRUE. IF ( chem_index_table( PARAM_ca_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a08 = chem_num_table(idomain) chem_index_table( PARAM_ca_a08 , idomain ) = P_ca_a08 ELSE P_ca_a08 = chem_index_table( PARAM_ca_a08 , idomain ) END IF chem_boundary_table( idomain, P_ca_a08 ) = .TRUE. chem_dname_table( idomain, P_ca_a08 ) = 'ca_a08' chem_desc_table( idomain, P_ca_a08 ) = 'Calcium, aerosol bin 08' chem_units_table( idomain, P_ca_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a08 )%stream(2) = 2097216 F_ca_a08 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a05 = chem_num_table(idomain) chem_index_table( PARAM_co3_a05 , idomain ) = P_co3_a05 ELSE P_co3_a05 = chem_index_table( PARAM_co3_a05 , idomain ) END IF chem_boundary_table( idomain, P_co3_a05 ) = .TRUE. chem_dname_table( idomain, P_co3_a05 ) = 'co3_a05' chem_desc_table( idomain, P_co3_a05 ) = 'Carbonate, aerosol bin 05' chem_units_table( idomain, P_co3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a05 )%stream(2) = 2097216 F_co3_a05 = .TRUE. IF ( chem_index_table( PARAM_co3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a06 = chem_num_table(idomain) chem_index_table( PARAM_co3_a06 , idomain ) = P_co3_a06 ELSE P_co3_a06 = chem_index_table( PARAM_co3_a06 , idomain ) END IF chem_boundary_table( idomain, P_co3_a06 ) = .TRUE. chem_dname_table( idomain, P_co3_a06 ) = 'co3_a06' chem_desc_table( idomain, P_co3_a06 ) = 'Carbonate, aerosol bin 06' chem_units_table( idomain, P_co3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a06 )%stream(2) = 2097216 F_co3_a06 = .TRUE. IF ( chem_index_table( PARAM_co3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a07 = chem_num_table(idomain) chem_index_table( PARAM_co3_a07 , idomain ) = P_co3_a07 ELSE P_co3_a07 = chem_index_table( PARAM_co3_a07 , idomain ) END IF chem_boundary_table( idomain, P_co3_a07 ) = .TRUE. chem_dname_table( idomain, P_co3_a07 ) = 'co3_a07' chem_desc_table( idomain, P_co3_a07 ) = 'Carbonate, aerosol bin 07' chem_units_table( idomain, P_co3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a07 )%stream(2) = 2097216 F_co3_a07 = .TRUE. IF ( chem_index_table( PARAM_co3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a08 = chem_num_table(idomain) chem_index_table( PARAM_co3_a08 , idomain ) = P_co3_a08 ELSE P_co3_a08 = chem_index_table( PARAM_co3_a08 , idomain ) END IF chem_boundary_table( idomain, P_co3_a08 ) = .TRUE. chem_dname_table( idomain, P_co3_a08 ) = 'co3_a08' chem_desc_table( idomain, P_co3_a08 ) = 'Carbonate, aerosol bin 08' chem_units_table( idomain, P_co3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a08 )%stream(2) = 2097216 F_co3_a08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==9)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 F_num_cw04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==10)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw05 , idomain ) = P_so4_cw05 ELSE P_so4_cw05 = chem_index_table( PARAM_so4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw05 ) = .TRUE. chem_dname_table( idomain, P_so4_cw05 ) = 'so4_cw05' chem_desc_table( idomain, P_so4_cw05 ) = 'Sulfate, aerosol in cloud bin 05' chem_units_table( idomain, P_so4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw05 )%stream(2) = 2097216 F_so4_cw05 = .TRUE. IF ( chem_index_table( PARAM_no3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw05 , idomain ) = P_no3_cw05 ELSE P_no3_cw05 = chem_index_table( PARAM_no3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw05 ) = .TRUE. chem_dname_table( idomain, P_no3_cw05 ) = 'no3_cw05' chem_desc_table( idomain, P_no3_cw05 ) = 'Nitrate, aerosol in cloud bin 05' chem_units_table( idomain, P_no3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw05 )%stream(2) = 2097216 F_no3_cw05 = .TRUE. IF ( chem_index_table( PARAM_cl_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw05 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw05 , idomain ) = P_cl_cw05 ELSE P_cl_cw05 = chem_index_table( PARAM_cl_cw05 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw05 ) = .TRUE. chem_dname_table( idomain, P_cl_cw05 ) = 'cl_cw05' chem_desc_table( idomain, P_cl_cw05 ) = 'Chloride, aerosol in cloud bin 05' chem_units_table( idomain, P_cl_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw05 )%stream(2) = 2097216 F_cl_cw05 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw05 , idomain ) = P_nh4_cw05 ELSE P_nh4_cw05 = chem_index_table( PARAM_nh4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw05 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw05 ) = 'nh4_cw05' chem_desc_table( idomain, P_nh4_cw05 ) = 'Ammonium, aerosol in cloud bin 05' chem_units_table( idomain, P_nh4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw05 )%stream(2) = 2097216 F_nh4_cw05 = .TRUE. IF ( chem_index_table( PARAM_na_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw05 = chem_num_table(idomain) chem_index_table( PARAM_na_cw05 , idomain ) = P_na_cw05 ELSE P_na_cw05 = chem_index_table( PARAM_na_cw05 , idomain ) END IF chem_boundary_table( idomain, P_na_cw05 ) = .TRUE. chem_dname_table( idomain, P_na_cw05 ) = 'na_cw05' chem_desc_table( idomain, P_na_cw05 ) = 'Sodium, aerosol in cloud bin 05' chem_units_table( idomain, P_na_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw05 )%stream(2) = 2097216 F_na_cw05 = .TRUE. IF ( chem_index_table( PARAM_oin_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw05 , idomain ) = P_oin_cw05 ELSE P_oin_cw05 = chem_index_table( PARAM_oin_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw05 ) = .TRUE. chem_dname_table( idomain, P_oin_cw05 ) = 'oin_cw05' chem_desc_table( idomain, P_oin_cw05 ) = 'Other inorganics, aerosol in cloud bin 05' chem_units_table( idomain, P_oin_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw05 )%stream(2) = 2097216 F_oin_cw05 = .TRUE. IF ( chem_index_table( PARAM_oc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw05 , idomain ) = P_oc_cw05 ELSE P_oc_cw05 = chem_index_table( PARAM_oc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw05 ) = .TRUE. chem_dname_table( idomain, P_oc_cw05 ) = 'oc_cw05' chem_desc_table( idomain, P_oc_cw05 ) = 'Organic carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_oc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw05 )%stream(2) = 2097216 F_oc_cw05 = .TRUE. IF ( chem_index_table( PARAM_bc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw05 , idomain ) = P_bc_cw05 ELSE P_bc_cw05 = chem_index_table( PARAM_bc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw05 ) = .TRUE. chem_dname_table( idomain, P_bc_cw05 ) = 'bc_cw05' chem_desc_table( idomain, P_bc_cw05 ) = 'Black carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_bc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw05 )%stream(2) = 2097216 F_bc_cw05 = .TRUE. IF ( chem_index_table( PARAM_num_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw05 = chem_num_table(idomain) chem_index_table( PARAM_num_cw05 , idomain ) = P_num_cw05 ELSE P_num_cw05 = chem_index_table( PARAM_num_cw05 , idomain ) END IF chem_boundary_table( idomain, P_num_cw05 ) = .TRUE. chem_dname_table( idomain, P_num_cw05 ) = 'num_cw05' chem_desc_table( idomain, P_num_cw05 ) = 'Number, aerosol in cloud bin 05' chem_units_table( idomain, P_num_cw05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw05 )%stream(2) = 2097216 F_num_cw05 = .TRUE. IF ( chem_index_table( PARAM_so4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw06 , idomain ) = P_so4_cw06 ELSE P_so4_cw06 = chem_index_table( PARAM_so4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw06 ) = .TRUE. chem_dname_table( idomain, P_so4_cw06 ) = 'so4_cw06' chem_desc_table( idomain, P_so4_cw06 ) = 'Sulfate, aerosol in cloud bin 06' chem_units_table( idomain, P_so4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw06 )%stream(2) = 2097216 F_so4_cw06 = .TRUE. IF ( chem_index_table( PARAM_no3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw06 , idomain ) = P_no3_cw06 ELSE P_no3_cw06 = chem_index_table( PARAM_no3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw06 ) = .TRUE. chem_dname_table( idomain, P_no3_cw06 ) = 'no3_cw06' chem_desc_table( idomain, P_no3_cw06 ) = 'Nitrate, aerosol in cloud bin 06' chem_units_table( idomain, P_no3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw06 )%stream(2) = 2097216 F_no3_cw06 = .TRUE. IF ( chem_index_table( PARAM_cl_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw06 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw06 , idomain ) = P_cl_cw06 ELSE P_cl_cw06 = chem_index_table( PARAM_cl_cw06 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw06 ) = .TRUE. chem_dname_table( idomain, P_cl_cw06 ) = 'cl_cw06' chem_desc_table( idomain, P_cl_cw06 ) = 'Chloride, aerosol in cloud bin 06' chem_units_table( idomain, P_cl_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw06 )%stream(2) = 2097216 F_cl_cw06 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw06 , idomain ) = P_nh4_cw06 ELSE P_nh4_cw06 = chem_index_table( PARAM_nh4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw06 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw06 ) = 'nh4_cw06' chem_desc_table( idomain, P_nh4_cw06 ) = 'Ammonium, aerosol in cloud bin 06' chem_units_table( idomain, P_nh4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw06 )%stream(2) = 2097216 F_nh4_cw06 = .TRUE. IF ( chem_index_table( PARAM_na_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw06 = chem_num_table(idomain) chem_index_table( PARAM_na_cw06 , idomain ) = P_na_cw06 ELSE P_na_cw06 = chem_index_table( PARAM_na_cw06 , idomain ) END IF chem_boundary_table( idomain, P_na_cw06 ) = .TRUE. chem_dname_table( idomain, P_na_cw06 ) = 'na_cw06' chem_desc_table( idomain, P_na_cw06 ) = 'Sodium, aerosol in cloud bin 06' chem_units_table( idomain, P_na_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw06 )%stream(2) = 2097216 F_na_cw06 = .TRUE. IF ( chem_index_table( PARAM_oin_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw06 , idomain ) = P_oin_cw06 ELSE P_oin_cw06 = chem_index_table( PARAM_oin_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw06 ) = .TRUE. chem_dname_table( idomain, P_oin_cw06 ) = 'oin_cw06' chem_desc_table( idomain, P_oin_cw06 ) = 'Other inorganics, aerosol in cloud bin 06' chem_units_table( idomain, P_oin_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw06 )%stream(2) = 2097216 F_oin_cw06 = .TRUE. IF ( chem_index_table( PARAM_oc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw06 , idomain ) = P_oc_cw06 ELSE P_oc_cw06 = chem_index_table( PARAM_oc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw06 ) = .TRUE. chem_dname_table( idomain, P_oc_cw06 ) = 'oc_cw06' chem_desc_table( idomain, P_oc_cw06 ) = 'Organic carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_oc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw06 )%stream(2) = 2097216 F_oc_cw06 = .TRUE. IF ( chem_index_table( PARAM_bc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw06 , idomain ) = P_bc_cw06 ELSE P_bc_cw06 = chem_index_table( PARAM_bc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw06 ) = .TRUE. chem_dname_table( idomain, P_bc_cw06 ) = 'bc_cw06' chem_desc_table( idomain, P_bc_cw06 ) = 'Black carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_bc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw06 )%stream(2) = 2097216 F_bc_cw06 = .TRUE. IF ( chem_index_table( PARAM_num_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw06 = chem_num_table(idomain) chem_index_table( PARAM_num_cw06 , idomain ) = P_num_cw06 ELSE P_num_cw06 = chem_index_table( PARAM_num_cw06 , idomain ) END IF chem_boundary_table( idomain, P_num_cw06 ) = .TRUE. chem_dname_table( idomain, P_num_cw06 ) = 'num_cw06' chem_desc_table( idomain, P_num_cw06 ) = 'Number, aerosol in cloud bin 06' chem_units_table( idomain, P_num_cw06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw06 )%stream(2) = 2097216 F_num_cw06 = .TRUE. IF ( chem_index_table( PARAM_so4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw07 , idomain ) = P_so4_cw07 ELSE P_so4_cw07 = chem_index_table( PARAM_so4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw07 ) = .TRUE. chem_dname_table( idomain, P_so4_cw07 ) = 'so4_cw07' chem_desc_table( idomain, P_so4_cw07 ) = 'Sulfate, aerosol in cloud bin 07' chem_units_table( idomain, P_so4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw07 )%stream(2) = 2097216 F_so4_cw07 = .TRUE. IF ( chem_index_table( PARAM_no3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw07 , idomain ) = P_no3_cw07 ELSE P_no3_cw07 = chem_index_table( PARAM_no3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw07 ) = .TRUE. chem_dname_table( idomain, P_no3_cw07 ) = 'no3_cw07' chem_desc_table( idomain, P_no3_cw07 ) = 'Nitrate, aerosol in cloud bin 07' chem_units_table( idomain, P_no3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw07 )%stream(2) = 2097216 F_no3_cw07 = .TRUE. IF ( chem_index_table( PARAM_cl_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw07 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw07 , idomain ) = P_cl_cw07 ELSE P_cl_cw07 = chem_index_table( PARAM_cl_cw07 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw07 ) = .TRUE. chem_dname_table( idomain, P_cl_cw07 ) = 'cl_cw07' chem_desc_table( idomain, P_cl_cw07 ) = 'Chloride, aerosol in cloud bin 07' chem_units_table( idomain, P_cl_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw07 )%stream(2) = 2097216 F_cl_cw07 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw07 , idomain ) = P_nh4_cw07 ELSE P_nh4_cw07 = chem_index_table( PARAM_nh4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw07 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw07 ) = 'nh4_cw07' chem_desc_table( idomain, P_nh4_cw07 ) = 'Ammonium, aerosol in cloud bin 07' chem_units_table( idomain, P_nh4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw07 )%stream(2) = 2097216 F_nh4_cw07 = .TRUE. IF ( chem_index_table( PARAM_na_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw07 = chem_num_table(idomain) chem_index_table( PARAM_na_cw07 , idomain ) = P_na_cw07 ELSE P_na_cw07 = chem_index_table( PARAM_na_cw07 , idomain ) END IF chem_boundary_table( idomain, P_na_cw07 ) = .TRUE. chem_dname_table( idomain, P_na_cw07 ) = 'na_cw07' chem_desc_table( idomain, P_na_cw07 ) = 'Sodium, aerosol in cloud bin 07' chem_units_table( idomain, P_na_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw07 )%stream(2) = 2097216 F_na_cw07 = .TRUE. IF ( chem_index_table( PARAM_oin_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw07 , idomain ) = P_oin_cw07 ELSE P_oin_cw07 = chem_index_table( PARAM_oin_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw07 ) = .TRUE. chem_dname_table( idomain, P_oin_cw07 ) = 'oin_cw07' chem_desc_table( idomain, P_oin_cw07 ) = 'Other inorganics, aerosol in cloud bin 07' chem_units_table( idomain, P_oin_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw07 )%stream(2) = 2097216 F_oin_cw07 = .TRUE. IF ( chem_index_table( PARAM_oc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw07 , idomain ) = P_oc_cw07 ELSE P_oc_cw07 = chem_index_table( PARAM_oc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw07 ) = .TRUE. chem_dname_table( idomain, P_oc_cw07 ) = 'oc_cw07' chem_desc_table( idomain, P_oc_cw07 ) = 'Organic carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_oc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw07 )%stream(2) = 2097216 F_oc_cw07 = .TRUE. IF ( chem_index_table( PARAM_bc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw07 , idomain ) = P_bc_cw07 ELSE P_bc_cw07 = chem_index_table( PARAM_bc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw07 ) = .TRUE. chem_dname_table( idomain, P_bc_cw07 ) = 'bc_cw07' chem_desc_table( idomain, P_bc_cw07 ) = 'Black carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_bc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw07 )%stream(2) = 2097216 F_bc_cw07 = .TRUE. IF ( chem_index_table( PARAM_num_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw07 = chem_num_table(idomain) chem_index_table( PARAM_num_cw07 , idomain ) = P_num_cw07 ELSE P_num_cw07 = chem_index_table( PARAM_num_cw07 , idomain ) END IF chem_boundary_table( idomain, P_num_cw07 ) = .TRUE. chem_dname_table( idomain, P_num_cw07 ) = 'num_cw07' chem_desc_table( idomain, P_num_cw07 ) = 'Number, aerosol in cloud bin 07' chem_units_table( idomain, P_num_cw07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw07 )%stream(2) = 2097216 F_num_cw07 = .TRUE. IF ( chem_index_table( PARAM_so4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw08 , idomain ) = P_so4_cw08 ELSE P_so4_cw08 = chem_index_table( PARAM_so4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw08 ) = .TRUE. chem_dname_table( idomain, P_so4_cw08 ) = 'so4_cw08' chem_desc_table( idomain, P_so4_cw08 ) = 'Sulfate, aerosol in cloud bin 08' chem_units_table( idomain, P_so4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw08 )%stream(2) = 2097216 F_so4_cw08 = .TRUE. IF ( chem_index_table( PARAM_no3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw08 , idomain ) = P_no3_cw08 ELSE P_no3_cw08 = chem_index_table( PARAM_no3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw08 ) = .TRUE. chem_dname_table( idomain, P_no3_cw08 ) = 'no3_cw08' chem_desc_table( idomain, P_no3_cw08 ) = 'Nitrate, aerosol in cloud bin 08' chem_units_table( idomain, P_no3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw08 )%stream(2) = 2097216 F_no3_cw08 = .TRUE. IF ( chem_index_table( PARAM_cl_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw08 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw08 , idomain ) = P_cl_cw08 ELSE P_cl_cw08 = chem_index_table( PARAM_cl_cw08 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw08 ) = .TRUE. chem_dname_table( idomain, P_cl_cw08 ) = 'cl_cw08' chem_desc_table( idomain, P_cl_cw08 ) = 'Chloride, aerosol in cloud bin 08' chem_units_table( idomain, P_cl_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw08 )%stream(2) = 2097216 F_cl_cw08 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw08 , idomain ) = P_nh4_cw08 ELSE P_nh4_cw08 = chem_index_table( PARAM_nh4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw08 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw08 ) = 'nh4_cw08' chem_desc_table( idomain, P_nh4_cw08 ) = 'Ammonium, aerosol in cloud bin 08' chem_units_table( idomain, P_nh4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw08 )%stream(2) = 2097216 F_nh4_cw08 = .TRUE. IF ( chem_index_table( PARAM_na_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw08 = chem_num_table(idomain) chem_index_table( PARAM_na_cw08 , idomain ) = P_na_cw08 ELSE P_na_cw08 = chem_index_table( PARAM_na_cw08 , idomain ) END IF chem_boundary_table( idomain, P_na_cw08 ) = .TRUE. chem_dname_table( idomain, P_na_cw08 ) = 'na_cw08' chem_desc_table( idomain, P_na_cw08 ) = 'Sodium, aerosol in cloud bin 08' chem_units_table( idomain, P_na_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw08 )%stream(2) = 2097216 F_na_cw08 = .TRUE. IF ( chem_index_table( PARAM_oin_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw08 , idomain ) = P_oin_cw08 ELSE P_oin_cw08 = chem_index_table( PARAM_oin_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw08 ) = .TRUE. chem_dname_table( idomain, P_oin_cw08 ) = 'oin_cw08' chem_desc_table( idomain, P_oin_cw08 ) = 'Other inorganics, aerosol in cloud bin 08' chem_units_table( idomain, P_oin_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw08 )%stream(2) = 2097216 F_oin_cw08 = .TRUE. IF ( chem_index_table( PARAM_oc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw08 , idomain ) = P_oc_cw08 ELSE P_oc_cw08 = chem_index_table( PARAM_oc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw08 ) = .TRUE. chem_dname_table( idomain, P_oc_cw08 ) = 'oc_cw08' chem_desc_table( idomain, P_oc_cw08 ) = 'Organic carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_oc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw08 )%stream(2) = 2097216 F_oc_cw08 = .TRUE. IF ( chem_index_table( PARAM_bc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw08 , idomain ) = P_bc_cw08 ELSE P_bc_cw08 = chem_index_table( PARAM_bc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw08 ) = .TRUE. chem_dname_table( idomain, P_bc_cw08 ) = 'bc_cw08' chem_desc_table( idomain, P_bc_cw08 ) = 'Black carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_bc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw08 )%stream(2) = 2097216 F_bc_cw08 = .TRUE. IF ( chem_index_table( PARAM_num_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw08 = chem_num_table(idomain) chem_index_table( PARAM_num_cw08 , idomain ) = P_num_cw08 ELSE P_num_cw08 = chem_index_table( PARAM_num_cw08 , idomain ) END IF chem_boundary_table( idomain, P_num_cw08 ) = .TRUE. chem_dname_table( idomain, P_num_cw08 ) = 'num_cw08' chem_desc_table( idomain, P_num_cw08 ) = 'Number, aerosol in cloud bin 08' chem_units_table( idomain, P_num_cw08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw08 )%stream(2) = 2097216 F_num_cw08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==11)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==12)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==13)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==14)THEN IF ( chem_index_table( PARAM_tracer_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_1 = chem_num_table(idomain) chem_index_table( PARAM_tracer_1 , idomain ) = P_tracer_1 ELSE P_tracer_1 = chem_index_table( PARAM_tracer_1 , idomain ) END IF chem_boundary_table( idomain, P_tracer_1 ) = .TRUE. chem_dname_table( idomain, P_tracer_1 ) = 'tracer_1' chem_desc_table( idomain, P_tracer_1 ) = 'tracer1 mix ratio' chem_units_table( idomain, P_tracer_1 ) = 'ppmv' chem_streams_table( idomain, P_tracer_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_1 )%stream(2) = 2097216 F_tracer_1 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==15)THEN IF ( chem_index_table( PARAM_tracer_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_1 = chem_num_table(idomain) chem_index_table( PARAM_tracer_1 , idomain ) = P_tracer_1 ELSE P_tracer_1 = chem_index_table( PARAM_tracer_1 , idomain ) END IF chem_boundary_table( idomain, P_tracer_1 ) = .TRUE. chem_dname_table( idomain, P_tracer_1 ) = 'tracer_1' chem_desc_table( idomain, P_tracer_1 ) = 'tracer1 mix ratio' chem_units_table( idomain, P_tracer_1 ) = 'ppmv' chem_streams_table( idomain, P_tracer_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_1 )%stream(2) = 2097216 F_tracer_1 = .TRUE. IF ( chem_index_table( PARAM_tracer_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_2 = chem_num_table(idomain) chem_index_table( PARAM_tracer_2 , idomain ) = P_tracer_2 ELSE P_tracer_2 = chem_index_table( PARAM_tracer_2 , idomain ) END IF chem_boundary_table( idomain, P_tracer_2 ) = .TRUE. chem_dname_table( idomain, P_tracer_2 ) = 'tracer_2' chem_desc_table( idomain, P_tracer_2 ) = 'tracer2 mix ratio' chem_units_table( idomain, P_tracer_2 ) = 'ppmv' chem_streams_table( idomain, P_tracer_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_2 )%stream(2) = 2097216 F_tracer_2 = .TRUE. IF ( chem_index_table( PARAM_tracer_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_3 = chem_num_table(idomain) chem_index_table( PARAM_tracer_3 , idomain ) = P_tracer_3 ELSE P_tracer_3 = chem_index_table( PARAM_tracer_3 , idomain ) END IF chem_boundary_table( idomain, P_tracer_3 ) = .TRUE. chem_dname_table( idomain, P_tracer_3 ) = 'tracer_3' chem_desc_table( idomain, P_tracer_3 ) = 'tracer3 mix ratio' chem_units_table( idomain, P_tracer_3 ) = 'ppmv' chem_streams_table( idomain, P_tracer_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_3 )%stream(2) = 2097216 F_tracer_3 = .TRUE. IF ( chem_index_table( PARAM_tracer_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_4 = chem_num_table(idomain) chem_index_table( PARAM_tracer_4 , idomain ) = P_tracer_4 ELSE P_tracer_4 = chem_index_table( PARAM_tracer_4 , idomain ) END IF chem_boundary_table( idomain, P_tracer_4 ) = .TRUE. chem_dname_table( idomain, P_tracer_4 ) = 'tracer_4' chem_desc_table( idomain, P_tracer_4 ) = 'tracer4 mix ratio' chem_units_table( idomain, P_tracer_4 ) = 'ppmv' chem_streams_table( idomain, P_tracer_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_4 )%stream(2) = 2097216 F_tracer_4 = .TRUE. IF ( chem_index_table( PARAM_tracer_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_5 = chem_num_table(idomain) chem_index_table( PARAM_tracer_5 , idomain ) = P_tracer_5 ELSE P_tracer_5 = chem_index_table( PARAM_tracer_5 , idomain ) END IF chem_boundary_table( idomain, P_tracer_5 ) = .TRUE. chem_dname_table( idomain, P_tracer_5 ) = 'tracer_5' chem_desc_table( idomain, P_tracer_5 ) = 'tracer5 mix ratio' chem_units_table( idomain, P_tracer_5 ) = 'ppmv' chem_streams_table( idomain, P_tracer_5 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_5 )%stream(2) = 2097216 F_tracer_5 = .TRUE. IF ( chem_index_table( PARAM_tracer_6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_6 = chem_num_table(idomain) chem_index_table( PARAM_tracer_6 , idomain ) = P_tracer_6 ELSE P_tracer_6 = chem_index_table( PARAM_tracer_6 , idomain ) END IF chem_boundary_table( idomain, P_tracer_6 ) = .TRUE. chem_dname_table( idomain, P_tracer_6 ) = 'tracer_6' chem_desc_table( idomain, P_tracer_6 ) = 'tracer6 mix ratio' chem_units_table( idomain, P_tracer_6 ) = 'ppmv' chem_streams_table( idomain, P_tracer_6 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_6 )%stream(2) = 2097216 F_tracer_6 = .TRUE. IF ( chem_index_table( PARAM_tracer_7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_7 = chem_num_table(idomain) chem_index_table( PARAM_tracer_7 , idomain ) = P_tracer_7 ELSE P_tracer_7 = chem_index_table( PARAM_tracer_7 , idomain ) END IF chem_boundary_table( idomain, P_tracer_7 ) = .TRUE. chem_dname_table( idomain, P_tracer_7 ) = 'tracer_7' chem_desc_table( idomain, P_tracer_7 ) = 'tracer7 mix ratio' chem_units_table( idomain, P_tracer_7 ) = 'ppmv' chem_streams_table( idomain, P_tracer_7 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_7 )%stream(2) = 2097216 F_tracer_7 = .TRUE. IF ( chem_index_table( PARAM_tracer_8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_8 = chem_num_table(idomain) chem_index_table( PARAM_tracer_8 , idomain ) = P_tracer_8 ELSE P_tracer_8 = chem_index_table( PARAM_tracer_8 , idomain ) END IF chem_boundary_table( idomain, P_tracer_8 ) = .TRUE. chem_dname_table( idomain, P_tracer_8 ) = 'tracer_8' chem_desc_table( idomain, P_tracer_8 ) = 'tracer8 mix ratio' chem_units_table( idomain, P_tracer_8 ) = 'ppmv' chem_streams_table( idomain, P_tracer_8 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_8 )%stream(2) = 2097216 F_tracer_8 = .TRUE. IF ( chem_index_table( PARAM_tracer_9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_9 = chem_num_table(idomain) chem_index_table( PARAM_tracer_9 , idomain ) = P_tracer_9 ELSE P_tracer_9 = chem_index_table( PARAM_tracer_9 , idomain ) END IF chem_boundary_table( idomain, P_tracer_9 ) = .TRUE. chem_dname_table( idomain, P_tracer_9 ) = 'tracer_9' chem_desc_table( idomain, P_tracer_9 ) = 'tracer9 mix ratio' chem_units_table( idomain, P_tracer_9 ) = 'ppmv' chem_streams_table( idomain, P_tracer_9 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_9 )%stream(2) = 2097216 F_tracer_9 = .TRUE. IF ( chem_index_table( PARAM_tracer_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_10 = chem_num_table(idomain) chem_index_table( PARAM_tracer_10 , idomain ) = P_tracer_10 ELSE P_tracer_10 = chem_index_table( PARAM_tracer_10 , idomain ) END IF chem_boundary_table( idomain, P_tracer_10 ) = .TRUE. chem_dname_table( idomain, P_tracer_10 ) = 'tracer_10' chem_desc_table( idomain, P_tracer_10 ) = 'tracer10 mix ratio' chem_units_table( idomain, P_tracer_10 ) = 'ppmv' chem_streams_table( idomain, P_tracer_10 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_10 )%stream(2) = 2097216 F_tracer_10 = .TRUE. IF ( chem_index_table( PARAM_tracer_11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_11 = chem_num_table(idomain) chem_index_table( PARAM_tracer_11 , idomain ) = P_tracer_11 ELSE P_tracer_11 = chem_index_table( PARAM_tracer_11 , idomain ) END IF chem_boundary_table( idomain, P_tracer_11 ) = .TRUE. chem_dname_table( idomain, P_tracer_11 ) = 'tracer_11' chem_desc_table( idomain, P_tracer_11 ) = 'tracer11 mix ratio' chem_units_table( idomain, P_tracer_11 ) = 'ppmv' chem_streams_table( idomain, P_tracer_11 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_11 )%stream(2) = 2097216 F_tracer_11 = .TRUE. IF ( chem_index_table( PARAM_tracer_12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_12 = chem_num_table(idomain) chem_index_table( PARAM_tracer_12 , idomain ) = P_tracer_12 ELSE P_tracer_12 = chem_index_table( PARAM_tracer_12 , idomain ) END IF chem_boundary_table( idomain, P_tracer_12 ) = .TRUE. chem_dname_table( idomain, P_tracer_12 ) = 'tracer_12' chem_desc_table( idomain, P_tracer_12 ) = 'tracer12 mix ratio' chem_units_table( idomain, P_tracer_12 ) = 'ppmv' chem_streams_table( idomain, P_tracer_12 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_12 )%stream(2) = 2097216 F_tracer_12 = .TRUE. IF ( chem_index_table( PARAM_tracer_13 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_13 = chem_num_table(idomain) chem_index_table( PARAM_tracer_13 , idomain ) = P_tracer_13 ELSE P_tracer_13 = chem_index_table( PARAM_tracer_13 , idomain ) END IF chem_boundary_table( idomain, P_tracer_13 ) = .TRUE. chem_dname_table( idomain, P_tracer_13 ) = 'tracer_13' chem_desc_table( idomain, P_tracer_13 ) = 'tracer13 mix ratio' chem_units_table( idomain, P_tracer_13 ) = 'ppmv' chem_streams_table( idomain, P_tracer_13 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_13 )%stream(2) = 2097216 F_tracer_13 = .TRUE. IF ( chem_index_table( PARAM_tracer_14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_14 = chem_num_table(idomain) chem_index_table( PARAM_tracer_14 , idomain ) = P_tracer_14 ELSE P_tracer_14 = chem_index_table( PARAM_tracer_14 , idomain ) END IF chem_boundary_table( idomain, P_tracer_14 ) = .TRUE. chem_dname_table( idomain, P_tracer_14 ) = 'tracer_14' chem_desc_table( idomain, P_tracer_14 ) = 'tracer14 mix ratio' chem_units_table( idomain, P_tracer_14 ) = 'ppmv' chem_streams_table( idomain, P_tracer_14 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_14 )%stream(2) = 2097216 F_tracer_14 = .TRUE. IF ( chem_index_table( PARAM_tracer_15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_15 = chem_num_table(idomain) chem_index_table( PARAM_tracer_15 , idomain ) = P_tracer_15 ELSE P_tracer_15 = chem_index_table( PARAM_tracer_15 , idomain ) END IF chem_boundary_table( idomain, P_tracer_15 ) = .TRUE. chem_dname_table( idomain, P_tracer_15 ) = 'tracer_15' chem_desc_table( idomain, P_tracer_15 ) = 'tracer15 mix ratio' chem_units_table( idomain, P_tracer_15 ) = 'ppmv' chem_streams_table( idomain, P_tracer_15 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_15 )%stream(2) = 2097216 F_tracer_15 = .TRUE. IF ( chem_index_table( PARAM_tracer_16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_16 = chem_num_table(idomain) chem_index_table( PARAM_tracer_16 , idomain ) = P_tracer_16 ELSE P_tracer_16 = chem_index_table( PARAM_tracer_16 , idomain ) END IF chem_boundary_table( idomain, P_tracer_16 ) = .TRUE. chem_dname_table( idomain, P_tracer_16 ) = 'tracer_16' chem_desc_table( idomain, P_tracer_16 ) = 'tracer16 mix ratio' chem_units_table( idomain, P_tracer_16 ) = 'ppmv' chem_streams_table( idomain, P_tracer_16 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_16 )%stream(2) = 2097216 F_tracer_16 = .TRUE. IF ( chem_index_table( PARAM_tracer_17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_17 = chem_num_table(idomain) chem_index_table( PARAM_tracer_17 , idomain ) = P_tracer_17 ELSE P_tracer_17 = chem_index_table( PARAM_tracer_17 , idomain ) END IF chem_boundary_table( idomain, P_tracer_17 ) = .TRUE. chem_dname_table( idomain, P_tracer_17 ) = 'tracer_17' chem_desc_table( idomain, P_tracer_17 ) = 'tracer17 mix ratio' chem_units_table( idomain, P_tracer_17 ) = 'ppmv' chem_streams_table( idomain, P_tracer_17 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_17 )%stream(2) = 2097216 F_tracer_17 = .TRUE. IF ( chem_index_table( PARAM_tracer_18 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_18 = chem_num_table(idomain) chem_index_table( PARAM_tracer_18 , idomain ) = P_tracer_18 ELSE P_tracer_18 = chem_index_table( PARAM_tracer_18 , idomain ) END IF chem_boundary_table( idomain, P_tracer_18 ) = .TRUE. chem_dname_table( idomain, P_tracer_18 ) = 'tracer_18' chem_desc_table( idomain, P_tracer_18 ) = 'tracer18 mix ratio' chem_units_table( idomain, P_tracer_18 ) = 'ppmv' chem_streams_table( idomain, P_tracer_18 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_18 )%stream(2) = 2097216 F_tracer_18 = .TRUE. IF ( chem_index_table( PARAM_tracer_19 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_19 = chem_num_table(idomain) chem_index_table( PARAM_tracer_19 , idomain ) = P_tracer_19 ELSE P_tracer_19 = chem_index_table( PARAM_tracer_19 , idomain ) END IF chem_boundary_table( idomain, P_tracer_19 ) = .TRUE. chem_dname_table( idomain, P_tracer_19 ) = 'tracer_19' chem_desc_table( idomain, P_tracer_19 ) = 'tracer19 mix ratio' chem_units_table( idomain, P_tracer_19 ) = 'ppmv' chem_streams_table( idomain, P_tracer_19 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_19 )%stream(2) = 2097216 F_tracer_19 = .TRUE. IF ( chem_index_table( PARAM_tracer_20 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_20 = chem_num_table(idomain) chem_index_table( PARAM_tracer_20 , idomain ) = P_tracer_20 ELSE P_tracer_20 = chem_index_table( PARAM_tracer_20 , idomain ) END IF chem_boundary_table( idomain, P_tracer_20 ) = .TRUE. chem_dname_table( idomain, P_tracer_20 ) = 'tracer_20' chem_desc_table( idomain, P_tracer_20 ) = 'tracer20 mix ratio' chem_units_table( idomain, P_tracer_20 ) = 'ppmv' chem_streams_table( idomain, P_tracer_20 )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_20 )%stream(2) = 2097216 F_tracer_20 = .TRUE. IF ( chem_index_table( PARAM_tracer_ens , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tracer_ens = chem_num_table(idomain) chem_index_table( PARAM_tracer_ens , idomain ) = P_tracer_ens ELSE P_tracer_ens = chem_index_table( PARAM_tracer_ens , idomain ) END IF chem_boundary_table( idomain, P_tracer_ens ) = .TRUE. chem_dname_table( idomain, P_tracer_ens ) = 'tracer_ens' chem_desc_table( idomain, P_tracer_ens ) = 'tracer- ensemble average mix ratio' chem_units_table( idomain, P_tracer_ens ) = 'ppmv' chem_streams_table( idomain, P_tracer_ens )%stream(1) = 33554433 chem_streams_table( idomain, P_tracer_ens )%stream(2) = 2097216 F_tracer_ens = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==16)THEN IF ( chem_index_table( PARAM_co2_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_ant = chem_num_table(idomain) chem_index_table( PARAM_co2_ant , idomain ) = P_co2_ant ELSE P_co2_ant = chem_index_table( PARAM_co2_ant , idomain ) END IF chem_boundary_table( idomain, P_co2_ant ) = .TRUE. chem_dname_table( idomain, P_co2_ant ) = 'CO2_ANT' chem_desc_table( idomain, P_co2_ant ) = 'mixing ratio of anthropogenic CO2' chem_units_table( idomain, P_co2_ant ) = 'ppmv' chem_streams_table( idomain, P_co2_ant )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_ant )%stream(2) = 2097216 F_co2_ant = .TRUE. IF ( chem_index_table( PARAM_co2_bio , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bio = chem_num_table(idomain) chem_index_table( PARAM_co2_bio , idomain ) = P_co2_bio ELSE P_co2_bio = chem_index_table( PARAM_co2_bio , idomain ) END IF chem_boundary_table( idomain, P_co2_bio ) = .TRUE. chem_dname_table( idomain, P_co2_bio ) = 'CO2_BIO' chem_desc_table( idomain, P_co2_bio ) = 'mixing ratio of VPRM CO2' chem_units_table( idomain, P_co2_bio ) = 'ppmv' chem_streams_table( idomain, P_co2_bio )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_bio )%stream(2) = 2097216 F_co2_bio = .TRUE. IF ( chem_index_table( PARAM_co2_oce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_oce = chem_num_table(idomain) chem_index_table( PARAM_co2_oce , idomain ) = P_co2_oce ELSE P_co2_oce = chem_index_table( PARAM_co2_oce , idomain ) END IF chem_boundary_table( idomain, P_co2_oce ) = .TRUE. chem_dname_table( idomain, P_co2_oce ) = 'CO2_OCE' chem_desc_table( idomain, P_co2_oce ) = 'mixing ratio of ocean CO2' chem_units_table( idomain, P_co2_oce ) = 'ppmv' chem_streams_table( idomain, P_co2_oce )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_oce )%stream(2) = 2097216 F_co2_oce = .TRUE. IF ( chem_index_table( PARAM_co2_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bck = chem_num_table(idomain) chem_index_table( PARAM_co2_bck , idomain ) = P_co2_bck ELSE P_co2_bck = chem_index_table( PARAM_co2_bck , idomain ) END IF chem_boundary_table( idomain, P_co2_bck ) = .TRUE. chem_dname_table( idomain, P_co2_bck ) = 'CO2_BCK' chem_desc_table( idomain, P_co2_bck ) = 'mixing ratio of background CO2' chem_units_table( idomain, P_co2_bck ) = 'ppmv' chem_streams_table( idomain, P_co2_bck )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_bck )%stream(2) = 2097216 F_co2_bck = .TRUE. IF ( chem_index_table( PARAM_co2_tst , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_tst = chem_num_table(idomain) chem_index_table( PARAM_co2_tst , idomain ) = P_co2_tst ELSE P_co2_tst = chem_index_table( PARAM_co2_tst , idomain ) END IF chem_boundary_table( idomain, P_co2_tst ) = .TRUE. chem_dname_table( idomain, P_co2_tst ) = 'CO2_TST' chem_desc_table( idomain, P_co2_tst ) = 'mixing ratio of CO2, anthropogenic test fluxes' chem_units_table( idomain, P_co2_tst ) = 'ppmv' chem_streams_table( idomain, P_co2_tst )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_tst )%stream(2) = 2097216 F_co2_tst = .TRUE. IF ( chem_index_table( PARAM_co_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_ant = chem_num_table(idomain) chem_index_table( PARAM_co_ant , idomain ) = P_co_ant ELSE P_co_ant = chem_index_table( PARAM_co_ant , idomain ) END IF chem_boundary_table( idomain, P_co_ant ) = .TRUE. chem_dname_table( idomain, P_co_ant ) = 'CO_ANT' chem_desc_table( idomain, P_co_ant ) = 'mixing ratio of anthropogenic CO' chem_units_table( idomain, P_co_ant ) = 'ppmv' chem_streams_table( idomain, P_co_ant )%stream(1) = 33554433 chem_streams_table( idomain, P_co_ant )%stream(2) = 2097216 F_co_ant = .TRUE. IF ( chem_index_table( PARAM_co_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_bck = chem_num_table(idomain) chem_index_table( PARAM_co_bck , idomain ) = P_co_bck ELSE P_co_bck = chem_index_table( PARAM_co_bck , idomain ) END IF chem_boundary_table( idomain, P_co_bck ) = .TRUE. chem_dname_table( idomain, P_co_bck ) = 'CO_BCK' chem_desc_table( idomain, P_co_bck ) = 'mixing ratio of background CO' chem_units_table( idomain, P_co_bck ) = 'ppmv' chem_streams_table( idomain, P_co_bck )%stream(1) = 33554433 chem_streams_table( idomain, P_co_bck )%stream(2) = 2097216 F_co_bck = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==17)THEN IF ( chem_index_table( PARAM_co2_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_ant = chem_num_table(idomain) chem_index_table( PARAM_co2_ant , idomain ) = P_co2_ant ELSE P_co2_ant = chem_index_table( PARAM_co2_ant , idomain ) END IF chem_boundary_table( idomain, P_co2_ant ) = .TRUE. chem_dname_table( idomain, P_co2_ant ) = 'CO2_ANT' chem_desc_table( idomain, P_co2_ant ) = 'mixing ratio of anthropogenic CO2' chem_units_table( idomain, P_co2_ant ) = 'ppmv' chem_streams_table( idomain, P_co2_ant )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_ant )%stream(2) = 2097216 F_co2_ant = .TRUE. IF ( chem_index_table( PARAM_co2_bio , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bio = chem_num_table(idomain) chem_index_table( PARAM_co2_bio , idomain ) = P_co2_bio ELSE P_co2_bio = chem_index_table( PARAM_co2_bio , idomain ) END IF chem_boundary_table( idomain, P_co2_bio ) = .TRUE. chem_dname_table( idomain, P_co2_bio ) = 'CO2_BIO' chem_desc_table( idomain, P_co2_bio ) = 'mixing ratio of VPRM CO2' chem_units_table( idomain, P_co2_bio ) = 'ppmv' chem_streams_table( idomain, P_co2_bio )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_bio )%stream(2) = 2097216 F_co2_bio = .TRUE. IF ( chem_index_table( PARAM_co2_oce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_oce = chem_num_table(idomain) chem_index_table( PARAM_co2_oce , idomain ) = P_co2_oce ELSE P_co2_oce = chem_index_table( PARAM_co2_oce , idomain ) END IF chem_boundary_table( idomain, P_co2_oce ) = .TRUE. chem_dname_table( idomain, P_co2_oce ) = 'CO2_OCE' chem_desc_table( idomain, P_co2_oce ) = 'mixing ratio of ocean CO2' chem_units_table( idomain, P_co2_oce ) = 'ppmv' chem_streams_table( idomain, P_co2_oce )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_oce )%stream(2) = 2097216 F_co2_oce = .TRUE. IF ( chem_index_table( PARAM_co2_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bck = chem_num_table(idomain) chem_index_table( PARAM_co2_bck , idomain ) = P_co2_bck ELSE P_co2_bck = chem_index_table( PARAM_co2_bck , idomain ) END IF chem_boundary_table( idomain, P_co2_bck ) = .TRUE. chem_dname_table( idomain, P_co2_bck ) = 'CO2_BCK' chem_desc_table( idomain, P_co2_bck ) = 'mixing ratio of background CO2' chem_units_table( idomain, P_co2_bck ) = 'ppmv' chem_streams_table( idomain, P_co2_bck )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_bck )%stream(2) = 2097216 F_co2_bck = .TRUE. IF ( chem_index_table( PARAM_co2_tst , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_tst = chem_num_table(idomain) chem_index_table( PARAM_co2_tst , idomain ) = P_co2_tst ELSE P_co2_tst = chem_index_table( PARAM_co2_tst , idomain ) END IF chem_boundary_table( idomain, P_co2_tst ) = .TRUE. chem_dname_table( idomain, P_co2_tst ) = 'CO2_TST' chem_desc_table( idomain, P_co2_tst ) = 'mixing ratio of CO2, anthropogenic test fluxes' chem_units_table( idomain, P_co2_tst ) = 'ppmv' chem_streams_table( idomain, P_co2_tst )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_tst )%stream(2) = 2097216 F_co2_tst = .TRUE. IF ( chem_index_table( PARAM_co2_bbu , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2_bbu = chem_num_table(idomain) chem_index_table( PARAM_co2_bbu , idomain ) = P_co2_bbu ELSE P_co2_bbu = chem_index_table( PARAM_co2_bbu , idomain ) END IF chem_boundary_table( idomain, P_co2_bbu ) = .TRUE. chem_dname_table( idomain, P_co2_bbu ) = 'CO2_BBU' chem_desc_table( idomain, P_co2_bbu ) = 'mixing ratio of biomass burning CO2' chem_units_table( idomain, P_co2_bbu ) = 'ppmv' chem_streams_table( idomain, P_co2_bbu )%stream(1) = 33554433 chem_streams_table( idomain, P_co2_bbu )%stream(2) = 2097216 F_co2_bbu = .TRUE. IF ( chem_index_table( PARAM_co_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_ant = chem_num_table(idomain) chem_index_table( PARAM_co_ant , idomain ) = P_co_ant ELSE P_co_ant = chem_index_table( PARAM_co_ant , idomain ) END IF chem_boundary_table( idomain, P_co_ant ) = .TRUE. chem_dname_table( idomain, P_co_ant ) = 'CO_ANT' chem_desc_table( idomain, P_co_ant ) = 'mixing ratio of anthropogenic CO' chem_units_table( idomain, P_co_ant ) = 'ppmv' chem_streams_table( idomain, P_co_ant )%stream(1) = 33554433 chem_streams_table( idomain, P_co_ant )%stream(2) = 2097216 F_co_ant = .TRUE. IF ( chem_index_table( PARAM_co_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_bck = chem_num_table(idomain) chem_index_table( PARAM_co_bck , idomain ) = P_co_bck ELSE P_co_bck = chem_index_table( PARAM_co_bck , idomain ) END IF chem_boundary_table( idomain, P_co_bck ) = .TRUE. chem_dname_table( idomain, P_co_bck ) = 'CO_BCK' chem_desc_table( idomain, P_co_bck ) = 'mixing ratio of background CO' chem_units_table( idomain, P_co_bck ) = 'ppmv' chem_streams_table( idomain, P_co_bck )%stream(1) = 33554433 chem_streams_table( idomain, P_co_bck )%stream(2) = 2097216 F_co_bck = .TRUE. IF ( chem_index_table( PARAM_co_bbu , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_bbu = chem_num_table(idomain) chem_index_table( PARAM_co_bbu , idomain ) = P_co_bbu ELSE P_co_bbu = chem_index_table( PARAM_co_bbu , idomain ) END IF chem_boundary_table( idomain, P_co_bbu ) = .TRUE. chem_dname_table( idomain, P_co_bbu ) = 'CO_BBU' chem_desc_table( idomain, P_co_bbu ) = 'mixing ratio of biomass burning CO' chem_units_table( idomain, P_co_bbu ) = 'ppmv' chem_streams_table( idomain, P_co_bbu )%stream(1) = 33554433 chem_streams_table( idomain, P_co_bbu )%stream(2) = 2097216 F_co_bbu = .TRUE. IF ( chem_index_table( PARAM_co_tst , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co_tst = chem_num_table(idomain) chem_index_table( PARAM_co_tst , idomain ) = P_co_tst ELSE P_co_tst = chem_index_table( PARAM_co_tst , idomain ) END IF chem_boundary_table( idomain, P_co_tst ) = .TRUE. chem_dname_table( idomain, P_co_tst ) = 'CO_TST' chem_desc_table( idomain, P_co_tst ) = 'mixing ratio of CO, test fluxes' chem_units_table( idomain, P_co_tst ) = 'ppmv' chem_streams_table( idomain, P_co_tst )%stream(1) = 33554433 chem_streams_table( idomain, P_co_tst )%stream(2) = 2097216 F_co_tst = .TRUE. IF ( chem_index_table( PARAM_ch4_ant , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_ant = chem_num_table(idomain) chem_index_table( PARAM_ch4_ant , idomain ) = P_ch4_ant ELSE P_ch4_ant = chem_index_table( PARAM_ch4_ant , idomain ) END IF chem_boundary_table( idomain, P_ch4_ant ) = .TRUE. chem_dname_table( idomain, P_ch4_ant ) = 'CH4_ANT' chem_desc_table( idomain, P_ch4_ant ) = 'mixing ratio of anthropogenic CH4' chem_units_table( idomain, P_ch4_ant ) = 'ppmv' chem_streams_table( idomain, P_ch4_ant )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4_ant )%stream(2) = 2097216 F_ch4_ant = .TRUE. IF ( chem_index_table( PARAM_ch4_bio , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_bio = chem_num_table(idomain) chem_index_table( PARAM_ch4_bio , idomain ) = P_ch4_bio ELSE P_ch4_bio = chem_index_table( PARAM_ch4_bio , idomain ) END IF chem_boundary_table( idomain, P_ch4_bio ) = .TRUE. chem_dname_table( idomain, P_ch4_bio ) = 'CH4_BIO' chem_desc_table( idomain, P_ch4_bio ) = 'mixing ratio of natural biogenic CH4' chem_units_table( idomain, P_ch4_bio ) = 'ppmv' chem_streams_table( idomain, P_ch4_bio )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4_bio )%stream(2) = 2097216 F_ch4_bio = .TRUE. IF ( chem_index_table( PARAM_ch4_bck , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_bck = chem_num_table(idomain) chem_index_table( PARAM_ch4_bck , idomain ) = P_ch4_bck ELSE P_ch4_bck = chem_index_table( PARAM_ch4_bck , idomain ) END IF chem_boundary_table( idomain, P_ch4_bck ) = .TRUE. chem_dname_table( idomain, P_ch4_bck ) = 'CH4_BCK' chem_desc_table( idomain, P_ch4_bck ) = 'mixing ratio of background CH4' chem_units_table( idomain, P_ch4_bck ) = 'ppmv' chem_streams_table( idomain, P_ch4_bck )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4_bck )%stream(2) = 2097216 F_ch4_bck = .TRUE. IF ( chem_index_table( PARAM_ch4_bbu , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_bbu = chem_num_table(idomain) chem_index_table( PARAM_ch4_bbu , idomain ) = P_ch4_bbu ELSE P_ch4_bbu = chem_index_table( PARAM_ch4_bbu , idomain ) END IF chem_boundary_table( idomain, P_ch4_bbu ) = .TRUE. chem_dname_table( idomain, P_ch4_bbu ) = 'CH4_BBU' chem_desc_table( idomain, P_ch4_bbu ) = 'mixing ratio of biomass burning CH4' chem_units_table( idomain, P_ch4_bbu ) = 'ppmv' chem_streams_table( idomain, P_ch4_bbu )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4_bbu )%stream(2) = 2097216 F_ch4_bbu = .TRUE. IF ( chem_index_table( PARAM_ch4_tst , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4_tst = chem_num_table(idomain) chem_index_table( PARAM_ch4_tst , idomain ) = P_ch4_tst ELSE P_ch4_tst = chem_index_table( PARAM_ch4_tst , idomain ) END IF chem_boundary_table( idomain, P_ch4_tst ) = .TRUE. chem_dname_table( idomain, P_ch4_tst ) = 'CH4_TST' chem_desc_table( idomain, P_ch4_tst ) = 'mixing ratio of CH4, test fluxes' chem_units_table( idomain, P_ch4_tst ) = 'ppmv' chem_streams_table( idomain, P_ch4_tst )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4_tst )%stream(2) = 2097216 F_ch4_tst = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==30)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==31)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 F_mtf = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_msa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a01 = chem_num_table(idomain) chem_index_table( PARAM_msa_a01 , idomain ) = P_msa_a01 ELSE P_msa_a01 = chem_index_table( PARAM_msa_a01 , idomain ) END IF chem_boundary_table( idomain, P_msa_a01 ) = .TRUE. chem_dname_table( idomain, P_msa_a01 ) = 'msa_a01' chem_desc_table( idomain, P_msa_a01 ) = 'MSA, aerosol bin 01' chem_units_table( idomain, P_msa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a01 )%stream(2) = 2097216 F_msa_a01 = .TRUE. IF ( chem_index_table( PARAM_msa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a02 = chem_num_table(idomain) chem_index_table( PARAM_msa_a02 , idomain ) = P_msa_a02 ELSE P_msa_a02 = chem_index_table( PARAM_msa_a02 , idomain ) END IF chem_boundary_table( idomain, P_msa_a02 ) = .TRUE. chem_dname_table( idomain, P_msa_a02 ) = 'msa_a02' chem_desc_table( idomain, P_msa_a02 ) = 'MSA, aerosol bin 02' chem_units_table( idomain, P_msa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a02 )%stream(2) = 2097216 F_msa_a02 = .TRUE. IF ( chem_index_table( PARAM_msa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a03 = chem_num_table(idomain) chem_index_table( PARAM_msa_a03 , idomain ) = P_msa_a03 ELSE P_msa_a03 = chem_index_table( PARAM_msa_a03 , idomain ) END IF chem_boundary_table( idomain, P_msa_a03 ) = .TRUE. chem_dname_table( idomain, P_msa_a03 ) = 'msa_a03' chem_desc_table( idomain, P_msa_a03 ) = 'MSA, aerosol bin 03' chem_units_table( idomain, P_msa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a03 )%stream(2) = 2097216 F_msa_a03 = .TRUE. IF ( chem_index_table( PARAM_msa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a04 = chem_num_table(idomain) chem_index_table( PARAM_msa_a04 , idomain ) = P_msa_a04 ELSE P_msa_a04 = chem_index_table( PARAM_msa_a04 , idomain ) END IF chem_boundary_table( idomain, P_msa_a04 ) = .TRUE. chem_dname_table( idomain, P_msa_a04 ) = 'msa_a04' chem_desc_table( idomain, P_msa_a04 ) = 'MSA, aerosol bin 04' chem_units_table( idomain, P_msa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a04 )%stream(2) = 2097216 F_msa_a04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==32)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 F_mtf = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_msa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a01 = chem_num_table(idomain) chem_index_table( PARAM_msa_a01 , idomain ) = P_msa_a01 ELSE P_msa_a01 = chem_index_table( PARAM_msa_a01 , idomain ) END IF chem_boundary_table( idomain, P_msa_a01 ) = .TRUE. chem_dname_table( idomain, P_msa_a01 ) = 'msa_a01' chem_desc_table( idomain, P_msa_a01 ) = 'MSA, aerosol bin 01' chem_units_table( idomain, P_msa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a01 )%stream(2) = 2097216 F_msa_a01 = .TRUE. IF ( chem_index_table( PARAM_msa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a02 = chem_num_table(idomain) chem_index_table( PARAM_msa_a02 , idomain ) = P_msa_a02 ELSE P_msa_a02 = chem_index_table( PARAM_msa_a02 , idomain ) END IF chem_boundary_table( idomain, P_msa_a02 ) = .TRUE. chem_dname_table( idomain, P_msa_a02 ) = 'msa_a02' chem_desc_table( idomain, P_msa_a02 ) = 'MSA, aerosol bin 02' chem_units_table( idomain, P_msa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a02 )%stream(2) = 2097216 F_msa_a02 = .TRUE. IF ( chem_index_table( PARAM_msa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a03 = chem_num_table(idomain) chem_index_table( PARAM_msa_a03 , idomain ) = P_msa_a03 ELSE P_msa_a03 = chem_index_table( PARAM_msa_a03 , idomain ) END IF chem_boundary_table( idomain, P_msa_a03 ) = .TRUE. chem_dname_table( idomain, P_msa_a03 ) = 'msa_a03' chem_desc_table( idomain, P_msa_a03 ) = 'MSA, aerosol bin 03' chem_units_table( idomain, P_msa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a03 )%stream(2) = 2097216 F_msa_a03 = .TRUE. IF ( chem_index_table( PARAM_msa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a04 = chem_num_table(idomain) chem_index_table( PARAM_msa_a04 , idomain ) = P_msa_a04 ELSE P_msa_a04 = chem_index_table( PARAM_msa_a04 , idomain ) END IF chem_boundary_table( idomain, P_msa_a04 ) = .TRUE. chem_dname_table( idomain, P_msa_a04 ) = 'msa_a04' chem_desc_table( idomain, P_msa_a04 ) = 'MSA, aerosol bin 04' chem_units_table( idomain, P_msa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a04 )%stream(2) = 2097216 F_msa_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_ca_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw01 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw01 , idomain ) = P_ca_cw01 ELSE P_ca_cw01 = chem_index_table( PARAM_ca_cw01 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw01 ) = .TRUE. chem_dname_table( idomain, P_ca_cw01 ) = 'ca_cw01' chem_desc_table( idomain, P_ca_cw01 ) = 'Calcium, aerosol in cloud bin 01' chem_units_table( idomain, P_ca_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw01 )%stream(2) = 2097216 F_ca_cw01 = .TRUE. IF ( chem_index_table( PARAM_ca_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw02 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw02 , idomain ) = P_ca_cw02 ELSE P_ca_cw02 = chem_index_table( PARAM_ca_cw02 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw02 ) = .TRUE. chem_dname_table( idomain, P_ca_cw02 ) = 'ca_cw02' chem_desc_table( idomain, P_ca_cw02 ) = 'Calcium, aerosol in cloud bin 02' chem_units_table( idomain, P_ca_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw02 )%stream(2) = 2097216 F_ca_cw02 = .TRUE. IF ( chem_index_table( PARAM_ca_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw03 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw03 , idomain ) = P_ca_cw03 ELSE P_ca_cw03 = chem_index_table( PARAM_ca_cw03 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw03 ) = .TRUE. chem_dname_table( idomain, P_ca_cw03 ) = 'ca_cw03' chem_desc_table( idomain, P_ca_cw03 ) = 'Calcium, aerosol in cloud bin 03' chem_units_table( idomain, P_ca_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw03 )%stream(2) = 2097216 F_ca_cw03 = .TRUE. IF ( chem_index_table( PARAM_ca_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw04 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw04 , idomain ) = P_ca_cw04 ELSE P_ca_cw04 = chem_index_table( PARAM_ca_cw04 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw04 ) = .TRUE. chem_dname_table( idomain, P_ca_cw04 ) = 'ca_cw04' chem_desc_table( idomain, P_ca_cw04 ) = 'Calcium, aerosol in cloud bin 04' chem_units_table( idomain, P_ca_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw04 )%stream(2) = 2097216 F_ca_cw04 = .TRUE. IF ( chem_index_table( PARAM_co3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw01 , idomain ) = P_co3_cw01 ELSE P_co3_cw01 = chem_index_table( PARAM_co3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw01 ) = .TRUE. chem_dname_table( idomain, P_co3_cw01 ) = 'co3_cw01' chem_desc_table( idomain, P_co3_cw01 ) = 'Carbonate, aerosol in cloud bin 01' chem_units_table( idomain, P_co3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw01 )%stream(2) = 2097216 F_co3_cw01 = .TRUE. IF ( chem_index_table( PARAM_co3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw02 , idomain ) = P_co3_cw02 ELSE P_co3_cw02 = chem_index_table( PARAM_co3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw02 ) = .TRUE. chem_dname_table( idomain, P_co3_cw02 ) = 'co3_cw02' chem_desc_table( idomain, P_co3_cw02 ) = 'Carbonate, aerosol in cloud bin 02' chem_units_table( idomain, P_co3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw02 )%stream(2) = 2097216 F_co3_cw02 = .TRUE. IF ( chem_index_table( PARAM_co3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw03 , idomain ) = P_co3_cw03 ELSE P_co3_cw03 = chem_index_table( PARAM_co3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw03 ) = .TRUE. chem_dname_table( idomain, P_co3_cw03 ) = 'co3_cw03' chem_desc_table( idomain, P_co3_cw03 ) = 'Carbonate, aerosol in cloud bin 03' chem_units_table( idomain, P_co3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw03 )%stream(2) = 2097216 F_co3_cw03 = .TRUE. IF ( chem_index_table( PARAM_co3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw04 , idomain ) = P_co3_cw04 ELSE P_co3_cw04 = chem_index_table( PARAM_co3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw04 ) = .TRUE. chem_dname_table( idomain, P_co3_cw04 ) = 'co3_cw04' chem_desc_table( idomain, P_co3_cw04 ) = 'Carbonate, aerosol in cloud bin 04' chem_units_table( idomain, P_co3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw04 )%stream(2) = 2097216 F_co3_cw04 = .TRUE. IF ( chem_index_table( PARAM_msa_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw01 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw01 , idomain ) = P_msa_cw01 ELSE P_msa_cw01 = chem_index_table( PARAM_msa_cw01 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw01 ) = .TRUE. chem_dname_table( idomain, P_msa_cw01 ) = 'msa_cw01' chem_desc_table( idomain, P_msa_cw01 ) = 'MSA, aerosol in cloud bin 01' chem_units_table( idomain, P_msa_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw01 )%stream(2) = 2097216 F_msa_cw01 = .TRUE. IF ( chem_index_table( PARAM_msa_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw02 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw02 , idomain ) = P_msa_cw02 ELSE P_msa_cw02 = chem_index_table( PARAM_msa_cw02 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw02 ) = .TRUE. chem_dname_table( idomain, P_msa_cw02 ) = 'msa_cw02' chem_desc_table( idomain, P_msa_cw02 ) = 'MSA, aerosol in cloud bin 02' chem_units_table( idomain, P_msa_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw02 )%stream(2) = 2097216 F_msa_cw02 = .TRUE. IF ( chem_index_table( PARAM_msa_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw03 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw03 , idomain ) = P_msa_cw03 ELSE P_msa_cw03 = chem_index_table( PARAM_msa_cw03 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw03 ) = .TRUE. chem_dname_table( idomain, P_msa_cw03 ) = 'msa_cw03' chem_desc_table( idomain, P_msa_cw03 ) = 'MSA, aerosol in cloud bin 03' chem_units_table( idomain, P_msa_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw03 )%stream(2) = 2097216 F_msa_cw03 = .TRUE. IF ( chem_index_table( PARAM_msa_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw04 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw04 , idomain ) = P_msa_cw04 ELSE P_msa_cw04 = chem_index_table( PARAM_msa_cw04 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw04 ) = .TRUE. chem_dname_table( idomain, P_msa_cw04 ) = 'msa_cw04' chem_desc_table( idomain, P_msa_cw04 ) = 'MSA, aerosol in cloud bin 04' chem_units_table( idomain, P_msa_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw04 )%stream(2) = 2097216 F_msa_cw04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==33)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 F_mtf = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a05 = chem_num_table(idomain) chem_index_table( PARAM_ca_a05 , idomain ) = P_ca_a05 ELSE P_ca_a05 = chem_index_table( PARAM_ca_a05 , idomain ) END IF chem_boundary_table( idomain, P_ca_a05 ) = .TRUE. chem_dname_table( idomain, P_ca_a05 ) = 'ca_a05' chem_desc_table( idomain, P_ca_a05 ) = 'Calcium, aerosol bin 05' chem_units_table( idomain, P_ca_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a05 )%stream(2) = 2097216 F_ca_a05 = .TRUE. IF ( chem_index_table( PARAM_ca_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a06 = chem_num_table(idomain) chem_index_table( PARAM_ca_a06 , idomain ) = P_ca_a06 ELSE P_ca_a06 = chem_index_table( PARAM_ca_a06 , idomain ) END IF chem_boundary_table( idomain, P_ca_a06 ) = .TRUE. chem_dname_table( idomain, P_ca_a06 ) = 'ca_a06' chem_desc_table( idomain, P_ca_a06 ) = 'Calcium, aerosol bin 06' chem_units_table( idomain, P_ca_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a06 )%stream(2) = 2097216 F_ca_a06 = .TRUE. IF ( chem_index_table( PARAM_ca_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a07 = chem_num_table(idomain) chem_index_table( PARAM_ca_a07 , idomain ) = P_ca_a07 ELSE P_ca_a07 = chem_index_table( PARAM_ca_a07 , idomain ) END IF chem_boundary_table( idomain, P_ca_a07 ) = .TRUE. chem_dname_table( idomain, P_ca_a07 ) = 'ca_a07' chem_desc_table( idomain, P_ca_a07 ) = 'Calcium, aerosol bin 07' chem_units_table( idomain, P_ca_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a07 )%stream(2) = 2097216 F_ca_a07 = .TRUE. IF ( chem_index_table( PARAM_ca_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a08 = chem_num_table(idomain) chem_index_table( PARAM_ca_a08 , idomain ) = P_ca_a08 ELSE P_ca_a08 = chem_index_table( PARAM_ca_a08 , idomain ) END IF chem_boundary_table( idomain, P_ca_a08 ) = .TRUE. chem_dname_table( idomain, P_ca_a08 ) = 'ca_a08' chem_desc_table( idomain, P_ca_a08 ) = 'Calcium, aerosol bin 08' chem_units_table( idomain, P_ca_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a08 )%stream(2) = 2097216 F_ca_a08 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a05 = chem_num_table(idomain) chem_index_table( PARAM_co3_a05 , idomain ) = P_co3_a05 ELSE P_co3_a05 = chem_index_table( PARAM_co3_a05 , idomain ) END IF chem_boundary_table( idomain, P_co3_a05 ) = .TRUE. chem_dname_table( idomain, P_co3_a05 ) = 'co3_a05' chem_desc_table( idomain, P_co3_a05 ) = 'Carbonate, aerosol bin 05' chem_units_table( idomain, P_co3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a05 )%stream(2) = 2097216 F_co3_a05 = .TRUE. IF ( chem_index_table( PARAM_co3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a06 = chem_num_table(idomain) chem_index_table( PARAM_co3_a06 , idomain ) = P_co3_a06 ELSE P_co3_a06 = chem_index_table( PARAM_co3_a06 , idomain ) END IF chem_boundary_table( idomain, P_co3_a06 ) = .TRUE. chem_dname_table( idomain, P_co3_a06 ) = 'co3_a06' chem_desc_table( idomain, P_co3_a06 ) = 'Carbonate, aerosol bin 06' chem_units_table( idomain, P_co3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a06 )%stream(2) = 2097216 F_co3_a06 = .TRUE. IF ( chem_index_table( PARAM_co3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a07 = chem_num_table(idomain) chem_index_table( PARAM_co3_a07 , idomain ) = P_co3_a07 ELSE P_co3_a07 = chem_index_table( PARAM_co3_a07 , idomain ) END IF chem_boundary_table( idomain, P_co3_a07 ) = .TRUE. chem_dname_table( idomain, P_co3_a07 ) = 'co3_a07' chem_desc_table( idomain, P_co3_a07 ) = 'Carbonate, aerosol bin 07' chem_units_table( idomain, P_co3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a07 )%stream(2) = 2097216 F_co3_a07 = .TRUE. IF ( chem_index_table( PARAM_co3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a08 = chem_num_table(idomain) chem_index_table( PARAM_co3_a08 , idomain ) = P_co3_a08 ELSE P_co3_a08 = chem_index_table( PARAM_co3_a08 , idomain ) END IF chem_boundary_table( idomain, P_co3_a08 ) = .TRUE. chem_dname_table( idomain, P_co3_a08 ) = 'co3_a08' chem_desc_table( idomain, P_co3_a08 ) = 'Carbonate, aerosol bin 08' chem_units_table( idomain, P_co3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a08 )%stream(2) = 2097216 F_co3_a08 = .TRUE. IF ( chem_index_table( PARAM_msa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a01 = chem_num_table(idomain) chem_index_table( PARAM_msa_a01 , idomain ) = P_msa_a01 ELSE P_msa_a01 = chem_index_table( PARAM_msa_a01 , idomain ) END IF chem_boundary_table( idomain, P_msa_a01 ) = .TRUE. chem_dname_table( idomain, P_msa_a01 ) = 'msa_a01' chem_desc_table( idomain, P_msa_a01 ) = 'MSA, aerosol bin 01' chem_units_table( idomain, P_msa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a01 )%stream(2) = 2097216 F_msa_a01 = .TRUE. IF ( chem_index_table( PARAM_msa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a02 = chem_num_table(idomain) chem_index_table( PARAM_msa_a02 , idomain ) = P_msa_a02 ELSE P_msa_a02 = chem_index_table( PARAM_msa_a02 , idomain ) END IF chem_boundary_table( idomain, P_msa_a02 ) = .TRUE. chem_dname_table( idomain, P_msa_a02 ) = 'msa_a02' chem_desc_table( idomain, P_msa_a02 ) = 'MSA, aerosol bin 02' chem_units_table( idomain, P_msa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a02 )%stream(2) = 2097216 F_msa_a02 = .TRUE. IF ( chem_index_table( PARAM_msa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a03 = chem_num_table(idomain) chem_index_table( PARAM_msa_a03 , idomain ) = P_msa_a03 ELSE P_msa_a03 = chem_index_table( PARAM_msa_a03 , idomain ) END IF chem_boundary_table( idomain, P_msa_a03 ) = .TRUE. chem_dname_table( idomain, P_msa_a03 ) = 'msa_a03' chem_desc_table( idomain, P_msa_a03 ) = 'MSA, aerosol bin 03' chem_units_table( idomain, P_msa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a03 )%stream(2) = 2097216 F_msa_a03 = .TRUE. IF ( chem_index_table( PARAM_msa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a04 = chem_num_table(idomain) chem_index_table( PARAM_msa_a04 , idomain ) = P_msa_a04 ELSE P_msa_a04 = chem_index_table( PARAM_msa_a04 , idomain ) END IF chem_boundary_table( idomain, P_msa_a04 ) = .TRUE. chem_dname_table( idomain, P_msa_a04 ) = 'msa_a04' chem_desc_table( idomain, P_msa_a04 ) = 'MSA, aerosol bin 04' chem_units_table( idomain, P_msa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a04 )%stream(2) = 2097216 F_msa_a04 = .TRUE. IF ( chem_index_table( PARAM_msa_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a05 = chem_num_table(idomain) chem_index_table( PARAM_msa_a05 , idomain ) = P_msa_a05 ELSE P_msa_a05 = chem_index_table( PARAM_msa_a05 , idomain ) END IF chem_boundary_table( idomain, P_msa_a05 ) = .TRUE. chem_dname_table( idomain, P_msa_a05 ) = 'msa_a05' chem_desc_table( idomain, P_msa_a05 ) = 'MSA, aerosol bin 05' chem_units_table( idomain, P_msa_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a05 )%stream(2) = 2097216 F_msa_a05 = .TRUE. IF ( chem_index_table( PARAM_msa_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a06 = chem_num_table(idomain) chem_index_table( PARAM_msa_a06 , idomain ) = P_msa_a06 ELSE P_msa_a06 = chem_index_table( PARAM_msa_a06 , idomain ) END IF chem_boundary_table( idomain, P_msa_a06 ) = .TRUE. chem_dname_table( idomain, P_msa_a06 ) = 'msa_a06' chem_desc_table( idomain, P_msa_a06 ) = 'MSA, aerosol bin 06' chem_units_table( idomain, P_msa_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a06 )%stream(2) = 2097216 F_msa_a06 = .TRUE. IF ( chem_index_table( PARAM_msa_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a07 = chem_num_table(idomain) chem_index_table( PARAM_msa_a07 , idomain ) = P_msa_a07 ELSE P_msa_a07 = chem_index_table( PARAM_msa_a07 , idomain ) END IF chem_boundary_table( idomain, P_msa_a07 ) = .TRUE. chem_dname_table( idomain, P_msa_a07 ) = 'msa_a07' chem_desc_table( idomain, P_msa_a07 ) = 'MSA, aerosol bin 07' chem_units_table( idomain, P_msa_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a07 )%stream(2) = 2097216 F_msa_a07 = .TRUE. IF ( chem_index_table( PARAM_msa_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a08 = chem_num_table(idomain) chem_index_table( PARAM_msa_a08 , idomain ) = P_msa_a08 ELSE P_msa_a08 = chem_index_table( PARAM_msa_a08 , idomain ) END IF chem_boundary_table( idomain, P_msa_a08 ) = .TRUE. chem_dname_table( idomain, P_msa_a08 ) = 'msa_a08' chem_desc_table( idomain, P_msa_a08 ) = 'MSA, aerosol bin 08' chem_units_table( idomain, P_msa_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a08 )%stream(2) = 2097216 F_msa_a08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==34)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 F_mtf = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a05 = chem_num_table(idomain) chem_index_table( PARAM_ca_a05 , idomain ) = P_ca_a05 ELSE P_ca_a05 = chem_index_table( PARAM_ca_a05 , idomain ) END IF chem_boundary_table( idomain, P_ca_a05 ) = .TRUE. chem_dname_table( idomain, P_ca_a05 ) = 'ca_a05' chem_desc_table( idomain, P_ca_a05 ) = 'Calcium, aerosol bin 05' chem_units_table( idomain, P_ca_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a05 )%stream(2) = 2097216 F_ca_a05 = .TRUE. IF ( chem_index_table( PARAM_ca_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a06 = chem_num_table(idomain) chem_index_table( PARAM_ca_a06 , idomain ) = P_ca_a06 ELSE P_ca_a06 = chem_index_table( PARAM_ca_a06 , idomain ) END IF chem_boundary_table( idomain, P_ca_a06 ) = .TRUE. chem_dname_table( idomain, P_ca_a06 ) = 'ca_a06' chem_desc_table( idomain, P_ca_a06 ) = 'Calcium, aerosol bin 06' chem_units_table( idomain, P_ca_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a06 )%stream(2) = 2097216 F_ca_a06 = .TRUE. IF ( chem_index_table( PARAM_ca_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a07 = chem_num_table(idomain) chem_index_table( PARAM_ca_a07 , idomain ) = P_ca_a07 ELSE P_ca_a07 = chem_index_table( PARAM_ca_a07 , idomain ) END IF chem_boundary_table( idomain, P_ca_a07 ) = .TRUE. chem_dname_table( idomain, P_ca_a07 ) = 'ca_a07' chem_desc_table( idomain, P_ca_a07 ) = 'Calcium, aerosol bin 07' chem_units_table( idomain, P_ca_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a07 )%stream(2) = 2097216 F_ca_a07 = .TRUE. IF ( chem_index_table( PARAM_ca_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a08 = chem_num_table(idomain) chem_index_table( PARAM_ca_a08 , idomain ) = P_ca_a08 ELSE P_ca_a08 = chem_index_table( PARAM_ca_a08 , idomain ) END IF chem_boundary_table( idomain, P_ca_a08 ) = .TRUE. chem_dname_table( idomain, P_ca_a08 ) = 'ca_a08' chem_desc_table( idomain, P_ca_a08 ) = 'Calcium, aerosol bin 08' chem_units_table( idomain, P_ca_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a08 )%stream(2) = 2097216 F_ca_a08 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a05 = chem_num_table(idomain) chem_index_table( PARAM_co3_a05 , idomain ) = P_co3_a05 ELSE P_co3_a05 = chem_index_table( PARAM_co3_a05 , idomain ) END IF chem_boundary_table( idomain, P_co3_a05 ) = .TRUE. chem_dname_table( idomain, P_co3_a05 ) = 'co3_a05' chem_desc_table( idomain, P_co3_a05 ) = 'Carbonate, aerosol bin 05' chem_units_table( idomain, P_co3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a05 )%stream(2) = 2097216 F_co3_a05 = .TRUE. IF ( chem_index_table( PARAM_co3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a06 = chem_num_table(idomain) chem_index_table( PARAM_co3_a06 , idomain ) = P_co3_a06 ELSE P_co3_a06 = chem_index_table( PARAM_co3_a06 , idomain ) END IF chem_boundary_table( idomain, P_co3_a06 ) = .TRUE. chem_dname_table( idomain, P_co3_a06 ) = 'co3_a06' chem_desc_table( idomain, P_co3_a06 ) = 'Carbonate, aerosol bin 06' chem_units_table( idomain, P_co3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a06 )%stream(2) = 2097216 F_co3_a06 = .TRUE. IF ( chem_index_table( PARAM_co3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a07 = chem_num_table(idomain) chem_index_table( PARAM_co3_a07 , idomain ) = P_co3_a07 ELSE P_co3_a07 = chem_index_table( PARAM_co3_a07 , idomain ) END IF chem_boundary_table( idomain, P_co3_a07 ) = .TRUE. chem_dname_table( idomain, P_co3_a07 ) = 'co3_a07' chem_desc_table( idomain, P_co3_a07 ) = 'Carbonate, aerosol bin 07' chem_units_table( idomain, P_co3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a07 )%stream(2) = 2097216 F_co3_a07 = .TRUE. IF ( chem_index_table( PARAM_co3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a08 = chem_num_table(idomain) chem_index_table( PARAM_co3_a08 , idomain ) = P_co3_a08 ELSE P_co3_a08 = chem_index_table( PARAM_co3_a08 , idomain ) END IF chem_boundary_table( idomain, P_co3_a08 ) = .TRUE. chem_dname_table( idomain, P_co3_a08 ) = 'co3_a08' chem_desc_table( idomain, P_co3_a08 ) = 'Carbonate, aerosol bin 08' chem_units_table( idomain, P_co3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a08 )%stream(2) = 2097216 F_co3_a08 = .TRUE. IF ( chem_index_table( PARAM_msa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a01 = chem_num_table(idomain) chem_index_table( PARAM_msa_a01 , idomain ) = P_msa_a01 ELSE P_msa_a01 = chem_index_table( PARAM_msa_a01 , idomain ) END IF chem_boundary_table( idomain, P_msa_a01 ) = .TRUE. chem_dname_table( idomain, P_msa_a01 ) = 'msa_a01' chem_desc_table( idomain, P_msa_a01 ) = 'MSA, aerosol bin 01' chem_units_table( idomain, P_msa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a01 )%stream(2) = 2097216 F_msa_a01 = .TRUE. IF ( chem_index_table( PARAM_msa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a02 = chem_num_table(idomain) chem_index_table( PARAM_msa_a02 , idomain ) = P_msa_a02 ELSE P_msa_a02 = chem_index_table( PARAM_msa_a02 , idomain ) END IF chem_boundary_table( idomain, P_msa_a02 ) = .TRUE. chem_dname_table( idomain, P_msa_a02 ) = 'msa_a02' chem_desc_table( idomain, P_msa_a02 ) = 'MSA, aerosol bin 02' chem_units_table( idomain, P_msa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a02 )%stream(2) = 2097216 F_msa_a02 = .TRUE. IF ( chem_index_table( PARAM_msa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a03 = chem_num_table(idomain) chem_index_table( PARAM_msa_a03 , idomain ) = P_msa_a03 ELSE P_msa_a03 = chem_index_table( PARAM_msa_a03 , idomain ) END IF chem_boundary_table( idomain, P_msa_a03 ) = .TRUE. chem_dname_table( idomain, P_msa_a03 ) = 'msa_a03' chem_desc_table( idomain, P_msa_a03 ) = 'MSA, aerosol bin 03' chem_units_table( idomain, P_msa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a03 )%stream(2) = 2097216 F_msa_a03 = .TRUE. IF ( chem_index_table( PARAM_msa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a04 = chem_num_table(idomain) chem_index_table( PARAM_msa_a04 , idomain ) = P_msa_a04 ELSE P_msa_a04 = chem_index_table( PARAM_msa_a04 , idomain ) END IF chem_boundary_table( idomain, P_msa_a04 ) = .TRUE. chem_dname_table( idomain, P_msa_a04 ) = 'msa_a04' chem_desc_table( idomain, P_msa_a04 ) = 'MSA, aerosol bin 04' chem_units_table( idomain, P_msa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a04 )%stream(2) = 2097216 F_msa_a04 = .TRUE. IF ( chem_index_table( PARAM_msa_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a05 = chem_num_table(idomain) chem_index_table( PARAM_msa_a05 , idomain ) = P_msa_a05 ELSE P_msa_a05 = chem_index_table( PARAM_msa_a05 , idomain ) END IF chem_boundary_table( idomain, P_msa_a05 ) = .TRUE. chem_dname_table( idomain, P_msa_a05 ) = 'msa_a05' chem_desc_table( idomain, P_msa_a05 ) = 'MSA, aerosol bin 05' chem_units_table( idomain, P_msa_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a05 )%stream(2) = 2097216 F_msa_a05 = .TRUE. IF ( chem_index_table( PARAM_msa_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a06 = chem_num_table(idomain) chem_index_table( PARAM_msa_a06 , idomain ) = P_msa_a06 ELSE P_msa_a06 = chem_index_table( PARAM_msa_a06 , idomain ) END IF chem_boundary_table( idomain, P_msa_a06 ) = .TRUE. chem_dname_table( idomain, P_msa_a06 ) = 'msa_a06' chem_desc_table( idomain, P_msa_a06 ) = 'MSA, aerosol bin 06' chem_units_table( idomain, P_msa_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a06 )%stream(2) = 2097216 F_msa_a06 = .TRUE. IF ( chem_index_table( PARAM_msa_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a07 = chem_num_table(idomain) chem_index_table( PARAM_msa_a07 , idomain ) = P_msa_a07 ELSE P_msa_a07 = chem_index_table( PARAM_msa_a07 , idomain ) END IF chem_boundary_table( idomain, P_msa_a07 ) = .TRUE. chem_dname_table( idomain, P_msa_a07 ) = 'msa_a07' chem_desc_table( idomain, P_msa_a07 ) = 'MSA, aerosol bin 07' chem_units_table( idomain, P_msa_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a07 )%stream(2) = 2097216 F_msa_a07 = .TRUE. IF ( chem_index_table( PARAM_msa_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_a08 = chem_num_table(idomain) chem_index_table( PARAM_msa_a08 , idomain ) = P_msa_a08 ELSE P_msa_a08 = chem_index_table( PARAM_msa_a08 , idomain ) END IF chem_boundary_table( idomain, P_msa_a08 ) = .TRUE. chem_dname_table( idomain, P_msa_a08 ) = 'msa_a08' chem_desc_table( idomain, P_msa_a08 ) = 'MSA, aerosol bin 08' chem_units_table( idomain, P_msa_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_a08 )%stream(2) = 2097216 F_msa_a08 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw05 , idomain ) = P_so4_cw05 ELSE P_so4_cw05 = chem_index_table( PARAM_so4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw05 ) = .TRUE. chem_dname_table( idomain, P_so4_cw05 ) = 'so4_cw05' chem_desc_table( idomain, P_so4_cw05 ) = 'Sulfate, aerosol in cloud bin 05' chem_units_table( idomain, P_so4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw05 )%stream(2) = 2097216 F_so4_cw05 = .TRUE. IF ( chem_index_table( PARAM_no3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw05 , idomain ) = P_no3_cw05 ELSE P_no3_cw05 = chem_index_table( PARAM_no3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw05 ) = .TRUE. chem_dname_table( idomain, P_no3_cw05 ) = 'no3_cw05' chem_desc_table( idomain, P_no3_cw05 ) = 'Nitrate, aerosol in cloud bin 05' chem_units_table( idomain, P_no3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw05 )%stream(2) = 2097216 F_no3_cw05 = .TRUE. IF ( chem_index_table( PARAM_cl_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw05 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw05 , idomain ) = P_cl_cw05 ELSE P_cl_cw05 = chem_index_table( PARAM_cl_cw05 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw05 ) = .TRUE. chem_dname_table( idomain, P_cl_cw05 ) = 'cl_cw05' chem_desc_table( idomain, P_cl_cw05 ) = 'Chloride, aerosol in cloud bin 05' chem_units_table( idomain, P_cl_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw05 )%stream(2) = 2097216 F_cl_cw05 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw05 , idomain ) = P_nh4_cw05 ELSE P_nh4_cw05 = chem_index_table( PARAM_nh4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw05 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw05 ) = 'nh4_cw05' chem_desc_table( idomain, P_nh4_cw05 ) = 'Ammonium, aerosol in cloud bin 05' chem_units_table( idomain, P_nh4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw05 )%stream(2) = 2097216 F_nh4_cw05 = .TRUE. IF ( chem_index_table( PARAM_na_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw05 = chem_num_table(idomain) chem_index_table( PARAM_na_cw05 , idomain ) = P_na_cw05 ELSE P_na_cw05 = chem_index_table( PARAM_na_cw05 , idomain ) END IF chem_boundary_table( idomain, P_na_cw05 ) = .TRUE. chem_dname_table( idomain, P_na_cw05 ) = 'na_cw05' chem_desc_table( idomain, P_na_cw05 ) = 'Sodium, aerosol in cloud bin 05' chem_units_table( idomain, P_na_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw05 )%stream(2) = 2097216 F_na_cw05 = .TRUE. IF ( chem_index_table( PARAM_oin_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw05 , idomain ) = P_oin_cw05 ELSE P_oin_cw05 = chem_index_table( PARAM_oin_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw05 ) = .TRUE. chem_dname_table( idomain, P_oin_cw05 ) = 'oin_cw05' chem_desc_table( idomain, P_oin_cw05 ) = 'Other inorganics, aerosol in cloud bin 05' chem_units_table( idomain, P_oin_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw05 )%stream(2) = 2097216 F_oin_cw05 = .TRUE. IF ( chem_index_table( PARAM_oc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw05 , idomain ) = P_oc_cw05 ELSE P_oc_cw05 = chem_index_table( PARAM_oc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw05 ) = .TRUE. chem_dname_table( idomain, P_oc_cw05 ) = 'oc_cw05' chem_desc_table( idomain, P_oc_cw05 ) = 'Organic carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_oc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw05 )%stream(2) = 2097216 F_oc_cw05 = .TRUE. IF ( chem_index_table( PARAM_bc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw05 , idomain ) = P_bc_cw05 ELSE P_bc_cw05 = chem_index_table( PARAM_bc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw05 ) = .TRUE. chem_dname_table( idomain, P_bc_cw05 ) = 'bc_cw05' chem_desc_table( idomain, P_bc_cw05 ) = 'Black carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_bc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw05 )%stream(2) = 2097216 F_bc_cw05 = .TRUE. IF ( chem_index_table( PARAM_num_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw05 = chem_num_table(idomain) chem_index_table( PARAM_num_cw05 , idomain ) = P_num_cw05 ELSE P_num_cw05 = chem_index_table( PARAM_num_cw05 , idomain ) END IF chem_boundary_table( idomain, P_num_cw05 ) = .TRUE. chem_dname_table( idomain, P_num_cw05 ) = 'num_cw05' chem_desc_table( idomain, P_num_cw05 ) = 'Number, aerosol in cloud bin 05' chem_units_table( idomain, P_num_cw05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw05 )%stream(2) = 2097216 F_num_cw05 = .TRUE. IF ( chem_index_table( PARAM_so4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw06 , idomain ) = P_so4_cw06 ELSE P_so4_cw06 = chem_index_table( PARAM_so4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw06 ) = .TRUE. chem_dname_table( idomain, P_so4_cw06 ) = 'so4_cw06' chem_desc_table( idomain, P_so4_cw06 ) = 'Sulfate, aerosol in cloud bin 06' chem_units_table( idomain, P_so4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw06 )%stream(2) = 2097216 F_so4_cw06 = .TRUE. IF ( chem_index_table( PARAM_no3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw06 , idomain ) = P_no3_cw06 ELSE P_no3_cw06 = chem_index_table( PARAM_no3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw06 ) = .TRUE. chem_dname_table( idomain, P_no3_cw06 ) = 'no3_cw06' chem_desc_table( idomain, P_no3_cw06 ) = 'Nitrate, aerosol in cloud bin 06' chem_units_table( idomain, P_no3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw06 )%stream(2) = 2097216 F_no3_cw06 = .TRUE. IF ( chem_index_table( PARAM_cl_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw06 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw06 , idomain ) = P_cl_cw06 ELSE P_cl_cw06 = chem_index_table( PARAM_cl_cw06 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw06 ) = .TRUE. chem_dname_table( idomain, P_cl_cw06 ) = 'cl_cw06' chem_desc_table( idomain, P_cl_cw06 ) = 'Chloride, aerosol in cloud bin 06' chem_units_table( idomain, P_cl_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw06 )%stream(2) = 2097216 F_cl_cw06 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw06 , idomain ) = P_nh4_cw06 ELSE P_nh4_cw06 = chem_index_table( PARAM_nh4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw06 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw06 ) = 'nh4_cw06' chem_desc_table( idomain, P_nh4_cw06 ) = 'Ammonium, aerosol in cloud bin 06' chem_units_table( idomain, P_nh4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw06 )%stream(2) = 2097216 F_nh4_cw06 = .TRUE. IF ( chem_index_table( PARAM_na_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw06 = chem_num_table(idomain) chem_index_table( PARAM_na_cw06 , idomain ) = P_na_cw06 ELSE P_na_cw06 = chem_index_table( PARAM_na_cw06 , idomain ) END IF chem_boundary_table( idomain, P_na_cw06 ) = .TRUE. chem_dname_table( idomain, P_na_cw06 ) = 'na_cw06' chem_desc_table( idomain, P_na_cw06 ) = 'Sodium, aerosol in cloud bin 06' chem_units_table( idomain, P_na_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw06 )%stream(2) = 2097216 F_na_cw06 = .TRUE. IF ( chem_index_table( PARAM_oin_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw06 , idomain ) = P_oin_cw06 ELSE P_oin_cw06 = chem_index_table( PARAM_oin_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw06 ) = .TRUE. chem_dname_table( idomain, P_oin_cw06 ) = 'oin_cw06' chem_desc_table( idomain, P_oin_cw06 ) = 'Other inorganics, aerosol in cloud bin 06' chem_units_table( idomain, P_oin_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw06 )%stream(2) = 2097216 F_oin_cw06 = .TRUE. IF ( chem_index_table( PARAM_oc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw06 , idomain ) = P_oc_cw06 ELSE P_oc_cw06 = chem_index_table( PARAM_oc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw06 ) = .TRUE. chem_dname_table( idomain, P_oc_cw06 ) = 'oc_cw06' chem_desc_table( idomain, P_oc_cw06 ) = 'Organic carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_oc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw06 )%stream(2) = 2097216 F_oc_cw06 = .TRUE. IF ( chem_index_table( PARAM_bc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw06 , idomain ) = P_bc_cw06 ELSE P_bc_cw06 = chem_index_table( PARAM_bc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw06 ) = .TRUE. chem_dname_table( idomain, P_bc_cw06 ) = 'bc_cw06' chem_desc_table( idomain, P_bc_cw06 ) = 'Black carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_bc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw06 )%stream(2) = 2097216 F_bc_cw06 = .TRUE. IF ( chem_index_table( PARAM_num_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw06 = chem_num_table(idomain) chem_index_table( PARAM_num_cw06 , idomain ) = P_num_cw06 ELSE P_num_cw06 = chem_index_table( PARAM_num_cw06 , idomain ) END IF chem_boundary_table( idomain, P_num_cw06 ) = .TRUE. chem_dname_table( idomain, P_num_cw06 ) = 'num_cw06' chem_desc_table( idomain, P_num_cw06 ) = 'Number, aerosol in cloud bin 06' chem_units_table( idomain, P_num_cw06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw06 )%stream(2) = 2097216 F_num_cw06 = .TRUE. IF ( chem_index_table( PARAM_so4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw07 , idomain ) = P_so4_cw07 ELSE P_so4_cw07 = chem_index_table( PARAM_so4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw07 ) = .TRUE. chem_dname_table( idomain, P_so4_cw07 ) = 'so4_cw07' chem_desc_table( idomain, P_so4_cw07 ) = 'Sulfate, aerosol in cloud bin 07' chem_units_table( idomain, P_so4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw07 )%stream(2) = 2097216 F_so4_cw07 = .TRUE. IF ( chem_index_table( PARAM_no3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw07 , idomain ) = P_no3_cw07 ELSE P_no3_cw07 = chem_index_table( PARAM_no3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw07 ) = .TRUE. chem_dname_table( idomain, P_no3_cw07 ) = 'no3_cw07' chem_desc_table( idomain, P_no3_cw07 ) = 'Nitrate, aerosol in cloud bin 07' chem_units_table( idomain, P_no3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw07 )%stream(2) = 2097216 F_no3_cw07 = .TRUE. IF ( chem_index_table( PARAM_cl_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw07 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw07 , idomain ) = P_cl_cw07 ELSE P_cl_cw07 = chem_index_table( PARAM_cl_cw07 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw07 ) = .TRUE. chem_dname_table( idomain, P_cl_cw07 ) = 'cl_cw07' chem_desc_table( idomain, P_cl_cw07 ) = 'Chloride, aerosol in cloud bin 07' chem_units_table( idomain, P_cl_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw07 )%stream(2) = 2097216 F_cl_cw07 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw07 , idomain ) = P_nh4_cw07 ELSE P_nh4_cw07 = chem_index_table( PARAM_nh4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw07 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw07 ) = 'nh4_cw07' chem_desc_table( idomain, P_nh4_cw07 ) = 'Ammonium, aerosol in cloud bin 07' chem_units_table( idomain, P_nh4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw07 )%stream(2) = 2097216 F_nh4_cw07 = .TRUE. IF ( chem_index_table( PARAM_na_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw07 = chem_num_table(idomain) chem_index_table( PARAM_na_cw07 , idomain ) = P_na_cw07 ELSE P_na_cw07 = chem_index_table( PARAM_na_cw07 , idomain ) END IF chem_boundary_table( idomain, P_na_cw07 ) = .TRUE. chem_dname_table( idomain, P_na_cw07 ) = 'na_cw07' chem_desc_table( idomain, P_na_cw07 ) = 'Sodium, aerosol in cloud bin 07' chem_units_table( idomain, P_na_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw07 )%stream(2) = 2097216 F_na_cw07 = .TRUE. IF ( chem_index_table( PARAM_oin_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw07 , idomain ) = P_oin_cw07 ELSE P_oin_cw07 = chem_index_table( PARAM_oin_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw07 ) = .TRUE. chem_dname_table( idomain, P_oin_cw07 ) = 'oin_cw07' chem_desc_table( idomain, P_oin_cw07 ) = 'Other inorganics, aerosol in cloud bin 07' chem_units_table( idomain, P_oin_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw07 )%stream(2) = 2097216 F_oin_cw07 = .TRUE. IF ( chem_index_table( PARAM_oc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw07 , idomain ) = P_oc_cw07 ELSE P_oc_cw07 = chem_index_table( PARAM_oc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw07 ) = .TRUE. chem_dname_table( idomain, P_oc_cw07 ) = 'oc_cw07' chem_desc_table( idomain, P_oc_cw07 ) = 'Organic carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_oc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw07 )%stream(2) = 2097216 F_oc_cw07 = .TRUE. IF ( chem_index_table( PARAM_bc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw07 , idomain ) = P_bc_cw07 ELSE P_bc_cw07 = chem_index_table( PARAM_bc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw07 ) = .TRUE. chem_dname_table( idomain, P_bc_cw07 ) = 'bc_cw07' chem_desc_table( idomain, P_bc_cw07 ) = 'Black carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_bc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw07 )%stream(2) = 2097216 F_bc_cw07 = .TRUE. IF ( chem_index_table( PARAM_num_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw07 = chem_num_table(idomain) chem_index_table( PARAM_num_cw07 , idomain ) = P_num_cw07 ELSE P_num_cw07 = chem_index_table( PARAM_num_cw07 , idomain ) END IF chem_boundary_table( idomain, P_num_cw07 ) = .TRUE. chem_dname_table( idomain, P_num_cw07 ) = 'num_cw07' chem_desc_table( idomain, P_num_cw07 ) = 'Number, aerosol in cloud bin 07' chem_units_table( idomain, P_num_cw07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw07 )%stream(2) = 2097216 F_num_cw07 = .TRUE. IF ( chem_index_table( PARAM_so4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw08 , idomain ) = P_so4_cw08 ELSE P_so4_cw08 = chem_index_table( PARAM_so4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw08 ) = .TRUE. chem_dname_table( idomain, P_so4_cw08 ) = 'so4_cw08' chem_desc_table( idomain, P_so4_cw08 ) = 'Sulfate, aerosol in cloud bin 08' chem_units_table( idomain, P_so4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw08 )%stream(2) = 2097216 F_so4_cw08 = .TRUE. IF ( chem_index_table( PARAM_no3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw08 , idomain ) = P_no3_cw08 ELSE P_no3_cw08 = chem_index_table( PARAM_no3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw08 ) = .TRUE. chem_dname_table( idomain, P_no3_cw08 ) = 'no3_cw08' chem_desc_table( idomain, P_no3_cw08 ) = 'Nitrate, aerosol in cloud bin 08' chem_units_table( idomain, P_no3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw08 )%stream(2) = 2097216 F_no3_cw08 = .TRUE. IF ( chem_index_table( PARAM_cl_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw08 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw08 , idomain ) = P_cl_cw08 ELSE P_cl_cw08 = chem_index_table( PARAM_cl_cw08 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw08 ) = .TRUE. chem_dname_table( idomain, P_cl_cw08 ) = 'cl_cw08' chem_desc_table( idomain, P_cl_cw08 ) = 'Chloride, aerosol in cloud bin 08' chem_units_table( idomain, P_cl_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw08 )%stream(2) = 2097216 F_cl_cw08 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw08 , idomain ) = P_nh4_cw08 ELSE P_nh4_cw08 = chem_index_table( PARAM_nh4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw08 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw08 ) = 'nh4_cw08' chem_desc_table( idomain, P_nh4_cw08 ) = 'Ammonium, aerosol in cloud bin 08' chem_units_table( idomain, P_nh4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw08 )%stream(2) = 2097216 F_nh4_cw08 = .TRUE. IF ( chem_index_table( PARAM_na_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw08 = chem_num_table(idomain) chem_index_table( PARAM_na_cw08 , idomain ) = P_na_cw08 ELSE P_na_cw08 = chem_index_table( PARAM_na_cw08 , idomain ) END IF chem_boundary_table( idomain, P_na_cw08 ) = .TRUE. chem_dname_table( idomain, P_na_cw08 ) = 'na_cw08' chem_desc_table( idomain, P_na_cw08 ) = 'Sodium, aerosol in cloud bin 08' chem_units_table( idomain, P_na_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw08 )%stream(2) = 2097216 F_na_cw08 = .TRUE. IF ( chem_index_table( PARAM_oin_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw08 , idomain ) = P_oin_cw08 ELSE P_oin_cw08 = chem_index_table( PARAM_oin_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw08 ) = .TRUE. chem_dname_table( idomain, P_oin_cw08 ) = 'oin_cw08' chem_desc_table( idomain, P_oin_cw08 ) = 'Other inorganics, aerosol in cloud bin 08' chem_units_table( idomain, P_oin_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw08 )%stream(2) = 2097216 F_oin_cw08 = .TRUE. IF ( chem_index_table( PARAM_oc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw08 , idomain ) = P_oc_cw08 ELSE P_oc_cw08 = chem_index_table( PARAM_oc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw08 ) = .TRUE. chem_dname_table( idomain, P_oc_cw08 ) = 'oc_cw08' chem_desc_table( idomain, P_oc_cw08 ) = 'Organic carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_oc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw08 )%stream(2) = 2097216 F_oc_cw08 = .TRUE. IF ( chem_index_table( PARAM_bc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw08 , idomain ) = P_bc_cw08 ELSE P_bc_cw08 = chem_index_table( PARAM_bc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw08 ) = .TRUE. chem_dname_table( idomain, P_bc_cw08 ) = 'bc_cw08' chem_desc_table( idomain, P_bc_cw08 ) = 'Black carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_bc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw08 )%stream(2) = 2097216 F_bc_cw08 = .TRUE. IF ( chem_index_table( PARAM_num_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw08 = chem_num_table(idomain) chem_index_table( PARAM_num_cw08 , idomain ) = P_num_cw08 ELSE P_num_cw08 = chem_index_table( PARAM_num_cw08 , idomain ) END IF chem_boundary_table( idomain, P_num_cw08 ) = .TRUE. chem_dname_table( idomain, P_num_cw08 ) = 'num_cw08' chem_desc_table( idomain, P_num_cw08 ) = 'Number, aerosol in cloud bin 08' chem_units_table( idomain, P_num_cw08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw08 )%stream(2) = 2097216 F_num_cw08 = .TRUE. IF ( chem_index_table( PARAM_ca_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw01 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw01 , idomain ) = P_ca_cw01 ELSE P_ca_cw01 = chem_index_table( PARAM_ca_cw01 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw01 ) = .TRUE. chem_dname_table( idomain, P_ca_cw01 ) = 'ca_cw01' chem_desc_table( idomain, P_ca_cw01 ) = 'Calcium, aerosol in cloud bin 01' chem_units_table( idomain, P_ca_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw01 )%stream(2) = 2097216 F_ca_cw01 = .TRUE. IF ( chem_index_table( PARAM_ca_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw02 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw02 , idomain ) = P_ca_cw02 ELSE P_ca_cw02 = chem_index_table( PARAM_ca_cw02 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw02 ) = .TRUE. chem_dname_table( idomain, P_ca_cw02 ) = 'ca_cw02' chem_desc_table( idomain, P_ca_cw02 ) = 'Calcium, aerosol in cloud bin 02' chem_units_table( idomain, P_ca_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw02 )%stream(2) = 2097216 F_ca_cw02 = .TRUE. IF ( chem_index_table( PARAM_ca_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw03 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw03 , idomain ) = P_ca_cw03 ELSE P_ca_cw03 = chem_index_table( PARAM_ca_cw03 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw03 ) = .TRUE. chem_dname_table( idomain, P_ca_cw03 ) = 'ca_cw03' chem_desc_table( idomain, P_ca_cw03 ) = 'Calcium, aerosol in cloud bin 03' chem_units_table( idomain, P_ca_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw03 )%stream(2) = 2097216 F_ca_cw03 = .TRUE. IF ( chem_index_table( PARAM_ca_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw04 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw04 , idomain ) = P_ca_cw04 ELSE P_ca_cw04 = chem_index_table( PARAM_ca_cw04 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw04 ) = .TRUE. chem_dname_table( idomain, P_ca_cw04 ) = 'ca_cw04' chem_desc_table( idomain, P_ca_cw04 ) = 'Calcium, aerosol in cloud bin 04' chem_units_table( idomain, P_ca_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw04 )%stream(2) = 2097216 F_ca_cw04 = .TRUE. IF ( chem_index_table( PARAM_ca_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw05 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw05 , idomain ) = P_ca_cw05 ELSE P_ca_cw05 = chem_index_table( PARAM_ca_cw05 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw05 ) = .TRUE. chem_dname_table( idomain, P_ca_cw05 ) = 'ca_cw05' chem_desc_table( idomain, P_ca_cw05 ) = 'Calcium, aerosol in cloud bin 05' chem_units_table( idomain, P_ca_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw05 )%stream(2) = 2097216 F_ca_cw05 = .TRUE. IF ( chem_index_table( PARAM_ca_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw06 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw06 , idomain ) = P_ca_cw06 ELSE P_ca_cw06 = chem_index_table( PARAM_ca_cw06 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw06 ) = .TRUE. chem_dname_table( idomain, P_ca_cw06 ) = 'ca_cw06' chem_desc_table( idomain, P_ca_cw06 ) = 'Calcium, aerosol in cloud bin 06' chem_units_table( idomain, P_ca_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw06 )%stream(2) = 2097216 F_ca_cw06 = .TRUE. IF ( chem_index_table( PARAM_ca_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw07 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw07 , idomain ) = P_ca_cw07 ELSE P_ca_cw07 = chem_index_table( PARAM_ca_cw07 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw07 ) = .TRUE. chem_dname_table( idomain, P_ca_cw07 ) = 'ca_cw07' chem_desc_table( idomain, P_ca_cw07 ) = 'Calcium, aerosol in cloud bin 07' chem_units_table( idomain, P_ca_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw07 )%stream(2) = 2097216 F_ca_cw07 = .TRUE. IF ( chem_index_table( PARAM_ca_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw08 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw08 , idomain ) = P_ca_cw08 ELSE P_ca_cw08 = chem_index_table( PARAM_ca_cw08 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw08 ) = .TRUE. chem_dname_table( idomain, P_ca_cw08 ) = 'ca_cw08' chem_desc_table( idomain, P_ca_cw08 ) = 'Calcium, aerosol in cloud bin 08' chem_units_table( idomain, P_ca_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw08 )%stream(2) = 2097216 F_ca_cw08 = .TRUE. IF ( chem_index_table( PARAM_co3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw01 , idomain ) = P_co3_cw01 ELSE P_co3_cw01 = chem_index_table( PARAM_co3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw01 ) = .TRUE. chem_dname_table( idomain, P_co3_cw01 ) = 'co3_cw01' chem_desc_table( idomain, P_co3_cw01 ) = 'Carbonate, aerosol in cloud bin 01' chem_units_table( idomain, P_co3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw01 )%stream(2) = 2097216 F_co3_cw01 = .TRUE. IF ( chem_index_table( PARAM_co3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw02 , idomain ) = P_co3_cw02 ELSE P_co3_cw02 = chem_index_table( PARAM_co3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw02 ) = .TRUE. chem_dname_table( idomain, P_co3_cw02 ) = 'co3_cw02' chem_desc_table( idomain, P_co3_cw02 ) = 'Carbonate, aerosol in cloud bin 02' chem_units_table( idomain, P_co3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw02 )%stream(2) = 2097216 F_co3_cw02 = .TRUE. IF ( chem_index_table( PARAM_co3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw03 , idomain ) = P_co3_cw03 ELSE P_co3_cw03 = chem_index_table( PARAM_co3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw03 ) = .TRUE. chem_dname_table( idomain, P_co3_cw03 ) = 'co3_cw03' chem_desc_table( idomain, P_co3_cw03 ) = 'Carbonate, aerosol in cloud bin 03' chem_units_table( idomain, P_co3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw03 )%stream(2) = 2097216 F_co3_cw03 = .TRUE. IF ( chem_index_table( PARAM_co3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw04 , idomain ) = P_co3_cw04 ELSE P_co3_cw04 = chem_index_table( PARAM_co3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw04 ) = .TRUE. chem_dname_table( idomain, P_co3_cw04 ) = 'co3_cw04' chem_desc_table( idomain, P_co3_cw04 ) = 'Carbonate, aerosol in cloud bin 04' chem_units_table( idomain, P_co3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw04 )%stream(2) = 2097216 F_co3_cw04 = .TRUE. IF ( chem_index_table( PARAM_co3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw05 , idomain ) = P_co3_cw05 ELSE P_co3_cw05 = chem_index_table( PARAM_co3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw05 ) = .TRUE. chem_dname_table( idomain, P_co3_cw05 ) = 'co3_cw05' chem_desc_table( idomain, P_co3_cw05 ) = 'Carbonate, aerosol in cloud bin 05' chem_units_table( idomain, P_co3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw05 )%stream(2) = 2097216 F_co3_cw05 = .TRUE. IF ( chem_index_table( PARAM_co3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw06 , idomain ) = P_co3_cw06 ELSE P_co3_cw06 = chem_index_table( PARAM_co3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw06 ) = .TRUE. chem_dname_table( idomain, P_co3_cw06 ) = 'co3_cw06' chem_desc_table( idomain, P_co3_cw06 ) = 'Carbonate, aerosol in cloud bin 06' chem_units_table( idomain, P_co3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw06 )%stream(2) = 2097216 F_co3_cw06 = .TRUE. IF ( chem_index_table( PARAM_co3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw07 , idomain ) = P_co3_cw07 ELSE P_co3_cw07 = chem_index_table( PARAM_co3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw07 ) = .TRUE. chem_dname_table( idomain, P_co3_cw07 ) = 'co3_cw07' chem_desc_table( idomain, P_co3_cw07 ) = 'Carbonate, aerosol in cloud bin 07' chem_units_table( idomain, P_co3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw07 )%stream(2) = 2097216 F_co3_cw07 = .TRUE. IF ( chem_index_table( PARAM_co3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw08 , idomain ) = P_co3_cw08 ELSE P_co3_cw08 = chem_index_table( PARAM_co3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw08 ) = .TRUE. chem_dname_table( idomain, P_co3_cw08 ) = 'co3_cw08' chem_desc_table( idomain, P_co3_cw08 ) = 'Carbonate, aerosol in cloud bin 08' chem_units_table( idomain, P_co3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw08 )%stream(2) = 2097216 F_co3_cw08 = .TRUE. IF ( chem_index_table( PARAM_msa_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw01 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw01 , idomain ) = P_msa_cw01 ELSE P_msa_cw01 = chem_index_table( PARAM_msa_cw01 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw01 ) = .TRUE. chem_dname_table( idomain, P_msa_cw01 ) = 'msa_cw01' chem_desc_table( idomain, P_msa_cw01 ) = 'MSA, aerosol in cloud bin 01' chem_units_table( idomain, P_msa_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw01 )%stream(2) = 2097216 F_msa_cw01 = .TRUE. IF ( chem_index_table( PARAM_msa_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw02 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw02 , idomain ) = P_msa_cw02 ELSE P_msa_cw02 = chem_index_table( PARAM_msa_cw02 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw02 ) = .TRUE. chem_dname_table( idomain, P_msa_cw02 ) = 'msa_cw02' chem_desc_table( idomain, P_msa_cw02 ) = 'MSA, aerosol in cloud bin 02' chem_units_table( idomain, P_msa_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw02 )%stream(2) = 2097216 F_msa_cw02 = .TRUE. IF ( chem_index_table( PARAM_msa_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw03 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw03 , idomain ) = P_msa_cw03 ELSE P_msa_cw03 = chem_index_table( PARAM_msa_cw03 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw03 ) = .TRUE. chem_dname_table( idomain, P_msa_cw03 ) = 'msa_cw03' chem_desc_table( idomain, P_msa_cw03 ) = 'MSA, aerosol in cloud bin 03' chem_units_table( idomain, P_msa_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw03 )%stream(2) = 2097216 F_msa_cw03 = .TRUE. IF ( chem_index_table( PARAM_msa_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw04 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw04 , idomain ) = P_msa_cw04 ELSE P_msa_cw04 = chem_index_table( PARAM_msa_cw04 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw04 ) = .TRUE. chem_dname_table( idomain, P_msa_cw04 ) = 'msa_cw04' chem_desc_table( idomain, P_msa_cw04 ) = 'MSA, aerosol in cloud bin 04' chem_units_table( idomain, P_msa_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw04 )%stream(2) = 2097216 F_msa_cw04 = .TRUE. IF ( chem_index_table( PARAM_msa_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw05 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw05 , idomain ) = P_msa_cw05 ELSE P_msa_cw05 = chem_index_table( PARAM_msa_cw05 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw05 ) = .TRUE. chem_dname_table( idomain, P_msa_cw05 ) = 'msa_cw05' chem_desc_table( idomain, P_msa_cw05 ) = 'MSA, aerosol in cloud bin 05' chem_units_table( idomain, P_msa_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw05 )%stream(2) = 2097216 F_msa_cw05 = .TRUE. IF ( chem_index_table( PARAM_msa_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw06 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw06 , idomain ) = P_msa_cw06 ELSE P_msa_cw06 = chem_index_table( PARAM_msa_cw06 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw06 ) = .TRUE. chem_dname_table( idomain, P_msa_cw06 ) = 'msa_cw06' chem_desc_table( idomain, P_msa_cw06 ) = 'MSA, aerosol in cloud bin 06' chem_units_table( idomain, P_msa_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw06 )%stream(2) = 2097216 F_msa_cw06 = .TRUE. IF ( chem_index_table( PARAM_msa_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw07 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw07 , idomain ) = P_msa_cw07 ELSE P_msa_cw07 = chem_index_table( PARAM_msa_cw07 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw07 ) = .TRUE. chem_dname_table( idomain, P_msa_cw07 ) = 'msa_cw07' chem_desc_table( idomain, P_msa_cw07 ) = 'MSA, aerosol in cloud bin 07' chem_units_table( idomain, P_msa_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw07 )%stream(2) = 2097216 F_msa_cw07 = .TRUE. IF ( chem_index_table( PARAM_msa_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa_cw08 = chem_num_table(idomain) chem_index_table( PARAM_msa_cw08 , idomain ) = P_msa_cw08 ELSE P_msa_cw08 = chem_index_table( PARAM_msa_cw08 , idomain ) END IF chem_boundary_table( idomain, P_msa_cw08 ) = .TRUE. chem_dname_table( idomain, P_msa_cw08 ) = 'msa_cw08' chem_desc_table( idomain, P_msa_cw08 ) = 'MSA, aerosol in cloud bin 08' chem_units_table( idomain, P_msa_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_msa_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_msa_cw08 )%stream(2) = 2097216 F_msa_cw08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==35)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==41)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==42)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==43)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 F_nald = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==101)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==102)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 F_nald = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==103)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==104)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_pm_25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pm_25 = chem_num_table(idomain) chem_index_table( PARAM_pm_25 , idomain ) = P_pm_25 ELSE P_pm_25 = chem_index_table( PARAM_pm_25 , idomain ) END IF chem_boundary_table( idomain, P_pm_25 ) = .TRUE. chem_dname_table( idomain, P_pm_25 ) = 'pm_25' chem_desc_table( idomain, P_pm_25 ) = 'pm2.5 concentration' chem_units_table( idomain, P_pm_25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pm_25 )%stream(1) = 33554433 chem_streams_table( idomain, P_pm_25 )%stream(2) = 2097216 F_pm_25 = .TRUE. IF ( chem_index_table( PARAM_pm_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pm_10 = chem_num_table(idomain) chem_index_table( PARAM_pm_10 , idomain ) = P_pm_10 ELSE P_pm_10 = chem_index_table( PARAM_pm_10 , idomain ) END IF chem_boundary_table( idomain, P_pm_10 ) = .TRUE. chem_dname_table( idomain, P_pm_10 ) = 'pm_10' chem_desc_table( idomain, P_pm_10 ) = 'pm10 concentration' chem_units_table( idomain, P_pm_10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pm_10 )%stream(1) = 33554433 chem_streams_table( idomain, P_pm_10 )%stream(2) = 2097216 F_pm_10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==105)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==106)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==107)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 F_nald = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==108)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 F_nald = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 F_sesq = .TRUE. IF ( chem_index_table( PARAM_mbo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbo = chem_num_table(idomain) chem_index_table( PARAM_mbo , idomain ) = P_mbo ELSE P_mbo = chem_index_table( PARAM_mbo , idomain ) END IF chem_boundary_table( idomain, P_mbo ) = .TRUE. chem_dname_table( idomain, P_mbo ) = 'mbo' chem_desc_table( idomain, P_mbo ) = 'MBO (2-Methyl-3-Buten-2-ol) mixing ratio' chem_units_table( idomain, P_mbo ) = 'ppmv' chem_streams_table( idomain, P_mbo )%stream(1) = 33554433 chem_streams_table( idomain, P_mbo )%stream(2) = 2097216 F_mbo = .TRUE. IF ( chem_index_table( PARAM_cvasoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa1 , idomain ) = P_cvasoa1 ELSE P_cvasoa1 = chem_index_table( PARAM_cvasoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa1 ) = .TRUE. chem_dname_table( idomain, P_cvasoa1 ) = 'cvasoa1' chem_desc_table( idomain, P_cvasoa1 ) = 'cond.vapor from ASOA1' chem_units_table( idomain, P_cvasoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa1 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa1 )%stream(2) = 2097216 F_cvasoa1 = .TRUE. IF ( chem_index_table( PARAM_cvasoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa2 , idomain ) = P_cvasoa2 ELSE P_cvasoa2 = chem_index_table( PARAM_cvasoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa2 ) = .TRUE. chem_dname_table( idomain, P_cvasoa2 ) = 'cvasoa2' chem_desc_table( idomain, P_cvasoa2 ) = 'cond.vapor from ASOA2' chem_units_table( idomain, P_cvasoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa2 )%stream(2) = 2097216 F_cvasoa2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa3 , idomain ) = P_cvasoa3 ELSE P_cvasoa3 = chem_index_table( PARAM_cvasoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa3 ) = .TRUE. chem_dname_table( idomain, P_cvasoa3 ) = 'cvasoa3' chem_desc_table( idomain, P_cvasoa3 ) = 'cond.vapor from ASOA3' chem_units_table( idomain, P_cvasoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa3 )%stream(2) = 2097216 F_cvasoa3 = .TRUE. IF ( chem_index_table( PARAM_cvasoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa4 , idomain ) = P_cvasoa4 ELSE P_cvasoa4 = chem_index_table( PARAM_cvasoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa4 ) = .TRUE. chem_dname_table( idomain, P_cvasoa4 ) = 'cvasoa4' chem_desc_table( idomain, P_cvasoa4 ) = 'cond.vapor from ASOA4' chem_units_table( idomain, P_cvasoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa4 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa4 )%stream(2) = 2097216 F_cvasoa4 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa1 , idomain ) = P_cvbsoa1 ELSE P_cvbsoa1 = chem_index_table( PARAM_cvbsoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa1 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa1 ) = 'cvbsoa1' chem_desc_table( idomain, P_cvbsoa1 ) = 'cond.vapor from BSOA1' chem_units_table( idomain, P_cvbsoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa1 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa1 )%stream(2) = 2097216 F_cvbsoa1 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa2 , idomain ) = P_cvbsoa2 ELSE P_cvbsoa2 = chem_index_table( PARAM_cvbsoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa2 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa2 ) = 'cvbsoa2' chem_desc_table( idomain, P_cvbsoa2 ) = 'cond.vapor from BSOA2' chem_units_table( idomain, P_cvbsoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa2 )%stream(2) = 2097216 F_cvbsoa2 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa3 , idomain ) = P_cvbsoa3 ELSE P_cvbsoa3 = chem_index_table( PARAM_cvbsoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa3 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa3 ) = 'cvbsoa3' chem_desc_table( idomain, P_cvbsoa3 ) = 'cond.vapor from BSOA3' chem_units_table( idomain, P_cvbsoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa3 )%stream(2) = 2097216 F_cvbsoa3 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa4 , idomain ) = P_cvbsoa4 ELSE P_cvbsoa4 = chem_index_table( PARAM_cvbsoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa4 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa4 ) = 'cvbsoa4' chem_desc_table( idomain, P_cvbsoa4 ) = 'cond.vapor from BSOA4' chem_units_table( idomain, P_cvbsoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa4 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa4 )%stream(2) = 2097216 F_cvbsoa4 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_asoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1j = chem_num_table(idomain) chem_index_table( PARAM_asoa1j , idomain ) = P_asoa1j ELSE P_asoa1j = chem_index_table( PARAM_asoa1j , idomain ) END IF chem_boundary_table( idomain, P_asoa1j ) = .TRUE. chem_dname_table( idomain, P_asoa1j ) = 'asoa1j' chem_desc_table( idomain, P_asoa1j ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1j )%stream(2) = 2097216 F_asoa1j = .TRUE. IF ( chem_index_table( PARAM_asoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1i = chem_num_table(idomain) chem_index_table( PARAM_asoa1i , idomain ) = P_asoa1i ELSE P_asoa1i = chem_index_table( PARAM_asoa1i , idomain ) END IF chem_boundary_table( idomain, P_asoa1i ) = .TRUE. chem_dname_table( idomain, P_asoa1i ) = 'asoa1i' chem_desc_table( idomain, P_asoa1i ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1i )%stream(2) = 2097216 F_asoa1i = .TRUE. IF ( chem_index_table( PARAM_asoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2j = chem_num_table(idomain) chem_index_table( PARAM_asoa2j , idomain ) = P_asoa2j ELSE P_asoa2j = chem_index_table( PARAM_asoa2j , idomain ) END IF chem_boundary_table( idomain, P_asoa2j ) = .TRUE. chem_dname_table( idomain, P_asoa2j ) = 'asoa2j' chem_desc_table( idomain, P_asoa2j ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2j )%stream(2) = 2097216 F_asoa2j = .TRUE. IF ( chem_index_table( PARAM_asoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2i = chem_num_table(idomain) chem_index_table( PARAM_asoa2i , idomain ) = P_asoa2i ELSE P_asoa2i = chem_index_table( PARAM_asoa2i , idomain ) END IF chem_boundary_table( idomain, P_asoa2i ) = .TRUE. chem_dname_table( idomain, P_asoa2i ) = 'asoa2i' chem_desc_table( idomain, P_asoa2i ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2i )%stream(2) = 2097216 F_asoa2i = .TRUE. IF ( chem_index_table( PARAM_asoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3j = chem_num_table(idomain) chem_index_table( PARAM_asoa3j , idomain ) = P_asoa3j ELSE P_asoa3j = chem_index_table( PARAM_asoa3j , idomain ) END IF chem_boundary_table( idomain, P_asoa3j ) = .TRUE. chem_dname_table( idomain, P_asoa3j ) = 'asoa3j' chem_desc_table( idomain, P_asoa3j ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3j )%stream(2) = 2097216 F_asoa3j = .TRUE. IF ( chem_index_table( PARAM_asoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3i = chem_num_table(idomain) chem_index_table( PARAM_asoa3i , idomain ) = P_asoa3i ELSE P_asoa3i = chem_index_table( PARAM_asoa3i , idomain ) END IF chem_boundary_table( idomain, P_asoa3i ) = .TRUE. chem_dname_table( idomain, P_asoa3i ) = 'asoa3i' chem_desc_table( idomain, P_asoa3i ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3i )%stream(2) = 2097216 F_asoa3i = .TRUE. IF ( chem_index_table( PARAM_asoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4j = chem_num_table(idomain) chem_index_table( PARAM_asoa4j , idomain ) = P_asoa4j ELSE P_asoa4j = chem_index_table( PARAM_asoa4j , idomain ) END IF chem_boundary_table( idomain, P_asoa4j ) = .TRUE. chem_dname_table( idomain, P_asoa4j ) = 'asoa4j' chem_desc_table( idomain, P_asoa4j ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4j )%stream(2) = 2097216 F_asoa4j = .TRUE. IF ( chem_index_table( PARAM_asoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4i = chem_num_table(idomain) chem_index_table( PARAM_asoa4i , idomain ) = P_asoa4i ELSE P_asoa4i = chem_index_table( PARAM_asoa4i , idomain ) END IF chem_boundary_table( idomain, P_asoa4i ) = .TRUE. chem_dname_table( idomain, P_asoa4i ) = 'asoa4i' chem_desc_table( idomain, P_asoa4i ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4i )%stream(2) = 2097216 F_asoa4i = .TRUE. IF ( chem_index_table( PARAM_bsoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1j = chem_num_table(idomain) chem_index_table( PARAM_bsoa1j , idomain ) = P_bsoa1j ELSE P_bsoa1j = chem_index_table( PARAM_bsoa1j , idomain ) END IF chem_boundary_table( idomain, P_bsoa1j ) = .TRUE. chem_dname_table( idomain, P_bsoa1j ) = 'bsoa1j' chem_desc_table( idomain, P_bsoa1j ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1j )%stream(2) = 2097216 F_bsoa1j = .TRUE. IF ( chem_index_table( PARAM_bsoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1i = chem_num_table(idomain) chem_index_table( PARAM_bsoa1i , idomain ) = P_bsoa1i ELSE P_bsoa1i = chem_index_table( PARAM_bsoa1i , idomain ) END IF chem_boundary_table( idomain, P_bsoa1i ) = .TRUE. chem_dname_table( idomain, P_bsoa1i ) = 'bsoa1i' chem_desc_table( idomain, P_bsoa1i ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1i )%stream(2) = 2097216 F_bsoa1i = .TRUE. IF ( chem_index_table( PARAM_bsoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2j = chem_num_table(idomain) chem_index_table( PARAM_bsoa2j , idomain ) = P_bsoa2j ELSE P_bsoa2j = chem_index_table( PARAM_bsoa2j , idomain ) END IF chem_boundary_table( idomain, P_bsoa2j ) = .TRUE. chem_dname_table( idomain, P_bsoa2j ) = 'bsoa2j' chem_desc_table( idomain, P_bsoa2j ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2j )%stream(2) = 2097216 F_bsoa2j = .TRUE. IF ( chem_index_table( PARAM_bsoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2i = chem_num_table(idomain) chem_index_table( PARAM_bsoa2i , idomain ) = P_bsoa2i ELSE P_bsoa2i = chem_index_table( PARAM_bsoa2i , idomain ) END IF chem_boundary_table( idomain, P_bsoa2i ) = .TRUE. chem_dname_table( idomain, P_bsoa2i ) = 'bsoa2i' chem_desc_table( idomain, P_bsoa2i ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2i )%stream(2) = 2097216 F_bsoa2i = .TRUE. IF ( chem_index_table( PARAM_bsoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3j = chem_num_table(idomain) chem_index_table( PARAM_bsoa3j , idomain ) = P_bsoa3j ELSE P_bsoa3j = chem_index_table( PARAM_bsoa3j , idomain ) END IF chem_boundary_table( idomain, P_bsoa3j ) = .TRUE. chem_dname_table( idomain, P_bsoa3j ) = 'bsoa3j' chem_desc_table( idomain, P_bsoa3j ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3j )%stream(2) = 2097216 F_bsoa3j = .TRUE. IF ( chem_index_table( PARAM_bsoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3i = chem_num_table(idomain) chem_index_table( PARAM_bsoa3i , idomain ) = P_bsoa3i ELSE P_bsoa3i = chem_index_table( PARAM_bsoa3i , idomain ) END IF chem_boundary_table( idomain, P_bsoa3i ) = .TRUE. chem_dname_table( idomain, P_bsoa3i ) = 'bsoa3i' chem_desc_table( idomain, P_bsoa3i ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3i )%stream(2) = 2097216 F_bsoa3i = .TRUE. IF ( chem_index_table( PARAM_bsoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4j = chem_num_table(idomain) chem_index_table( PARAM_bsoa4j , idomain ) = P_bsoa4j ELSE P_bsoa4j = chem_index_table( PARAM_bsoa4j , idomain ) END IF chem_boundary_table( idomain, P_bsoa4j ) = .TRUE. chem_dname_table( idomain, P_bsoa4j ) = 'bsoa4j' chem_desc_table( idomain, P_bsoa4j ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4j )%stream(2) = 2097216 F_bsoa4j = .TRUE. IF ( chem_index_table( PARAM_bsoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4i = chem_num_table(idomain) chem_index_table( PARAM_bsoa4i , idomain ) = P_bsoa4i ELSE P_bsoa4i = chem_index_table( PARAM_bsoa4i , idomain ) END IF chem_boundary_table( idomain, P_bsoa4i ) = .TRUE. chem_dname_table( idomain, P_bsoa4i ) = 'bsoa4i' chem_desc_table( idomain, P_bsoa4i ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4i )%stream(2) = 2097216 F_bsoa4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==109)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_hace , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hace = chem_num_table(idomain) chem_index_table( PARAM_hace , idomain ) = P_hace ELSE P_hace = chem_index_table( PARAM_hace , idomain ) END IF chem_boundary_table( idomain, P_hace ) = .TRUE. chem_dname_table( idomain, P_hace ) = 'hace' chem_desc_table( idomain, P_hace ) = 'HACE concentration' chem_units_table( idomain, P_hace ) = 'ppm' chem_streams_table( idomain, P_hace )%stream(1) = 33554433 chem_streams_table( idomain, P_hace )%stream(2) = 2097216 F_hace = .TRUE. IF ( chem_index_table( PARAM_ishp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ishp = chem_num_table(idomain) chem_index_table( PARAM_ishp , idomain ) = P_ishp ELSE P_ishp = chem_index_table( PARAM_ishp , idomain ) END IF chem_boundary_table( idomain, P_ishp ) = .TRUE. chem_dname_table( idomain, P_ishp ) = 'ishp' chem_desc_table( idomain, P_ishp ) = 'ISHP concentration' chem_units_table( idomain, P_ishp ) = 'ppm' chem_streams_table( idomain, P_ishp )%stream(1) = 33554433 chem_streams_table( idomain, P_ishp )%stream(2) = 2097216 F_ishp = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 F_ison = .TRUE. IF ( chem_index_table( PARAM_mahp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mahp = chem_num_table(idomain) chem_index_table( PARAM_mahp , idomain ) = P_mahp ELSE P_mahp = chem_index_table( PARAM_mahp , idomain ) END IF chem_boundary_table( idomain, P_mahp ) = .TRUE. chem_dname_table( idomain, P_mahp ) = 'mahp' chem_desc_table( idomain, P_mahp ) = 'MAHP concentration' chem_units_table( idomain, P_mahp ) = 'ppm' chem_streams_table( idomain, P_mahp )%stream(1) = 33554433 chem_streams_table( idomain, P_mahp )%stream(2) = 2097216 F_mahp = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_nald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nald = chem_num_table(idomain) chem_index_table( PARAM_nald , idomain ) = P_nald ELSE P_nald = chem_index_table( PARAM_nald , idomain ) END IF chem_boundary_table( idomain, P_nald ) = .TRUE. chem_dname_table( idomain, P_nald ) = 'nald' chem_desc_table( idomain, P_nald ) = 'NALD concentration' chem_units_table( idomain, P_nald ) = 'ppm' chem_streams_table( idomain, P_nald )%stream(1) = 33554433 chem_streams_table( idomain, P_nald )%stream(2) = 2097216 F_nald = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 F_sesq = .TRUE. IF ( chem_index_table( PARAM_mbo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbo = chem_num_table(idomain) chem_index_table( PARAM_mbo , idomain ) = P_mbo ELSE P_mbo = chem_index_table( PARAM_mbo , idomain ) END IF chem_boundary_table( idomain, P_mbo ) = .TRUE. chem_dname_table( idomain, P_mbo ) = 'mbo' chem_desc_table( idomain, P_mbo ) = 'MBO (2-Methyl-3-Buten-2-ol) mixing ratio' chem_units_table( idomain, P_mbo ) = 'ppmv' chem_streams_table( idomain, P_mbo )%stream(1) = 33554433 chem_streams_table( idomain, P_mbo )%stream(2) = 2097216 F_mbo = .TRUE. IF ( chem_index_table( PARAM_cvasoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa1 , idomain ) = P_cvasoa1 ELSE P_cvasoa1 = chem_index_table( PARAM_cvasoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa1 ) = .TRUE. chem_dname_table( idomain, P_cvasoa1 ) = 'cvasoa1' chem_desc_table( idomain, P_cvasoa1 ) = 'cond.vapor from ASOA1' chem_units_table( idomain, P_cvasoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa1 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa1 )%stream(2) = 2097216 F_cvasoa1 = .TRUE. IF ( chem_index_table( PARAM_cvasoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa2 , idomain ) = P_cvasoa2 ELSE P_cvasoa2 = chem_index_table( PARAM_cvasoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa2 ) = .TRUE. chem_dname_table( idomain, P_cvasoa2 ) = 'cvasoa2' chem_desc_table( idomain, P_cvasoa2 ) = 'cond.vapor from ASOA2' chem_units_table( idomain, P_cvasoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa2 )%stream(2) = 2097216 F_cvasoa2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa3 , idomain ) = P_cvasoa3 ELSE P_cvasoa3 = chem_index_table( PARAM_cvasoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa3 ) = .TRUE. chem_dname_table( idomain, P_cvasoa3 ) = 'cvasoa3' chem_desc_table( idomain, P_cvasoa3 ) = 'cond.vapor from ASOA3' chem_units_table( idomain, P_cvasoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa3 )%stream(2) = 2097216 F_cvasoa3 = .TRUE. IF ( chem_index_table( PARAM_cvasoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa4 , idomain ) = P_cvasoa4 ELSE P_cvasoa4 = chem_index_table( PARAM_cvasoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa4 ) = .TRUE. chem_dname_table( idomain, P_cvasoa4 ) = 'cvasoa4' chem_desc_table( idomain, P_cvasoa4 ) = 'cond.vapor from ASOA4' chem_units_table( idomain, P_cvasoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa4 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa4 )%stream(2) = 2097216 F_cvasoa4 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa1 , idomain ) = P_cvbsoa1 ELSE P_cvbsoa1 = chem_index_table( PARAM_cvbsoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa1 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa1 ) = 'cvbsoa1' chem_desc_table( idomain, P_cvbsoa1 ) = 'cond.vapor from BSOA1' chem_units_table( idomain, P_cvbsoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa1 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa1 )%stream(2) = 2097216 F_cvbsoa1 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa2 , idomain ) = P_cvbsoa2 ELSE P_cvbsoa2 = chem_index_table( PARAM_cvbsoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa2 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa2 ) = 'cvbsoa2' chem_desc_table( idomain, P_cvbsoa2 ) = 'cond.vapor from BSOA2' chem_units_table( idomain, P_cvbsoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa2 )%stream(2) = 2097216 F_cvbsoa2 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa3 , idomain ) = P_cvbsoa3 ELSE P_cvbsoa3 = chem_index_table( PARAM_cvbsoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa3 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa3 ) = 'cvbsoa3' chem_desc_table( idomain, P_cvbsoa3 ) = 'cond.vapor from BSOA3' chem_units_table( idomain, P_cvbsoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa3 )%stream(2) = 2097216 F_cvbsoa3 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa4 , idomain ) = P_cvbsoa4 ELSE P_cvbsoa4 = chem_index_table( PARAM_cvbsoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa4 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa4 ) = 'cvbsoa4' chem_desc_table( idomain, P_cvbsoa4 ) = 'cond.vapor from BSOA4' chem_units_table( idomain, P_cvbsoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa4 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa4 )%stream(2) = 2097216 F_cvbsoa4 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_asoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1j = chem_num_table(idomain) chem_index_table( PARAM_asoa1j , idomain ) = P_asoa1j ELSE P_asoa1j = chem_index_table( PARAM_asoa1j , idomain ) END IF chem_boundary_table( idomain, P_asoa1j ) = .TRUE. chem_dname_table( idomain, P_asoa1j ) = 'asoa1j' chem_desc_table( idomain, P_asoa1j ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1j )%stream(2) = 2097216 F_asoa1j = .TRUE. IF ( chem_index_table( PARAM_asoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1i = chem_num_table(idomain) chem_index_table( PARAM_asoa1i , idomain ) = P_asoa1i ELSE P_asoa1i = chem_index_table( PARAM_asoa1i , idomain ) END IF chem_boundary_table( idomain, P_asoa1i ) = .TRUE. chem_dname_table( idomain, P_asoa1i ) = 'asoa1i' chem_desc_table( idomain, P_asoa1i ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1i )%stream(2) = 2097216 F_asoa1i = .TRUE. IF ( chem_index_table( PARAM_asoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2j = chem_num_table(idomain) chem_index_table( PARAM_asoa2j , idomain ) = P_asoa2j ELSE P_asoa2j = chem_index_table( PARAM_asoa2j , idomain ) END IF chem_boundary_table( idomain, P_asoa2j ) = .TRUE. chem_dname_table( idomain, P_asoa2j ) = 'asoa2j' chem_desc_table( idomain, P_asoa2j ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2j )%stream(2) = 2097216 F_asoa2j = .TRUE. IF ( chem_index_table( PARAM_asoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2i = chem_num_table(idomain) chem_index_table( PARAM_asoa2i , idomain ) = P_asoa2i ELSE P_asoa2i = chem_index_table( PARAM_asoa2i , idomain ) END IF chem_boundary_table( idomain, P_asoa2i ) = .TRUE. chem_dname_table( idomain, P_asoa2i ) = 'asoa2i' chem_desc_table( idomain, P_asoa2i ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2i )%stream(2) = 2097216 F_asoa2i = .TRUE. IF ( chem_index_table( PARAM_asoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3j = chem_num_table(idomain) chem_index_table( PARAM_asoa3j , idomain ) = P_asoa3j ELSE P_asoa3j = chem_index_table( PARAM_asoa3j , idomain ) END IF chem_boundary_table( idomain, P_asoa3j ) = .TRUE. chem_dname_table( idomain, P_asoa3j ) = 'asoa3j' chem_desc_table( idomain, P_asoa3j ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3j )%stream(2) = 2097216 F_asoa3j = .TRUE. IF ( chem_index_table( PARAM_asoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3i = chem_num_table(idomain) chem_index_table( PARAM_asoa3i , idomain ) = P_asoa3i ELSE P_asoa3i = chem_index_table( PARAM_asoa3i , idomain ) END IF chem_boundary_table( idomain, P_asoa3i ) = .TRUE. chem_dname_table( idomain, P_asoa3i ) = 'asoa3i' chem_desc_table( idomain, P_asoa3i ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3i )%stream(2) = 2097216 F_asoa3i = .TRUE. IF ( chem_index_table( PARAM_asoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4j = chem_num_table(idomain) chem_index_table( PARAM_asoa4j , idomain ) = P_asoa4j ELSE P_asoa4j = chem_index_table( PARAM_asoa4j , idomain ) END IF chem_boundary_table( idomain, P_asoa4j ) = .TRUE. chem_dname_table( idomain, P_asoa4j ) = 'asoa4j' chem_desc_table( idomain, P_asoa4j ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4j )%stream(2) = 2097216 F_asoa4j = .TRUE. IF ( chem_index_table( PARAM_asoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4i = chem_num_table(idomain) chem_index_table( PARAM_asoa4i , idomain ) = P_asoa4i ELSE P_asoa4i = chem_index_table( PARAM_asoa4i , idomain ) END IF chem_boundary_table( idomain, P_asoa4i ) = .TRUE. chem_dname_table( idomain, P_asoa4i ) = 'asoa4i' chem_desc_table( idomain, P_asoa4i ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4i )%stream(2) = 2097216 F_asoa4i = .TRUE. IF ( chem_index_table( PARAM_bsoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1j = chem_num_table(idomain) chem_index_table( PARAM_bsoa1j , idomain ) = P_bsoa1j ELSE P_bsoa1j = chem_index_table( PARAM_bsoa1j , idomain ) END IF chem_boundary_table( idomain, P_bsoa1j ) = .TRUE. chem_dname_table( idomain, P_bsoa1j ) = 'bsoa1j' chem_desc_table( idomain, P_bsoa1j ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1j )%stream(2) = 2097216 F_bsoa1j = .TRUE. IF ( chem_index_table( PARAM_bsoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1i = chem_num_table(idomain) chem_index_table( PARAM_bsoa1i , idomain ) = P_bsoa1i ELSE P_bsoa1i = chem_index_table( PARAM_bsoa1i , idomain ) END IF chem_boundary_table( idomain, P_bsoa1i ) = .TRUE. chem_dname_table( idomain, P_bsoa1i ) = 'bsoa1i' chem_desc_table( idomain, P_bsoa1i ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1i )%stream(2) = 2097216 F_bsoa1i = .TRUE. IF ( chem_index_table( PARAM_bsoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2j = chem_num_table(idomain) chem_index_table( PARAM_bsoa2j , idomain ) = P_bsoa2j ELSE P_bsoa2j = chem_index_table( PARAM_bsoa2j , idomain ) END IF chem_boundary_table( idomain, P_bsoa2j ) = .TRUE. chem_dname_table( idomain, P_bsoa2j ) = 'bsoa2j' chem_desc_table( idomain, P_bsoa2j ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2j )%stream(2) = 2097216 F_bsoa2j = .TRUE. IF ( chem_index_table( PARAM_bsoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2i = chem_num_table(idomain) chem_index_table( PARAM_bsoa2i , idomain ) = P_bsoa2i ELSE P_bsoa2i = chem_index_table( PARAM_bsoa2i , idomain ) END IF chem_boundary_table( idomain, P_bsoa2i ) = .TRUE. chem_dname_table( idomain, P_bsoa2i ) = 'bsoa2i' chem_desc_table( idomain, P_bsoa2i ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2i )%stream(2) = 2097216 F_bsoa2i = .TRUE. IF ( chem_index_table( PARAM_bsoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3j = chem_num_table(idomain) chem_index_table( PARAM_bsoa3j , idomain ) = P_bsoa3j ELSE P_bsoa3j = chem_index_table( PARAM_bsoa3j , idomain ) END IF chem_boundary_table( idomain, P_bsoa3j ) = .TRUE. chem_dname_table( idomain, P_bsoa3j ) = 'bsoa3j' chem_desc_table( idomain, P_bsoa3j ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3j )%stream(2) = 2097216 F_bsoa3j = .TRUE. IF ( chem_index_table( PARAM_bsoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3i = chem_num_table(idomain) chem_index_table( PARAM_bsoa3i , idomain ) = P_bsoa3i ELSE P_bsoa3i = chem_index_table( PARAM_bsoa3i , idomain ) END IF chem_boundary_table( idomain, P_bsoa3i ) = .TRUE. chem_dname_table( idomain, P_bsoa3i ) = 'bsoa3i' chem_desc_table( idomain, P_bsoa3i ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3i )%stream(2) = 2097216 F_bsoa3i = .TRUE. IF ( chem_index_table( PARAM_bsoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4j = chem_num_table(idomain) chem_index_table( PARAM_bsoa4j , idomain ) = P_bsoa4j ELSE P_bsoa4j = chem_index_table( PARAM_bsoa4j , idomain ) END IF chem_boundary_table( idomain, P_bsoa4j ) = .TRUE. chem_dname_table( idomain, P_bsoa4j ) = 'bsoa4j' chem_desc_table( idomain, P_bsoa4j ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4j )%stream(2) = 2097216 F_bsoa4j = .TRUE. IF ( chem_index_table( PARAM_bsoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4i = chem_num_table(idomain) chem_index_table( PARAM_bsoa4i , idomain ) = P_bsoa4i ELSE P_bsoa4i = chem_index_table( PARAM_bsoa4i , idomain ) END IF chem_boundary_table( idomain, P_bsoa4i ) = .TRUE. chem_dname_table( idomain, P_bsoa4i ) = 'bsoa4i' chem_desc_table( idomain, P_bsoa4i ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4i )%stream(2) = 2097216 F_bsoa4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_asoa1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa1cwj , idomain ) = P_asoa1cwj ELSE P_asoa1cwj = chem_index_table( PARAM_asoa1cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa1cwj ) = .TRUE. chem_dname_table( idomain, P_asoa1cwj ) = 'asoa1cwj' chem_desc_table( idomain, P_asoa1cwj ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1cwj )%stream(2) = 2097216 F_asoa1cwj = .TRUE. IF ( chem_index_table( PARAM_asoa1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa1cwi , idomain ) = P_asoa1cwi ELSE P_asoa1cwi = chem_index_table( PARAM_asoa1cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa1cwi ) = .TRUE. chem_dname_table( idomain, P_asoa1cwi ) = 'asoa1cwi' chem_desc_table( idomain, P_asoa1cwi ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1cwi )%stream(2) = 2097216 F_asoa1cwi = .TRUE. IF ( chem_index_table( PARAM_asoa2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwj , idomain ) = P_asoa2cwj ELSE P_asoa2cwj = chem_index_table( PARAM_asoa2cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwj ) = .TRUE. chem_dname_table( idomain, P_asoa2cwj ) = 'asoa2cwj' chem_desc_table( idomain, P_asoa2cwj ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2cwj )%stream(2) = 2097216 F_asoa2cwj = .TRUE. IF ( chem_index_table( PARAM_asoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwi , idomain ) = P_asoa2cwi ELSE P_asoa2cwi = chem_index_table( PARAM_asoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwi ) = .TRUE. chem_dname_table( idomain, P_asoa2cwi ) = 'asoa2cwi' chem_desc_table( idomain, P_asoa2cwi ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2cwi )%stream(2) = 2097216 F_asoa2cwi = .TRUE. IF ( chem_index_table( PARAM_asoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwj , idomain ) = P_asoa3cwj ELSE P_asoa3cwj = chem_index_table( PARAM_asoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwj ) = .TRUE. chem_dname_table( idomain, P_asoa3cwj ) = 'asoa3cwj' chem_desc_table( idomain, P_asoa3cwj ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3cwj )%stream(2) = 2097216 F_asoa3cwj = .TRUE. IF ( chem_index_table( PARAM_asoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwi , idomain ) = P_asoa2cwi ELSE P_asoa2cwi = chem_index_table( PARAM_asoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwi ) = .TRUE. chem_dname_table( idomain, P_asoa2cwi ) = 'asoa2cwi' chem_desc_table( idomain, P_asoa2cwi ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2cwi )%stream(2) = 2097216 F_asoa2cwi = .TRUE. IF ( chem_index_table( PARAM_asoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwj , idomain ) = P_asoa3cwj ELSE P_asoa3cwj = chem_index_table( PARAM_asoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwj ) = .TRUE. chem_dname_table( idomain, P_asoa3cwj ) = 'asoa3cwj' chem_desc_table( idomain, P_asoa3cwj ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3cwj )%stream(2) = 2097216 F_asoa3cwj = .TRUE. IF ( chem_index_table( PARAM_asoa3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwi , idomain ) = P_asoa3cwi ELSE P_asoa3cwi = chem_index_table( PARAM_asoa3cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwi ) = .TRUE. chem_dname_table( idomain, P_asoa3cwi ) = 'asoa3cwi' chem_desc_table( idomain, P_asoa3cwi ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3cwi )%stream(2) = 2097216 F_asoa3cwi = .TRUE. IF ( chem_index_table( PARAM_asoa4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa4cwj , idomain ) = P_asoa4cwj ELSE P_asoa4cwj = chem_index_table( PARAM_asoa4cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa4cwj ) = .TRUE. chem_dname_table( idomain, P_asoa4cwj ) = 'asoa4cwj' chem_desc_table( idomain, P_asoa4cwj ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4cwj )%stream(2) = 2097216 F_asoa4cwj = .TRUE. IF ( chem_index_table( PARAM_asoa4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa4cwi , idomain ) = P_asoa4cwi ELSE P_asoa4cwi = chem_index_table( PARAM_asoa4cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa4cwi ) = .TRUE. chem_dname_table( idomain, P_asoa4cwi ) = 'asoa4cwi' chem_desc_table( idomain, P_asoa4cwi ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4cwi )%stream(2) = 2097216 F_asoa4cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa1cwj , idomain ) = P_bsoa1cwj ELSE P_bsoa1cwj = chem_index_table( PARAM_bsoa1cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa1cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa1cwj ) = 'bsoa1cwj' chem_desc_table( idomain, P_bsoa1cwj ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1cwj )%stream(2) = 2097216 F_bsoa1cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa1cwi , idomain ) = P_bsoa1cwi ELSE P_bsoa1cwi = chem_index_table( PARAM_bsoa1cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa1cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa1cwi ) = 'bsoa1cwi' chem_desc_table( idomain, P_bsoa1cwi ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1cwi )%stream(2) = 2097216 F_bsoa1cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa2cwj , idomain ) = P_bsoa2cwj ELSE P_bsoa2cwj = chem_index_table( PARAM_bsoa2cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa2cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa2cwj ) = 'bsoa2cwj' chem_desc_table( idomain, P_bsoa2cwj ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2cwj )%stream(2) = 2097216 F_bsoa2cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa2cwi , idomain ) = P_bsoa2cwi ELSE P_bsoa2cwi = chem_index_table( PARAM_bsoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa2cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa2cwi ) = 'bsoa2cwi' chem_desc_table( idomain, P_bsoa2cwi ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2cwi )%stream(2) = 2097216 F_bsoa2cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa3cwj , idomain ) = P_bsoa3cwj ELSE P_bsoa3cwj = chem_index_table( PARAM_bsoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa3cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa3cwj ) = 'bsoa3cwj' chem_desc_table( idomain, P_bsoa3cwj ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3cwj )%stream(2) = 2097216 F_bsoa3cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa3cwi , idomain ) = P_bsoa3cwi ELSE P_bsoa3cwi = chem_index_table( PARAM_bsoa3cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa3cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa3cwi ) = 'bsoa3cwi' chem_desc_table( idomain, P_bsoa3cwi ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3cwi )%stream(2) = 2097216 F_bsoa3cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa4cwj , idomain ) = P_bsoa4cwj ELSE P_bsoa4cwj = chem_index_table( PARAM_bsoa4cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa4cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa4cwj ) = 'bsoa4cwj' chem_desc_table( idomain, P_bsoa4cwj ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4cwj )%stream(2) = 2097216 F_bsoa4cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa4cwi , idomain ) = P_bsoa4cwi ELSE P_bsoa4cwi = chem_index_table( PARAM_bsoa4cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa4cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa4cwi ) = 'bsoa4cwi' chem_desc_table( idomain, P_bsoa4cwi ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4cwi )%stream(2) = 2097216 F_bsoa4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==110)THEN IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_pna , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pna = chem_num_table(idomain) chem_index_table( PARAM_pna , idomain ) = P_pna ELSE P_pna = chem_index_table( PARAM_pna , idomain ) END IF chem_boundary_table( idomain, P_pna ) = .TRUE. chem_dname_table( idomain, P_pna ) = 'pna' chem_desc_table( idomain, P_pna ) = 'PNA mixing ratio' chem_units_table( idomain, P_pna ) = 'ppmv' chem_streams_table( idomain, P_pna )%stream(1) = 33554433 chem_streams_table( idomain, P_pna )%stream(2) = 2097216 F_pna = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 chem_streams_table( idomain, P_o )%stream(2) = 2097216 F_o = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald2 = chem_num_table(idomain) chem_index_table( PARAM_ald2 , idomain ) = P_ald2 ELSE P_ald2 = chem_index_table( PARAM_ald2 , idomain ) END IF chem_boundary_table( idomain, P_ald2 ) = .TRUE. chem_dname_table( idomain, P_ald2 ) = 'ald2' chem_desc_table( idomain, P_ald2 ) = 'ALD2 mixing ratio' chem_units_table( idomain, P_ald2 ) = 'ppmv' chem_streams_table( idomain, P_ald2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ald2 )%stream(2) = 2097216 F_ald2 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_ror , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ror = chem_num_table(idomain) chem_index_table( PARAM_ror , idomain ) = P_ror ELSE P_ror = chem_index_table( PARAM_ror , idomain ) END IF chem_boundary_table( idomain, P_ror ) = .TRUE. chem_dname_table( idomain, P_ror ) = 'ror' chem_desc_table( idomain, P_ror ) = 'ROR mixing ratio' chem_units_table( idomain, P_ror ) = 'ppmv' chem_streams_table( idomain, P_ror )%stream(1) = 33554433 chem_streams_table( idomain, P_ror )%stream(2) = 2097216 F_ror = .TRUE. IF ( chem_index_table( PARAM_ole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole = chem_num_table(idomain) chem_index_table( PARAM_ole , idomain ) = P_ole ELSE P_ole = chem_index_table( PARAM_ole , idomain ) END IF chem_boundary_table( idomain, P_ole ) = .TRUE. chem_dname_table( idomain, P_ole ) = 'ole' chem_desc_table( idomain, P_ole ) = 'OLE mixing ratio' chem_units_table( idomain, P_ole ) = 'ppmv' chem_streams_table( idomain, P_ole )%stream(1) = 33554433 chem_streams_table( idomain, P_ole )%stream(2) = 2097216 F_ole = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xo2n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2n = chem_num_table(idomain) chem_index_table( PARAM_xo2n , idomain ) = P_xo2n ELSE P_xo2n = chem_index_table( PARAM_xo2n , idomain ) END IF chem_boundary_table( idomain, P_xo2n ) = .TRUE. chem_dname_table( idomain, P_xo2n ) = 'xo2n' chem_desc_table( idomain, P_xo2n ) = 'XO2N mixing ratio' chem_units_table( idomain, P_xo2n ) = 'ppmv' chem_streams_table( idomain, P_xo2n )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2n )%stream(2) = 2097216 F_xo2n = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==111)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 chem_streams_table( idomain, P_o )%stream(2) = 2097216 F_o = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 F_h2 = .TRUE. IF ( chem_index_table( PARAM_eo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo2 = chem_num_table(idomain) chem_index_table( PARAM_eo2 , idomain ) = P_eo2 ELSE P_eo2 = chem_index_table( PARAM_eo2 , idomain ) END IF chem_boundary_table( idomain, P_eo2 ) = .TRUE. chem_dname_table( idomain, P_eo2 ) = 'eo2' chem_desc_table( idomain, P_eo2 ) = 'EO2 mixing ratio' chem_units_table( idomain, P_eo2 ) = 'ppmv' chem_streams_table( idomain, P_eo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eo2 )%stream(2) = 2097216 F_eo2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_n2o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o = chem_num_table(idomain) chem_index_table( PARAM_n2o , idomain ) = P_n2o ELSE P_n2o = chem_index_table( PARAM_n2o , idomain ) END IF chem_boundary_table( idomain, P_n2o ) = .TRUE. chem_dname_table( idomain, P_n2o ) = 'n2o' chem_desc_table( idomain, P_n2o ) = 'N2O mixing ratio' chem_units_table( idomain, P_n2o ) = 'ppmv' chem_streams_table( idomain, P_n2o )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o )%stream(2) = 2097216 F_n2o = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 F_etooh = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 F_acetp = .TRUE. IF ( chem_index_table( PARAM_xooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xooh = chem_num_table(idomain) chem_index_table( PARAM_xooh , idomain ) = P_xooh ELSE P_xooh = chem_index_table( PARAM_xooh , idomain ) END IF chem_boundary_table( idomain, P_xooh ) = .TRUE. chem_dname_table( idomain, P_xooh ) = 'xooh' chem_desc_table( idomain, P_xooh ) = 'XOOH mixing ratio' chem_units_table( idomain, P_xooh ) = 'ppmv' chem_streams_table( idomain, P_xooh )%stream(1) = 33554433 chem_streams_table( idomain, P_xooh )%stream(2) = 2097216 F_xooh = .TRUE. IF ( chem_index_table( PARAM_onitr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onitr = chem_num_table(idomain) chem_index_table( PARAM_onitr , idomain ) = P_onitr ELSE P_onitr = chem_index_table( PARAM_onitr , idomain ) END IF chem_boundary_table( idomain, P_onitr ) = .TRUE. chem_dname_table( idomain, P_onitr ) = 'onitr' chem_desc_table( idomain, P_onitr ) = 'ONITR mixing ratio' chem_units_table( idomain, P_onitr ) = 'ppmv' chem_streams_table( idomain, P_onitr )%stream(1) = 33554433 chem_streams_table( idomain, P_onitr )%stream(2) = 2097216 F_onitr = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 F_isooh = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 F_acetol = .TRUE. IF ( chem_index_table( PARAM_glyald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glyald = chem_num_table(idomain) chem_index_table( PARAM_glyald , idomain ) = P_glyald ELSE P_glyald = chem_index_table( PARAM_glyald , idomain ) END IF chem_boundary_table( idomain, P_glyald ) = .TRUE. chem_dname_table( idomain, P_glyald ) = 'glyald' chem_desc_table( idomain, P_glyald ) = 'GLYALD mixing ratio' chem_units_table( idomain, P_glyald ) = 'ppmv' chem_streams_table( idomain, P_glyald )%stream(1) = 33554433 chem_streams_table( idomain, P_glyald )%stream(2) = 2097216 F_glyald = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_alkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkooh = chem_num_table(idomain) chem_index_table( PARAM_alkooh , idomain ) = P_alkooh ELSE P_alkooh = chem_index_table( PARAM_alkooh , idomain ) END IF chem_boundary_table( idomain, P_alkooh ) = .TRUE. chem_dname_table( idomain, P_alkooh ) = 'alkooh' chem_desc_table( idomain, P_alkooh ) = 'ALKOOH mixing ratio' chem_units_table( idomain, P_alkooh ) = 'ppmv' chem_streams_table( idomain, P_alkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_alkooh )%stream(2) = 2097216 F_alkooh = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_tolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolooh = chem_num_table(idomain) chem_index_table( PARAM_tolooh , idomain ) = P_tolooh ELSE P_tolooh = chem_index_table( PARAM_tolooh , idomain ) END IF chem_boundary_table( idomain, P_tolooh ) = .TRUE. chem_dname_table( idomain, P_tolooh ) = 'tolooh' chem_desc_table( idomain, P_tolooh ) = 'TOLOOH mixing ratio' chem_units_table( idomain, P_tolooh ) = 'ppmv' chem_streams_table( idomain, P_tolooh )%stream(1) = 33554433 chem_streams_table( idomain, P_tolooh )%stream(2) = 2097216 F_tolooh = .TRUE. IF ( chem_index_table( PARAM_terpooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpooh = chem_num_table(idomain) chem_index_table( PARAM_terpooh , idomain ) = P_terpooh ELSE P_terpooh = chem_index_table( PARAM_terpooh , idomain ) END IF chem_boundary_table( idomain, P_terpooh ) = .TRUE. chem_dname_table( idomain, P_terpooh ) = 'terpooh' chem_desc_table( idomain, P_terpooh ) = 'TERPOOH mixing ratio' chem_units_table( idomain, P_terpooh ) = 'ppmv' chem_streams_table( idomain, P_terpooh )%stream(1) = 33554433 chem_streams_table( idomain, P_terpooh )%stream(2) = 2097216 F_terpooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_mco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mco3 = chem_num_table(idomain) chem_index_table( PARAM_mco3 , idomain ) = P_mco3 ELSE P_mco3 = chem_index_table( PARAM_mco3 , idomain ) END IF chem_boundary_table( idomain, P_mco3 ) = .TRUE. chem_dname_table( idomain, P_mco3 ) = 'mco3' chem_desc_table( idomain, P_mco3 ) = 'MCO3 mixing ratio' chem_units_table( idomain, P_mco3 ) = 'ppmv' chem_streams_table( idomain, P_mco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_mco3 )%stream(2) = 2097216 F_mco3 = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_eo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo = chem_num_table(idomain) chem_index_table( PARAM_eo , idomain ) = P_eo ELSE P_eo = chem_index_table( PARAM_eo , idomain ) END IF chem_boundary_table( idomain, P_eo ) = .TRUE. chem_dname_table( idomain, P_eo ) = 'eo' chem_desc_table( idomain, P_eo ) = 'EO mixing ratio' chem_units_table( idomain, P_eo ) = 'ppmv' chem_streams_table( idomain, P_eo )%stream(1) = 33554433 chem_streams_table( idomain, P_eo )%stream(2) = 2097216 F_eo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_po2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_po2 = chem_num_table(idomain) chem_index_table( PARAM_po2 , idomain ) = P_po2 ELSE P_po2 = chem_index_table( PARAM_po2 , idomain ) END IF chem_boundary_table( idomain, P_po2 ) = .TRUE. chem_dname_table( idomain, P_po2 ) = 'po2' chem_desc_table( idomain, P_po2 ) = 'PO2 mixing ratio' chem_units_table( idomain, P_po2 ) = 'ppmv' chem_streams_table( idomain, P_po2 )%stream(1) = 33554433 chem_streams_table( idomain, P_po2 )%stream(2) = 2097216 F_po2 = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_bigene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigene = chem_num_table(idomain) chem_index_table( PARAM_bigene , idomain ) = P_bigene ELSE P_bigene = chem_index_table( PARAM_bigene , idomain ) END IF chem_boundary_table( idomain, P_bigene ) = .TRUE. chem_dname_table( idomain, P_bigene ) = 'bigene' chem_desc_table( idomain, P_bigene ) = 'BIGENE mixing ratio' chem_units_table( idomain, P_bigene ) = 'ppmv' chem_streams_table( idomain, P_bigene )%stream(1) = 33554433 chem_streams_table( idomain, P_bigene )%stream(2) = 2097216 F_bigene = .TRUE. IF ( chem_index_table( PARAM_bigalk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigalk = chem_num_table(idomain) chem_index_table( PARAM_bigalk , idomain ) = P_bigalk ELSE P_bigalk = chem_index_table( PARAM_bigalk , idomain ) END IF chem_boundary_table( idomain, P_bigalk ) = .TRUE. chem_dname_table( idomain, P_bigalk ) = 'bigalk' chem_desc_table( idomain, P_bigalk ) = 'BIGALK mixing ratio' chem_units_table( idomain, P_bigalk ) = 'ppmv' chem_streams_table( idomain, P_bigalk )%stream(1) = 33554433 chem_streams_table( idomain, P_bigalk )%stream(2) = 2097216 F_bigalk = .TRUE. IF ( chem_index_table( PARAM_eneo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eneo2 = chem_num_table(idomain) chem_index_table( PARAM_eneo2 , idomain ) = P_eneo2 ELSE P_eneo2 = chem_index_table( PARAM_eneo2 , idomain ) END IF chem_boundary_table( idomain, P_eneo2 ) = .TRUE. chem_dname_table( idomain, P_eneo2 ) = 'eneo2' chem_desc_table( idomain, P_eneo2 ) = 'ENEO2 mixing ratio' chem_units_table( idomain, P_eneo2 ) = 'ppmv' chem_streams_table( idomain, P_eneo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eneo2 )%stream(2) = 2097216 F_eneo2 = .TRUE. IF ( chem_index_table( PARAM_alko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alko2 = chem_num_table(idomain) chem_index_table( PARAM_alko2 , idomain ) = P_alko2 ELSE P_alko2 = chem_index_table( PARAM_alko2 , idomain ) END IF chem_boundary_table( idomain, P_alko2 ) = .TRUE. chem_dname_table( idomain, P_alko2 ) = 'alko2' chem_desc_table( idomain, P_alko2 ) = 'ALKO2 mixing ratio' chem_units_table( idomain, P_alko2 ) = 'ppmv' chem_streams_table( idomain, P_alko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_alko2 )%stream(2) = 2097216 F_alko2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 F_isopr = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_hydrald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hydrald = chem_num_table(idomain) chem_index_table( PARAM_hydrald , idomain ) = P_hydrald ELSE P_hydrald = chem_index_table( PARAM_hydrald , idomain ) END IF chem_boundary_table( idomain, P_hydrald ) = .TRUE. chem_dname_table( idomain, P_hydrald ) = 'hydrald' chem_desc_table( idomain, P_hydrald ) = 'HYDRALD mixing ratio' chem_units_table( idomain, P_hydrald ) = 'ppmv' chem_streams_table( idomain, P_hydrald )%stream(1) = 33554433 chem_streams_table( idomain, P_hydrald )%stream(2) = 2097216 F_hydrald = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_c10h16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c10h16 = chem_num_table(idomain) chem_index_table( PARAM_c10h16 , idomain ) = P_c10h16 ELSE P_c10h16 = chem_index_table( PARAM_c10h16 , idomain ) END IF chem_boundary_table( idomain, P_c10h16 ) = .TRUE. chem_dname_table( idomain, P_c10h16 ) = 'c10h16' chem_desc_table( idomain, P_c10h16 ) = 'C10H16 mixing ratio' chem_units_table( idomain, P_c10h16 ) = 'ppmv' chem_streams_table( idomain, P_c10h16 )%stream(1) = 33554433 chem_streams_table( idomain, P_c10h16 )%stream(2) = 2097216 F_c10h16 = .TRUE. IF ( chem_index_table( PARAM_terpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpo2 = chem_num_table(idomain) chem_index_table( PARAM_terpo2 , idomain ) = P_terpo2 ELSE P_terpo2 = chem_index_table( PARAM_terpo2 , idomain ) END IF chem_boundary_table( idomain, P_terpo2 ) = .TRUE. chem_dname_table( idomain, P_terpo2 ) = 'terpo2' chem_desc_table( idomain, P_terpo2 ) = 'TERPO2 mixing ratio' chem_units_table( idomain, P_terpo2 ) = 'ppmv' chem_streams_table( idomain, P_terpo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_terpo2 )%stream(2) = 2097216 F_terpo2 = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_xoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xoh = chem_num_table(idomain) chem_index_table( PARAM_xoh , idomain ) = P_xoh ELSE P_xoh = chem_index_table( PARAM_xoh , idomain ) END IF chem_boundary_table( idomain, P_xoh ) = .TRUE. chem_dname_table( idomain, P_xoh ) = 'xoh' chem_desc_table( idomain, P_xoh ) = 'XOH mixing ratio' chem_units_table( idomain, P_xoh ) = 'ppmv' chem_streams_table( idomain, P_xoh )%stream(1) = 33554433 chem_streams_table( idomain, P_xoh )%stream(2) = 2097216 F_xoh = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 F_meko2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==112)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 chem_streams_table( idomain, P_o )%stream(2) = 2097216 F_o = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 F_h2 = .TRUE. IF ( chem_index_table( PARAM_eo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo2 = chem_num_table(idomain) chem_index_table( PARAM_eo2 , idomain ) = P_eo2 ELSE P_eo2 = chem_index_table( PARAM_eo2 , idomain ) END IF chem_boundary_table( idomain, P_eo2 ) = .TRUE. chem_dname_table( idomain, P_eo2 ) = 'eo2' chem_desc_table( idomain, P_eo2 ) = 'EO2 mixing ratio' chem_units_table( idomain, P_eo2 ) = 'ppmv' chem_streams_table( idomain, P_eo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eo2 )%stream(2) = 2097216 F_eo2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_n2o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o = chem_num_table(idomain) chem_index_table( PARAM_n2o , idomain ) = P_n2o ELSE P_n2o = chem_index_table( PARAM_n2o , idomain ) END IF chem_boundary_table( idomain, P_n2o ) = .TRUE. chem_dname_table( idomain, P_n2o ) = 'n2o' chem_desc_table( idomain, P_n2o ) = 'N2O mixing ratio' chem_units_table( idomain, P_n2o ) = 'ppmv' chem_streams_table( idomain, P_n2o )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o )%stream(2) = 2097216 F_n2o = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 F_etooh = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 F_acetp = .TRUE. IF ( chem_index_table( PARAM_xooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xooh = chem_num_table(idomain) chem_index_table( PARAM_xooh , idomain ) = P_xooh ELSE P_xooh = chem_index_table( PARAM_xooh , idomain ) END IF chem_boundary_table( idomain, P_xooh ) = .TRUE. chem_dname_table( idomain, P_xooh ) = 'xooh' chem_desc_table( idomain, P_xooh ) = 'XOOH mixing ratio' chem_units_table( idomain, P_xooh ) = 'ppmv' chem_streams_table( idomain, P_xooh )%stream(1) = 33554433 chem_streams_table( idomain, P_xooh )%stream(2) = 2097216 F_xooh = .TRUE. IF ( chem_index_table( PARAM_onitr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onitr = chem_num_table(idomain) chem_index_table( PARAM_onitr , idomain ) = P_onitr ELSE P_onitr = chem_index_table( PARAM_onitr , idomain ) END IF chem_boundary_table( idomain, P_onitr ) = .TRUE. chem_dname_table( idomain, P_onitr ) = 'onitr' chem_desc_table( idomain, P_onitr ) = 'ONITR mixing ratio' chem_units_table( idomain, P_onitr ) = 'ppmv' chem_streams_table( idomain, P_onitr )%stream(1) = 33554433 chem_streams_table( idomain, P_onitr )%stream(2) = 2097216 F_onitr = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 F_isooh = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 F_acetol = .TRUE. IF ( chem_index_table( PARAM_glyald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glyald = chem_num_table(idomain) chem_index_table( PARAM_glyald , idomain ) = P_glyald ELSE P_glyald = chem_index_table( PARAM_glyald , idomain ) END IF chem_boundary_table( idomain, P_glyald ) = .TRUE. chem_dname_table( idomain, P_glyald ) = 'glyald' chem_desc_table( idomain, P_glyald ) = 'GLYALD mixing ratio' chem_units_table( idomain, P_glyald ) = 'ppmv' chem_streams_table( idomain, P_glyald )%stream(1) = 33554433 chem_streams_table( idomain, P_glyald )%stream(2) = 2097216 F_glyald = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_alkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkooh = chem_num_table(idomain) chem_index_table( PARAM_alkooh , idomain ) = P_alkooh ELSE P_alkooh = chem_index_table( PARAM_alkooh , idomain ) END IF chem_boundary_table( idomain, P_alkooh ) = .TRUE. chem_dname_table( idomain, P_alkooh ) = 'alkooh' chem_desc_table( idomain, P_alkooh ) = 'ALKOOH mixing ratio' chem_units_table( idomain, P_alkooh ) = 'ppmv' chem_streams_table( idomain, P_alkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_alkooh )%stream(2) = 2097216 F_alkooh = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_tolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolooh = chem_num_table(idomain) chem_index_table( PARAM_tolooh , idomain ) = P_tolooh ELSE P_tolooh = chem_index_table( PARAM_tolooh , idomain ) END IF chem_boundary_table( idomain, P_tolooh ) = .TRUE. chem_dname_table( idomain, P_tolooh ) = 'tolooh' chem_desc_table( idomain, P_tolooh ) = 'TOLOOH mixing ratio' chem_units_table( idomain, P_tolooh ) = 'ppmv' chem_streams_table( idomain, P_tolooh )%stream(1) = 33554433 chem_streams_table( idomain, P_tolooh )%stream(2) = 2097216 F_tolooh = .TRUE. IF ( chem_index_table( PARAM_terpooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpooh = chem_num_table(idomain) chem_index_table( PARAM_terpooh , idomain ) = P_terpooh ELSE P_terpooh = chem_index_table( PARAM_terpooh , idomain ) END IF chem_boundary_table( idomain, P_terpooh ) = .TRUE. chem_dname_table( idomain, P_terpooh ) = 'terpooh' chem_desc_table( idomain, P_terpooh ) = 'TERPOOH mixing ratio' chem_units_table( idomain, P_terpooh ) = 'ppmv' chem_streams_table( idomain, P_terpooh )%stream(1) = 33554433 chem_streams_table( idomain, P_terpooh )%stream(2) = 2097216 F_terpooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_mco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mco3 = chem_num_table(idomain) chem_index_table( PARAM_mco3 , idomain ) = P_mco3 ELSE P_mco3 = chem_index_table( PARAM_mco3 , idomain ) END IF chem_boundary_table( idomain, P_mco3 ) = .TRUE. chem_dname_table( idomain, P_mco3 ) = 'mco3' chem_desc_table( idomain, P_mco3 ) = 'MCO3 mixing ratio' chem_units_table( idomain, P_mco3 ) = 'ppmv' chem_streams_table( idomain, P_mco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_mco3 )%stream(2) = 2097216 F_mco3 = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_eo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo = chem_num_table(idomain) chem_index_table( PARAM_eo , idomain ) = P_eo ELSE P_eo = chem_index_table( PARAM_eo , idomain ) END IF chem_boundary_table( idomain, P_eo ) = .TRUE. chem_dname_table( idomain, P_eo ) = 'eo' chem_desc_table( idomain, P_eo ) = 'EO mixing ratio' chem_units_table( idomain, P_eo ) = 'ppmv' chem_streams_table( idomain, P_eo )%stream(1) = 33554433 chem_streams_table( idomain, P_eo )%stream(2) = 2097216 F_eo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_po2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_po2 = chem_num_table(idomain) chem_index_table( PARAM_po2 , idomain ) = P_po2 ELSE P_po2 = chem_index_table( PARAM_po2 , idomain ) END IF chem_boundary_table( idomain, P_po2 ) = .TRUE. chem_dname_table( idomain, P_po2 ) = 'po2' chem_desc_table( idomain, P_po2 ) = 'PO2 mixing ratio' chem_units_table( idomain, P_po2 ) = 'ppmv' chem_streams_table( idomain, P_po2 )%stream(1) = 33554433 chem_streams_table( idomain, P_po2 )%stream(2) = 2097216 F_po2 = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_bigene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigene = chem_num_table(idomain) chem_index_table( PARAM_bigene , idomain ) = P_bigene ELSE P_bigene = chem_index_table( PARAM_bigene , idomain ) END IF chem_boundary_table( idomain, P_bigene ) = .TRUE. chem_dname_table( idomain, P_bigene ) = 'bigene' chem_desc_table( idomain, P_bigene ) = 'BIGENE mixing ratio' chem_units_table( idomain, P_bigene ) = 'ppmv' chem_streams_table( idomain, P_bigene )%stream(1) = 33554433 chem_streams_table( idomain, P_bigene )%stream(2) = 2097216 F_bigene = .TRUE. IF ( chem_index_table( PARAM_bigalk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigalk = chem_num_table(idomain) chem_index_table( PARAM_bigalk , idomain ) = P_bigalk ELSE P_bigalk = chem_index_table( PARAM_bigalk , idomain ) END IF chem_boundary_table( idomain, P_bigalk ) = .TRUE. chem_dname_table( idomain, P_bigalk ) = 'bigalk' chem_desc_table( idomain, P_bigalk ) = 'BIGALK mixing ratio' chem_units_table( idomain, P_bigalk ) = 'ppmv' chem_streams_table( idomain, P_bigalk )%stream(1) = 33554433 chem_streams_table( idomain, P_bigalk )%stream(2) = 2097216 F_bigalk = .TRUE. IF ( chem_index_table( PARAM_eneo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eneo2 = chem_num_table(idomain) chem_index_table( PARAM_eneo2 , idomain ) = P_eneo2 ELSE P_eneo2 = chem_index_table( PARAM_eneo2 , idomain ) END IF chem_boundary_table( idomain, P_eneo2 ) = .TRUE. chem_dname_table( idomain, P_eneo2 ) = 'eneo2' chem_desc_table( idomain, P_eneo2 ) = 'ENEO2 mixing ratio' chem_units_table( idomain, P_eneo2 ) = 'ppmv' chem_streams_table( idomain, P_eneo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eneo2 )%stream(2) = 2097216 F_eneo2 = .TRUE. IF ( chem_index_table( PARAM_alko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alko2 = chem_num_table(idomain) chem_index_table( PARAM_alko2 , idomain ) = P_alko2 ELSE P_alko2 = chem_index_table( PARAM_alko2 , idomain ) END IF chem_boundary_table( idomain, P_alko2 ) = .TRUE. chem_dname_table( idomain, P_alko2 ) = 'alko2' chem_desc_table( idomain, P_alko2 ) = 'ALKO2 mixing ratio' chem_units_table( idomain, P_alko2 ) = 'ppmv' chem_streams_table( idomain, P_alko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_alko2 )%stream(2) = 2097216 F_alko2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 F_isopr = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_hydrald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hydrald = chem_num_table(idomain) chem_index_table( PARAM_hydrald , idomain ) = P_hydrald ELSE P_hydrald = chem_index_table( PARAM_hydrald , idomain ) END IF chem_boundary_table( idomain, P_hydrald ) = .TRUE. chem_dname_table( idomain, P_hydrald ) = 'hydrald' chem_desc_table( idomain, P_hydrald ) = 'HYDRALD mixing ratio' chem_units_table( idomain, P_hydrald ) = 'ppmv' chem_streams_table( idomain, P_hydrald )%stream(1) = 33554433 chem_streams_table( idomain, P_hydrald )%stream(2) = 2097216 F_hydrald = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_c10h16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c10h16 = chem_num_table(idomain) chem_index_table( PARAM_c10h16 , idomain ) = P_c10h16 ELSE P_c10h16 = chem_index_table( PARAM_c10h16 , idomain ) END IF chem_boundary_table( idomain, P_c10h16 ) = .TRUE. chem_dname_table( idomain, P_c10h16 ) = 'c10h16' chem_desc_table( idomain, P_c10h16 ) = 'C10H16 mixing ratio' chem_units_table( idomain, P_c10h16 ) = 'ppmv' chem_streams_table( idomain, P_c10h16 )%stream(1) = 33554433 chem_streams_table( idomain, P_c10h16 )%stream(2) = 2097216 F_c10h16 = .TRUE. IF ( chem_index_table( PARAM_terpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpo2 = chem_num_table(idomain) chem_index_table( PARAM_terpo2 , idomain ) = P_terpo2 ELSE P_terpo2 = chem_index_table( PARAM_terpo2 , idomain ) END IF chem_boundary_table( idomain, P_terpo2 ) = .TRUE. chem_dname_table( idomain, P_terpo2 ) = 'terpo2' chem_desc_table( idomain, P_terpo2 ) = 'TERPO2 mixing ratio' chem_units_table( idomain, P_terpo2 ) = 'ppmv' chem_streams_table( idomain, P_terpo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_terpo2 )%stream(2) = 2097216 F_terpo2 = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_xoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xoh = chem_num_table(idomain) chem_index_table( PARAM_xoh , idomain ) = P_xoh ELSE P_xoh = chem_index_table( PARAM_xoh , idomain ) END IF chem_boundary_table( idomain, P_xoh ) = .TRUE. chem_dname_table( idomain, P_xoh ) = 'xoh' chem_desc_table( idomain, P_xoh ) = 'XOH mixing ratio' chem_units_table( idomain, P_xoh ) = 'ppmv' chem_streams_table( idomain, P_xoh )%stream(1) = 33554433 chem_streams_table( idomain, P_xoh )%stream(2) = 2097216 F_xoh = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 F_meko2 = .TRUE. IF ( chem_index_table( PARAM_p25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25 = chem_num_table(idomain) chem_index_table( PARAM_p25 , idomain ) = P_p25 ELSE P_p25 = chem_index_table( PARAM_p25 , idomain ) END IF chem_boundary_table( idomain, P_p25 ) = .TRUE. chem_dname_table( idomain, P_p25 ) = 'P25' chem_desc_table( idomain, P_p25 ) = 'other gocart primary pm25' chem_units_table( idomain, P_p25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25 )%stream(1) = 33554433 chem_streams_table( idomain, P_p25 )%stream(2) = 2097216 F_p25 = .TRUE. IF ( chem_index_table( PARAM_bc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc1 = chem_num_table(idomain) chem_index_table( PARAM_bc1 , idomain ) = P_bc1 ELSE P_bc1 = chem_index_table( PARAM_bc1 , idomain ) END IF chem_boundary_table( idomain, P_bc1 ) = .TRUE. chem_dname_table( idomain, P_bc1 ) = 'BC1' chem_desc_table( idomain, P_bc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_bc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc1 )%stream(2) = 2097216 F_bc1 = .TRUE. IF ( chem_index_table( PARAM_bc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc2 = chem_num_table(idomain) chem_index_table( PARAM_bc2 , idomain ) = P_bc2 ELSE P_bc2 = chem_index_table( PARAM_bc2 , idomain ) END IF chem_boundary_table( idomain, P_bc2 ) = .TRUE. chem_dname_table( idomain, P_bc2 ) = 'BC2' chem_desc_table( idomain, P_bc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_bc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc2 )%stream(2) = 2097216 F_bc2 = .TRUE. IF ( chem_index_table( PARAM_oc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc1 = chem_num_table(idomain) chem_index_table( PARAM_oc1 , idomain ) = P_oc1 ELSE P_oc1 = chem_index_table( PARAM_oc1 , idomain ) END IF chem_boundary_table( idomain, P_oc1 ) = .TRUE. chem_dname_table( idomain, P_oc1 ) = 'OC1' chem_desc_table( idomain, P_oc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_oc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc1 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc1 )%stream(2) = 2097216 F_oc1 = .TRUE. IF ( chem_index_table( PARAM_oc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc2 = chem_num_table(idomain) chem_index_table( PARAM_oc2 , idomain ) = P_oc2 ELSE P_oc2 = chem_index_table( PARAM_oc2 , idomain ) END IF chem_boundary_table( idomain, P_oc2 ) = .TRUE. chem_dname_table( idomain, P_oc2 ) = 'OC2' chem_desc_table( idomain, P_oc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_oc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc2 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc2 )%stream(2) = 2097216 F_oc2 = .TRUE. IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 F_dust_5 = .TRUE. IF ( chem_index_table( PARAM_seas_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_1 = chem_num_table(idomain) chem_index_table( PARAM_seas_1 , idomain ) = P_seas_1 ELSE P_seas_1 = chem_index_table( PARAM_seas_1 , idomain ) END IF chem_boundary_table( idomain, P_seas_1 ) = .TRUE. chem_dname_table( idomain, P_seas_1 ) = 'SEAS_1' chem_desc_table( idomain, P_seas_1 ) = 'sea-salt size bin 1: 0.3um effective radius' chem_units_table( idomain, P_seas_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_1 )%stream(2) = 2097216 F_seas_1 = .TRUE. IF ( chem_index_table( PARAM_seas_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_2 = chem_num_table(idomain) chem_index_table( PARAM_seas_2 , idomain ) = P_seas_2 ELSE P_seas_2 = chem_index_table( PARAM_seas_2 , idomain ) END IF chem_boundary_table( idomain, P_seas_2 ) = .TRUE. chem_dname_table( idomain, P_seas_2 ) = 'SEAS_2' chem_desc_table( idomain, P_seas_2 ) = 'sea-salt size bin 2: 1.0um effective radius' chem_units_table( idomain, P_seas_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_2 )%stream(2) = 2097216 F_seas_2 = .TRUE. IF ( chem_index_table( PARAM_seas_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_3 = chem_num_table(idomain) chem_index_table( PARAM_seas_3 , idomain ) = P_seas_3 ELSE P_seas_3 = chem_index_table( PARAM_seas_3 , idomain ) END IF chem_boundary_table( idomain, P_seas_3 ) = .TRUE. chem_dname_table( idomain, P_seas_3 ) = 'SEAS_3' chem_desc_table( idomain, P_seas_3 ) = 'sea-salt size bin 3: 3.2um effective radius' chem_units_table( idomain, P_seas_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_3 )%stream(2) = 2097216 F_seas_3 = .TRUE. IF ( chem_index_table( PARAM_seas_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_4 = chem_num_table(idomain) chem_index_table( PARAM_seas_4 , idomain ) = P_seas_4 ELSE P_seas_4 = chem_index_table( PARAM_seas_4 , idomain ) END IF chem_boundary_table( idomain, P_seas_4 ) = .TRUE. chem_dname_table( idomain, P_seas_4 ) = 'SEAS_4' chem_desc_table( idomain, P_seas_4 ) = 'sea-salt size bin 4: 7.5um effective radius' chem_units_table( idomain, P_seas_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_4 )%stream(2) = 2097216 F_seas_4 = .TRUE. IF ( chem_index_table( PARAM_p10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p10 = chem_num_table(idomain) chem_index_table( PARAM_p10 , idomain ) = P_p10 ELSE P_p10 = chem_index_table( PARAM_p10 , idomain ) END IF chem_boundary_table( idomain, P_p10 ) = .TRUE. chem_dname_table( idomain, P_p10 ) = 'P10' chem_desc_table( idomain, P_p10 ) = 'other gocart primary pm10' chem_units_table( idomain, P_p10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p10 )%stream(1) = 33554433 chem_streams_table( idomain, P_p10 )%stream(2) = 2097216 F_p10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==120)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==131)THEN IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 chem_streams_table( idomain, P_o )%stream(2) = 2097216 F_o = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_o1d , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d = chem_num_table(idomain) chem_index_table( PARAM_o1d , idomain ) = P_o1d ELSE P_o1d = chem_index_table( PARAM_o1d , idomain ) END IF chem_boundary_table( idomain, P_o1d ) = .TRUE. chem_dname_table( idomain, P_o1d ) = 'o1d' chem_desc_table( idomain, P_o1d ) = 'O1D concentration' chem_units_table( idomain, P_o1d ) = 'ppmv' chem_streams_table( idomain, P_o1d )%stream(1) = 33554433 chem_streams_table( idomain, P_o1d )%stream(2) = 2097216 F_o1d = .TRUE. IF ( chem_index_table( PARAM_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oh = chem_num_table(idomain) chem_index_table( PARAM_oh , idomain ) = P_oh ELSE P_oh = chem_index_table( PARAM_oh , idomain ) END IF chem_boundary_table( idomain, P_oh ) = .TRUE. chem_dname_table( idomain, P_oh ) = 'oh' chem_desc_table( idomain, P_oh ) = 'OH concentration' chem_units_table( idomain, P_oh ) = 'ppmv' chem_streams_table( idomain, P_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_oh )%stream(2) = 2097216 F_oh = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_pna , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pna = chem_num_table(idomain) chem_index_table( PARAM_pna , idomain ) = P_pna ELSE P_pna = chem_index_table( PARAM_pna , idomain ) END IF chem_boundary_table( idomain, P_pna ) = .TRUE. chem_dname_table( idomain, P_pna ) = 'pna' chem_desc_table( idomain, P_pna ) = 'PNA mixing ratio' chem_units_table( idomain, P_pna ) = 'ppmv' chem_streams_table( idomain, P_pna )%stream(1) = 33554433 chem_streams_table( idomain, P_pna )%stream(2) = 2097216 F_pna = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xo2n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2n = chem_num_table(idomain) chem_index_table( PARAM_xo2n , idomain ) = P_xo2n ELSE P_xo2n = chem_index_table( PARAM_xo2n , idomain ) END IF chem_boundary_table( idomain, P_xo2n ) = .TRUE. chem_dname_table( idomain, P_xo2n ) = 'xo2n' chem_desc_table( idomain, P_xo2n ) = 'XO2N mixing ratio' chem_units_table( idomain, P_xo2n ) = 'ppmv' chem_streams_table( idomain, P_xo2n )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2n )%stream(2) = 2097216 F_xo2n = .TRUE. IF ( chem_index_table( PARAM_ntr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ntr = chem_num_table(idomain) chem_index_table( PARAM_ntr , idomain ) = P_ntr ELSE P_ntr = chem_index_table( PARAM_ntr , idomain ) END IF chem_boundary_table( idomain, P_ntr ) = .TRUE. chem_dname_table( idomain, P_ntr ) = 'ntr' chem_desc_table( idomain, P_ntr ) = 'NTR concentration' chem_units_table( idomain, P_ntr ) = 'ppmv' chem_streams_table( idomain, P_ntr )%stream(1) = 33554433 chem_streams_table( idomain, P_ntr )%stream(2) = 2097216 F_ntr = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 F_rooh = .TRUE. IF ( chem_index_table( PARAM_form , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_form = chem_num_table(idomain) chem_index_table( PARAM_form , idomain ) = P_form ELSE P_form = chem_index_table( PARAM_form , idomain ) END IF chem_boundary_table( idomain, P_form ) = .TRUE. chem_dname_table( idomain, P_form ) = 'form' chem_desc_table( idomain, P_form ) = 'FORM concentration' chem_units_table( idomain, P_form ) = 'ppmv' chem_streams_table( idomain, P_form )%stream(1) = 33554433 chem_streams_table( idomain, P_form )%stream(2) = 2097216 F_form = .TRUE. IF ( chem_index_table( PARAM_ald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald2 = chem_num_table(idomain) chem_index_table( PARAM_ald2 , idomain ) = P_ald2 ELSE P_ald2 = chem_index_table( PARAM_ald2 , idomain ) END IF chem_boundary_table( idomain, P_ald2 ) = .TRUE. chem_dname_table( idomain, P_ald2 ) = 'ald2' chem_desc_table( idomain, P_ald2 ) = 'ALD2 mixing ratio' chem_units_table( idomain, P_ald2 ) = 'ppmv' chem_streams_table( idomain, P_ald2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ald2 )%stream(2) = 2097216 F_ald2 = .TRUE. IF ( chem_index_table( PARAM_aldx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aldx = chem_num_table(idomain) chem_index_table( PARAM_aldx , idomain ) = P_aldx ELSE P_aldx = chem_index_table( PARAM_aldx , idomain ) END IF chem_boundary_table( idomain, P_aldx ) = .TRUE. chem_dname_table( idomain, P_aldx ) = 'aldx' chem_desc_table( idomain, P_aldx ) = 'ALDX concentration' chem_units_table( idomain, P_aldx ) = 'ppmv' chem_streams_table( idomain, P_aldx )%stream(1) = 33554433 chem_streams_table( idomain, P_aldx )%stream(2) = 2097216 F_aldx = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_meo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meo2 = chem_num_table(idomain) chem_index_table( PARAM_meo2 , idomain ) = P_meo2 ELSE P_meo2 = chem_index_table( PARAM_meo2 , idomain ) END IF chem_boundary_table( idomain, P_meo2 ) = .TRUE. chem_dname_table( idomain, P_meo2 ) = 'meo2' chem_desc_table( idomain, P_meo2 ) = '' chem_units_table( idomain, P_meo2 ) = '' chem_streams_table( idomain, P_meo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meo2 )%stream(2) = 2097216 F_meo2 = .TRUE. IF ( chem_index_table( PARAM_mepx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mepx = chem_num_table(idomain) chem_index_table( PARAM_mepx , idomain ) = P_mepx ELSE P_mepx = chem_index_table( PARAM_mepx , idomain ) END IF chem_boundary_table( idomain, P_mepx ) = .TRUE. chem_dname_table( idomain, P_mepx ) = 'mepx' chem_desc_table( idomain, P_mepx ) = 'MEPX concentration' chem_units_table( idomain, P_mepx ) = 'ppmv' chem_streams_table( idomain, P_mepx )%stream(1) = 33554433 chem_streams_table( idomain, P_mepx )%stream(2) = 2097216 F_mepx = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 F_meoh = .TRUE. IF ( chem_index_table( PARAM_hco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hco3 = chem_num_table(idomain) chem_index_table( PARAM_hco3 , idomain ) = P_hco3 ELSE P_hco3 = chem_index_table( PARAM_hco3 , idomain ) END IF chem_boundary_table( idomain, P_hco3 ) = .TRUE. chem_dname_table( idomain, P_hco3 ) = 'hco3' chem_desc_table( idomain, P_hco3 ) = 'HCO3 concentration' chem_units_table( idomain, P_hco3 ) = 'ppmv' chem_streams_table( idomain, P_hco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hco3 )%stream(2) = 2097216 F_hco3 = .TRUE. IF ( chem_index_table( PARAM_facd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_facd = chem_num_table(idomain) chem_index_table( PARAM_facd , idomain ) = P_facd ELSE P_facd = chem_index_table( PARAM_facd , idomain ) END IF chem_boundary_table( idomain, P_facd ) = .TRUE. chem_dname_table( idomain, P_facd ) = 'facd' chem_desc_table( idomain, P_facd ) = 'FACD concentration' chem_units_table( idomain, P_facd ) = 'ppmv' chem_streams_table( idomain, P_facd )%stream(1) = 33554433 chem_streams_table( idomain, P_facd )%stream(2) = 2097216 F_facd = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_pacd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pacd = chem_num_table(idomain) chem_index_table( PARAM_pacd , idomain ) = P_pacd ELSE P_pacd = chem_index_table( PARAM_pacd , idomain ) END IF chem_boundary_table( idomain, P_pacd ) = .TRUE. chem_dname_table( idomain, P_pacd ) = 'pacd' chem_desc_table( idomain, P_pacd ) = 'PACD concentration' chem_units_table( idomain, P_pacd ) = 'ppmv' chem_streams_table( idomain, P_pacd )%stream(1) = 33554433 chem_streams_table( idomain, P_pacd )%stream(2) = 2097216 F_pacd = .TRUE. IF ( chem_index_table( PARAM_aacd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aacd = chem_num_table(idomain) chem_index_table( PARAM_aacd , idomain ) = P_aacd ELSE P_aacd = chem_index_table( PARAM_aacd , idomain ) END IF chem_boundary_table( idomain, P_aacd ) = .TRUE. chem_dname_table( idomain, P_aacd ) = 'aacd' chem_desc_table( idomain, P_aacd ) = 'AACD concentration' chem_units_table( idomain, P_aacd ) = 'ppmv' chem_streams_table( idomain, P_aacd )%stream(1) = 33554433 chem_streams_table( idomain, P_aacd )%stream(2) = 2097216 F_aacd = .TRUE. IF ( chem_index_table( PARAM_cxo3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cxo3 = chem_num_table(idomain) chem_index_table( PARAM_cxo3 , idomain ) = P_cxo3 ELSE P_cxo3 = chem_index_table( PARAM_cxo3 , idomain ) END IF chem_boundary_table( idomain, P_cxo3 ) = .TRUE. chem_dname_table( idomain, P_cxo3 ) = 'cxo3' chem_desc_table( idomain, P_cxo3 ) = 'CXO3 concentration' chem_units_table( idomain, P_cxo3 ) = 'ppmv' chem_streams_table( idomain, P_cxo3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cxo3 )%stream(2) = 2097216 F_cxo3 = .TRUE. IF ( chem_index_table( PARAM_panx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_panx = chem_num_table(idomain) chem_index_table( PARAM_panx , idomain ) = P_panx ELSE P_panx = chem_index_table( PARAM_panx , idomain ) END IF chem_boundary_table( idomain, P_panx ) = .TRUE. chem_dname_table( idomain, P_panx ) = 'panx' chem_desc_table( idomain, P_panx ) = 'PANX concentration' chem_units_table( idomain, P_panx ) = 'ppmv' chem_streams_table( idomain, P_panx )%stream(1) = 33554433 chem_streams_table( idomain, P_panx )%stream(2) = 2097216 F_panx = .TRUE. IF ( chem_index_table( PARAM_ror , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ror = chem_num_table(idomain) chem_index_table( PARAM_ror , idomain ) = P_ror ELSE P_ror = chem_index_table( PARAM_ror , idomain ) END IF chem_boundary_table( idomain, P_ror ) = .TRUE. chem_dname_table( idomain, P_ror ) = 'ror' chem_desc_table( idomain, P_ror ) = 'ROR mixing ratio' chem_units_table( idomain, P_ror ) = 'ppmv' chem_streams_table( idomain, P_ror )%stream(1) = 33554433 chem_streams_table( idomain, P_ror )%stream(2) = 2097216 F_ror = .TRUE. IF ( chem_index_table( PARAM_ole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole = chem_num_table(idomain) chem_index_table( PARAM_ole , idomain ) = P_ole ELSE P_ole = chem_index_table( PARAM_ole , idomain ) END IF chem_boundary_table( idomain, P_ole ) = .TRUE. chem_dname_table( idomain, P_ole ) = 'ole' chem_desc_table( idomain, P_ole ) = 'OLE mixing ratio' chem_units_table( idomain, P_ole ) = 'ppmv' chem_streams_table( idomain, P_ole )%stream(1) = 33554433 chem_streams_table( idomain, P_ole )%stream(2) = 2097216 F_ole = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_iole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iole = chem_num_table(idomain) chem_index_table( PARAM_iole , idomain ) = P_iole ELSE P_iole = chem_index_table( PARAM_iole , idomain ) END IF chem_boundary_table( idomain, P_iole ) = .TRUE. chem_dname_table( idomain, P_iole ) = 'iole' chem_desc_table( idomain, P_iole ) = 'IOLE concentration' chem_units_table( idomain, P_iole ) = 'ppmv' chem_streams_table( idomain, P_iole )%stream(1) = 33554433 chem_streams_table( idomain, P_iole )%stream(2) = 2097216 F_iole = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_tolaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolaer1 = chem_num_table(idomain) chem_index_table( PARAM_tolaer1 , idomain ) = P_tolaer1 ELSE P_tolaer1 = chem_index_table( PARAM_tolaer1 , idomain ) END IF chem_boundary_table( idomain, P_tolaer1 ) = .TRUE. chem_dname_table( idomain, P_tolaer1 ) = 'tolaer1' chem_desc_table( idomain, P_tolaer1 ) = 'TOLAER1 concentration' chem_units_table( idomain, P_tolaer1 ) = 'ppmv' chem_streams_table( idomain, P_tolaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_tolaer1 )%stream(2) = 2097216 F_tolaer1 = .TRUE. IF ( chem_index_table( PARAM_tolaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolaer2 = chem_num_table(idomain) chem_index_table( PARAM_tolaer2 , idomain ) = P_tolaer2 ELSE P_tolaer2 = chem_index_table( PARAM_tolaer2 , idomain ) END IF chem_boundary_table( idomain, P_tolaer2 ) = .TRUE. chem_dname_table( idomain, P_tolaer2 ) = 'tolaer2' chem_desc_table( idomain, P_tolaer2 ) = 'TOLAER2 concentration' chem_units_table( idomain, P_tolaer2 ) = 'ppmv' chem_streams_table( idomain, P_tolaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_tolaer2 )%stream(2) = 2097216 F_tolaer2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_cslaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cslaer = chem_num_table(idomain) chem_index_table( PARAM_cslaer , idomain ) = P_cslaer ELSE P_cslaer = chem_index_table( PARAM_cslaer , idomain ) END IF chem_boundary_table( idomain, P_cslaer ) = .TRUE. chem_dname_table( idomain, P_cslaer ) = 'cslaer' chem_desc_table( idomain, P_cslaer ) = 'CSLAER concentration' chem_units_table( idomain, P_cslaer ) = 'ppmv' chem_streams_table( idomain, P_cslaer )%stream(1) = 33554433 chem_streams_table( idomain, P_cslaer )%stream(2) = 2097216 F_cslaer = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_xylaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylaer1 = chem_num_table(idomain) chem_index_table( PARAM_xylaer1 , idomain ) = P_xylaer1 ELSE P_xylaer1 = chem_index_table( PARAM_xylaer1 , idomain ) END IF chem_boundary_table( idomain, P_xylaer1 ) = .TRUE. chem_dname_table( idomain, P_xylaer1 ) = 'xylaer1' chem_desc_table( idomain, P_xylaer1 ) = 'XYLAER1 concentration' chem_units_table( idomain, P_xylaer1 ) = 'ppmv' chem_streams_table( idomain, P_xylaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_xylaer1 )%stream(2) = 2097216 F_xylaer1 = .TRUE. IF ( chem_index_table( PARAM_xylaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylaer2 = chem_num_table(idomain) chem_index_table( PARAM_xylaer2 , idomain ) = P_xylaer2 ELSE P_xylaer2 = chem_index_table( PARAM_xylaer2 , idomain ) END IF chem_boundary_table( idomain, P_xylaer2 ) = .TRUE. chem_dname_table( idomain, P_xylaer2 ) = 'xylaer2' chem_desc_table( idomain, P_xylaer2 ) = 'XYLAER2 concentration' chem_units_table( idomain, P_xylaer2 ) = 'ppmv' chem_streams_table( idomain, P_xylaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xylaer2 )%stream(2) = 2097216 F_xylaer2 = .TRUE. IF ( chem_index_table( PARAM_isop , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isop = chem_num_table(idomain) chem_index_table( PARAM_isop , idomain ) = P_isop ELSE P_isop = chem_index_table( PARAM_isop , idomain ) END IF chem_boundary_table( idomain, P_isop ) = .TRUE. chem_dname_table( idomain, P_isop ) = 'isop' chem_desc_table( idomain, P_isop ) = 'ISOP concentration' chem_units_table( idomain, P_isop ) = 'ppmv' chem_streams_table( idomain, P_isop )%stream(1) = 33554433 chem_streams_table( idomain, P_isop )%stream(2) = 2097216 F_isop = .TRUE. IF ( chem_index_table( PARAM_ispd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ispd = chem_num_table(idomain) chem_index_table( PARAM_ispd , idomain ) = P_ispd ELSE P_ispd = chem_index_table( PARAM_ispd , idomain ) END IF chem_boundary_table( idomain, P_ispd ) = .TRUE. chem_dname_table( idomain, P_ispd ) = 'ispd' chem_desc_table( idomain, P_ispd ) = 'ISPD concentration' chem_units_table( idomain, P_ispd ) = 'ppmv' chem_streams_table( idomain, P_ispd )%stream(1) = 33554433 chem_streams_table( idomain, P_ispd )%stream(2) = 2097216 F_ispd = .TRUE. IF ( chem_index_table( PARAM_isoaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoaer1 = chem_num_table(idomain) chem_index_table( PARAM_isoaer1 , idomain ) = P_isoaer1 ELSE P_isoaer1 = chem_index_table( PARAM_isoaer1 , idomain ) END IF chem_boundary_table( idomain, P_isoaer1 ) = .TRUE. chem_dname_table( idomain, P_isoaer1 ) = 'isoaer1' chem_desc_table( idomain, P_isoaer1 ) = 'ISOAER1 concentration' chem_units_table( idomain, P_isoaer1 ) = 'ppmv' chem_streams_table( idomain, P_isoaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_isoaer1 )%stream(2) = 2097216 F_isoaer1 = .TRUE. IF ( chem_index_table( PARAM_isoaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoaer2 = chem_num_table(idomain) chem_index_table( PARAM_isoaer2 , idomain ) = P_isoaer2 ELSE P_isoaer2 = chem_index_table( PARAM_isoaer2 , idomain ) END IF chem_boundary_table( idomain, P_isoaer2 ) = .TRUE. chem_dname_table( idomain, P_isoaer2 ) = 'isoaer2' chem_desc_table( idomain, P_isoaer2 ) = 'ISOAER2 concentration' chem_units_table( idomain, P_isoaer2 ) = 'ppmv' chem_streams_table( idomain, P_isoaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isoaer2 )%stream(2) = 2097216 F_isoaer2 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_sulaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulaer = chem_num_table(idomain) chem_index_table( PARAM_sulaer , idomain ) = P_sulaer ELSE P_sulaer = chem_index_table( PARAM_sulaer , idomain ) END IF chem_boundary_table( idomain, P_sulaer ) = .TRUE. chem_dname_table( idomain, P_sulaer ) = 'sulaer' chem_desc_table( idomain, P_sulaer ) = 'SULAER concentration' chem_units_table( idomain, P_sulaer ) = 'ppmv' chem_streams_table( idomain, P_sulaer )%stream(1) = 33554433 chem_streams_table( idomain, P_sulaer )%stream(2) = 2097216 F_sulaer = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 F_etoh = .TRUE. IF ( chem_index_table( PARAM_etha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etha = chem_num_table(idomain) chem_index_table( PARAM_etha , idomain ) = P_etha ELSE P_etha = chem_index_table( PARAM_etha , idomain ) END IF chem_boundary_table( idomain, P_etha ) = .TRUE. chem_dname_table( idomain, P_etha ) = 'etha' chem_desc_table( idomain, P_etha ) = 'ETHA concentration' chem_units_table( idomain, P_etha ) = 'ppmv' chem_streams_table( idomain, P_etha )%stream(1) = 33554433 chem_streams_table( idomain, P_etha )%stream(2) = 2097216 F_etha = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 F_terp = .TRUE. IF ( chem_index_table( PARAM_terpaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpaer = chem_num_table(idomain) chem_index_table( PARAM_terpaer , idomain ) = P_terpaer ELSE P_terpaer = chem_index_table( PARAM_terpaer , idomain ) END IF chem_boundary_table( idomain, P_terpaer ) = .TRUE. chem_dname_table( idomain, P_terpaer ) = 'terpaer' chem_desc_table( idomain, P_terpaer ) = 'TERPAER concentration' chem_units_table( idomain, P_terpaer ) = 'ppmv' chem_streams_table( idomain, P_terpaer )%stream(1) = 33554433 chem_streams_table( idomain, P_terpaer )%stream(2) = 2097216 F_terpaer = .TRUE. IF ( chem_index_table( PARAM_hum , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hum = chem_num_table(idomain) chem_index_table( PARAM_hum , idomain ) = P_hum ELSE P_hum = chem_index_table( PARAM_hum , idomain ) END IF chem_boundary_table( idomain, P_hum ) = .TRUE. chem_dname_table( idomain, P_hum ) = 'hum' chem_desc_table( idomain, P_hum ) = 'HUM concentration' chem_units_table( idomain, P_hum ) = 'ppmv' chem_streams_table( idomain, P_hum )%stream(1) = 33554433 chem_streams_table( idomain, P_hum )%stream(2) = 2097216 F_hum = .TRUE. IF ( chem_index_table( PARAM_humaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_humaer = chem_num_table(idomain) chem_index_table( PARAM_humaer , idomain ) = P_humaer ELSE P_humaer = chem_index_table( PARAM_humaer , idomain ) END IF chem_boundary_table( idomain, P_humaer ) = .TRUE. chem_dname_table( idomain, P_humaer ) = 'humaer' chem_desc_table( idomain, P_humaer ) = 'HUMAER concentration' chem_units_table( idomain, P_humaer ) = 'ppmv' chem_streams_table( idomain, P_humaer )%stream(1) = 33554433 chem_streams_table( idomain, P_humaer )%stream(2) = 2097216 F_humaer = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_limaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limaer1 = chem_num_table(idomain) chem_index_table( PARAM_limaer1 , idomain ) = P_limaer1 ELSE P_limaer1 = chem_index_table( PARAM_limaer1 , idomain ) END IF chem_boundary_table( idomain, P_limaer1 ) = .TRUE. chem_dname_table( idomain, P_limaer1 ) = 'limaer1' chem_desc_table( idomain, P_limaer1 ) = 'LIMAER1 concentration' chem_units_table( idomain, P_limaer1 ) = 'ppmv' chem_streams_table( idomain, P_limaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_limaer1 )%stream(2) = 2097216 F_limaer1 = .TRUE. IF ( chem_index_table( PARAM_limaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limaer2 = chem_num_table(idomain) chem_index_table( PARAM_limaer2 , idomain ) = P_limaer2 ELSE P_limaer2 = chem_index_table( PARAM_limaer2 , idomain ) END IF chem_boundary_table( idomain, P_limaer2 ) = .TRUE. chem_dname_table( idomain, P_limaer2 ) = 'limaer2' chem_desc_table( idomain, P_limaer2 ) = 'LIMAER2 concentration' chem_units_table( idomain, P_limaer2 ) = 'ppmv' chem_streams_table( idomain, P_limaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_limaer2 )%stream(2) = 2097216 F_limaer2 = .TRUE. IF ( chem_index_table( PARAM_oci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oci = chem_num_table(idomain) chem_index_table( PARAM_oci , idomain ) = P_oci ELSE P_oci = chem_index_table( PARAM_oci , idomain ) END IF chem_boundary_table( idomain, P_oci ) = .TRUE. chem_dname_table( idomain, P_oci ) = 'oci' chem_desc_table( idomain, P_oci ) = 'OCI concentration' chem_units_table( idomain, P_oci ) = 'ppmv' chem_streams_table( idomain, P_oci )%stream(1) = 33554433 chem_streams_table( idomain, P_oci )%stream(2) = 2097216 F_oci = .TRUE. IF ( chem_index_table( PARAM_ociaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ociaer1 = chem_num_table(idomain) chem_index_table( PARAM_ociaer1 , idomain ) = P_ociaer1 ELSE P_ociaer1 = chem_index_table( PARAM_ociaer1 , idomain ) END IF chem_boundary_table( idomain, P_ociaer1 ) = .TRUE. chem_dname_table( idomain, P_ociaer1 ) = 'ociaer1' chem_desc_table( idomain, P_ociaer1 ) = 'OCIAER1 concentration' chem_units_table( idomain, P_ociaer1 ) = 'ppmv' chem_streams_table( idomain, P_ociaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ociaer1 )%stream(2) = 2097216 F_ociaer1 = .TRUE. IF ( chem_index_table( PARAM_ociaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ociaer2 = chem_num_table(idomain) chem_index_table( PARAM_ociaer2 , idomain ) = P_ociaer2 ELSE P_ociaer2 = chem_index_table( PARAM_ociaer2 , idomain ) END IF chem_boundary_table( idomain, P_ociaer2 ) = .TRUE. chem_dname_table( idomain, P_ociaer2 ) = 'ociaer2' chem_desc_table( idomain, P_ociaer2 ) = 'OCIAER2 concentration' chem_units_table( idomain, P_ociaer2 ) = 'ppmv' chem_streams_table( idomain, P_ociaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ociaer2 )%stream(2) = 2097216 F_ociaer2 = .TRUE. IF ( chem_index_table( PARAM_apin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apin = chem_num_table(idomain) chem_index_table( PARAM_apin , idomain ) = P_apin ELSE P_apin = chem_index_table( PARAM_apin , idomain ) END IF chem_boundary_table( idomain, P_apin ) = .TRUE. chem_dname_table( idomain, P_apin ) = 'apin' chem_desc_table( idomain, P_apin ) = 'APIN mixing ratio' chem_units_table( idomain, P_apin ) = 'ppmv' chem_streams_table( idomain, P_apin )%stream(1) = 33554433 chem_streams_table( idomain, P_apin )%stream(2) = 2097216 F_apin = .TRUE. IF ( chem_index_table( PARAM_apinaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer1 = chem_num_table(idomain) chem_index_table( PARAM_apinaer1 , idomain ) = P_apinaer1 ELSE P_apinaer1 = chem_index_table( PARAM_apinaer1 , idomain ) END IF chem_boundary_table( idomain, P_apinaer1 ) = .TRUE. chem_dname_table( idomain, P_apinaer1 ) = 'apinaer1' chem_desc_table( idomain, P_apinaer1 ) = 'APINAER1 concentration' chem_units_table( idomain, P_apinaer1 ) = 'ppmv' chem_streams_table( idomain, P_apinaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_apinaer1 )%stream(2) = 2097216 F_apinaer1 = .TRUE. IF ( chem_index_table( PARAM_apinaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer2 = chem_num_table(idomain) chem_index_table( PARAM_apinaer2 , idomain ) = P_apinaer2 ELSE P_apinaer2 = chem_index_table( PARAM_apinaer2 , idomain ) END IF chem_boundary_table( idomain, P_apinaer2 ) = .TRUE. chem_dname_table( idomain, P_apinaer2 ) = 'apinaer2' chem_desc_table( idomain, P_apinaer2 ) = 'APINAER2 concentration' chem_units_table( idomain, P_apinaer2 ) = 'ppmv' chem_streams_table( idomain, P_apinaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_apinaer2 )%stream(2) = 2097216 F_apinaer2 = .TRUE. IF ( chem_index_table( PARAM_apinaer3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer3 = chem_num_table(idomain) chem_index_table( PARAM_apinaer3 , idomain ) = P_apinaer3 ELSE P_apinaer3 = chem_index_table( PARAM_apinaer3 , idomain ) END IF chem_boundary_table( idomain, P_apinaer3 ) = .TRUE. chem_dname_table( idomain, P_apinaer3 ) = 'apinaer3' chem_desc_table( idomain, P_apinaer3 ) = 'APINAER3 concentration' chem_units_table( idomain, P_apinaer3 ) = 'ppmv' chem_streams_table( idomain, P_apinaer3 )%stream(1) = 33554433 chem_streams_table( idomain, P_apinaer3 )%stream(2) = 2097216 F_apinaer3 = .TRUE. IF ( chem_index_table( PARAM_apinaer4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer4 = chem_num_table(idomain) chem_index_table( PARAM_apinaer4 , idomain ) = P_apinaer4 ELSE P_apinaer4 = chem_index_table( PARAM_apinaer4 , idomain ) END IF chem_boundary_table( idomain, P_apinaer4 ) = .TRUE. chem_dname_table( idomain, P_apinaer4 ) = 'apinaer4' chem_desc_table( idomain, P_apinaer4 ) = 'APINAER4 concentration' chem_units_table( idomain, P_apinaer4 ) = 'ppmv' chem_streams_table( idomain, P_apinaer4 )%stream(1) = 33554433 chem_streams_table( idomain, P_apinaer4 )%stream(2) = 2097216 F_apinaer4 = .TRUE. IF ( chem_index_table( PARAM_bpin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpin = chem_num_table(idomain) chem_index_table( PARAM_bpin , idomain ) = P_bpin ELSE P_bpin = chem_index_table( PARAM_bpin , idomain ) END IF chem_boundary_table( idomain, P_bpin ) = .TRUE. chem_dname_table( idomain, P_bpin ) = 'bpin' chem_desc_table( idomain, P_bpin ) = 'BPIN mixing ratio' chem_units_table( idomain, P_bpin ) = 'ppmv' chem_streams_table( idomain, P_bpin )%stream(1) = 33554433 chem_streams_table( idomain, P_bpin )%stream(2) = 2097216 F_bpin = .TRUE. IF ( chem_index_table( PARAM_bpinaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer1 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer1 , idomain ) = P_bpinaer1 ELSE P_bpinaer1 = chem_index_table( PARAM_bpinaer1 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer1 ) = .TRUE. chem_dname_table( idomain, P_bpinaer1 ) = 'bpinaer1' chem_desc_table( idomain, P_bpinaer1 ) = 'BPINAER1 concentration' chem_units_table( idomain, P_bpinaer1 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer1 )%stream(2) = 2097216 F_bpinaer1 = .TRUE. IF ( chem_index_table( PARAM_bpinaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer2 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer2 , idomain ) = P_bpinaer2 ELSE P_bpinaer2 = chem_index_table( PARAM_bpinaer2 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer2 ) = .TRUE. chem_dname_table( idomain, P_bpinaer2 ) = 'bpinaer2' chem_desc_table( idomain, P_bpinaer2 ) = 'BPINAER2 concentration' chem_units_table( idomain, P_bpinaer2 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer2 )%stream(2) = 2097216 F_bpinaer2 = .TRUE. IF ( chem_index_table( PARAM_bpinaer3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer3 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer3 , idomain ) = P_bpinaer3 ELSE P_bpinaer3 = chem_index_table( PARAM_bpinaer3 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer3 ) = .TRUE. chem_dname_table( idomain, P_bpinaer3 ) = 'bpinaer3' chem_desc_table( idomain, P_bpinaer3 ) = 'BPINAER3 concentration' chem_units_table( idomain, P_bpinaer3 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer3 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer3 )%stream(2) = 2097216 F_bpinaer3 = .TRUE. IF ( chem_index_table( PARAM_bpinaer4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer4 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer4 , idomain ) = P_bpinaer4 ELSE P_bpinaer4 = chem_index_table( PARAM_bpinaer4 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer4 ) = .TRUE. chem_dname_table( idomain, P_bpinaer4 ) = 'bpinaer4' chem_desc_table( idomain, P_bpinaer4 ) = 'BPINAER4 concentration' chem_units_table( idomain, P_bpinaer4 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer4 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer4 )%stream(2) = 2097216 F_bpinaer4 = .TRUE. IF ( chem_index_table( PARAM_bpinaer5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer5 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer5 , idomain ) = P_bpinaer5 ELSE P_bpinaer5 = chem_index_table( PARAM_bpinaer5 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer5 ) = .TRUE. chem_dname_table( idomain, P_bpinaer5 ) = 'bpinaer5' chem_desc_table( idomain, P_bpinaer5 ) = 'BPINAER5 concentration' chem_units_table( idomain, P_bpinaer5 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer5 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer5 )%stream(2) = 2097216 F_bpinaer5 = .TRUE. IF ( chem_index_table( PARAM_ter , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ter = chem_num_table(idomain) chem_index_table( PARAM_ter , idomain ) = P_ter ELSE P_ter = chem_index_table( PARAM_ter , idomain ) END IF chem_boundary_table( idomain, P_ter ) = .TRUE. chem_dname_table( idomain, P_ter ) = 'ter' chem_desc_table( idomain, P_ter ) = 'TER concentration' chem_units_table( idomain, P_ter ) = 'ppmv' chem_streams_table( idomain, P_ter )%stream(1) = 33554433 chem_streams_table( idomain, P_ter )%stream(2) = 2097216 F_ter = .TRUE. IF ( chem_index_table( PARAM_teraer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_teraer1 = chem_num_table(idomain) chem_index_table( PARAM_teraer1 , idomain ) = P_teraer1 ELSE P_teraer1 = chem_index_table( PARAM_teraer1 , idomain ) END IF chem_boundary_table( idomain, P_teraer1 ) = .TRUE. chem_dname_table( idomain, P_teraer1 ) = 'teraer1' chem_desc_table( idomain, P_teraer1 ) = 'TERAER1 concentration' chem_units_table( idomain, P_teraer1 ) = 'ppmv' chem_streams_table( idomain, P_teraer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_teraer1 )%stream(2) = 2097216 F_teraer1 = .TRUE. IF ( chem_index_table( PARAM_teraer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_teraer2 = chem_num_table(idomain) chem_index_table( PARAM_teraer2 , idomain ) = P_teraer2 ELSE P_teraer2 = chem_index_table( PARAM_teraer2 , idomain ) END IF chem_boundary_table( idomain, P_teraer2 ) = .TRUE. chem_dname_table( idomain, P_teraer2 ) = 'teraer2' chem_desc_table( idomain, P_teraer2 ) = 'TERAER2 concentration' chem_units_table( idomain, P_teraer2 ) = 'ppmv' chem_streams_table( idomain, P_teraer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_teraer2 )%stream(2) = 2097216 F_teraer2 = .TRUE. IF ( chem_index_table( PARAM_alkh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkh = chem_num_table(idomain) chem_index_table( PARAM_alkh , idomain ) = P_alkh ELSE P_alkh = chem_index_table( PARAM_alkh , idomain ) END IF chem_boundary_table( idomain, P_alkh ) = .TRUE. chem_dname_table( idomain, P_alkh ) = 'alkh' chem_desc_table( idomain, P_alkh ) = 'ALKH concentration' chem_units_table( idomain, P_alkh ) = 'ppmv' chem_streams_table( idomain, P_alkh )%stream(1) = 33554433 chem_streams_table( idomain, P_alkh )%stream(2) = 2097216 F_alkh = .TRUE. IF ( chem_index_table( PARAM_alkhaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkhaer1 = chem_num_table(idomain) chem_index_table( PARAM_alkhaer1 , idomain ) = P_alkhaer1 ELSE P_alkhaer1 = chem_index_table( PARAM_alkhaer1 , idomain ) END IF chem_boundary_table( idomain, P_alkhaer1 ) = .TRUE. chem_dname_table( idomain, P_alkhaer1 ) = 'alkhaer1' chem_desc_table( idomain, P_alkhaer1 ) = 'ALKHAER1 concentration' chem_units_table( idomain, P_alkhaer1 ) = 'ppmv' chem_streams_table( idomain, P_alkhaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_alkhaer1 )%stream(2) = 2097216 F_alkhaer1 = .TRUE. IF ( chem_index_table( PARAM_pah , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pah = chem_num_table(idomain) chem_index_table( PARAM_pah , idomain ) = P_pah ELSE P_pah = chem_index_table( PARAM_pah , idomain ) END IF chem_boundary_table( idomain, P_pah ) = .TRUE. chem_dname_table( idomain, P_pah ) = 'pah' chem_desc_table( idomain, P_pah ) = 'PAH concentration' chem_units_table( idomain, P_pah ) = 'ppmv' chem_streams_table( idomain, P_pah )%stream(1) = 33554433 chem_streams_table( idomain, P_pah )%stream(2) = 2097216 F_pah = .TRUE. IF ( chem_index_table( PARAM_pahaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pahaer1 = chem_num_table(idomain) chem_index_table( PARAM_pahaer1 , idomain ) = P_pahaer1 ELSE P_pahaer1 = chem_index_table( PARAM_pahaer1 , idomain ) END IF chem_boundary_table( idomain, P_pahaer1 ) = .TRUE. chem_dname_table( idomain, P_pahaer1 ) = 'pahaer1' chem_desc_table( idomain, P_pahaer1 ) = 'PAHAER1 concentration' chem_units_table( idomain, P_pahaer1 ) = 'ppmv' chem_streams_table( idomain, P_pahaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_pahaer1 )%stream(2) = 2097216 F_pahaer1 = .TRUE. IF ( chem_index_table( PARAM_pahaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pahaer2 = chem_num_table(idomain) chem_index_table( PARAM_pahaer2 , idomain ) = P_pahaer2 ELSE P_pahaer2 = chem_index_table( PARAM_pahaer2 , idomain ) END IF chem_boundary_table( idomain, P_pahaer2 ) = .TRUE. chem_dname_table( idomain, P_pahaer2 ) = 'pahaer2' chem_desc_table( idomain, P_pahaer2 ) = 'PAHAER2 concentration' chem_units_table( idomain, P_pahaer2 ) = 'ppmv' chem_streams_table( idomain, P_pahaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pahaer2 )%stream(2) = 2097216 F_pahaer2 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 F_h2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl = chem_num_table(idomain) chem_index_table( PARAM_cl , idomain ) = P_cl ELSE P_cl = chem_index_table( PARAM_cl , idomain ) END IF chem_boundary_table( idomain, P_cl ) = .TRUE. chem_dname_table( idomain, P_cl ) = 'cl' chem_desc_table( idomain, P_cl ) = 'CL concentration' chem_units_table( idomain, P_cl ) = 'ppmv' chem_streams_table( idomain, P_cl )%stream(1) = 33554433 chem_streams_table( idomain, P_cl )%stream(2) = 2097216 F_cl = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_fmcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_fmcl = chem_num_table(idomain) chem_index_table( PARAM_fmcl , idomain ) = P_fmcl ELSE P_fmcl = chem_index_table( PARAM_fmcl , idomain ) END IF chem_boundary_table( idomain, P_fmcl ) = .TRUE. chem_dname_table( idomain, P_fmcl ) = 'fmcl' chem_desc_table( idomain, P_fmcl ) = 'FMCL concentration' chem_units_table( idomain, P_fmcl ) = 'ppmv' chem_streams_table( idomain, P_fmcl )%stream(1) = 33554433 chem_streams_table( idomain, P_fmcl )%stream(2) = 2097216 F_fmcl = .TRUE. IF ( chem_index_table( PARAM_hg0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hg0 = chem_num_table(idomain) chem_index_table( PARAM_hg0 , idomain ) = P_hg0 ELSE P_hg0 = chem_index_table( PARAM_hg0 , idomain ) END IF chem_boundary_table( idomain, P_hg0 ) = .TRUE. chem_dname_table( idomain, P_hg0 ) = 'hg0' chem_desc_table( idomain, P_hg0 ) = 'HG0 concentration' chem_units_table( idomain, P_hg0 ) = 'ppmv' chem_streams_table( idomain, P_hg0 )%stream(1) = 33554433 chem_streams_table( idomain, P_hg0 )%stream(2) = 2097216 F_hg0 = .TRUE. IF ( chem_index_table( PARAM_hg2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hg2 = chem_num_table(idomain) chem_index_table( PARAM_hg2 , idomain ) = P_hg2 ELSE P_hg2 = chem_index_table( PARAM_hg2 , idomain ) END IF chem_boundary_table( idomain, P_hg2 ) = .TRUE. chem_dname_table( idomain, P_hg2 ) = 'hg2' chem_desc_table( idomain, P_hg2 ) = 'HG2 concentration' chem_units_table( idomain, P_hg2 ) = 'ppmv' chem_streams_table( idomain, P_hg2 )%stream(1) = 33554433 chem_streams_table( idomain, P_hg2 )%stream(2) = 2097216 F_hg2 = .TRUE. IF ( chem_index_table( PARAM_hocl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hocl = chem_num_table(idomain) chem_index_table( PARAM_hocl , idomain ) = P_hocl ELSE P_hocl = chem_index_table( PARAM_hocl , idomain ) END IF chem_boundary_table( idomain, P_hocl ) = .TRUE. chem_dname_table( idomain, P_hocl ) = 'hocl' chem_desc_table( idomain, P_hocl ) = 'HOCL concentration' chem_units_table( idomain, P_hocl ) = 'ppmv' chem_streams_table( idomain, P_hocl )%stream(1) = 33554433 chem_streams_table( idomain, P_hocl )%stream(2) = 2097216 F_hocl = .TRUE. IF ( chem_index_table( PARAM_clo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clo = chem_num_table(idomain) chem_index_table( PARAM_clo , idomain ) = P_clo ELSE P_clo = chem_index_table( PARAM_clo , idomain ) END IF chem_boundary_table( idomain, P_clo ) = .TRUE. chem_dname_table( idomain, P_clo ) = 'clo' chem_desc_table( idomain, P_clo ) = 'CLO concentration' chem_units_table( idomain, P_clo ) = 'ppmv' chem_streams_table( idomain, P_clo )%stream(1) = 33554433 chem_streams_table( idomain, P_clo )%stream(2) = 2097216 F_clo = .TRUE. IF ( chem_index_table( PARAM_cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl2 = chem_num_table(idomain) chem_index_table( PARAM_cl2 , idomain ) = P_cl2 ELSE P_cl2 = chem_index_table( PARAM_cl2 , idomain ) END IF chem_boundary_table( idomain, P_cl2 ) = .TRUE. chem_dname_table( idomain, P_cl2 ) = 'cl2' chem_desc_table( idomain, P_cl2 ) = 'CL2 concentration' chem_units_table( idomain, P_cl2 ) = 'ppmv' chem_streams_table( idomain, P_cl2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl2 )%stream(2) = 2097216 F_cl2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_orgaro1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1j = chem_num_table(idomain) chem_index_table( PARAM_orgaro1j , idomain ) = P_orgaro1j ELSE P_orgaro1j = chem_index_table( PARAM_orgaro1j , idomain ) END IF chem_boundary_table( idomain, P_orgaro1j ) = .TRUE. chem_dname_table( idomain, P_orgaro1j ) = 'orgaro1j' chem_desc_table( idomain, P_orgaro1j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1j )%stream(2) = 2097216 F_orgaro1j = .TRUE. IF ( chem_index_table( PARAM_orgaro1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1i = chem_num_table(idomain) chem_index_table( PARAM_orgaro1i , idomain ) = P_orgaro1i ELSE P_orgaro1i = chem_index_table( PARAM_orgaro1i , idomain ) END IF chem_boundary_table( idomain, P_orgaro1i ) = .TRUE. chem_dname_table( idomain, P_orgaro1i ) = 'orgaro1i' chem_desc_table( idomain, P_orgaro1i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1i )%stream(2) = 2097216 F_orgaro1i = .TRUE. IF ( chem_index_table( PARAM_orgaro2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2j = chem_num_table(idomain) chem_index_table( PARAM_orgaro2j , idomain ) = P_orgaro2j ELSE P_orgaro2j = chem_index_table( PARAM_orgaro2j , idomain ) END IF chem_boundary_table( idomain, P_orgaro2j ) = .TRUE. chem_dname_table( idomain, P_orgaro2j ) = 'orgaro2j' chem_desc_table( idomain, P_orgaro2j ) = 'SOA Anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgaro2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2j )%stream(2) = 2097216 F_orgaro2j = .TRUE. IF ( chem_index_table( PARAM_orgaro2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2i = chem_num_table(idomain) chem_index_table( PARAM_orgaro2i , idomain ) = P_orgaro2i ELSE P_orgaro2i = chem_index_table( PARAM_orgaro2i , idomain ) END IF chem_boundary_table( idomain, P_orgaro2i ) = .TRUE. chem_dname_table( idomain, P_orgaro2i ) = 'orgaro2i' chem_desc_table( idomain, P_orgaro2i ) = 'SOA Anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgaro2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2i )%stream(2) = 2097216 F_orgaro2i = .TRUE. IF ( chem_index_table( PARAM_orgalk1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1j = chem_num_table(idomain) chem_index_table( PARAM_orgalk1j , idomain ) = P_orgalk1j ELSE P_orgalk1j = chem_index_table( PARAM_orgalk1j , idomain ) END IF chem_boundary_table( idomain, P_orgalk1j ) = .TRUE. chem_dname_table( idomain, P_orgalk1j ) = 'orgalk1j' chem_desc_table( idomain, P_orgalk1j ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgalk1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1j )%stream(2) = 2097216 F_orgalk1j = .TRUE. IF ( chem_index_table( PARAM_orgalk1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1i = chem_num_table(idomain) chem_index_table( PARAM_orgalk1i , idomain ) = P_orgalk1i ELSE P_orgalk1i = chem_index_table( PARAM_orgalk1i , idomain ) END IF chem_boundary_table( idomain, P_orgalk1i ) = .TRUE. chem_dname_table( idomain, P_orgalk1i ) = 'orgalk1i' chem_desc_table( idomain, P_orgalk1i ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgalk1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1i )%stream(2) = 2097216 F_orgalk1i = .TRUE. IF ( chem_index_table( PARAM_orgole1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1j = chem_num_table(idomain) chem_index_table( PARAM_orgole1j , idomain ) = P_orgole1j ELSE P_orgole1j = chem_index_table( PARAM_orgole1j , idomain ) END IF chem_boundary_table( idomain, P_orgole1j ) = .TRUE. chem_dname_table( idomain, P_orgole1j ) = 'orgole1j' chem_desc_table( idomain, P_orgole1j ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode' chem_units_table( idomain, P_orgole1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1j )%stream(2) = 2097216 F_orgole1j = .TRUE. IF ( chem_index_table( PARAM_orgole1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1i = chem_num_table(idomain) chem_index_table( PARAM_orgole1i , idomain ) = P_orgole1i ELSE P_orgole1i = chem_index_table( PARAM_orgole1i , idomain ) END IF chem_boundary_table( idomain, P_orgole1i ) = .TRUE. chem_dname_table( idomain, P_orgole1i ) = 'orgole1i' chem_desc_table( idomain, P_orgole1i ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode' chem_units_table( idomain, P_orgole1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1i )%stream(2) = 2097216 F_orgole1i = .TRUE. IF ( chem_index_table( PARAM_orgba1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1j = chem_num_table(idomain) chem_index_table( PARAM_orgba1j , idomain ) = P_orgba1j ELSE P_orgba1j = chem_index_table( PARAM_orgba1j , idomain ) END IF chem_boundary_table( idomain, P_orgba1j ) = .TRUE. chem_dname_table( idomain, P_orgba1j ) = 'orgba1j' chem_desc_table( idomain, P_orgba1j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1j )%stream(2) = 2097216 F_orgba1j = .TRUE. IF ( chem_index_table( PARAM_orgba1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1i = chem_num_table(idomain) chem_index_table( PARAM_orgba1i , idomain ) = P_orgba1i ELSE P_orgba1i = chem_index_table( PARAM_orgba1i , idomain ) END IF chem_boundary_table( idomain, P_orgba1i ) = .TRUE. chem_dname_table( idomain, P_orgba1i ) = 'orgba1i' chem_desc_table( idomain, P_orgba1i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1i )%stream(2) = 2097216 F_orgba1i = .TRUE. IF ( chem_index_table( PARAM_orgba2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2j = chem_num_table(idomain) chem_index_table( PARAM_orgba2j , idomain ) = P_orgba2j ELSE P_orgba2j = chem_index_table( PARAM_orgba2j , idomain ) END IF chem_boundary_table( idomain, P_orgba2j ) = .TRUE. chem_dname_table( idomain, P_orgba2j ) = 'orgba2j' chem_desc_table( idomain, P_orgba2j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2j )%stream(2) = 2097216 F_orgba2j = .TRUE. IF ( chem_index_table( PARAM_orgba2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2i = chem_num_table(idomain) chem_index_table( PARAM_orgba2i , idomain ) = P_orgba2i ELSE P_orgba2i = chem_index_table( PARAM_orgba2i , idomain ) END IF chem_boundary_table( idomain, P_orgba2i ) = .TRUE. chem_dname_table( idomain, P_orgba2i ) = 'orgba2i' chem_desc_table( idomain, P_orgba2i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2i )%stream(2) = 2097216 F_orgba2i = .TRUE. IF ( chem_index_table( PARAM_orgba3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3j = chem_num_table(idomain) chem_index_table( PARAM_orgba3j , idomain ) = P_orgba3j ELSE P_orgba3j = chem_index_table( PARAM_orgba3j , idomain ) END IF chem_boundary_table( idomain, P_orgba3j ) = .TRUE. chem_dname_table( idomain, P_orgba3j ) = 'orgba3j' chem_desc_table( idomain, P_orgba3j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3j )%stream(2) = 2097216 F_orgba3j = .TRUE. IF ( chem_index_table( PARAM_orgba3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3i = chem_num_table(idomain) chem_index_table( PARAM_orgba3i , idomain ) = P_orgba3i ELSE P_orgba3i = chem_index_table( PARAM_orgba3i , idomain ) END IF chem_boundary_table( idomain, P_orgba3i ) = .TRUE. chem_dname_table( idomain, P_orgba3i ) = 'orgba3i' chem_desc_table( idomain, P_orgba3i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3i )%stream(2) = 2097216 F_orgba3i = .TRUE. IF ( chem_index_table( PARAM_orgba4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4j = chem_num_table(idomain) chem_index_table( PARAM_orgba4j , idomain ) = P_orgba4j ELSE P_orgba4j = chem_index_table( PARAM_orgba4j , idomain ) END IF chem_boundary_table( idomain, P_orgba4j ) = .TRUE. chem_dname_table( idomain, P_orgba4j ) = 'orgba4j' chem_desc_table( idomain, P_orgba4j ) = 'SOA Biog. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgba4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4j )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4j )%stream(2) = 2097216 F_orgba4j = .TRUE. IF ( chem_index_table( PARAM_orgba4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4i = chem_num_table(idomain) chem_index_table( PARAM_orgba4i , idomain ) = P_orgba4i ELSE P_orgba4i = chem_index_table( PARAM_orgba4i , idomain ) END IF chem_boundary_table( idomain, P_orgba4i ) = .TRUE. chem_dname_table( idomain, P_orgba4i ) = 'orgba4i' chem_desc_table( idomain, P_orgba4i ) = 'SOA Biog. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgba4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4i )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4i )%stream(2) = 2097216 F_orgba4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwj , idomain ) = P_orgaro1cwj ELSE P_orgaro1cwj = chem_index_table( PARAM_orgaro1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwj ) = 'orgaro1cwj' chem_desc_table( idomain, P_orgaro1cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwj )%stream(2) = 2097216 F_orgaro1cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro1cwi , idomain ) = P_orgaro1cwi ELSE P_orgaro1cwi = chem_index_table( PARAM_orgaro1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro1cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro1cwi ) = 'orgaro1cwi' chem_desc_table( idomain, P_orgaro1cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro1cwi )%stream(2) = 2097216 F_orgaro1cwi = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwj , idomain ) = P_orgaro2cwj ELSE P_orgaro2cwj = chem_index_table( PARAM_orgaro2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwj ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwj ) = 'orgaro2cwj' chem_desc_table( idomain, P_orgaro2cwj ) = 'SOA Anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgaro2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwj )%stream(2) = 2097216 F_orgaro2cwj = .TRUE. IF ( chem_index_table( PARAM_orgaro2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgaro2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgaro2cwi , idomain ) = P_orgaro2cwi ELSE P_orgaro2cwi = chem_index_table( PARAM_orgaro2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgaro2cwi ) = .TRUE. chem_dname_table( idomain, P_orgaro2cwi ) = 'orgaro2cwi' chem_desc_table( idomain, P_orgaro2cwi ) = 'SOA Anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgaro2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgaro2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgaro2cwi )%stream(2) = 2097216 F_orgaro2cwi = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwj , idomain ) = P_orgalk1cwj ELSE P_orgalk1cwj = chem_index_table( PARAM_orgalk1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwj ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwj ) = 'orgalk1cwj' chem_desc_table( idomain, P_orgalk1cwj ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgalk1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwj )%stream(2) = 2097216 F_orgalk1cwj = .TRUE. IF ( chem_index_table( PARAM_orgalk1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgalk1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgalk1cwi , idomain ) = P_orgalk1cwi ELSE P_orgalk1cwi = chem_index_table( PARAM_orgalk1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgalk1cwi ) = .TRUE. chem_dname_table( idomain, P_orgalk1cwi ) = 'orgalk1cwi' chem_desc_table( idomain, P_orgalk1cwi ) = 'SOA Anth. org. conc. from alkanes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgalk1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgalk1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgalk1cwi )%stream(2) = 2097216 F_orgalk1cwi = .TRUE. IF ( chem_index_table( PARAM_orgole1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwj , idomain ) = P_orgole1cwj ELSE P_orgole1cwj = chem_index_table( PARAM_orgole1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwj ) = .TRUE. chem_dname_table( idomain, P_orgole1cwj ) = 'orgole1cwj' chem_desc_table( idomain, P_orgole1cwj ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgole1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwj )%stream(2) = 2097216 F_orgole1cwj = .TRUE. IF ( chem_index_table( PARAM_orgole1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgole1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgole1cwi , idomain ) = P_orgole1cwi ELSE P_orgole1cwi = chem_index_table( PARAM_orgole1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgole1cwi ) = .TRUE. chem_dname_table( idomain, P_orgole1cwi ) = 'orgole1cwi' chem_desc_table( idomain, P_orgole1cwi ) = 'SOA Anth. org. conc. from alkenes and others except aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgole1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgole1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgole1cwi )%stream(2) = 2097216 F_orgole1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwj , idomain ) = P_orgba1cwj ELSE P_orgba1cwj = chem_index_table( PARAM_orgba1cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwj ) = .TRUE. chem_dname_table( idomain, P_orgba1cwj ) = 'orgba1cwj' chem_desc_table( idomain, P_orgba1cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwj )%stream(2) = 2097216 F_orgba1cwj = .TRUE. IF ( chem_index_table( PARAM_orgba1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba1cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba1cwi , idomain ) = P_orgba1cwi ELSE P_orgba1cwi = chem_index_table( PARAM_orgba1cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba1cwi ) = .TRUE. chem_dname_table( idomain, P_orgba1cwi ) = 'orgba1cwi' chem_desc_table( idomain, P_orgba1cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba1cwi )%stream(2) = 2097216 F_orgba1cwi = .TRUE. IF ( chem_index_table( PARAM_orgba2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwj , idomain ) = P_orgba2cwj ELSE P_orgba2cwj = chem_index_table( PARAM_orgba2cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwj ) = .TRUE. chem_dname_table( idomain, P_orgba2cwj ) = 'orgba2cwj' chem_desc_table( idomain, P_orgba2cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwj )%stream(2) = 2097216 F_orgba2cwj = .TRUE. IF ( chem_index_table( PARAM_orgba2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba2cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba2cwi , idomain ) = P_orgba2cwi ELSE P_orgba2cwi = chem_index_table( PARAM_orgba2cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba2cwi ) = .TRUE. chem_dname_table( idomain, P_orgba2cwi ) = 'orgba2cwi' chem_desc_table( idomain, P_orgba2cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba2cwi )%stream(2) = 2097216 F_orgba2cwi = .TRUE. IF ( chem_index_table( PARAM_orgba3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwj , idomain ) = P_orgba3cwj ELSE P_orgba3cwj = chem_index_table( PARAM_orgba3cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwj ) = .TRUE. chem_dname_table( idomain, P_orgba3cwj ) = 'orgba3cwj' chem_desc_table( idomain, P_orgba3cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwj )%stream(2) = 2097216 F_orgba3cwj = .TRUE. IF ( chem_index_table( PARAM_orgba3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba3cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba3cwi , idomain ) = P_orgba3cwi ELSE P_orgba3cwi = chem_index_table( PARAM_orgba3cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba3cwi ) = .TRUE. chem_dname_table( idomain, P_orgba3cwi ) = 'orgba3cwi' chem_desc_table( idomain, P_orgba3cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba3cwi )%stream(2) = 2097216 F_orgba3cwi = .TRUE. IF ( chem_index_table( PARAM_orgba4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwj = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwj , idomain ) = P_orgba4cwj ELSE P_orgba4cwj = chem_index_table( PARAM_orgba4cwj , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwj ) = .TRUE. chem_dname_table( idomain, P_orgba4cwj ) = 'orgba4cwj' chem_desc_table( idomain, P_orgba4cwj ) = 'SOA Biog. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgba4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwj )%stream(2) = 2097216 F_orgba4cwj = .TRUE. IF ( chem_index_table( PARAM_orgba4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgba4cwi = chem_num_table(idomain) chem_index_table( PARAM_orgba4cwi , idomain ) = P_orgba4cwi ELSE P_orgba4cwi = chem_index_table( PARAM_orgba4cwi , idomain ) END IF chem_boundary_table( idomain, P_orgba4cwi ) = .TRUE. chem_dname_table( idomain, P_orgba4cwi ) = 'orgba4cwi' chem_desc_table( idomain, P_orgba4cwi ) = 'SOA Biog. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgba4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgba4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgba4cwi )%stream(2) = 2097216 F_orgba4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==132)THEN IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 chem_streams_table( idomain, P_o )%stream(2) = 2097216 F_o = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_o1d , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d = chem_num_table(idomain) chem_index_table( PARAM_o1d , idomain ) = P_o1d ELSE P_o1d = chem_index_table( PARAM_o1d , idomain ) END IF chem_boundary_table( idomain, P_o1d ) = .TRUE. chem_dname_table( idomain, P_o1d ) = 'o1d' chem_desc_table( idomain, P_o1d ) = 'O1D concentration' chem_units_table( idomain, P_o1d ) = 'ppmv' chem_streams_table( idomain, P_o1d )%stream(1) = 33554433 chem_streams_table( idomain, P_o1d )%stream(2) = 2097216 F_o1d = .TRUE. IF ( chem_index_table( PARAM_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oh = chem_num_table(idomain) chem_index_table( PARAM_oh , idomain ) = P_oh ELSE P_oh = chem_index_table( PARAM_oh , idomain ) END IF chem_boundary_table( idomain, P_oh ) = .TRUE. chem_dname_table( idomain, P_oh ) = 'oh' chem_desc_table( idomain, P_oh ) = 'OH concentration' chem_units_table( idomain, P_oh ) = 'ppmv' chem_streams_table( idomain, P_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_oh )%stream(2) = 2097216 F_oh = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_pna , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pna = chem_num_table(idomain) chem_index_table( PARAM_pna , idomain ) = P_pna ELSE P_pna = chem_index_table( PARAM_pna , idomain ) END IF chem_boundary_table( idomain, P_pna ) = .TRUE. chem_dname_table( idomain, P_pna ) = 'pna' chem_desc_table( idomain, P_pna ) = 'PNA mixing ratio' chem_units_table( idomain, P_pna ) = 'ppmv' chem_streams_table( idomain, P_pna )%stream(1) = 33554433 chem_streams_table( idomain, P_pna )%stream(2) = 2097216 F_pna = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xo2n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2n = chem_num_table(idomain) chem_index_table( PARAM_xo2n , idomain ) = P_xo2n ELSE P_xo2n = chem_index_table( PARAM_xo2n , idomain ) END IF chem_boundary_table( idomain, P_xo2n ) = .TRUE. chem_dname_table( idomain, P_xo2n ) = 'xo2n' chem_desc_table( idomain, P_xo2n ) = 'XO2N mixing ratio' chem_units_table( idomain, P_xo2n ) = 'ppmv' chem_streams_table( idomain, P_xo2n )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2n )%stream(2) = 2097216 F_xo2n = .TRUE. IF ( chem_index_table( PARAM_ntr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ntr = chem_num_table(idomain) chem_index_table( PARAM_ntr , idomain ) = P_ntr ELSE P_ntr = chem_index_table( PARAM_ntr , idomain ) END IF chem_boundary_table( idomain, P_ntr ) = .TRUE. chem_dname_table( idomain, P_ntr ) = 'ntr' chem_desc_table( idomain, P_ntr ) = 'NTR concentration' chem_units_table( idomain, P_ntr ) = 'ppmv' chem_streams_table( idomain, P_ntr )%stream(1) = 33554433 chem_streams_table( idomain, P_ntr )%stream(2) = 2097216 F_ntr = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 F_rooh = .TRUE. IF ( chem_index_table( PARAM_form , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_form = chem_num_table(idomain) chem_index_table( PARAM_form , idomain ) = P_form ELSE P_form = chem_index_table( PARAM_form , idomain ) END IF chem_boundary_table( idomain, P_form ) = .TRUE. chem_dname_table( idomain, P_form ) = 'form' chem_desc_table( idomain, P_form ) = 'FORM concentration' chem_units_table( idomain, P_form ) = 'ppmv' chem_streams_table( idomain, P_form )%stream(1) = 33554433 chem_streams_table( idomain, P_form )%stream(2) = 2097216 F_form = .TRUE. IF ( chem_index_table( PARAM_ald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald2 = chem_num_table(idomain) chem_index_table( PARAM_ald2 , idomain ) = P_ald2 ELSE P_ald2 = chem_index_table( PARAM_ald2 , idomain ) END IF chem_boundary_table( idomain, P_ald2 ) = .TRUE. chem_dname_table( idomain, P_ald2 ) = 'ald2' chem_desc_table( idomain, P_ald2 ) = 'ALD2 mixing ratio' chem_units_table( idomain, P_ald2 ) = 'ppmv' chem_streams_table( idomain, P_ald2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ald2 )%stream(2) = 2097216 F_ald2 = .TRUE. IF ( chem_index_table( PARAM_aldx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aldx = chem_num_table(idomain) chem_index_table( PARAM_aldx , idomain ) = P_aldx ELSE P_aldx = chem_index_table( PARAM_aldx , idomain ) END IF chem_boundary_table( idomain, P_aldx ) = .TRUE. chem_dname_table( idomain, P_aldx ) = 'aldx' chem_desc_table( idomain, P_aldx ) = 'ALDX concentration' chem_units_table( idomain, P_aldx ) = 'ppmv' chem_streams_table( idomain, P_aldx )%stream(1) = 33554433 chem_streams_table( idomain, P_aldx )%stream(2) = 2097216 F_aldx = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_meo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meo2 = chem_num_table(idomain) chem_index_table( PARAM_meo2 , idomain ) = P_meo2 ELSE P_meo2 = chem_index_table( PARAM_meo2 , idomain ) END IF chem_boundary_table( idomain, P_meo2 ) = .TRUE. chem_dname_table( idomain, P_meo2 ) = 'meo2' chem_desc_table( idomain, P_meo2 ) = '' chem_units_table( idomain, P_meo2 ) = '' chem_streams_table( idomain, P_meo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meo2 )%stream(2) = 2097216 F_meo2 = .TRUE. IF ( chem_index_table( PARAM_mepx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mepx = chem_num_table(idomain) chem_index_table( PARAM_mepx , idomain ) = P_mepx ELSE P_mepx = chem_index_table( PARAM_mepx , idomain ) END IF chem_boundary_table( idomain, P_mepx ) = .TRUE. chem_dname_table( idomain, P_mepx ) = 'mepx' chem_desc_table( idomain, P_mepx ) = 'MEPX concentration' chem_units_table( idomain, P_mepx ) = 'ppmv' chem_streams_table( idomain, P_mepx )%stream(1) = 33554433 chem_streams_table( idomain, P_mepx )%stream(2) = 2097216 F_mepx = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 F_meoh = .TRUE. IF ( chem_index_table( PARAM_hco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hco3 = chem_num_table(idomain) chem_index_table( PARAM_hco3 , idomain ) = P_hco3 ELSE P_hco3 = chem_index_table( PARAM_hco3 , idomain ) END IF chem_boundary_table( idomain, P_hco3 ) = .TRUE. chem_dname_table( idomain, P_hco3 ) = 'hco3' chem_desc_table( idomain, P_hco3 ) = 'HCO3 concentration' chem_units_table( idomain, P_hco3 ) = 'ppmv' chem_streams_table( idomain, P_hco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hco3 )%stream(2) = 2097216 F_hco3 = .TRUE. IF ( chem_index_table( PARAM_facd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_facd = chem_num_table(idomain) chem_index_table( PARAM_facd , idomain ) = P_facd ELSE P_facd = chem_index_table( PARAM_facd , idomain ) END IF chem_boundary_table( idomain, P_facd ) = .TRUE. chem_dname_table( idomain, P_facd ) = 'facd' chem_desc_table( idomain, P_facd ) = 'FACD concentration' chem_units_table( idomain, P_facd ) = 'ppmv' chem_streams_table( idomain, P_facd )%stream(1) = 33554433 chem_streams_table( idomain, P_facd )%stream(2) = 2097216 F_facd = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_pacd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pacd = chem_num_table(idomain) chem_index_table( PARAM_pacd , idomain ) = P_pacd ELSE P_pacd = chem_index_table( PARAM_pacd , idomain ) END IF chem_boundary_table( idomain, P_pacd ) = .TRUE. chem_dname_table( idomain, P_pacd ) = 'pacd' chem_desc_table( idomain, P_pacd ) = 'PACD concentration' chem_units_table( idomain, P_pacd ) = 'ppmv' chem_streams_table( idomain, P_pacd )%stream(1) = 33554433 chem_streams_table( idomain, P_pacd )%stream(2) = 2097216 F_pacd = .TRUE. IF ( chem_index_table( PARAM_aacd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aacd = chem_num_table(idomain) chem_index_table( PARAM_aacd , idomain ) = P_aacd ELSE P_aacd = chem_index_table( PARAM_aacd , idomain ) END IF chem_boundary_table( idomain, P_aacd ) = .TRUE. chem_dname_table( idomain, P_aacd ) = 'aacd' chem_desc_table( idomain, P_aacd ) = 'AACD concentration' chem_units_table( idomain, P_aacd ) = 'ppmv' chem_streams_table( idomain, P_aacd )%stream(1) = 33554433 chem_streams_table( idomain, P_aacd )%stream(2) = 2097216 F_aacd = .TRUE. IF ( chem_index_table( PARAM_cxo3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cxo3 = chem_num_table(idomain) chem_index_table( PARAM_cxo3 , idomain ) = P_cxo3 ELSE P_cxo3 = chem_index_table( PARAM_cxo3 , idomain ) END IF chem_boundary_table( idomain, P_cxo3 ) = .TRUE. chem_dname_table( idomain, P_cxo3 ) = 'cxo3' chem_desc_table( idomain, P_cxo3 ) = 'CXO3 concentration' chem_units_table( idomain, P_cxo3 ) = 'ppmv' chem_streams_table( idomain, P_cxo3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cxo3 )%stream(2) = 2097216 F_cxo3 = .TRUE. IF ( chem_index_table( PARAM_panx , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_panx = chem_num_table(idomain) chem_index_table( PARAM_panx , idomain ) = P_panx ELSE P_panx = chem_index_table( PARAM_panx , idomain ) END IF chem_boundary_table( idomain, P_panx ) = .TRUE. chem_dname_table( idomain, P_panx ) = 'panx' chem_desc_table( idomain, P_panx ) = 'PANX concentration' chem_units_table( idomain, P_panx ) = 'ppmv' chem_streams_table( idomain, P_panx )%stream(1) = 33554433 chem_streams_table( idomain, P_panx )%stream(2) = 2097216 F_panx = .TRUE. IF ( chem_index_table( PARAM_ror , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ror = chem_num_table(idomain) chem_index_table( PARAM_ror , idomain ) = P_ror ELSE P_ror = chem_index_table( PARAM_ror , idomain ) END IF chem_boundary_table( idomain, P_ror ) = .TRUE. chem_dname_table( idomain, P_ror ) = 'ror' chem_desc_table( idomain, P_ror ) = 'ROR mixing ratio' chem_units_table( idomain, P_ror ) = 'ppmv' chem_streams_table( idomain, P_ror )%stream(1) = 33554433 chem_streams_table( idomain, P_ror )%stream(2) = 2097216 F_ror = .TRUE. IF ( chem_index_table( PARAM_ole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole = chem_num_table(idomain) chem_index_table( PARAM_ole , idomain ) = P_ole ELSE P_ole = chem_index_table( PARAM_ole , idomain ) END IF chem_boundary_table( idomain, P_ole ) = .TRUE. chem_dname_table( idomain, P_ole ) = 'ole' chem_desc_table( idomain, P_ole ) = 'OLE mixing ratio' chem_units_table( idomain, P_ole ) = 'ppmv' chem_streams_table( idomain, P_ole )%stream(1) = 33554433 chem_streams_table( idomain, P_ole )%stream(2) = 2097216 F_ole = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_iole , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iole = chem_num_table(idomain) chem_index_table( PARAM_iole , idomain ) = P_iole ELSE P_iole = chem_index_table( PARAM_iole , idomain ) END IF chem_boundary_table( idomain, P_iole ) = .TRUE. chem_dname_table( idomain, P_iole ) = 'iole' chem_desc_table( idomain, P_iole ) = 'IOLE concentration' chem_units_table( idomain, P_iole ) = 'ppmv' chem_streams_table( idomain, P_iole )%stream(1) = 33554433 chem_streams_table( idomain, P_iole )%stream(2) = 2097216 F_iole = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_tolaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolaer1 = chem_num_table(idomain) chem_index_table( PARAM_tolaer1 , idomain ) = P_tolaer1 ELSE P_tolaer1 = chem_index_table( PARAM_tolaer1 , idomain ) END IF chem_boundary_table( idomain, P_tolaer1 ) = .TRUE. chem_dname_table( idomain, P_tolaer1 ) = 'tolaer1' chem_desc_table( idomain, P_tolaer1 ) = 'TOLAER1 concentration' chem_units_table( idomain, P_tolaer1 ) = 'ppmv' chem_streams_table( idomain, P_tolaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_tolaer1 )%stream(2) = 2097216 F_tolaer1 = .TRUE. IF ( chem_index_table( PARAM_tolaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolaer2 = chem_num_table(idomain) chem_index_table( PARAM_tolaer2 , idomain ) = P_tolaer2 ELSE P_tolaer2 = chem_index_table( PARAM_tolaer2 , idomain ) END IF chem_boundary_table( idomain, P_tolaer2 ) = .TRUE. chem_dname_table( idomain, P_tolaer2 ) = 'tolaer2' chem_desc_table( idomain, P_tolaer2 ) = 'TOLAER2 concentration' chem_units_table( idomain, P_tolaer2 ) = 'ppmv' chem_streams_table( idomain, P_tolaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_tolaer2 )%stream(2) = 2097216 F_tolaer2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_cslaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cslaer = chem_num_table(idomain) chem_index_table( PARAM_cslaer , idomain ) = P_cslaer ELSE P_cslaer = chem_index_table( PARAM_cslaer , idomain ) END IF chem_boundary_table( idomain, P_cslaer ) = .TRUE. chem_dname_table( idomain, P_cslaer ) = 'cslaer' chem_desc_table( idomain, P_cslaer ) = 'CSLAER concentration' chem_units_table( idomain, P_cslaer ) = 'ppmv' chem_streams_table( idomain, P_cslaer )%stream(1) = 33554433 chem_streams_table( idomain, P_cslaer )%stream(2) = 2097216 F_cslaer = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_xylaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylaer1 = chem_num_table(idomain) chem_index_table( PARAM_xylaer1 , idomain ) = P_xylaer1 ELSE P_xylaer1 = chem_index_table( PARAM_xylaer1 , idomain ) END IF chem_boundary_table( idomain, P_xylaer1 ) = .TRUE. chem_dname_table( idomain, P_xylaer1 ) = 'xylaer1' chem_desc_table( idomain, P_xylaer1 ) = 'XYLAER1 concentration' chem_units_table( idomain, P_xylaer1 ) = 'ppmv' chem_streams_table( idomain, P_xylaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_xylaer1 )%stream(2) = 2097216 F_xylaer1 = .TRUE. IF ( chem_index_table( PARAM_xylaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylaer2 = chem_num_table(idomain) chem_index_table( PARAM_xylaer2 , idomain ) = P_xylaer2 ELSE P_xylaer2 = chem_index_table( PARAM_xylaer2 , idomain ) END IF chem_boundary_table( idomain, P_xylaer2 ) = .TRUE. chem_dname_table( idomain, P_xylaer2 ) = 'xylaer2' chem_desc_table( idomain, P_xylaer2 ) = 'XYLAER2 concentration' chem_units_table( idomain, P_xylaer2 ) = 'ppmv' chem_streams_table( idomain, P_xylaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xylaer2 )%stream(2) = 2097216 F_xylaer2 = .TRUE. IF ( chem_index_table( PARAM_isop , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isop = chem_num_table(idomain) chem_index_table( PARAM_isop , idomain ) = P_isop ELSE P_isop = chem_index_table( PARAM_isop , idomain ) END IF chem_boundary_table( idomain, P_isop ) = .TRUE. chem_dname_table( idomain, P_isop ) = 'isop' chem_desc_table( idomain, P_isop ) = 'ISOP concentration' chem_units_table( idomain, P_isop ) = 'ppmv' chem_streams_table( idomain, P_isop )%stream(1) = 33554433 chem_streams_table( idomain, P_isop )%stream(2) = 2097216 F_isop = .TRUE. IF ( chem_index_table( PARAM_ispd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ispd = chem_num_table(idomain) chem_index_table( PARAM_ispd , idomain ) = P_ispd ELSE P_ispd = chem_index_table( PARAM_ispd , idomain ) END IF chem_boundary_table( idomain, P_ispd ) = .TRUE. chem_dname_table( idomain, P_ispd ) = 'ispd' chem_desc_table( idomain, P_ispd ) = 'ISPD concentration' chem_units_table( idomain, P_ispd ) = 'ppmv' chem_streams_table( idomain, P_ispd )%stream(1) = 33554433 chem_streams_table( idomain, P_ispd )%stream(2) = 2097216 F_ispd = .TRUE. IF ( chem_index_table( PARAM_isoaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoaer1 = chem_num_table(idomain) chem_index_table( PARAM_isoaer1 , idomain ) = P_isoaer1 ELSE P_isoaer1 = chem_index_table( PARAM_isoaer1 , idomain ) END IF chem_boundary_table( idomain, P_isoaer1 ) = .TRUE. chem_dname_table( idomain, P_isoaer1 ) = 'isoaer1' chem_desc_table( idomain, P_isoaer1 ) = 'ISOAER1 concentration' chem_units_table( idomain, P_isoaer1 ) = 'ppmv' chem_streams_table( idomain, P_isoaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_isoaer1 )%stream(2) = 2097216 F_isoaer1 = .TRUE. IF ( chem_index_table( PARAM_isoaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoaer2 = chem_num_table(idomain) chem_index_table( PARAM_isoaer2 , idomain ) = P_isoaer2 ELSE P_isoaer2 = chem_index_table( PARAM_isoaer2 , idomain ) END IF chem_boundary_table( idomain, P_isoaer2 ) = .TRUE. chem_dname_table( idomain, P_isoaer2 ) = 'isoaer2' chem_desc_table( idomain, P_isoaer2 ) = 'ISOAER2 concentration' chem_units_table( idomain, P_isoaer2 ) = 'ppmv' chem_streams_table( idomain, P_isoaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isoaer2 )%stream(2) = 2097216 F_isoaer2 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_sulaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulaer = chem_num_table(idomain) chem_index_table( PARAM_sulaer , idomain ) = P_sulaer ELSE P_sulaer = chem_index_table( PARAM_sulaer , idomain ) END IF chem_boundary_table( idomain, P_sulaer ) = .TRUE. chem_dname_table( idomain, P_sulaer ) = 'sulaer' chem_desc_table( idomain, P_sulaer ) = 'SULAER concentration' chem_units_table( idomain, P_sulaer ) = 'ppmv' chem_streams_table( idomain, P_sulaer )%stream(1) = 33554433 chem_streams_table( idomain, P_sulaer )%stream(2) = 2097216 F_sulaer = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 F_etoh = .TRUE. IF ( chem_index_table( PARAM_etha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etha = chem_num_table(idomain) chem_index_table( PARAM_etha , idomain ) = P_etha ELSE P_etha = chem_index_table( PARAM_etha , idomain ) END IF chem_boundary_table( idomain, P_etha ) = .TRUE. chem_dname_table( idomain, P_etha ) = 'etha' chem_desc_table( idomain, P_etha ) = 'ETHA concentration' chem_units_table( idomain, P_etha ) = 'ppmv' chem_streams_table( idomain, P_etha )%stream(1) = 33554433 chem_streams_table( idomain, P_etha )%stream(2) = 2097216 F_etha = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 F_terp = .TRUE. IF ( chem_index_table( PARAM_terpaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpaer = chem_num_table(idomain) chem_index_table( PARAM_terpaer , idomain ) = P_terpaer ELSE P_terpaer = chem_index_table( PARAM_terpaer , idomain ) END IF chem_boundary_table( idomain, P_terpaer ) = .TRUE. chem_dname_table( idomain, P_terpaer ) = 'terpaer' chem_desc_table( idomain, P_terpaer ) = 'TERPAER concentration' chem_units_table( idomain, P_terpaer ) = 'ppmv' chem_streams_table( idomain, P_terpaer )%stream(1) = 33554433 chem_streams_table( idomain, P_terpaer )%stream(2) = 2097216 F_terpaer = .TRUE. IF ( chem_index_table( PARAM_hum , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hum = chem_num_table(idomain) chem_index_table( PARAM_hum , idomain ) = P_hum ELSE P_hum = chem_index_table( PARAM_hum , idomain ) END IF chem_boundary_table( idomain, P_hum ) = .TRUE. chem_dname_table( idomain, P_hum ) = 'hum' chem_desc_table( idomain, P_hum ) = 'HUM concentration' chem_units_table( idomain, P_hum ) = 'ppmv' chem_streams_table( idomain, P_hum )%stream(1) = 33554433 chem_streams_table( idomain, P_hum )%stream(2) = 2097216 F_hum = .TRUE. IF ( chem_index_table( PARAM_humaer , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_humaer = chem_num_table(idomain) chem_index_table( PARAM_humaer , idomain ) = P_humaer ELSE P_humaer = chem_index_table( PARAM_humaer , idomain ) END IF chem_boundary_table( idomain, P_humaer ) = .TRUE. chem_dname_table( idomain, P_humaer ) = 'humaer' chem_desc_table( idomain, P_humaer ) = 'HUMAER concentration' chem_units_table( idomain, P_humaer ) = 'ppmv' chem_streams_table( idomain, P_humaer )%stream(1) = 33554433 chem_streams_table( idomain, P_humaer )%stream(2) = 2097216 F_humaer = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_limaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limaer1 = chem_num_table(idomain) chem_index_table( PARAM_limaer1 , idomain ) = P_limaer1 ELSE P_limaer1 = chem_index_table( PARAM_limaer1 , idomain ) END IF chem_boundary_table( idomain, P_limaer1 ) = .TRUE. chem_dname_table( idomain, P_limaer1 ) = 'limaer1' chem_desc_table( idomain, P_limaer1 ) = 'LIMAER1 concentration' chem_units_table( idomain, P_limaer1 ) = 'ppmv' chem_streams_table( idomain, P_limaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_limaer1 )%stream(2) = 2097216 F_limaer1 = .TRUE. IF ( chem_index_table( PARAM_limaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limaer2 = chem_num_table(idomain) chem_index_table( PARAM_limaer2 , idomain ) = P_limaer2 ELSE P_limaer2 = chem_index_table( PARAM_limaer2 , idomain ) END IF chem_boundary_table( idomain, P_limaer2 ) = .TRUE. chem_dname_table( idomain, P_limaer2 ) = 'limaer2' chem_desc_table( idomain, P_limaer2 ) = 'LIMAER2 concentration' chem_units_table( idomain, P_limaer2 ) = 'ppmv' chem_streams_table( idomain, P_limaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_limaer2 )%stream(2) = 2097216 F_limaer2 = .TRUE. IF ( chem_index_table( PARAM_oci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oci = chem_num_table(idomain) chem_index_table( PARAM_oci , idomain ) = P_oci ELSE P_oci = chem_index_table( PARAM_oci , idomain ) END IF chem_boundary_table( idomain, P_oci ) = .TRUE. chem_dname_table( idomain, P_oci ) = 'oci' chem_desc_table( idomain, P_oci ) = 'OCI concentration' chem_units_table( idomain, P_oci ) = 'ppmv' chem_streams_table( idomain, P_oci )%stream(1) = 33554433 chem_streams_table( idomain, P_oci )%stream(2) = 2097216 F_oci = .TRUE. IF ( chem_index_table( PARAM_ociaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ociaer1 = chem_num_table(idomain) chem_index_table( PARAM_ociaer1 , idomain ) = P_ociaer1 ELSE P_ociaer1 = chem_index_table( PARAM_ociaer1 , idomain ) END IF chem_boundary_table( idomain, P_ociaer1 ) = .TRUE. chem_dname_table( idomain, P_ociaer1 ) = 'ociaer1' chem_desc_table( idomain, P_ociaer1 ) = 'OCIAER1 concentration' chem_units_table( idomain, P_ociaer1 ) = 'ppmv' chem_streams_table( idomain, P_ociaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ociaer1 )%stream(2) = 2097216 F_ociaer1 = .TRUE. IF ( chem_index_table( PARAM_ociaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ociaer2 = chem_num_table(idomain) chem_index_table( PARAM_ociaer2 , idomain ) = P_ociaer2 ELSE P_ociaer2 = chem_index_table( PARAM_ociaer2 , idomain ) END IF chem_boundary_table( idomain, P_ociaer2 ) = .TRUE. chem_dname_table( idomain, P_ociaer2 ) = 'ociaer2' chem_desc_table( idomain, P_ociaer2 ) = 'OCIAER2 concentration' chem_units_table( idomain, P_ociaer2 ) = 'ppmv' chem_streams_table( idomain, P_ociaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ociaer2 )%stream(2) = 2097216 F_ociaer2 = .TRUE. IF ( chem_index_table( PARAM_apin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apin = chem_num_table(idomain) chem_index_table( PARAM_apin , idomain ) = P_apin ELSE P_apin = chem_index_table( PARAM_apin , idomain ) END IF chem_boundary_table( idomain, P_apin ) = .TRUE. chem_dname_table( idomain, P_apin ) = 'apin' chem_desc_table( idomain, P_apin ) = 'APIN mixing ratio' chem_units_table( idomain, P_apin ) = 'ppmv' chem_streams_table( idomain, P_apin )%stream(1) = 33554433 chem_streams_table( idomain, P_apin )%stream(2) = 2097216 F_apin = .TRUE. IF ( chem_index_table( PARAM_apinaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer1 = chem_num_table(idomain) chem_index_table( PARAM_apinaer1 , idomain ) = P_apinaer1 ELSE P_apinaer1 = chem_index_table( PARAM_apinaer1 , idomain ) END IF chem_boundary_table( idomain, P_apinaer1 ) = .TRUE. chem_dname_table( idomain, P_apinaer1 ) = 'apinaer1' chem_desc_table( idomain, P_apinaer1 ) = 'APINAER1 concentration' chem_units_table( idomain, P_apinaer1 ) = 'ppmv' chem_streams_table( idomain, P_apinaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_apinaer1 )%stream(2) = 2097216 F_apinaer1 = .TRUE. IF ( chem_index_table( PARAM_apinaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer2 = chem_num_table(idomain) chem_index_table( PARAM_apinaer2 , idomain ) = P_apinaer2 ELSE P_apinaer2 = chem_index_table( PARAM_apinaer2 , idomain ) END IF chem_boundary_table( idomain, P_apinaer2 ) = .TRUE. chem_dname_table( idomain, P_apinaer2 ) = 'apinaer2' chem_desc_table( idomain, P_apinaer2 ) = 'APINAER2 concentration' chem_units_table( idomain, P_apinaer2 ) = 'ppmv' chem_streams_table( idomain, P_apinaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_apinaer2 )%stream(2) = 2097216 F_apinaer2 = .TRUE. IF ( chem_index_table( PARAM_apinaer3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer3 = chem_num_table(idomain) chem_index_table( PARAM_apinaer3 , idomain ) = P_apinaer3 ELSE P_apinaer3 = chem_index_table( PARAM_apinaer3 , idomain ) END IF chem_boundary_table( idomain, P_apinaer3 ) = .TRUE. chem_dname_table( idomain, P_apinaer3 ) = 'apinaer3' chem_desc_table( idomain, P_apinaer3 ) = 'APINAER3 concentration' chem_units_table( idomain, P_apinaer3 ) = 'ppmv' chem_streams_table( idomain, P_apinaer3 )%stream(1) = 33554433 chem_streams_table( idomain, P_apinaer3 )%stream(2) = 2097216 F_apinaer3 = .TRUE. IF ( chem_index_table( PARAM_apinaer4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinaer4 = chem_num_table(idomain) chem_index_table( PARAM_apinaer4 , idomain ) = P_apinaer4 ELSE P_apinaer4 = chem_index_table( PARAM_apinaer4 , idomain ) END IF chem_boundary_table( idomain, P_apinaer4 ) = .TRUE. chem_dname_table( idomain, P_apinaer4 ) = 'apinaer4' chem_desc_table( idomain, P_apinaer4 ) = 'APINAER4 concentration' chem_units_table( idomain, P_apinaer4 ) = 'ppmv' chem_streams_table( idomain, P_apinaer4 )%stream(1) = 33554433 chem_streams_table( idomain, P_apinaer4 )%stream(2) = 2097216 F_apinaer4 = .TRUE. IF ( chem_index_table( PARAM_bpin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpin = chem_num_table(idomain) chem_index_table( PARAM_bpin , idomain ) = P_bpin ELSE P_bpin = chem_index_table( PARAM_bpin , idomain ) END IF chem_boundary_table( idomain, P_bpin ) = .TRUE. chem_dname_table( idomain, P_bpin ) = 'bpin' chem_desc_table( idomain, P_bpin ) = 'BPIN mixing ratio' chem_units_table( idomain, P_bpin ) = 'ppmv' chem_streams_table( idomain, P_bpin )%stream(1) = 33554433 chem_streams_table( idomain, P_bpin )%stream(2) = 2097216 F_bpin = .TRUE. IF ( chem_index_table( PARAM_bpinaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer1 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer1 , idomain ) = P_bpinaer1 ELSE P_bpinaer1 = chem_index_table( PARAM_bpinaer1 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer1 ) = .TRUE. chem_dname_table( idomain, P_bpinaer1 ) = 'bpinaer1' chem_desc_table( idomain, P_bpinaer1 ) = 'BPINAER1 concentration' chem_units_table( idomain, P_bpinaer1 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer1 )%stream(2) = 2097216 F_bpinaer1 = .TRUE. IF ( chem_index_table( PARAM_bpinaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer2 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer2 , idomain ) = P_bpinaer2 ELSE P_bpinaer2 = chem_index_table( PARAM_bpinaer2 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer2 ) = .TRUE. chem_dname_table( idomain, P_bpinaer2 ) = 'bpinaer2' chem_desc_table( idomain, P_bpinaer2 ) = 'BPINAER2 concentration' chem_units_table( idomain, P_bpinaer2 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer2 )%stream(2) = 2097216 F_bpinaer2 = .TRUE. IF ( chem_index_table( PARAM_bpinaer3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer3 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer3 , idomain ) = P_bpinaer3 ELSE P_bpinaer3 = chem_index_table( PARAM_bpinaer3 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer3 ) = .TRUE. chem_dname_table( idomain, P_bpinaer3 ) = 'bpinaer3' chem_desc_table( idomain, P_bpinaer3 ) = 'BPINAER3 concentration' chem_units_table( idomain, P_bpinaer3 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer3 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer3 )%stream(2) = 2097216 F_bpinaer3 = .TRUE. IF ( chem_index_table( PARAM_bpinaer4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer4 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer4 , idomain ) = P_bpinaer4 ELSE P_bpinaer4 = chem_index_table( PARAM_bpinaer4 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer4 ) = .TRUE. chem_dname_table( idomain, P_bpinaer4 ) = 'bpinaer4' chem_desc_table( idomain, P_bpinaer4 ) = 'BPINAER4 concentration' chem_units_table( idomain, P_bpinaer4 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer4 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer4 )%stream(2) = 2097216 F_bpinaer4 = .TRUE. IF ( chem_index_table( PARAM_bpinaer5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinaer5 = chem_num_table(idomain) chem_index_table( PARAM_bpinaer5 , idomain ) = P_bpinaer5 ELSE P_bpinaer5 = chem_index_table( PARAM_bpinaer5 , idomain ) END IF chem_boundary_table( idomain, P_bpinaer5 ) = .TRUE. chem_dname_table( idomain, P_bpinaer5 ) = 'bpinaer5' chem_desc_table( idomain, P_bpinaer5 ) = 'BPINAER5 concentration' chem_units_table( idomain, P_bpinaer5 ) = 'ppmv' chem_streams_table( idomain, P_bpinaer5 )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinaer5 )%stream(2) = 2097216 F_bpinaer5 = .TRUE. IF ( chem_index_table( PARAM_ter , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ter = chem_num_table(idomain) chem_index_table( PARAM_ter , idomain ) = P_ter ELSE P_ter = chem_index_table( PARAM_ter , idomain ) END IF chem_boundary_table( idomain, P_ter ) = .TRUE. chem_dname_table( idomain, P_ter ) = 'ter' chem_desc_table( idomain, P_ter ) = 'TER concentration' chem_units_table( idomain, P_ter ) = 'ppmv' chem_streams_table( idomain, P_ter )%stream(1) = 33554433 chem_streams_table( idomain, P_ter )%stream(2) = 2097216 F_ter = .TRUE. IF ( chem_index_table( PARAM_teraer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_teraer1 = chem_num_table(idomain) chem_index_table( PARAM_teraer1 , idomain ) = P_teraer1 ELSE P_teraer1 = chem_index_table( PARAM_teraer1 , idomain ) END IF chem_boundary_table( idomain, P_teraer1 ) = .TRUE. chem_dname_table( idomain, P_teraer1 ) = 'teraer1' chem_desc_table( idomain, P_teraer1 ) = 'TERAER1 concentration' chem_units_table( idomain, P_teraer1 ) = 'ppmv' chem_streams_table( idomain, P_teraer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_teraer1 )%stream(2) = 2097216 F_teraer1 = .TRUE. IF ( chem_index_table( PARAM_teraer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_teraer2 = chem_num_table(idomain) chem_index_table( PARAM_teraer2 , idomain ) = P_teraer2 ELSE P_teraer2 = chem_index_table( PARAM_teraer2 , idomain ) END IF chem_boundary_table( idomain, P_teraer2 ) = .TRUE. chem_dname_table( idomain, P_teraer2 ) = 'teraer2' chem_desc_table( idomain, P_teraer2 ) = 'TERAER2 concentration' chem_units_table( idomain, P_teraer2 ) = 'ppmv' chem_streams_table( idomain, P_teraer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_teraer2 )%stream(2) = 2097216 F_teraer2 = .TRUE. IF ( chem_index_table( PARAM_alkh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkh = chem_num_table(idomain) chem_index_table( PARAM_alkh , idomain ) = P_alkh ELSE P_alkh = chem_index_table( PARAM_alkh , idomain ) END IF chem_boundary_table( idomain, P_alkh ) = .TRUE. chem_dname_table( idomain, P_alkh ) = 'alkh' chem_desc_table( idomain, P_alkh ) = 'ALKH concentration' chem_units_table( idomain, P_alkh ) = 'ppmv' chem_streams_table( idomain, P_alkh )%stream(1) = 33554433 chem_streams_table( idomain, P_alkh )%stream(2) = 2097216 F_alkh = .TRUE. IF ( chem_index_table( PARAM_alkhaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkhaer1 = chem_num_table(idomain) chem_index_table( PARAM_alkhaer1 , idomain ) = P_alkhaer1 ELSE P_alkhaer1 = chem_index_table( PARAM_alkhaer1 , idomain ) END IF chem_boundary_table( idomain, P_alkhaer1 ) = .TRUE. chem_dname_table( idomain, P_alkhaer1 ) = 'alkhaer1' chem_desc_table( idomain, P_alkhaer1 ) = 'ALKHAER1 concentration' chem_units_table( idomain, P_alkhaer1 ) = 'ppmv' chem_streams_table( idomain, P_alkhaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_alkhaer1 )%stream(2) = 2097216 F_alkhaer1 = .TRUE. IF ( chem_index_table( PARAM_pah , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pah = chem_num_table(idomain) chem_index_table( PARAM_pah , idomain ) = P_pah ELSE P_pah = chem_index_table( PARAM_pah , idomain ) END IF chem_boundary_table( idomain, P_pah ) = .TRUE. chem_dname_table( idomain, P_pah ) = 'pah' chem_desc_table( idomain, P_pah ) = 'PAH concentration' chem_units_table( idomain, P_pah ) = 'ppmv' chem_streams_table( idomain, P_pah )%stream(1) = 33554433 chem_streams_table( idomain, P_pah )%stream(2) = 2097216 F_pah = .TRUE. IF ( chem_index_table( PARAM_pahaer1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pahaer1 = chem_num_table(idomain) chem_index_table( PARAM_pahaer1 , idomain ) = P_pahaer1 ELSE P_pahaer1 = chem_index_table( PARAM_pahaer1 , idomain ) END IF chem_boundary_table( idomain, P_pahaer1 ) = .TRUE. chem_dname_table( idomain, P_pahaer1 ) = 'pahaer1' chem_desc_table( idomain, P_pahaer1 ) = 'PAHAER1 concentration' chem_units_table( idomain, P_pahaer1 ) = 'ppmv' chem_streams_table( idomain, P_pahaer1 )%stream(1) = 33554433 chem_streams_table( idomain, P_pahaer1 )%stream(2) = 2097216 F_pahaer1 = .TRUE. IF ( chem_index_table( PARAM_pahaer2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pahaer2 = chem_num_table(idomain) chem_index_table( PARAM_pahaer2 , idomain ) = P_pahaer2 ELSE P_pahaer2 = chem_index_table( PARAM_pahaer2 , idomain ) END IF chem_boundary_table( idomain, P_pahaer2 ) = .TRUE. chem_dname_table( idomain, P_pahaer2 ) = 'pahaer2' chem_desc_table( idomain, P_pahaer2 ) = 'PAHAER2 concentration' chem_units_table( idomain, P_pahaer2 ) = 'ppmv' chem_streams_table( idomain, P_pahaer2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pahaer2 )%stream(2) = 2097216 F_pahaer2 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 F_h2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl = chem_num_table(idomain) chem_index_table( PARAM_cl , idomain ) = P_cl ELSE P_cl = chem_index_table( PARAM_cl , idomain ) END IF chem_boundary_table( idomain, P_cl ) = .TRUE. chem_dname_table( idomain, P_cl ) = 'cl' chem_desc_table( idomain, P_cl ) = 'CL concentration' chem_units_table( idomain, P_cl ) = 'ppmv' chem_streams_table( idomain, P_cl )%stream(1) = 33554433 chem_streams_table( idomain, P_cl )%stream(2) = 2097216 F_cl = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_fmcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_fmcl = chem_num_table(idomain) chem_index_table( PARAM_fmcl , idomain ) = P_fmcl ELSE P_fmcl = chem_index_table( PARAM_fmcl , idomain ) END IF chem_boundary_table( idomain, P_fmcl ) = .TRUE. chem_dname_table( idomain, P_fmcl ) = 'fmcl' chem_desc_table( idomain, P_fmcl ) = 'FMCL concentration' chem_units_table( idomain, P_fmcl ) = 'ppmv' chem_streams_table( idomain, P_fmcl )%stream(1) = 33554433 chem_streams_table( idomain, P_fmcl )%stream(2) = 2097216 F_fmcl = .TRUE. IF ( chem_index_table( PARAM_hg0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hg0 = chem_num_table(idomain) chem_index_table( PARAM_hg0 , idomain ) = P_hg0 ELSE P_hg0 = chem_index_table( PARAM_hg0 , idomain ) END IF chem_boundary_table( idomain, P_hg0 ) = .TRUE. chem_dname_table( idomain, P_hg0 ) = 'hg0' chem_desc_table( idomain, P_hg0 ) = 'HG0 concentration' chem_units_table( idomain, P_hg0 ) = 'ppmv' chem_streams_table( idomain, P_hg0 )%stream(1) = 33554433 chem_streams_table( idomain, P_hg0 )%stream(2) = 2097216 F_hg0 = .TRUE. IF ( chem_index_table( PARAM_hg2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hg2 = chem_num_table(idomain) chem_index_table( PARAM_hg2 , idomain ) = P_hg2 ELSE P_hg2 = chem_index_table( PARAM_hg2 , idomain ) END IF chem_boundary_table( idomain, P_hg2 ) = .TRUE. chem_dname_table( idomain, P_hg2 ) = 'hg2' chem_desc_table( idomain, P_hg2 ) = 'HG2 concentration' chem_units_table( idomain, P_hg2 ) = 'ppmv' chem_streams_table( idomain, P_hg2 )%stream(1) = 33554433 chem_streams_table( idomain, P_hg2 )%stream(2) = 2097216 F_hg2 = .TRUE. IF ( chem_index_table( PARAM_hocl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hocl = chem_num_table(idomain) chem_index_table( PARAM_hocl , idomain ) = P_hocl ELSE P_hocl = chem_index_table( PARAM_hocl , idomain ) END IF chem_boundary_table( idomain, P_hocl ) = .TRUE. chem_dname_table( idomain, P_hocl ) = 'hocl' chem_desc_table( idomain, P_hocl ) = 'HOCL concentration' chem_units_table( idomain, P_hocl ) = 'ppmv' chem_streams_table( idomain, P_hocl )%stream(1) = 33554433 chem_streams_table( idomain, P_hocl )%stream(2) = 2097216 F_hocl = .TRUE. IF ( chem_index_table( PARAM_clo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clo = chem_num_table(idomain) chem_index_table( PARAM_clo , idomain ) = P_clo ELSE P_clo = chem_index_table( PARAM_clo , idomain ) END IF chem_boundary_table( idomain, P_clo ) = .TRUE. chem_dname_table( idomain, P_clo ) = 'clo' chem_desc_table( idomain, P_clo ) = 'CLO concentration' chem_units_table( idomain, P_clo ) = 'ppmv' chem_streams_table( idomain, P_clo )%stream(1) = 33554433 chem_streams_table( idomain, P_clo )%stream(2) = 2097216 F_clo = .TRUE. IF ( chem_index_table( PARAM_cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl2 = chem_num_table(idomain) chem_index_table( PARAM_cl2 , idomain ) = P_cl2 ELSE P_cl2 = chem_index_table( PARAM_cl2 , idomain ) END IF chem_boundary_table( idomain, P_cl2 ) = .TRUE. chem_dname_table( idomain, P_cl2 ) = 'cl2' chem_desc_table( idomain, P_cl2 ) = 'CL2 concentration' chem_units_table( idomain, P_cl2 ) = 'ppmv' chem_streams_table( idomain, P_cl2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl2 )%stream(2) = 2097216 F_cl2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa1 , idomain ) = P_cvasoa1 ELSE P_cvasoa1 = chem_index_table( PARAM_cvasoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa1 ) = .TRUE. chem_dname_table( idomain, P_cvasoa1 ) = 'cvasoa1' chem_desc_table( idomain, P_cvasoa1 ) = 'cond.vapor from ASOA1' chem_units_table( idomain, P_cvasoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa1 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa1 )%stream(2) = 2097216 F_cvasoa1 = .TRUE. IF ( chem_index_table( PARAM_cvasoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa2 , idomain ) = P_cvasoa2 ELSE P_cvasoa2 = chem_index_table( PARAM_cvasoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa2 ) = .TRUE. chem_dname_table( idomain, P_cvasoa2 ) = 'cvasoa2' chem_desc_table( idomain, P_cvasoa2 ) = 'cond.vapor from ASOA2' chem_units_table( idomain, P_cvasoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa2 )%stream(2) = 2097216 F_cvasoa2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa3 , idomain ) = P_cvasoa3 ELSE P_cvasoa3 = chem_index_table( PARAM_cvasoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa3 ) = .TRUE. chem_dname_table( idomain, P_cvasoa3 ) = 'cvasoa3' chem_desc_table( idomain, P_cvasoa3 ) = 'cond.vapor from ASOA3' chem_units_table( idomain, P_cvasoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa3 )%stream(2) = 2097216 F_cvasoa3 = .TRUE. IF ( chem_index_table( PARAM_cvasoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa4 , idomain ) = P_cvasoa4 ELSE P_cvasoa4 = chem_index_table( PARAM_cvasoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa4 ) = .TRUE. chem_dname_table( idomain, P_cvasoa4 ) = 'cvasoa4' chem_desc_table( idomain, P_cvasoa4 ) = 'cond.vapor from ASOA4' chem_units_table( idomain, P_cvasoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa4 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa4 )%stream(2) = 2097216 F_cvasoa4 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa1 , idomain ) = P_cvbsoa1 ELSE P_cvbsoa1 = chem_index_table( PARAM_cvbsoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa1 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa1 ) = 'cvbsoa1' chem_desc_table( idomain, P_cvbsoa1 ) = 'cond.vapor from BSOA1' chem_units_table( idomain, P_cvbsoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa1 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa1 )%stream(2) = 2097216 F_cvbsoa1 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa2 , idomain ) = P_cvbsoa2 ELSE P_cvbsoa2 = chem_index_table( PARAM_cvbsoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa2 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa2 ) = 'cvbsoa2' chem_desc_table( idomain, P_cvbsoa2 ) = 'cond.vapor from BSOA2' chem_units_table( idomain, P_cvbsoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa2 )%stream(2) = 2097216 F_cvbsoa2 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa3 , idomain ) = P_cvbsoa3 ELSE P_cvbsoa3 = chem_index_table( PARAM_cvbsoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa3 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa3 ) = 'cvbsoa3' chem_desc_table( idomain, P_cvbsoa3 ) = 'cond.vapor from BSOA3' chem_units_table( idomain, P_cvbsoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa3 )%stream(2) = 2097216 F_cvbsoa3 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa4 , idomain ) = P_cvbsoa4 ELSE P_cvbsoa4 = chem_index_table( PARAM_cvbsoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa4 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa4 ) = 'cvbsoa4' chem_desc_table( idomain, P_cvbsoa4 ) = 'cond.vapor from BSOA4' chem_units_table( idomain, P_cvbsoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa4 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa4 )%stream(2) = 2097216 F_cvbsoa4 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_so4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4aj = chem_num_table(idomain) chem_index_table( PARAM_so4aj , idomain ) = P_so4aj ELSE P_so4aj = chem_index_table( PARAM_so4aj , idomain ) END IF chem_boundary_table( idomain, P_so4aj ) = .TRUE. chem_dname_table( idomain, P_so4aj ) = 'so4aj' chem_desc_table( idomain, P_so4aj ) = 'Sulfate conc. Acc. mode' chem_units_table( idomain, P_so4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4aj )%stream(2) = 2097216 F_so4aj = .TRUE. IF ( chem_index_table( PARAM_so4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4ai = chem_num_table(idomain) chem_index_table( PARAM_so4ai , idomain ) = P_so4ai ELSE P_so4ai = chem_index_table( PARAM_so4ai , idomain ) END IF chem_boundary_table( idomain, P_so4ai ) = .TRUE. chem_dname_table( idomain, P_so4ai ) = 'so4ai' chem_desc_table( idomain, P_so4ai ) = 'Sulfate conc. Aitken mode' chem_units_table( idomain, P_so4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_so4ai )%stream(2) = 2097216 F_so4ai = .TRUE. IF ( chem_index_table( PARAM_nh4aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4aj = chem_num_table(idomain) chem_index_table( PARAM_nh4aj , idomain ) = P_nh4aj ELSE P_nh4aj = chem_index_table( PARAM_nh4aj , idomain ) END IF chem_boundary_table( idomain, P_nh4aj ) = .TRUE. chem_dname_table( idomain, P_nh4aj ) = 'nh4aj' chem_desc_table( idomain, P_nh4aj ) = 'Ammonium conc. Acc. mode' chem_units_table( idomain, P_nh4aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4aj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4aj )%stream(2) = 2097216 F_nh4aj = .TRUE. IF ( chem_index_table( PARAM_nh4ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4ai = chem_num_table(idomain) chem_index_table( PARAM_nh4ai , idomain ) = P_nh4ai ELSE P_nh4ai = chem_index_table( PARAM_nh4ai , idomain ) END IF chem_boundary_table( idomain, P_nh4ai ) = .TRUE. chem_dname_table( idomain, P_nh4ai ) = 'nh4ai' chem_desc_table( idomain, P_nh4ai ) = 'Ammonium conc. Aitken mode' chem_units_table( idomain, P_nh4ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4ai )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4ai )%stream(2) = 2097216 F_nh4ai = .TRUE. IF ( chem_index_table( PARAM_no3aj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3aj = chem_num_table(idomain) chem_index_table( PARAM_no3aj , idomain ) = P_no3aj ELSE P_no3aj = chem_index_table( PARAM_no3aj , idomain ) END IF chem_boundary_table( idomain, P_no3aj ) = .TRUE. chem_dname_table( idomain, P_no3aj ) = 'no3aj' chem_desc_table( idomain, P_no3aj ) = 'Nitrate conc. Acc. mode' chem_units_table( idomain, P_no3aj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3aj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3aj )%stream(2) = 2097216 F_no3aj = .TRUE. IF ( chem_index_table( PARAM_no3ai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3ai = chem_num_table(idomain) chem_index_table( PARAM_no3ai , idomain ) = P_no3ai ELSE P_no3ai = chem_index_table( PARAM_no3ai , idomain ) END IF chem_boundary_table( idomain, P_no3ai ) = .TRUE. chem_dname_table( idomain, P_no3ai ) = 'no3ai' chem_desc_table( idomain, P_no3ai ) = 'Nitrate conc. Aitken mode' chem_units_table( idomain, P_no3ai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3ai )%stream(1) = 33554433 chem_streams_table( idomain, P_no3ai )%stream(2) = 2097216 F_no3ai = .TRUE. IF ( chem_index_table( PARAM_naaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naaj = chem_num_table(idomain) chem_index_table( PARAM_naaj , idomain ) = P_naaj ELSE P_naaj = chem_index_table( PARAM_naaj , idomain ) END IF chem_boundary_table( idomain, P_naaj ) = .TRUE. chem_dname_table( idomain, P_naaj ) = 'naaj' chem_desc_table( idomain, P_naaj ) = 'Sodium conc. Acc. mode' chem_units_table( idomain, P_naaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naaj )%stream(1) = 33554433 chem_streams_table( idomain, P_naaj )%stream(2) = 2097216 F_naaj = .TRUE. IF ( chem_index_table( PARAM_naai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naai = chem_num_table(idomain) chem_index_table( PARAM_naai , idomain ) = P_naai ELSE P_naai = chem_index_table( PARAM_naai , idomain ) END IF chem_boundary_table( idomain, P_naai ) = .TRUE. chem_dname_table( idomain, P_naai ) = 'naai' chem_desc_table( idomain, P_naai ) = 'Sodium conc. Aitken mode' chem_units_table( idomain, P_naai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_naai )%stream(1) = 33554433 chem_streams_table( idomain, P_naai )%stream(2) = 2097216 F_naai = .TRUE. IF ( chem_index_table( PARAM_claj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_claj = chem_num_table(idomain) chem_index_table( PARAM_claj , idomain ) = P_claj ELSE P_claj = chem_index_table( PARAM_claj , idomain ) END IF chem_boundary_table( idomain, P_claj ) = .TRUE. chem_dname_table( idomain, P_claj ) = 'claj' chem_desc_table( idomain, P_claj ) = 'Chloride conc. Acc. mode' chem_units_table( idomain, P_claj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_claj )%stream(1) = 33554433 chem_streams_table( idomain, P_claj )%stream(2) = 2097216 F_claj = .TRUE. IF ( chem_index_table( PARAM_clai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clai = chem_num_table(idomain) chem_index_table( PARAM_clai , idomain ) = P_clai ELSE P_clai = chem_index_table( PARAM_clai , idomain ) END IF chem_boundary_table( idomain, P_clai ) = .TRUE. chem_dname_table( idomain, P_clai ) = 'clai' chem_desc_table( idomain, P_clai ) = 'Chloride conc. Aitken mode' chem_units_table( idomain, P_clai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clai )%stream(1) = 33554433 chem_streams_table( idomain, P_clai )%stream(2) = 2097216 F_clai = .TRUE. IF ( chem_index_table( PARAM_asoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1j = chem_num_table(idomain) chem_index_table( PARAM_asoa1j , idomain ) = P_asoa1j ELSE P_asoa1j = chem_index_table( PARAM_asoa1j , idomain ) END IF chem_boundary_table( idomain, P_asoa1j ) = .TRUE. chem_dname_table( idomain, P_asoa1j ) = 'asoa1j' chem_desc_table( idomain, P_asoa1j ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1j )%stream(2) = 2097216 F_asoa1j = .TRUE. IF ( chem_index_table( PARAM_asoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1i = chem_num_table(idomain) chem_index_table( PARAM_asoa1i , idomain ) = P_asoa1i ELSE P_asoa1i = chem_index_table( PARAM_asoa1i , idomain ) END IF chem_boundary_table( idomain, P_asoa1i ) = .TRUE. chem_dname_table( idomain, P_asoa1i ) = 'asoa1i' chem_desc_table( idomain, P_asoa1i ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1i )%stream(2) = 2097216 F_asoa1i = .TRUE. IF ( chem_index_table( PARAM_asoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2j = chem_num_table(idomain) chem_index_table( PARAM_asoa2j , idomain ) = P_asoa2j ELSE P_asoa2j = chem_index_table( PARAM_asoa2j , idomain ) END IF chem_boundary_table( idomain, P_asoa2j ) = .TRUE. chem_dname_table( idomain, P_asoa2j ) = 'asoa2j' chem_desc_table( idomain, P_asoa2j ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2j )%stream(2) = 2097216 F_asoa2j = .TRUE. IF ( chem_index_table( PARAM_asoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2i = chem_num_table(idomain) chem_index_table( PARAM_asoa2i , idomain ) = P_asoa2i ELSE P_asoa2i = chem_index_table( PARAM_asoa2i , idomain ) END IF chem_boundary_table( idomain, P_asoa2i ) = .TRUE. chem_dname_table( idomain, P_asoa2i ) = 'asoa2i' chem_desc_table( idomain, P_asoa2i ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2i )%stream(2) = 2097216 F_asoa2i = .TRUE. IF ( chem_index_table( PARAM_asoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3j = chem_num_table(idomain) chem_index_table( PARAM_asoa3j , idomain ) = P_asoa3j ELSE P_asoa3j = chem_index_table( PARAM_asoa3j , idomain ) END IF chem_boundary_table( idomain, P_asoa3j ) = .TRUE. chem_dname_table( idomain, P_asoa3j ) = 'asoa3j' chem_desc_table( idomain, P_asoa3j ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3j )%stream(2) = 2097216 F_asoa3j = .TRUE. IF ( chem_index_table( PARAM_asoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3i = chem_num_table(idomain) chem_index_table( PARAM_asoa3i , idomain ) = P_asoa3i ELSE P_asoa3i = chem_index_table( PARAM_asoa3i , idomain ) END IF chem_boundary_table( idomain, P_asoa3i ) = .TRUE. chem_dname_table( idomain, P_asoa3i ) = 'asoa3i' chem_desc_table( idomain, P_asoa3i ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3i )%stream(2) = 2097216 F_asoa3i = .TRUE. IF ( chem_index_table( PARAM_asoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4j = chem_num_table(idomain) chem_index_table( PARAM_asoa4j , idomain ) = P_asoa4j ELSE P_asoa4j = chem_index_table( PARAM_asoa4j , idomain ) END IF chem_boundary_table( idomain, P_asoa4j ) = .TRUE. chem_dname_table( idomain, P_asoa4j ) = 'asoa4j' chem_desc_table( idomain, P_asoa4j ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_asoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4j )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4j )%stream(2) = 2097216 F_asoa4j = .TRUE. IF ( chem_index_table( PARAM_asoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4i = chem_num_table(idomain) chem_index_table( PARAM_asoa4i , idomain ) = P_asoa4i ELSE P_asoa4i = chem_index_table( PARAM_asoa4i , idomain ) END IF chem_boundary_table( idomain, P_asoa4i ) = .TRUE. chem_dname_table( idomain, P_asoa4i ) = 'asoa4i' chem_desc_table( idomain, P_asoa4i ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_asoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4i )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4i )%stream(2) = 2097216 F_asoa4i = .TRUE. IF ( chem_index_table( PARAM_bsoa1j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1j = chem_num_table(idomain) chem_index_table( PARAM_bsoa1j , idomain ) = P_bsoa1j ELSE P_bsoa1j = chem_index_table( PARAM_bsoa1j , idomain ) END IF chem_boundary_table( idomain, P_bsoa1j ) = .TRUE. chem_dname_table( idomain, P_bsoa1j ) = 'bsoa1j' chem_desc_table( idomain, P_bsoa1j ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa1j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1j )%stream(2) = 2097216 F_bsoa1j = .TRUE. IF ( chem_index_table( PARAM_bsoa1i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1i = chem_num_table(idomain) chem_index_table( PARAM_bsoa1i , idomain ) = P_bsoa1i ELSE P_bsoa1i = chem_index_table( PARAM_bsoa1i , idomain ) END IF chem_boundary_table( idomain, P_bsoa1i ) = .TRUE. chem_dname_table( idomain, P_bsoa1i ) = 'bsoa1i' chem_desc_table( idomain, P_bsoa1i ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa1i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1i )%stream(2) = 2097216 F_bsoa1i = .TRUE. IF ( chem_index_table( PARAM_bsoa2j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2j = chem_num_table(idomain) chem_index_table( PARAM_bsoa2j , idomain ) = P_bsoa2j ELSE P_bsoa2j = chem_index_table( PARAM_bsoa2j , idomain ) END IF chem_boundary_table( idomain, P_bsoa2j ) = .TRUE. chem_dname_table( idomain, P_bsoa2j ) = 'bsoa2j' chem_desc_table( idomain, P_bsoa2j ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa2j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2j )%stream(2) = 2097216 F_bsoa2j = .TRUE. IF ( chem_index_table( PARAM_bsoa2i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2i = chem_num_table(idomain) chem_index_table( PARAM_bsoa2i , idomain ) = P_bsoa2i ELSE P_bsoa2i = chem_index_table( PARAM_bsoa2i , idomain ) END IF chem_boundary_table( idomain, P_bsoa2i ) = .TRUE. chem_dname_table( idomain, P_bsoa2i ) = 'bsoa2i' chem_desc_table( idomain, P_bsoa2i ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa2i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2i )%stream(2) = 2097216 F_bsoa2i = .TRUE. IF ( chem_index_table( PARAM_bsoa3j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3j = chem_num_table(idomain) chem_index_table( PARAM_bsoa3j , idomain ) = P_bsoa3j ELSE P_bsoa3j = chem_index_table( PARAM_bsoa3j , idomain ) END IF chem_boundary_table( idomain, P_bsoa3j ) = .TRUE. chem_dname_table( idomain, P_bsoa3j ) = 'bsoa3j' chem_desc_table( idomain, P_bsoa3j ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa3j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3j )%stream(2) = 2097216 F_bsoa3j = .TRUE. IF ( chem_index_table( PARAM_bsoa3i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3i = chem_num_table(idomain) chem_index_table( PARAM_bsoa3i , idomain ) = P_bsoa3i ELSE P_bsoa3i = chem_index_table( PARAM_bsoa3i , idomain ) END IF chem_boundary_table( idomain, P_bsoa3i ) = .TRUE. chem_dname_table( idomain, P_bsoa3i ) = 'bsoa3i' chem_desc_table( idomain, P_bsoa3i ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa3i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3i )%stream(2) = 2097216 F_bsoa3i = .TRUE. IF ( chem_index_table( PARAM_bsoa4j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4j = chem_num_table(idomain) chem_index_table( PARAM_bsoa4j , idomain ) = P_bsoa4j ELSE P_bsoa4j = chem_index_table( PARAM_bsoa4j , idomain ) END IF chem_boundary_table( idomain, P_bsoa4j ) = .TRUE. chem_dname_table( idomain, P_bsoa4j ) = 'bsoa4j' chem_desc_table( idomain, P_bsoa4j ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode' chem_units_table( idomain, P_bsoa4j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4j )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4j )%stream(2) = 2097216 F_bsoa4j = .TRUE. IF ( chem_index_table( PARAM_bsoa4i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4i = chem_num_table(idomain) chem_index_table( PARAM_bsoa4i , idomain ) = P_bsoa4i ELSE P_bsoa4i = chem_index_table( PARAM_bsoa4i , idomain ) END IF chem_boundary_table( idomain, P_bsoa4i ) = .TRUE. chem_dname_table( idomain, P_bsoa4i ) = 'bsoa4i' chem_desc_table( idomain, P_bsoa4i ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode' chem_units_table( idomain, P_bsoa4i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4i )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4i )%stream(2) = 2097216 F_bsoa4i = .TRUE. IF ( chem_index_table( PARAM_orgpaj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpaj = chem_num_table(idomain) chem_index_table( PARAM_orgpaj , idomain ) = P_orgpaj ELSE P_orgpaj = chem_index_table( PARAM_orgpaj , idomain ) END IF chem_boundary_table( idomain, P_orgpaj ) = .TRUE. chem_dname_table( idomain, P_orgpaj ) = 'orgpaj' chem_desc_table( idomain, P_orgpaj ) = 'Prim. anth. org. conc. from aromatics Acc. mode' chem_units_table( idomain, P_orgpaj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpaj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpaj )%stream(2) = 2097216 F_orgpaj = .TRUE. IF ( chem_index_table( PARAM_orgpai , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpai = chem_num_table(idomain) chem_index_table( PARAM_orgpai , idomain ) = P_orgpai ELSE P_orgpai = chem_index_table( PARAM_orgpai , idomain ) END IF chem_boundary_table( idomain, P_orgpai ) = .TRUE. chem_dname_table( idomain, P_orgpai ) = 'orgpai' chem_desc_table( idomain, P_orgpai ) = 'Prim. anth. org. conc. from aromatics Aitken mode' chem_units_table( idomain, P_orgpai ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpai )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpai )%stream(2) = 2097216 F_orgpai = .TRUE. IF ( chem_index_table( PARAM_ecj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ecj = chem_num_table(idomain) chem_index_table( PARAM_ecj , idomain ) = P_ecj ELSE P_ecj = chem_index_table( PARAM_ecj , idomain ) END IF chem_boundary_table( idomain, P_ecj ) = .TRUE. chem_dname_table( idomain, P_ecj ) = 'ecj' chem_desc_table( idomain, P_ecj ) = 'Elemental carbon Acc. mode' chem_units_table( idomain, P_ecj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ecj )%stream(1) = 33554433 chem_streams_table( idomain, P_ecj )%stream(2) = 2097216 F_ecj = .TRUE. IF ( chem_index_table( PARAM_eci , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eci = chem_num_table(idomain) chem_index_table( PARAM_eci , idomain ) = P_eci ELSE P_eci = chem_index_table( PARAM_eci , idomain ) END IF chem_boundary_table( idomain, P_eci ) = .TRUE. chem_dname_table( idomain, P_eci ) = 'eci' chem_desc_table( idomain, P_eci ) = 'Elemental carbon Aitken mode' chem_units_table( idomain, P_eci ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eci )%stream(1) = 33554433 chem_streams_table( idomain, P_eci )%stream(2) = 2097216 F_eci = .TRUE. IF ( chem_index_table( PARAM_p25j , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25j = chem_num_table(idomain) chem_index_table( PARAM_p25j , idomain ) = P_p25j ELSE P_p25j = chem_index_table( PARAM_p25j , idomain ) END IF chem_boundary_table( idomain, P_p25j ) = .TRUE. chem_dname_table( idomain, P_p25j ) = 'p25j' chem_desc_table( idomain, P_p25j ) = 'Primary PM2.5 Acc. mode' chem_units_table( idomain, P_p25j ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25j )%stream(1) = 33554433 chem_streams_table( idomain, P_p25j )%stream(2) = 2097216 F_p25j = .TRUE. IF ( chem_index_table( PARAM_p25i , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25i = chem_num_table(idomain) chem_index_table( PARAM_p25i , idomain ) = P_p25i ELSE P_p25i = chem_index_table( PARAM_p25i , idomain ) END IF chem_boundary_table( idomain, P_p25i ) = .TRUE. chem_dname_table( idomain, P_p25i ) = 'p25i' chem_desc_table( idomain, P_p25i ) = 'Primary PM2.5 Aitken mode' chem_units_table( idomain, P_p25i ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25i )%stream(1) = 33554433 chem_streams_table( idomain, P_p25i )%stream(2) = 2097216 F_p25i = .TRUE. IF ( chem_index_table( PARAM_antha , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_antha = chem_num_table(idomain) chem_index_table( PARAM_antha , idomain ) = P_antha ELSE P_antha = chem_index_table( PARAM_antha , idomain ) END IF chem_boundary_table( idomain, P_antha ) = .TRUE. chem_dname_table( idomain, P_antha ) = 'antha' chem_desc_table( idomain, P_antha ) = 'Coarse anthropogenic aerosols' chem_units_table( idomain, P_antha ) = 'ug/kg-dryair' chem_streams_table( idomain, P_antha )%stream(1) = 33554433 chem_streams_table( idomain, P_antha )%stream(2) = 2097216 F_antha = .TRUE. IF ( chem_index_table( PARAM_seas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas = chem_num_table(idomain) chem_index_table( PARAM_seas , idomain ) = P_seas ELSE P_seas = chem_index_table( PARAM_seas , idomain ) END IF chem_boundary_table( idomain, P_seas ) = .TRUE. chem_dname_table( idomain, P_seas ) = 'seas' chem_desc_table( idomain, P_seas ) = 'Coarse marine aerosols' chem_units_table( idomain, P_seas ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas )%stream(1) = 33554433 chem_streams_table( idomain, P_seas )%stream(2) = 2097216 F_seas = .TRUE. IF ( chem_index_table( PARAM_soila , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soila = chem_num_table(idomain) chem_index_table( PARAM_soila , idomain ) = P_soila ELSE P_soila = chem_index_table( PARAM_soila , idomain ) END IF chem_boundary_table( idomain, P_soila ) = .TRUE. chem_dname_table( idomain, P_soila ) = 'soila' chem_desc_table( idomain, P_soila ) = 'Coarse soil-derived aerosols' chem_units_table( idomain, P_soila ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soila )%stream(1) = 33554433 chem_streams_table( idomain, P_soila )%stream(2) = 2097216 F_soila = .TRUE. IF ( chem_index_table( PARAM_nu0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0 = chem_num_table(idomain) chem_index_table( PARAM_nu0 , idomain ) = P_nu0 ELSE P_nu0 = chem_index_table( PARAM_nu0 , idomain ) END IF chem_boundary_table( idomain, P_nu0 ) = .TRUE. chem_dname_table( idomain, P_nu0 ) = 'nu0' chem_desc_table( idomain, P_nu0 ) = 'Aitken mode number' chem_units_table( idomain, P_nu0 ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0 )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0 )%stream(2) = 2097216 F_nu0 = .TRUE. IF ( chem_index_table( PARAM_ac0 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0 = chem_num_table(idomain) chem_index_table( PARAM_ac0 , idomain ) = P_ac0 ELSE P_ac0 = chem_index_table( PARAM_ac0 , idomain ) END IF chem_boundary_table( idomain, P_ac0 ) = .TRUE. chem_dname_table( idomain, P_ac0 ) = 'ac0' chem_desc_table( idomain, P_ac0 ) = 'Accumulation mode number' chem_units_table( idomain, P_ac0 ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0 )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0 )%stream(2) = 2097216 F_ac0 = .TRUE. IF ( chem_index_table( PARAM_corn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corn = chem_num_table(idomain) chem_index_table( PARAM_corn , idomain ) = P_corn ELSE P_corn = chem_index_table( PARAM_corn , idomain ) END IF chem_boundary_table( idomain, P_corn ) = .TRUE. chem_dname_table( idomain, P_corn ) = 'corn' chem_desc_table( idomain, P_corn ) = 'Coarse mode number' chem_units_table( idomain, P_corn ) = ' /kg-dryair' chem_streams_table( idomain, P_corn )%stream(1) = 33554433 chem_streams_table( idomain, P_corn )%stream(2) = 2097216 F_corn = .TRUE. IF ( chem_index_table( PARAM_so4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwj = chem_num_table(idomain) chem_index_table( PARAM_so4cwj , idomain ) = P_so4cwj ELSE P_so4cwj = chem_index_table( PARAM_so4cwj , idomain ) END IF chem_boundary_table( idomain, P_so4cwj ) = .TRUE. chem_dname_table( idomain, P_so4cwj ) = 'so4cwj' chem_desc_table( idomain, P_so4cwj ) = 'Sulfate conc. Acc. mode in cloud' chem_units_table( idomain, P_so4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwj )%stream(2) = 2097216 F_so4cwj = .TRUE. IF ( chem_index_table( PARAM_so4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4cwi = chem_num_table(idomain) chem_index_table( PARAM_so4cwi , idomain ) = P_so4cwi ELSE P_so4cwi = chem_index_table( PARAM_so4cwi , idomain ) END IF chem_boundary_table( idomain, P_so4cwi ) = .TRUE. chem_dname_table( idomain, P_so4cwi ) = 'so4cwi' chem_desc_table( idomain, P_so4cwi ) = 'Sulfate conc. Aitken mode in cloud' chem_units_table( idomain, P_so4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_so4cwi )%stream(2) = 2097216 F_so4cwi = .TRUE. IF ( chem_index_table( PARAM_nh4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwj = chem_num_table(idomain) chem_index_table( PARAM_nh4cwj , idomain ) = P_nh4cwj ELSE P_nh4cwj = chem_index_table( PARAM_nh4cwj , idomain ) END IF chem_boundary_table( idomain, P_nh4cwj ) = .TRUE. chem_dname_table( idomain, P_nh4cwj ) = 'nh4cwj' chem_desc_table( idomain, P_nh4cwj ) = 'Ammonium conc. Acc. mode in cloud' chem_units_table( idomain, P_nh4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwj )%stream(2) = 2097216 F_nh4cwj = .TRUE. IF ( chem_index_table( PARAM_nh4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4cwi = chem_num_table(idomain) chem_index_table( PARAM_nh4cwi , idomain ) = P_nh4cwi ELSE P_nh4cwi = chem_index_table( PARAM_nh4cwi , idomain ) END IF chem_boundary_table( idomain, P_nh4cwi ) = .TRUE. chem_dname_table( idomain, P_nh4cwi ) = 'nh4cwi' chem_desc_table( idomain, P_nh4cwi ) = 'Ammonium conc. Aitken mode in cloud' chem_units_table( idomain, P_nh4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4cwi )%stream(2) = 2097216 F_nh4cwi = .TRUE. IF ( chem_index_table( PARAM_no3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwj = chem_num_table(idomain) chem_index_table( PARAM_no3cwj , idomain ) = P_no3cwj ELSE P_no3cwj = chem_index_table( PARAM_no3cwj , idomain ) END IF chem_boundary_table( idomain, P_no3cwj ) = .TRUE. chem_dname_table( idomain, P_no3cwj ) = 'no3cwj' chem_desc_table( idomain, P_no3cwj ) = 'Nitrate conc. Acc. mode in cloud' chem_units_table( idomain, P_no3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwj )%stream(2) = 2097216 F_no3cwj = .TRUE. IF ( chem_index_table( PARAM_no3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3cwi = chem_num_table(idomain) chem_index_table( PARAM_no3cwi , idomain ) = P_no3cwi ELSE P_no3cwi = chem_index_table( PARAM_no3cwi , idomain ) END IF chem_boundary_table( idomain, P_no3cwi ) = .TRUE. chem_dname_table( idomain, P_no3cwi ) = 'no3cwi' chem_desc_table( idomain, P_no3cwi ) = 'Nitrate conc. Aitken mode in cloud' chem_units_table( idomain, P_no3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_no3cwi )%stream(2) = 2097216 F_no3cwi = .TRUE. IF ( chem_index_table( PARAM_nacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwj = chem_num_table(idomain) chem_index_table( PARAM_nacwj , idomain ) = P_nacwj ELSE P_nacwj = chem_index_table( PARAM_nacwj , idomain ) END IF chem_boundary_table( idomain, P_nacwj ) = .TRUE. chem_dname_table( idomain, P_nacwj ) = 'nacwj' chem_desc_table( idomain, P_nacwj ) = 'Sodium conc. Acc. mode in cloud' chem_units_table( idomain, P_nacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwj )%stream(2) = 2097216 F_nacwj = .TRUE. IF ( chem_index_table( PARAM_nacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nacwi = chem_num_table(idomain) chem_index_table( PARAM_nacwi , idomain ) = P_nacwi ELSE P_nacwi = chem_index_table( PARAM_nacwi , idomain ) END IF chem_boundary_table( idomain, P_nacwi ) = .TRUE. chem_dname_table( idomain, P_nacwi ) = 'nacwi' chem_desc_table( idomain, P_nacwi ) = 'Sodium conc. Aitken mode in cloud' chem_units_table( idomain, P_nacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_nacwi )%stream(2) = 2097216 F_nacwi = .TRUE. IF ( chem_index_table( PARAM_clcwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwj = chem_num_table(idomain) chem_index_table( PARAM_clcwj , idomain ) = P_clcwj ELSE P_clcwj = chem_index_table( PARAM_clcwj , idomain ) END IF chem_boundary_table( idomain, P_clcwj ) = .TRUE. chem_dname_table( idomain, P_clcwj ) = 'clcwj' chem_desc_table( idomain, P_clcwj ) = 'Chloride conc. Acc. mode in cloud' chem_units_table( idomain, P_clcwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwj )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwj )%stream(2) = 2097216 F_clcwj = .TRUE. IF ( chem_index_table( PARAM_clcwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clcwi = chem_num_table(idomain) chem_index_table( PARAM_clcwi , idomain ) = P_clcwi ELSE P_clcwi = chem_index_table( PARAM_clcwi , idomain ) END IF chem_boundary_table( idomain, P_clcwi ) = .TRUE. chem_dname_table( idomain, P_clcwi ) = 'clcwi' chem_desc_table( idomain, P_clcwi ) = 'Chloride conc. Aitken mode in cloud' chem_units_table( idomain, P_clcwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_clcwi )%stream(1) = 33554433 chem_streams_table( idomain, P_clcwi )%stream(2) = 2097216 F_clcwi = .TRUE. IF ( chem_index_table( PARAM_asoa1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa1cwj , idomain ) = P_asoa1cwj ELSE P_asoa1cwj = chem_index_table( PARAM_asoa1cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa1cwj ) = .TRUE. chem_dname_table( idomain, P_asoa1cwj ) = 'asoa1cwj' chem_desc_table( idomain, P_asoa1cwj ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1cwj )%stream(2) = 2097216 F_asoa1cwj = .TRUE. IF ( chem_index_table( PARAM_asoa1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa1cwi , idomain ) = P_asoa1cwi ELSE P_asoa1cwi = chem_index_table( PARAM_asoa1cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa1cwi ) = .TRUE. chem_dname_table( idomain, P_asoa1cwi ) = 'asoa1cwi' chem_desc_table( idomain, P_asoa1cwi ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1cwi )%stream(2) = 2097216 F_asoa1cwi = .TRUE. IF ( chem_index_table( PARAM_asoa2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwj , idomain ) = P_asoa2cwj ELSE P_asoa2cwj = chem_index_table( PARAM_asoa2cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwj ) = .TRUE. chem_dname_table( idomain, P_asoa2cwj ) = 'asoa2cwj' chem_desc_table( idomain, P_asoa2cwj ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2cwj )%stream(2) = 2097216 F_asoa2cwj = .TRUE. IF ( chem_index_table( PARAM_asoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa2cwi , idomain ) = P_asoa2cwi ELSE P_asoa2cwi = chem_index_table( PARAM_asoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa2cwi ) = .TRUE. chem_dname_table( idomain, P_asoa2cwi ) = 'asoa2cwi' chem_desc_table( idomain, P_asoa2cwi ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2cwi )%stream(2) = 2097216 F_asoa2cwi = .TRUE. IF ( chem_index_table( PARAM_asoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwj , idomain ) = P_asoa3cwj ELSE P_asoa3cwj = chem_index_table( PARAM_asoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwj ) = .TRUE. chem_dname_table( idomain, P_asoa3cwj ) = 'asoa3cwj' chem_desc_table( idomain, P_asoa3cwj ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3cwj )%stream(2) = 2097216 F_asoa3cwj = .TRUE. IF ( chem_index_table( PARAM_asoa3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa3cwi , idomain ) = P_asoa3cwi ELSE P_asoa3cwi = chem_index_table( PARAM_asoa3cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa3cwi ) = .TRUE. chem_dname_table( idomain, P_asoa3cwi ) = 'asoa3cwi' chem_desc_table( idomain, P_asoa3cwi ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3cwi )%stream(2) = 2097216 F_asoa3cwi = .TRUE. IF ( chem_index_table( PARAM_asoa4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4cwj = chem_num_table(idomain) chem_index_table( PARAM_asoa4cwj , idomain ) = P_asoa4cwj ELSE P_asoa4cwj = chem_index_table( PARAM_asoa4cwj , idomain ) END IF chem_boundary_table( idomain, P_asoa4cwj ) = .TRUE. chem_dname_table( idomain, P_asoa4cwj ) = 'asoa4cwj' chem_desc_table( idomain, P_asoa4cwj ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_asoa4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4cwj )%stream(2) = 2097216 F_asoa4cwj = .TRUE. IF ( chem_index_table( PARAM_asoa4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4cwi = chem_num_table(idomain) chem_index_table( PARAM_asoa4cwi , idomain ) = P_asoa4cwi ELSE P_asoa4cwi = chem_index_table( PARAM_asoa4cwi , idomain ) END IF chem_boundary_table( idomain, P_asoa4cwi ) = .TRUE. chem_dname_table( idomain, P_asoa4cwi ) = 'asoa4cwi' chem_desc_table( idomain, P_asoa4cwi ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_asoa4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4cwi )%stream(2) = 2097216 F_asoa4cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa1cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa1cwj , idomain ) = P_bsoa1cwj ELSE P_bsoa1cwj = chem_index_table( PARAM_bsoa1cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa1cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa1cwj ) = 'bsoa1cwj' chem_desc_table( idomain, P_bsoa1cwj ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa1cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1cwj )%stream(2) = 2097216 F_bsoa1cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa1cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa1cwi , idomain ) = P_bsoa1cwi ELSE P_bsoa1cwi = chem_index_table( PARAM_bsoa1cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa1cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa1cwi ) = 'bsoa1cwi' chem_desc_table( idomain, P_bsoa1cwi ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa1cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1cwi )%stream(2) = 2097216 F_bsoa1cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa2cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa2cwj , idomain ) = P_bsoa2cwj ELSE P_bsoa2cwj = chem_index_table( PARAM_bsoa2cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa2cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa2cwj ) = 'bsoa2cwj' chem_desc_table( idomain, P_bsoa2cwj ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa2cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2cwj )%stream(2) = 2097216 F_bsoa2cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa2cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa2cwi , idomain ) = P_bsoa2cwi ELSE P_bsoa2cwi = chem_index_table( PARAM_bsoa2cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa2cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa2cwi ) = 'bsoa2cwi' chem_desc_table( idomain, P_bsoa2cwi ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa2cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2cwi )%stream(2) = 2097216 F_bsoa2cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa3cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa3cwj , idomain ) = P_bsoa3cwj ELSE P_bsoa3cwj = chem_index_table( PARAM_bsoa3cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa3cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa3cwj ) = 'bsoa3cwj' chem_desc_table( idomain, P_bsoa3cwj ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa3cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3cwj )%stream(2) = 2097216 F_bsoa3cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa3cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa3cwi , idomain ) = P_bsoa3cwi ELSE P_bsoa3cwi = chem_index_table( PARAM_bsoa3cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa3cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa3cwi ) = 'bsoa3cwi' chem_desc_table( idomain, P_bsoa3cwi ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa3cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3cwi )%stream(2) = 2097216 F_bsoa3cwi = .TRUE. IF ( chem_index_table( PARAM_bsoa4cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4cwj = chem_num_table(idomain) chem_index_table( PARAM_bsoa4cwj , idomain ) = P_bsoa4cwj ELSE P_bsoa4cwj = chem_index_table( PARAM_bsoa4cwj , idomain ) END IF chem_boundary_table( idomain, P_bsoa4cwj ) = .TRUE. chem_dname_table( idomain, P_bsoa4cwj ) = 'bsoa4cwj' chem_desc_table( idomain, P_bsoa4cwj ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Acc. mode in cloud' chem_units_table( idomain, P_bsoa4cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4cwj )%stream(2) = 2097216 F_bsoa4cwj = .TRUE. IF ( chem_index_table( PARAM_bsoa4cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4cwi = chem_num_table(idomain) chem_index_table( PARAM_bsoa4cwi , idomain ) = P_bsoa4cwi ELSE P_bsoa4cwi = chem_index_table( PARAM_bsoa4cwi , idomain ) END IF chem_boundary_table( idomain, P_bsoa4cwi ) = .TRUE. chem_dname_table( idomain, P_bsoa4cwi ) = 'bsoa4cwi' chem_desc_table( idomain, P_bsoa4cwi ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Aitken mode in cloud' chem_units_table( idomain, P_bsoa4cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4cwi )%stream(2) = 2097216 F_bsoa4cwi = .TRUE. IF ( chem_index_table( PARAM_orgpacwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwj = chem_num_table(idomain) chem_index_table( PARAM_orgpacwj , idomain ) = P_orgpacwj ELSE P_orgpacwj = chem_index_table( PARAM_orgpacwj , idomain ) END IF chem_boundary_table( idomain, P_orgpacwj ) = .TRUE. chem_dname_table( idomain, P_orgpacwj ) = 'orgpacwj' chem_desc_table( idomain, P_orgpacwj ) = 'Prim. anth. org. conc. from aromatics Acc. mode in cloud' chem_units_table( idomain, P_orgpacwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwj )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwj )%stream(2) = 2097216 F_orgpacwj = .TRUE. IF ( chem_index_table( PARAM_orgpacwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_orgpacwi = chem_num_table(idomain) chem_index_table( PARAM_orgpacwi , idomain ) = P_orgpacwi ELSE P_orgpacwi = chem_index_table( PARAM_orgpacwi , idomain ) END IF chem_boundary_table( idomain, P_orgpacwi ) = .TRUE. chem_dname_table( idomain, P_orgpacwi ) = 'orgpacwi' chem_desc_table( idomain, P_orgpacwi ) = 'Prim. anth. org. conc. from aromatics Aitken mode in cloud' chem_units_table( idomain, P_orgpacwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_orgpacwi )%stream(1) = 33554433 chem_streams_table( idomain, P_orgpacwi )%stream(2) = 2097216 F_orgpacwi = .TRUE. IF ( chem_index_table( PARAM_eccwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwj = chem_num_table(idomain) chem_index_table( PARAM_eccwj , idomain ) = P_eccwj ELSE P_eccwj = chem_index_table( PARAM_eccwj , idomain ) END IF chem_boundary_table( idomain, P_eccwj ) = .TRUE. chem_dname_table( idomain, P_eccwj ) = 'eccwj' chem_desc_table( idomain, P_eccwj ) = 'Elemental carbon Acc. mode in cloud' chem_units_table( idomain, P_eccwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwj )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwj )%stream(2) = 2097216 F_eccwj = .TRUE. IF ( chem_index_table( PARAM_eccwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eccwi = chem_num_table(idomain) chem_index_table( PARAM_eccwi , idomain ) = P_eccwi ELSE P_eccwi = chem_index_table( PARAM_eccwi , idomain ) END IF chem_boundary_table( idomain, P_eccwi ) = .TRUE. chem_dname_table( idomain, P_eccwi ) = 'eccwi' chem_desc_table( idomain, P_eccwi ) = 'Elemental carbon Aitken mode in cloud' chem_units_table( idomain, P_eccwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_eccwi )%stream(1) = 33554433 chem_streams_table( idomain, P_eccwi )%stream(2) = 2097216 F_eccwi = .TRUE. IF ( chem_index_table( PARAM_p25cwj , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwj = chem_num_table(idomain) chem_index_table( PARAM_p25cwj , idomain ) = P_p25cwj ELSE P_p25cwj = chem_index_table( PARAM_p25cwj , idomain ) END IF chem_boundary_table( idomain, P_p25cwj ) = .TRUE. chem_dname_table( idomain, P_p25cwj ) = 'p25cwj' chem_desc_table( idomain, P_p25cwj ) = 'Primary PM2.5 Acc. mode in cloud' chem_units_table( idomain, P_p25cwj ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwj )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwj )%stream(2) = 2097216 F_p25cwj = .TRUE. IF ( chem_index_table( PARAM_p25cwi , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25cwi = chem_num_table(idomain) chem_index_table( PARAM_p25cwi , idomain ) = P_p25cwi ELSE P_p25cwi = chem_index_table( PARAM_p25cwi , idomain ) END IF chem_boundary_table( idomain, P_p25cwi ) = .TRUE. chem_dname_table( idomain, P_p25cwi ) = 'p25cwi' chem_desc_table( idomain, P_p25cwi ) = 'Primary PM2.5 Aitken mode in cloud' chem_units_table( idomain, P_p25cwi ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25cwi )%stream(1) = 33554433 chem_streams_table( idomain, P_p25cwi )%stream(2) = 2097216 F_p25cwi = .TRUE. IF ( chem_index_table( PARAM_anthcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anthcw = chem_num_table(idomain) chem_index_table( PARAM_anthcw , idomain ) = P_anthcw ELSE P_anthcw = chem_index_table( PARAM_anthcw , idomain ) END IF chem_boundary_table( idomain, P_anthcw ) = .TRUE. chem_dname_table( idomain, P_anthcw ) = 'anthcw' chem_desc_table( idomain, P_anthcw ) = 'Coarse anthropogenic aerosols in cloud' chem_units_table( idomain, P_anthcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_anthcw )%stream(1) = 33554433 chem_streams_table( idomain, P_anthcw )%stream(2) = 2097216 F_anthcw = .TRUE. IF ( chem_index_table( PARAM_seascw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seascw = chem_num_table(idomain) chem_index_table( PARAM_seascw , idomain ) = P_seascw ELSE P_seascw = chem_index_table( PARAM_seascw , idomain ) END IF chem_boundary_table( idomain, P_seascw ) = .TRUE. chem_dname_table( idomain, P_seascw ) = 'seascw' chem_desc_table( idomain, P_seascw ) = 'Coarse marine aerosols in cloud' chem_units_table( idomain, P_seascw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seascw )%stream(1) = 33554433 chem_streams_table( idomain, P_seascw )%stream(2) = 2097216 F_seascw = .TRUE. IF ( chem_index_table( PARAM_soilcw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soilcw = chem_num_table(idomain) chem_index_table( PARAM_soilcw , idomain ) = P_soilcw ELSE P_soilcw = chem_index_table( PARAM_soilcw , idomain ) END IF chem_boundary_table( idomain, P_soilcw ) = .TRUE. chem_dname_table( idomain, P_soilcw ) = 'soilcw' chem_desc_table( idomain, P_soilcw ) = 'Coarse soil-derived aerosols in cloud' chem_units_table( idomain, P_soilcw ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soilcw )%stream(1) = 33554433 chem_streams_table( idomain, P_soilcw )%stream(2) = 2097216 F_soilcw = .TRUE. IF ( chem_index_table( PARAM_nu0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nu0cw = chem_num_table(idomain) chem_index_table( PARAM_nu0cw , idomain ) = P_nu0cw ELSE P_nu0cw = chem_index_table( PARAM_nu0cw , idomain ) END IF chem_boundary_table( idomain, P_nu0cw ) = .TRUE. chem_dname_table( idomain, P_nu0cw ) = 'nu0cw' chem_desc_table( idomain, P_nu0cw ) = 'Aitken mode number in cloud' chem_units_table( idomain, P_nu0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_nu0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_nu0cw )%stream(2) = 2097216 F_nu0cw = .TRUE. IF ( chem_index_table( PARAM_ac0cw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ac0cw = chem_num_table(idomain) chem_index_table( PARAM_ac0cw , idomain ) = P_ac0cw ELSE P_ac0cw = chem_index_table( PARAM_ac0cw , idomain ) END IF chem_boundary_table( idomain, P_ac0cw ) = .TRUE. chem_dname_table( idomain, P_ac0cw ) = 'ac0cw' chem_desc_table( idomain, P_ac0cw ) = 'Accumulation mode number in cloud' chem_units_table( idomain, P_ac0cw ) = ' /kg-dryair' chem_streams_table( idomain, P_ac0cw )%stream(1) = 33554433 chem_streams_table( idomain, P_ac0cw )%stream(2) = 2097216 F_ac0cw = .TRUE. IF ( chem_index_table( PARAM_corncw , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_corncw = chem_num_table(idomain) chem_index_table( PARAM_corncw , idomain ) = P_corncw ELSE P_corncw = chem_index_table( PARAM_corncw , idomain ) END IF chem_boundary_table( idomain, P_corncw ) = .TRUE. chem_dname_table( idomain, P_corncw ) = 'corncw' chem_desc_table( idomain, P_corncw ) = 'Coarse mode number in cloud' chem_units_table( idomain, P_corncw ) = ' /kg-dryair' chem_streams_table( idomain, P_corncw )%stream(1) = 33554433 chem_streams_table( idomain, P_corncw )%stream(2) = 2097216 F_corncw = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==170)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_alk1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1 = chem_num_table(idomain) chem_index_table( PARAM_alk1 , idomain ) = P_alk1 ELSE P_alk1 = chem_index_table( PARAM_alk1 , idomain ) END IF chem_boundary_table( idomain, P_alk1 ) = .TRUE. chem_dname_table( idomain, P_alk1 ) = 'alk1' chem_desc_table( idomain, P_alk1 ) = 'ALK1 mixing ratio' chem_units_table( idomain, P_alk1 ) = 'ppmv' chem_streams_table( idomain, P_alk1 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1 )%stream(2) = 2097216 F_alk1 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_api1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1 = chem_num_table(idomain) chem_index_table( PARAM_api1 , idomain ) = P_api1 ELSE P_api1 = chem_index_table( PARAM_api1 , idomain ) END IF chem_boundary_table( idomain, P_api1 ) = .TRUE. chem_dname_table( idomain, P_api1 ) = 'api1' chem_desc_table( idomain, P_api1 ) = 'API1 mixing ratio' chem_units_table( idomain, P_api1 ) = 'ppmv' chem_streams_table( idomain, P_api1 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1 )%stream(2) = 2097216 F_api1 = .TRUE. IF ( chem_index_table( PARAM_api2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2 = chem_num_table(idomain) chem_index_table( PARAM_api2 , idomain ) = P_api2 ELSE P_api2 = chem_index_table( PARAM_api2 , idomain ) END IF chem_boundary_table( idomain, P_api2 ) = .TRUE. chem_dname_table( idomain, P_api2 ) = 'api2' chem_desc_table( idomain, P_api2 ) = 'API2 mixing ratio' chem_units_table( idomain, P_api2 ) = 'ppmv' chem_streams_table( idomain, P_api2 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2 )%stream(2) = 2097216 F_api2 = .TRUE. IF ( chem_index_table( PARAM_lim1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1 = chem_num_table(idomain) chem_index_table( PARAM_lim1 , idomain ) = P_lim1 ELSE P_lim1 = chem_index_table( PARAM_lim1 , idomain ) END IF chem_boundary_table( idomain, P_lim1 ) = .TRUE. chem_dname_table( idomain, P_lim1 ) = 'lim1' chem_desc_table( idomain, P_lim1 ) = 'LIM1 mixing ratio' chem_units_table( idomain, P_lim1 ) = 'ppmv' chem_streams_table( idomain, P_lim1 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1 )%stream(2) = 2097216 F_lim1 = .TRUE. IF ( chem_index_table( PARAM_lim2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2 = chem_num_table(idomain) chem_index_table( PARAM_lim2 , idomain ) = P_lim2 ELSE P_lim2 = chem_index_table( PARAM_lim2 , idomain ) END IF chem_boundary_table( idomain, P_lim2 ) = .TRUE. chem_dname_table( idomain, P_lim2 ) = 'lim2' chem_desc_table( idomain, P_lim2 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_lim2 ) = 'ppmv' chem_streams_table( idomain, P_lim2 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2 )%stream(2) = 2097216 F_lim2 = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_aro1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a01 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a01 , idomain ) = P_aro1_a01 ELSE P_aro1_a01 = chem_index_table( PARAM_aro1_a01 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a01 ) = .TRUE. chem_dname_table( idomain, P_aro1_a01 ) = 'aro1_a01' chem_desc_table( idomain, P_aro1_a01 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1_a01 )%stream(2) = 2097216 F_aro1_a01 = .TRUE. IF ( chem_index_table( PARAM_aro2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a01 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a01 , idomain ) = P_aro2_a01 ELSE P_aro2_a01 = chem_index_table( PARAM_aro2_a01 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a01 ) = .TRUE. chem_dname_table( idomain, P_aro2_a01 ) = 'aro2_a01' chem_desc_table( idomain, P_aro2_a01 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2_a01 )%stream(2) = 2097216 F_aro2_a01 = .TRUE. IF ( chem_index_table( PARAM_alk1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a01 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a01 , idomain ) = P_alk1_a01 ELSE P_alk1_a01 = chem_index_table( PARAM_alk1_a01 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a01 ) = .TRUE. chem_dname_table( idomain, P_alk1_a01 ) = 'alk1_a01' chem_desc_table( idomain, P_alk1_a01 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1_a01 )%stream(2) = 2097216 F_alk1_a01 = .TRUE. IF ( chem_index_table( PARAM_ole1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a01 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a01 , idomain ) = P_ole1_a01 ELSE P_ole1_a01 = chem_index_table( PARAM_ole1_a01 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a01 ) = .TRUE. chem_dname_table( idomain, P_ole1_a01 ) = 'ole1_a01' chem_desc_table( idomain, P_ole1_a01 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1_a01 )%stream(2) = 2097216 F_ole1_a01 = .TRUE. IF ( chem_index_table( PARAM_api1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a01 = chem_num_table(idomain) chem_index_table( PARAM_api1_a01 , idomain ) = P_api1_a01 ELSE P_api1_a01 = chem_index_table( PARAM_api1_a01 , idomain ) END IF chem_boundary_table( idomain, P_api1_a01 ) = .TRUE. chem_dname_table( idomain, P_api1_a01 ) = 'api1_a01' chem_desc_table( idomain, P_api1_a01 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1_a01 )%stream(2) = 2097216 F_api1_a01 = .TRUE. IF ( chem_index_table( PARAM_api2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a01 = chem_num_table(idomain) chem_index_table( PARAM_api2_a01 , idomain ) = P_api2_a01 ELSE P_api2_a01 = chem_index_table( PARAM_api2_a01 , idomain ) END IF chem_boundary_table( idomain, P_api2_a01 ) = .TRUE. chem_dname_table( idomain, P_api2_a01 ) = 'api2_a01' chem_desc_table( idomain, P_api2_a01 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2_a01 )%stream(2) = 2097216 F_api2_a01 = .TRUE. IF ( chem_index_table( PARAM_lim1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a01 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a01 , idomain ) = P_lim1_a01 ELSE P_lim1_a01 = chem_index_table( PARAM_lim1_a01 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a01 ) = .TRUE. chem_dname_table( idomain, P_lim1_a01 ) = 'lim1_a01' chem_desc_table( idomain, P_lim1_a01 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1_a01 )%stream(2) = 2097216 F_lim1_a01 = .TRUE. IF ( chem_index_table( PARAM_lim2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a01 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a01 , idomain ) = P_lim2_a01 ELSE P_lim2_a01 = chem_index_table( PARAM_lim2_a01 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a01 ) = .TRUE. chem_dname_table( idomain, P_lim2_a01 ) = 'lim2_a01' chem_desc_table( idomain, P_lim2_a01 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2_a01 )%stream(2) = 2097216 F_lim2_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_aro1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a02 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a02 , idomain ) = P_aro1_a02 ELSE P_aro1_a02 = chem_index_table( PARAM_aro1_a02 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a02 ) = .TRUE. chem_dname_table( idomain, P_aro1_a02 ) = 'aro1_a02' chem_desc_table( idomain, P_aro1_a02 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1_a02 )%stream(2) = 2097216 F_aro1_a02 = .TRUE. IF ( chem_index_table( PARAM_aro2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a02 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a02 , idomain ) = P_aro2_a02 ELSE P_aro2_a02 = chem_index_table( PARAM_aro2_a02 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a02 ) = .TRUE. chem_dname_table( idomain, P_aro2_a02 ) = 'aro2_a02' chem_desc_table( idomain, P_aro2_a02 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2_a02 )%stream(2) = 2097216 F_aro2_a02 = .TRUE. IF ( chem_index_table( PARAM_alk1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a02 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a02 , idomain ) = P_alk1_a02 ELSE P_alk1_a02 = chem_index_table( PARAM_alk1_a02 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a02 ) = .TRUE. chem_dname_table( idomain, P_alk1_a02 ) = 'alk1_a02' chem_desc_table( idomain, P_alk1_a02 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1_a02 )%stream(2) = 2097216 F_alk1_a02 = .TRUE. IF ( chem_index_table( PARAM_ole1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a02 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a02 , idomain ) = P_ole1_a02 ELSE P_ole1_a02 = chem_index_table( PARAM_ole1_a02 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a02 ) = .TRUE. chem_dname_table( idomain, P_ole1_a02 ) = 'ole1_a02' chem_desc_table( idomain, P_ole1_a02 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1_a02 )%stream(2) = 2097216 F_ole1_a02 = .TRUE. IF ( chem_index_table( PARAM_api1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a02 = chem_num_table(idomain) chem_index_table( PARAM_api1_a02 , idomain ) = P_api1_a02 ELSE P_api1_a02 = chem_index_table( PARAM_api1_a02 , idomain ) END IF chem_boundary_table( idomain, P_api1_a02 ) = .TRUE. chem_dname_table( idomain, P_api1_a02 ) = 'api1_a02' chem_desc_table( idomain, P_api1_a02 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1_a02 )%stream(2) = 2097216 F_api1_a02 = .TRUE. IF ( chem_index_table( PARAM_api2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a02 = chem_num_table(idomain) chem_index_table( PARAM_api2_a02 , idomain ) = P_api2_a02 ELSE P_api2_a02 = chem_index_table( PARAM_api2_a02 , idomain ) END IF chem_boundary_table( idomain, P_api2_a02 ) = .TRUE. chem_dname_table( idomain, P_api2_a02 ) = 'api2_a02' chem_desc_table( idomain, P_api2_a02 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2_a02 )%stream(2) = 2097216 F_api2_a02 = .TRUE. IF ( chem_index_table( PARAM_lim1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a02 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a02 , idomain ) = P_lim1_a02 ELSE P_lim1_a02 = chem_index_table( PARAM_lim1_a02 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a02 ) = .TRUE. chem_dname_table( idomain, P_lim1_a02 ) = 'lim1_a02' chem_desc_table( idomain, P_lim1_a02 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1_a02 )%stream(2) = 2097216 F_lim1_a02 = .TRUE. IF ( chem_index_table( PARAM_lim2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a02 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a02 , idomain ) = P_lim2_a02 ELSE P_lim2_a02 = chem_index_table( PARAM_lim2_a02 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a02 ) = .TRUE. chem_dname_table( idomain, P_lim2_a02 ) = 'lim2_a02' chem_desc_table( idomain, P_lim2_a02 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2_a02 )%stream(2) = 2097216 F_lim2_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_aro1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a03 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a03 , idomain ) = P_aro1_a03 ELSE P_aro1_a03 = chem_index_table( PARAM_aro1_a03 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a03 ) = .TRUE. chem_dname_table( idomain, P_aro1_a03 ) = 'aro1_a03' chem_desc_table( idomain, P_aro1_a03 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1_a03 )%stream(2) = 2097216 F_aro1_a03 = .TRUE. IF ( chem_index_table( PARAM_aro2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a03 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a03 , idomain ) = P_aro2_a03 ELSE P_aro2_a03 = chem_index_table( PARAM_aro2_a03 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a03 ) = .TRUE. chem_dname_table( idomain, P_aro2_a03 ) = 'aro2_a03' chem_desc_table( idomain, P_aro2_a03 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2_a03 )%stream(2) = 2097216 F_aro2_a03 = .TRUE. IF ( chem_index_table( PARAM_alk1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a03 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a03 , idomain ) = P_alk1_a03 ELSE P_alk1_a03 = chem_index_table( PARAM_alk1_a03 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a03 ) = .TRUE. chem_dname_table( idomain, P_alk1_a03 ) = 'alk1_a03' chem_desc_table( idomain, P_alk1_a03 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1_a03 )%stream(2) = 2097216 F_alk1_a03 = .TRUE. IF ( chem_index_table( PARAM_ole1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a03 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a03 , idomain ) = P_ole1_a03 ELSE P_ole1_a03 = chem_index_table( PARAM_ole1_a03 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a03 ) = .TRUE. chem_dname_table( idomain, P_ole1_a03 ) = 'ole1_a03' chem_desc_table( idomain, P_ole1_a03 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1_a03 )%stream(2) = 2097216 F_ole1_a03 = .TRUE. IF ( chem_index_table( PARAM_api1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a03 = chem_num_table(idomain) chem_index_table( PARAM_api1_a03 , idomain ) = P_api1_a03 ELSE P_api1_a03 = chem_index_table( PARAM_api1_a03 , idomain ) END IF chem_boundary_table( idomain, P_api1_a03 ) = .TRUE. chem_dname_table( idomain, P_api1_a03 ) = 'api1_a03' chem_desc_table( idomain, P_api1_a03 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1_a03 )%stream(2) = 2097216 F_api1_a03 = .TRUE. IF ( chem_index_table( PARAM_api2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a03 = chem_num_table(idomain) chem_index_table( PARAM_api2_a03 , idomain ) = P_api2_a03 ELSE P_api2_a03 = chem_index_table( PARAM_api2_a03 , idomain ) END IF chem_boundary_table( idomain, P_api2_a03 ) = .TRUE. chem_dname_table( idomain, P_api2_a03 ) = 'api2_a03' chem_desc_table( idomain, P_api2_a03 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2_a03 )%stream(2) = 2097216 F_api2_a03 = .TRUE. IF ( chem_index_table( PARAM_lim1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a03 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a03 , idomain ) = P_lim1_a03 ELSE P_lim1_a03 = chem_index_table( PARAM_lim1_a03 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a03 ) = .TRUE. chem_dname_table( idomain, P_lim1_a03 ) = 'lim1_a03' chem_desc_table( idomain, P_lim1_a03 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1_a03 )%stream(2) = 2097216 F_lim1_a03 = .TRUE. IF ( chem_index_table( PARAM_lim2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a03 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a03 , idomain ) = P_lim2_a03 ELSE P_lim2_a03 = chem_index_table( PARAM_lim2_a03 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a03 ) = .TRUE. chem_dname_table( idomain, P_lim2_a03 ) = 'lim2_a03' chem_desc_table( idomain, P_lim2_a03 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2_a03 )%stream(2) = 2097216 F_lim2_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_aro1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a04 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a04 , idomain ) = P_aro1_a04 ELSE P_aro1_a04 = chem_index_table( PARAM_aro1_a04 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a04 ) = .TRUE. chem_dname_table( idomain, P_aro1_a04 ) = 'aro1_a04' chem_desc_table( idomain, P_aro1_a04 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1_a04 )%stream(2) = 2097216 F_aro1_a04 = .TRUE. IF ( chem_index_table( PARAM_aro2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a04 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a04 , idomain ) = P_aro2_a04 ELSE P_aro2_a04 = chem_index_table( PARAM_aro2_a04 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a04 ) = .TRUE. chem_dname_table( idomain, P_aro2_a04 ) = 'aro2_a04' chem_desc_table( idomain, P_aro2_a04 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2_a04 )%stream(2) = 2097216 F_aro2_a04 = .TRUE. IF ( chem_index_table( PARAM_alk1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a04 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a04 , idomain ) = P_alk1_a04 ELSE P_alk1_a04 = chem_index_table( PARAM_alk1_a04 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a04 ) = .TRUE. chem_dname_table( idomain, P_alk1_a04 ) = 'alk1_a04' chem_desc_table( idomain, P_alk1_a04 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1_a04 )%stream(2) = 2097216 F_alk1_a04 = .TRUE. IF ( chem_index_table( PARAM_ole1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a04 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a04 , idomain ) = P_ole1_a04 ELSE P_ole1_a04 = chem_index_table( PARAM_ole1_a04 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a04 ) = .TRUE. chem_dname_table( idomain, P_ole1_a04 ) = 'ole1_a04' chem_desc_table( idomain, P_ole1_a04 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1_a04 )%stream(2) = 2097216 F_ole1_a04 = .TRUE. IF ( chem_index_table( PARAM_api1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a04 = chem_num_table(idomain) chem_index_table( PARAM_api1_a04 , idomain ) = P_api1_a04 ELSE P_api1_a04 = chem_index_table( PARAM_api1_a04 , idomain ) END IF chem_boundary_table( idomain, P_api1_a04 ) = .TRUE. chem_dname_table( idomain, P_api1_a04 ) = 'api1_a04' chem_desc_table( idomain, P_api1_a04 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1_a04 )%stream(2) = 2097216 F_api1_a04 = .TRUE. IF ( chem_index_table( PARAM_api2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a04 = chem_num_table(idomain) chem_index_table( PARAM_api2_a04 , idomain ) = P_api2_a04 ELSE P_api2_a04 = chem_index_table( PARAM_api2_a04 , idomain ) END IF chem_boundary_table( idomain, P_api2_a04 ) = .TRUE. chem_dname_table( idomain, P_api2_a04 ) = 'api2_a04' chem_desc_table( idomain, P_api2_a04 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2_a04 )%stream(2) = 2097216 F_api2_a04 = .TRUE. IF ( chem_index_table( PARAM_lim1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a04 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a04 , idomain ) = P_lim1_a04 ELSE P_lim1_a04 = chem_index_table( PARAM_lim1_a04 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a04 ) = .TRUE. chem_dname_table( idomain, P_lim1_a04 ) = 'lim1_a04' chem_desc_table( idomain, P_lim1_a04 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1_a04 )%stream(2) = 2097216 F_lim1_a04 = .TRUE. IF ( chem_index_table( PARAM_lim2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a04 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a04 , idomain ) = P_lim2_a04 ELSE P_lim2_a04 = chem_index_table( PARAM_lim2_a04 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a04 ) = .TRUE. chem_dname_table( idomain, P_lim2_a04 ) = 'lim2_a04' chem_desc_table( idomain, P_lim2_a04 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2_a04 )%stream(2) = 2097216 F_lim2_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_aro1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a05 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a05 , idomain ) = P_aro1_a05 ELSE P_aro1_a05 = chem_index_table( PARAM_aro1_a05 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a05 ) = .TRUE. chem_dname_table( idomain, P_aro1_a05 ) = 'aro1_a05' chem_desc_table( idomain, P_aro1_a05 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1_a05 )%stream(2) = 2097216 F_aro1_a05 = .TRUE. IF ( chem_index_table( PARAM_aro2_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a05 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a05 , idomain ) = P_aro2_a05 ELSE P_aro2_a05 = chem_index_table( PARAM_aro2_a05 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a05 ) = .TRUE. chem_dname_table( idomain, P_aro2_a05 ) = 'aro2_a05' chem_desc_table( idomain, P_aro2_a05 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2_a05 )%stream(2) = 2097216 F_aro2_a05 = .TRUE. IF ( chem_index_table( PARAM_alk1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a05 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a05 , idomain ) = P_alk1_a05 ELSE P_alk1_a05 = chem_index_table( PARAM_alk1_a05 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a05 ) = .TRUE. chem_dname_table( idomain, P_alk1_a05 ) = 'alk1_a05' chem_desc_table( idomain, P_alk1_a05 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1_a05 )%stream(2) = 2097216 F_alk1_a05 = .TRUE. IF ( chem_index_table( PARAM_ole1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a05 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a05 , idomain ) = P_ole1_a05 ELSE P_ole1_a05 = chem_index_table( PARAM_ole1_a05 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a05 ) = .TRUE. chem_dname_table( idomain, P_ole1_a05 ) = 'ole1_a05' chem_desc_table( idomain, P_ole1_a05 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1_a05 )%stream(2) = 2097216 F_ole1_a05 = .TRUE. IF ( chem_index_table( PARAM_api1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a05 = chem_num_table(idomain) chem_index_table( PARAM_api1_a05 , idomain ) = P_api1_a05 ELSE P_api1_a05 = chem_index_table( PARAM_api1_a05 , idomain ) END IF chem_boundary_table( idomain, P_api1_a05 ) = .TRUE. chem_dname_table( idomain, P_api1_a05 ) = 'api1_a05' chem_desc_table( idomain, P_api1_a05 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1_a05 )%stream(2) = 2097216 F_api1_a05 = .TRUE. IF ( chem_index_table( PARAM_api2_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a05 = chem_num_table(idomain) chem_index_table( PARAM_api2_a05 , idomain ) = P_api2_a05 ELSE P_api2_a05 = chem_index_table( PARAM_api2_a05 , idomain ) END IF chem_boundary_table( idomain, P_api2_a05 ) = .TRUE. chem_dname_table( idomain, P_api2_a05 ) = 'api2_a05' chem_desc_table( idomain, P_api2_a05 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2_a05 )%stream(2) = 2097216 F_api2_a05 = .TRUE. IF ( chem_index_table( PARAM_lim1_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a05 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a05 , idomain ) = P_lim1_a05 ELSE P_lim1_a05 = chem_index_table( PARAM_lim1_a05 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a05 ) = .TRUE. chem_dname_table( idomain, P_lim1_a05 ) = 'lim1_a05' chem_desc_table( idomain, P_lim1_a05 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1_a05 )%stream(2) = 2097216 F_lim1_a05 = .TRUE. IF ( chem_index_table( PARAM_lim2_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a05 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a05 , idomain ) = P_lim2_a05 ELSE P_lim2_a05 = chem_index_table( PARAM_lim2_a05 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a05 ) = .TRUE. chem_dname_table( idomain, P_lim2_a05 ) = 'lim2_a05' chem_desc_table( idomain, P_lim2_a05 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2_a05 )%stream(2) = 2097216 F_lim2_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_aro1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a06 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a06 , idomain ) = P_aro1_a06 ELSE P_aro1_a06 = chem_index_table( PARAM_aro1_a06 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a06 ) = .TRUE. chem_dname_table( idomain, P_aro1_a06 ) = 'aro1_a06' chem_desc_table( idomain, P_aro1_a06 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1_a06 )%stream(2) = 2097216 F_aro1_a06 = .TRUE. IF ( chem_index_table( PARAM_aro2_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a06 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a06 , idomain ) = P_aro2_a06 ELSE P_aro2_a06 = chem_index_table( PARAM_aro2_a06 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a06 ) = .TRUE. chem_dname_table( idomain, P_aro2_a06 ) = 'aro2_a06' chem_desc_table( idomain, P_aro2_a06 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2_a06 )%stream(2) = 2097216 F_aro2_a06 = .TRUE. IF ( chem_index_table( PARAM_alk1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a06 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a06 , idomain ) = P_alk1_a06 ELSE P_alk1_a06 = chem_index_table( PARAM_alk1_a06 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a06 ) = .TRUE. chem_dname_table( idomain, P_alk1_a06 ) = 'alk1_a06' chem_desc_table( idomain, P_alk1_a06 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1_a06 )%stream(2) = 2097216 F_alk1_a06 = .TRUE. IF ( chem_index_table( PARAM_ole1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a06 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a06 , idomain ) = P_ole1_a06 ELSE P_ole1_a06 = chem_index_table( PARAM_ole1_a06 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a06 ) = .TRUE. chem_dname_table( idomain, P_ole1_a06 ) = 'ole1_a06' chem_desc_table( idomain, P_ole1_a06 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1_a06 )%stream(2) = 2097216 F_ole1_a06 = .TRUE. IF ( chem_index_table( PARAM_api1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a06 = chem_num_table(idomain) chem_index_table( PARAM_api1_a06 , idomain ) = P_api1_a06 ELSE P_api1_a06 = chem_index_table( PARAM_api1_a06 , idomain ) END IF chem_boundary_table( idomain, P_api1_a06 ) = .TRUE. chem_dname_table( idomain, P_api1_a06 ) = 'api1_a06' chem_desc_table( idomain, P_api1_a06 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1_a06 )%stream(2) = 2097216 F_api1_a06 = .TRUE. IF ( chem_index_table( PARAM_api2_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a06 = chem_num_table(idomain) chem_index_table( PARAM_api2_a06 , idomain ) = P_api2_a06 ELSE P_api2_a06 = chem_index_table( PARAM_api2_a06 , idomain ) END IF chem_boundary_table( idomain, P_api2_a06 ) = .TRUE. chem_dname_table( idomain, P_api2_a06 ) = 'api2_a06' chem_desc_table( idomain, P_api2_a06 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2_a06 )%stream(2) = 2097216 F_api2_a06 = .TRUE. IF ( chem_index_table( PARAM_lim1_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a06 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a06 , idomain ) = P_lim1_a06 ELSE P_lim1_a06 = chem_index_table( PARAM_lim1_a06 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a06 ) = .TRUE. chem_dname_table( idomain, P_lim1_a06 ) = 'lim1_a06' chem_desc_table( idomain, P_lim1_a06 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1_a06 )%stream(2) = 2097216 F_lim1_a06 = .TRUE. IF ( chem_index_table( PARAM_lim2_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a06 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a06 , idomain ) = P_lim2_a06 ELSE P_lim2_a06 = chem_index_table( PARAM_lim2_a06 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a06 ) = .TRUE. chem_dname_table( idomain, P_lim2_a06 ) = 'lim2_a06' chem_desc_table( idomain, P_lim2_a06 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2_a06 )%stream(2) = 2097216 F_lim2_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_aro1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a07 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a07 , idomain ) = P_aro1_a07 ELSE P_aro1_a07 = chem_index_table( PARAM_aro1_a07 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a07 ) = .TRUE. chem_dname_table( idomain, P_aro1_a07 ) = 'aro1_a07' chem_desc_table( idomain, P_aro1_a07 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1_a07 )%stream(2) = 2097216 F_aro1_a07 = .TRUE. IF ( chem_index_table( PARAM_aro2_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a07 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a07 , idomain ) = P_aro2_a07 ELSE P_aro2_a07 = chem_index_table( PARAM_aro2_a07 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a07 ) = .TRUE. chem_dname_table( idomain, P_aro2_a07 ) = 'aro2_a07' chem_desc_table( idomain, P_aro2_a07 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2_a07 )%stream(2) = 2097216 F_aro2_a07 = .TRUE. IF ( chem_index_table( PARAM_alk1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a07 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a07 , idomain ) = P_alk1_a07 ELSE P_alk1_a07 = chem_index_table( PARAM_alk1_a07 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a07 ) = .TRUE. chem_dname_table( idomain, P_alk1_a07 ) = 'alk1_a07' chem_desc_table( idomain, P_alk1_a07 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1_a07 )%stream(2) = 2097216 F_alk1_a07 = .TRUE. IF ( chem_index_table( PARAM_ole1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a07 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a07 , idomain ) = P_ole1_a07 ELSE P_ole1_a07 = chem_index_table( PARAM_ole1_a07 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a07 ) = .TRUE. chem_dname_table( idomain, P_ole1_a07 ) = 'ole1_a07' chem_desc_table( idomain, P_ole1_a07 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1_a07 )%stream(2) = 2097216 F_ole1_a07 = .TRUE. IF ( chem_index_table( PARAM_api1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a07 = chem_num_table(idomain) chem_index_table( PARAM_api1_a07 , idomain ) = P_api1_a07 ELSE P_api1_a07 = chem_index_table( PARAM_api1_a07 , idomain ) END IF chem_boundary_table( idomain, P_api1_a07 ) = .TRUE. chem_dname_table( idomain, P_api1_a07 ) = 'api1_a07' chem_desc_table( idomain, P_api1_a07 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1_a07 )%stream(2) = 2097216 F_api1_a07 = .TRUE. IF ( chem_index_table( PARAM_api2_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a07 = chem_num_table(idomain) chem_index_table( PARAM_api2_a07 , idomain ) = P_api2_a07 ELSE P_api2_a07 = chem_index_table( PARAM_api2_a07 , idomain ) END IF chem_boundary_table( idomain, P_api2_a07 ) = .TRUE. chem_dname_table( idomain, P_api2_a07 ) = 'api2_a07' chem_desc_table( idomain, P_api2_a07 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2_a07 )%stream(2) = 2097216 F_api2_a07 = .TRUE. IF ( chem_index_table( PARAM_lim1_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a07 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a07 , idomain ) = P_lim1_a07 ELSE P_lim1_a07 = chem_index_table( PARAM_lim1_a07 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a07 ) = .TRUE. chem_dname_table( idomain, P_lim1_a07 ) = 'lim1_a07' chem_desc_table( idomain, P_lim1_a07 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1_a07 )%stream(2) = 2097216 F_lim1_a07 = .TRUE. IF ( chem_index_table( PARAM_lim2_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a07 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a07 , idomain ) = P_lim2_a07 ELSE P_lim2_a07 = chem_index_table( PARAM_lim2_a07 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a07 ) = .TRUE. chem_dname_table( idomain, P_lim2_a07 ) = 'lim2_a07' chem_desc_table( idomain, P_lim2_a07 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2_a07 )%stream(2) = 2097216 F_lim2_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_aro1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1_a08 = chem_num_table(idomain) chem_index_table( PARAM_aro1_a08 , idomain ) = P_aro1_a08 ELSE P_aro1_a08 = chem_index_table( PARAM_aro1_a08 , idomain ) END IF chem_boundary_table( idomain, P_aro1_a08 ) = .TRUE. chem_dname_table( idomain, P_aro1_a08 ) = 'aro1_a08' chem_desc_table( idomain, P_aro1_a08 ) = 'ARO1, aerosol bin 01' chem_units_table( idomain, P_aro1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro1_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1_a08 )%stream(2) = 2097216 F_aro1_a08 = .TRUE. IF ( chem_index_table( PARAM_aro2_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2_a08 = chem_num_table(idomain) chem_index_table( PARAM_aro2_a08 , idomain ) = P_aro2_a08 ELSE P_aro2_a08 = chem_index_table( PARAM_aro2_a08 , idomain ) END IF chem_boundary_table( idomain, P_aro2_a08 ) = .TRUE. chem_dname_table( idomain, P_aro2_a08 ) = 'aro2_a08' chem_desc_table( idomain, P_aro2_a08 ) = 'ARO2, aerosol bin 01' chem_units_table( idomain, P_aro2_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_aro2_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2_a08 )%stream(2) = 2097216 F_aro2_a08 = .TRUE. IF ( chem_index_table( PARAM_alk1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk1_a08 = chem_num_table(idomain) chem_index_table( PARAM_alk1_a08 , idomain ) = P_alk1_a08 ELSE P_alk1_a08 = chem_index_table( PARAM_alk1_a08 , idomain ) END IF chem_boundary_table( idomain, P_alk1_a08 ) = .TRUE. chem_dname_table( idomain, P_alk1_a08 ) = 'alk1_a08' chem_desc_table( idomain, P_alk1_a08 ) = 'ALK1, aerosol bin 01' chem_units_table( idomain, P_alk1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_alk1_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk1_a08 )%stream(2) = 2097216 F_alk1_a08 = .TRUE. IF ( chem_index_table( PARAM_ole1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1_a08 = chem_num_table(idomain) chem_index_table( PARAM_ole1_a08 , idomain ) = P_ole1_a08 ELSE P_ole1_a08 = chem_index_table( PARAM_ole1_a08 , idomain ) END IF chem_boundary_table( idomain, P_ole1_a08 ) = .TRUE. chem_dname_table( idomain, P_ole1_a08 ) = 'ole1_a08' chem_desc_table( idomain, P_ole1_a08 ) = 'OLE1, aerosol bin 01' chem_units_table( idomain, P_ole1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ole1_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1_a08 )%stream(2) = 2097216 F_ole1_a08 = .TRUE. IF ( chem_index_table( PARAM_api1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api1_a08 = chem_num_table(idomain) chem_index_table( PARAM_api1_a08 , idomain ) = P_api1_a08 ELSE P_api1_a08 = chem_index_table( PARAM_api1_a08 , idomain ) END IF chem_boundary_table( idomain, P_api1_a08 ) = .TRUE. chem_dname_table( idomain, P_api1_a08 ) = 'api1_a08' chem_desc_table( idomain, P_api1_a08 ) = 'API1, aerosol bin 01' chem_units_table( idomain, P_api1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api1_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_api1_a08 )%stream(2) = 2097216 F_api1_a08 = .TRUE. IF ( chem_index_table( PARAM_api2_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api2_a08 = chem_num_table(idomain) chem_index_table( PARAM_api2_a08 , idomain ) = P_api2_a08 ELSE P_api2_a08 = chem_index_table( PARAM_api2_a08 , idomain ) END IF chem_boundary_table( idomain, P_api2_a08 ) = .TRUE. chem_dname_table( idomain, P_api2_a08 ) = 'api2_a08' chem_desc_table( idomain, P_api2_a08 ) = 'API2, aerosol bin 01' chem_units_table( idomain, P_api2_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_api2_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_api2_a08 )%stream(2) = 2097216 F_api2_a08 = .TRUE. IF ( chem_index_table( PARAM_lim1_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim1_a08 = chem_num_table(idomain) chem_index_table( PARAM_lim1_a08 , idomain ) = P_lim1_a08 ELSE P_lim1_a08 = chem_index_table( PARAM_lim1_a08 , idomain ) END IF chem_boundary_table( idomain, P_lim1_a08 ) = .TRUE. chem_dname_table( idomain, P_lim1_a08 ) = 'lim1_a08' chem_desc_table( idomain, P_lim1_a08 ) = 'LIM1, aerosol bin 01' chem_units_table( idomain, P_lim1_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim1_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim1_a08 )%stream(2) = 2097216 F_lim1_a08 = .TRUE. IF ( chem_index_table( PARAM_lim2_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim2_a08 = chem_num_table(idomain) chem_index_table( PARAM_lim2_a08 , idomain ) = P_lim2_a08 ELSE P_lim2_a08 = chem_index_table( PARAM_lim2_a08 , idomain ) END IF chem_boundary_table( idomain, P_lim2_a08 ) = .TRUE. chem_dname_table( idomain, P_lim2_a08 ) = 'lim2_a08' chem_desc_table( idomain, P_lim2_a08 ) = 'LIM2, aerosol bin 01' chem_units_table( idomain, P_lim2_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_lim2_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_lim2_a08 )%stream(2) = 2097216 F_lim2_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a05 = chem_num_table(idomain) chem_index_table( PARAM_ca_a05 , idomain ) = P_ca_a05 ELSE P_ca_a05 = chem_index_table( PARAM_ca_a05 , idomain ) END IF chem_boundary_table( idomain, P_ca_a05 ) = .TRUE. chem_dname_table( idomain, P_ca_a05 ) = 'ca_a05' chem_desc_table( idomain, P_ca_a05 ) = 'Calcium, aerosol bin 05' chem_units_table( idomain, P_ca_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a05 )%stream(2) = 2097216 F_ca_a05 = .TRUE. IF ( chem_index_table( PARAM_ca_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a06 = chem_num_table(idomain) chem_index_table( PARAM_ca_a06 , idomain ) = P_ca_a06 ELSE P_ca_a06 = chem_index_table( PARAM_ca_a06 , idomain ) END IF chem_boundary_table( idomain, P_ca_a06 ) = .TRUE. chem_dname_table( idomain, P_ca_a06 ) = 'ca_a06' chem_desc_table( idomain, P_ca_a06 ) = 'Calcium, aerosol bin 06' chem_units_table( idomain, P_ca_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a06 )%stream(2) = 2097216 F_ca_a06 = .TRUE. IF ( chem_index_table( PARAM_ca_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a07 = chem_num_table(idomain) chem_index_table( PARAM_ca_a07 , idomain ) = P_ca_a07 ELSE P_ca_a07 = chem_index_table( PARAM_ca_a07 , idomain ) END IF chem_boundary_table( idomain, P_ca_a07 ) = .TRUE. chem_dname_table( idomain, P_ca_a07 ) = 'ca_a07' chem_desc_table( idomain, P_ca_a07 ) = 'Calcium, aerosol bin 07' chem_units_table( idomain, P_ca_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a07 )%stream(2) = 2097216 F_ca_a07 = .TRUE. IF ( chem_index_table( PARAM_ca_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a08 = chem_num_table(idomain) chem_index_table( PARAM_ca_a08 , idomain ) = P_ca_a08 ELSE P_ca_a08 = chem_index_table( PARAM_ca_a08 , idomain ) END IF chem_boundary_table( idomain, P_ca_a08 ) = .TRUE. chem_dname_table( idomain, P_ca_a08 ) = 'ca_a08' chem_desc_table( idomain, P_ca_a08 ) = 'Calcium, aerosol bin 08' chem_units_table( idomain, P_ca_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a08 )%stream(2) = 2097216 F_ca_a08 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a05 = chem_num_table(idomain) chem_index_table( PARAM_co3_a05 , idomain ) = P_co3_a05 ELSE P_co3_a05 = chem_index_table( PARAM_co3_a05 , idomain ) END IF chem_boundary_table( idomain, P_co3_a05 ) = .TRUE. chem_dname_table( idomain, P_co3_a05 ) = 'co3_a05' chem_desc_table( idomain, P_co3_a05 ) = 'Carbonate, aerosol bin 05' chem_units_table( idomain, P_co3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a05 )%stream(2) = 2097216 F_co3_a05 = .TRUE. IF ( chem_index_table( PARAM_co3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a06 = chem_num_table(idomain) chem_index_table( PARAM_co3_a06 , idomain ) = P_co3_a06 ELSE P_co3_a06 = chem_index_table( PARAM_co3_a06 , idomain ) END IF chem_boundary_table( idomain, P_co3_a06 ) = .TRUE. chem_dname_table( idomain, P_co3_a06 ) = 'co3_a06' chem_desc_table( idomain, P_co3_a06 ) = 'Carbonate, aerosol bin 06' chem_units_table( idomain, P_co3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a06 )%stream(2) = 2097216 F_co3_a06 = .TRUE. IF ( chem_index_table( PARAM_co3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a07 = chem_num_table(idomain) chem_index_table( PARAM_co3_a07 , idomain ) = P_co3_a07 ELSE P_co3_a07 = chem_index_table( PARAM_co3_a07 , idomain ) END IF chem_boundary_table( idomain, P_co3_a07 ) = .TRUE. chem_dname_table( idomain, P_co3_a07 ) = 'co3_a07' chem_desc_table( idomain, P_co3_a07 ) = 'Carbonate, aerosol bin 07' chem_units_table( idomain, P_co3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a07 )%stream(2) = 2097216 F_co3_a07 = .TRUE. IF ( chem_index_table( PARAM_co3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a08 = chem_num_table(idomain) chem_index_table( PARAM_co3_a08 , idomain ) = P_co3_a08 ELSE P_co3_a08 = chem_index_table( PARAM_co3_a08 , idomain ) END IF chem_boundary_table( idomain, P_co3_a08 ) = .TRUE. chem_dname_table( idomain, P_co3_a08 ) = 'co3_a08' chem_desc_table( idomain, P_co3_a08 ) = 'Carbonate, aerosol bin 08' chem_units_table( idomain, P_co3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a08 )%stream(2) = 2097216 F_co3_a08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==195)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_h2so4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2so4 = chem_num_table(idomain) chem_index_table( PARAM_h2so4 , idomain ) = P_h2so4 ELSE P_h2so4 = chem_index_table( PARAM_h2so4 , idomain ) END IF chem_boundary_table( idomain, P_h2so4 ) = .TRUE. chem_dname_table( idomain, P_h2so4 ) = 'h2so4' chem_desc_table( idomain, P_h2so4 ) = 'H2SO4 mixing ratio' chem_units_table( idomain, P_h2so4 ) = 'ppmv' chem_streams_table( idomain, P_h2so4 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2so4 )%stream(2) = 2097216 F_h2so4 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ccho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccho = chem_num_table(idomain) chem_index_table( PARAM_ccho , idomain ) = P_ccho ELSE P_ccho = chem_index_table( PARAM_ccho , idomain ) END IF chem_boundary_table( idomain, P_ccho ) = .TRUE. chem_dname_table( idomain, P_ccho ) = 'ccho' chem_desc_table( idomain, P_ccho ) = 'CCHO mixing ratio' chem_units_table( idomain, P_ccho ) = 'ppmv' chem_streams_table( idomain, P_ccho )%stream(1) = 33554433 chem_streams_table( idomain, P_ccho )%stream(2) = 2097216 F_ccho = .TRUE. IF ( chem_index_table( PARAM_rcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcho = chem_num_table(idomain) chem_index_table( PARAM_rcho , idomain ) = P_rcho ELSE P_rcho = chem_index_table( PARAM_rcho , idomain ) END IF chem_boundary_table( idomain, P_rcho ) = .TRUE. chem_dname_table( idomain, P_rcho ) = 'rcho' chem_desc_table( idomain, P_rcho ) = 'RCHO mixing ratio' chem_units_table( idomain, P_rcho ) = 'ppmv' chem_streams_table( idomain, P_rcho )%stream(1) = 33554433 chem_streams_table( idomain, P_rcho )%stream(2) = 2097216 F_rcho = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 F_meoh = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 F_etoh = .TRUE. IF ( chem_index_table( PARAM_cco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_oh = chem_num_table(idomain) chem_index_table( PARAM_cco_oh , idomain ) = P_cco_oh ELSE P_cco_oh = chem_index_table( PARAM_cco_oh , idomain ) END IF chem_boundary_table( idomain, P_cco_oh ) = .TRUE. chem_dname_table( idomain, P_cco_oh ) = 'cco_oh' chem_desc_table( idomain, P_cco_oh ) = 'CCO_OH mixing ratio' chem_units_table( idomain, P_cco_oh ) = 'ppmv' chem_streams_table( idomain, P_cco_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_oh )%stream(2) = 2097216 F_cco_oh = .TRUE. IF ( chem_index_table( PARAM_rco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_oh = chem_num_table(idomain) chem_index_table( PARAM_rco_oh , idomain ) = P_rco_oh ELSE P_rco_oh = chem_index_table( PARAM_rco_oh , idomain ) END IF chem_boundary_table( idomain, P_rco_oh ) = .TRUE. chem_dname_table( idomain, P_rco_oh ) = 'rco_oh' chem_desc_table( idomain, P_rco_oh ) = 'RCO_OH mixing ratio' chem_units_table( idomain, P_rco_oh ) = 'ppmv' chem_streams_table( idomain, P_rco_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_oh )%stream(2) = 2097216 F_rco_oh = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_bacl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bacl = chem_num_table(idomain) chem_index_table( PARAM_bacl , idomain ) = P_bacl ELSE P_bacl = chem_index_table( PARAM_bacl , idomain ) END IF chem_boundary_table( idomain, P_bacl ) = .TRUE. chem_dname_table( idomain, P_bacl ) = 'bacl' chem_desc_table( idomain, P_bacl ) = 'BACL mixing ratio' chem_units_table( idomain, P_bacl ) = 'ppmv' chem_streams_table( idomain, P_bacl )%stream(1) = 33554433 chem_streams_table( idomain, P_bacl )%stream(2) = 2097216 F_bacl = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 F_bald = .TRUE. IF ( chem_index_table( PARAM_isoprod , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprod = chem_num_table(idomain) chem_index_table( PARAM_isoprod , idomain ) = P_isoprod ELSE P_isoprod = chem_index_table( PARAM_isoprod , idomain ) END IF chem_boundary_table( idomain, P_isoprod ) = .TRUE. chem_dname_table( idomain, P_isoprod ) = 'isoprod' chem_desc_table( idomain, P_isoprod ) = 'ISOPROD mixing ratio' chem_units_table( idomain, P_isoprod ) = 'ppmv' chem_streams_table( idomain, P_isoprod )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprod )%stream(2) = 2097216 F_isoprod = .TRUE. IF ( chem_index_table( PARAM_methacro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methacro = chem_num_table(idomain) chem_index_table( PARAM_methacro , idomain ) = P_methacro ELSE P_methacro = chem_index_table( PARAM_methacro , idomain ) END IF chem_boundary_table( idomain, P_methacro ) = .TRUE. chem_dname_table( idomain, P_methacro ) = 'methacro' chem_desc_table( idomain, P_methacro ) = 'METHACRO mixing ratio' chem_units_table( idomain, P_methacro ) = 'ppmv' chem_streams_table( idomain, P_methacro )%stream(1) = 33554433 chem_streams_table( idomain, P_methacro )%stream(2) = 2097216 F_methacro = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_prod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prod2 = chem_num_table(idomain) chem_index_table( PARAM_prod2 , idomain ) = P_prod2 ELSE P_prod2 = chem_index_table( PARAM_prod2 , idomain ) END IF chem_boundary_table( idomain, P_prod2 ) = .TRUE. chem_dname_table( idomain, P_prod2 ) = 'prod2' chem_desc_table( idomain, P_prod2 ) = 'PROD2 mixing ratio' chem_units_table( idomain, P_prod2 ) = 'ppmv' chem_streams_table( idomain, P_prod2 )%stream(1) = 33554433 chem_streams_table( idomain, P_prod2 )%stream(2) = 2097216 F_prod2 = .TRUE. IF ( chem_index_table( PARAM_dcb1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb1 = chem_num_table(idomain) chem_index_table( PARAM_dcb1 , idomain ) = P_dcb1 ELSE P_dcb1 = chem_index_table( PARAM_dcb1 , idomain ) END IF chem_boundary_table( idomain, P_dcb1 ) = .TRUE. chem_dname_table( idomain, P_dcb1 ) = 'dcb1' chem_desc_table( idomain, P_dcb1 ) = 'DCB1 mixing ratio' chem_units_table( idomain, P_dcb1 ) = 'ppmv' chem_streams_table( idomain, P_dcb1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb1 )%stream(2) = 2097216 F_dcb1 = .TRUE. IF ( chem_index_table( PARAM_dcb2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb2 = chem_num_table(idomain) chem_index_table( PARAM_dcb2 , idomain ) = P_dcb2 ELSE P_dcb2 = chem_index_table( PARAM_dcb2 , idomain ) END IF chem_boundary_table( idomain, P_dcb2 ) = .TRUE. chem_dname_table( idomain, P_dcb2 ) = 'dcb2' chem_desc_table( idomain, P_dcb2 ) = 'DCB2 mixing ratio' chem_units_table( idomain, P_dcb2 ) = 'ppmv' chem_streams_table( idomain, P_dcb2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb2 )%stream(2) = 2097216 F_dcb2 = .TRUE. IF ( chem_index_table( PARAM_dcb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb3 = chem_num_table(idomain) chem_index_table( PARAM_dcb3 , idomain ) = P_dcb3 ELSE P_dcb3 = chem_index_table( PARAM_dcb3 , idomain ) END IF chem_boundary_table( idomain, P_dcb3 ) = .TRUE. chem_dname_table( idomain, P_dcb3 ) = 'dcb3' chem_desc_table( idomain, P_dcb3 ) = 'DCB3 mixing ratio' chem_units_table( idomain, P_dcb3 ) = 'ppmv' chem_streams_table( idomain, P_dcb3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb3 )%stream(2) = 2097216 F_dcb3 = .TRUE. IF ( chem_index_table( PARAM_ethene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethene = chem_num_table(idomain) chem_index_table( PARAM_ethene , idomain ) = P_ethene ELSE P_ethene = chem_index_table( PARAM_ethene , idomain ) END IF chem_boundary_table( idomain, P_ethene ) = .TRUE. chem_dname_table( idomain, P_ethene ) = 'ethene' chem_desc_table( idomain, P_ethene ) = 'ETHENE mixing ratio' chem_units_table( idomain, P_ethene ) = 'ppmv' chem_streams_table( idomain, P_ethene )%stream(1) = 33554433 chem_streams_table( idomain, P_ethene )%stream(2) = 2097216 F_ethene = .TRUE. IF ( chem_index_table( PARAM_isoprene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprene = chem_num_table(idomain) chem_index_table( PARAM_isoprene , idomain ) = P_isoprene ELSE P_isoprene = chem_index_table( PARAM_isoprene , idomain ) END IF chem_boundary_table( idomain, P_isoprene ) = .TRUE. chem_dname_table( idomain, P_isoprene ) = 'isoprene' chem_desc_table( idomain, P_isoprene ) = 'ISOPRENE mixing ratio' chem_units_table( idomain, P_isoprene ) = 'ppmv' chem_streams_table( idomain, P_isoprene )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprene )%stream(2) = 2097216 F_isoprene = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_alk3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk3 = chem_num_table(idomain) chem_index_table( PARAM_alk3 , idomain ) = P_alk3 ELSE P_alk3 = chem_index_table( PARAM_alk3 , idomain ) END IF chem_boundary_table( idomain, P_alk3 ) = .TRUE. chem_dname_table( idomain, P_alk3 ) = 'alk3' chem_desc_table( idomain, P_alk3 ) = 'ALK3 mixing ratio' chem_units_table( idomain, P_alk3 ) = 'ppmv' chem_streams_table( idomain, P_alk3 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk3 )%stream(2) = 2097216 F_alk3 = .TRUE. IF ( chem_index_table( PARAM_alk4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk4 = chem_num_table(idomain) chem_index_table( PARAM_alk4 , idomain ) = P_alk4 ELSE P_alk4 = chem_index_table( PARAM_alk4 , idomain ) END IF chem_boundary_table( idomain, P_alk4 ) = .TRUE. chem_dname_table( idomain, P_alk4 ) = 'alk4' chem_desc_table( idomain, P_alk4 ) = 'ALK4 mixing ratio' chem_units_table( idomain, P_alk4 ) = 'ppmv' chem_streams_table( idomain, P_alk4 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk4 )%stream(2) = 2097216 F_alk4 = .TRUE. IF ( chem_index_table( PARAM_alk5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk5 = chem_num_table(idomain) chem_index_table( PARAM_alk5 , idomain ) = P_alk5 ELSE P_alk5 = chem_index_table( PARAM_alk5 , idomain ) END IF chem_boundary_table( idomain, P_alk5 ) = .TRUE. chem_dname_table( idomain, P_alk5 ) = 'alk5' chem_desc_table( idomain, P_alk5 ) = 'ALK5 mixing ratio' chem_units_table( idomain, P_alk5 ) = 'ppmv' chem_streams_table( idomain, P_alk5 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk5 )%stream(2) = 2097216 F_alk5 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_ole2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole2 = chem_num_table(idomain) chem_index_table( PARAM_ole2 , idomain ) = P_ole2 ELSE P_ole2 = chem_index_table( PARAM_ole2 , idomain ) END IF chem_boundary_table( idomain, P_ole2 ) = .TRUE. chem_dname_table( idomain, P_ole2 ) = 'ole2' chem_desc_table( idomain, P_ole2 ) = 'OLE2 mixing ratio' chem_units_table( idomain, P_ole2 ) = 'ppmv' chem_streams_table( idomain, P_ole2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole2 )%stream(2) = 2097216 F_ole2 = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 F_terp = .TRUE. IF ( chem_index_table( PARAM_rno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rno3 = chem_num_table(idomain) chem_index_table( PARAM_rno3 , idomain ) = P_rno3 ELSE P_rno3 = chem_index_table( PARAM_rno3 , idomain ) END IF chem_boundary_table( idomain, P_rno3 ) = .TRUE. chem_dname_table( idomain, P_rno3 ) = 'rno3' chem_desc_table( idomain, P_rno3 ) = 'RNO3 mixing ratio' chem_units_table( idomain, P_rno3 ) = 'ppmv' chem_streams_table( idomain, P_rno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rno3 )%stream(2) = 2097216 F_rno3 = .TRUE. IF ( chem_index_table( PARAM_nphe , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nphe = chem_num_table(idomain) chem_index_table( PARAM_nphe , idomain ) = P_nphe ELSE P_nphe = chem_index_table( PARAM_nphe , idomain ) END IF chem_boundary_table( idomain, P_nphe ) = .TRUE. chem_dname_table( idomain, P_nphe ) = 'nphe' chem_desc_table( idomain, P_nphe ) = 'NPHE mixing ratio' chem_units_table( idomain, P_nphe ) = 'ppmv' chem_streams_table( idomain, P_nphe )%stream(1) = 33554433 chem_streams_table( idomain, P_nphe )%stream(2) = 2097216 F_nphe = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 F_phen = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_pan2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan2 = chem_num_table(idomain) chem_index_table( PARAM_pan2 , idomain ) = P_pan2 ELSE P_pan2 = chem_index_table( PARAM_pan2 , idomain ) END IF chem_boundary_table( idomain, P_pan2 ) = .TRUE. chem_dname_table( idomain, P_pan2 ) = 'pan2' chem_desc_table( idomain, P_pan2 ) = 'PAN2 mixing ratio' chem_units_table( idomain, P_pan2 ) = 'ppmv' chem_streams_table( idomain, P_pan2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pan2 )%stream(2) = 2097216 F_pan2 = .TRUE. IF ( chem_index_table( PARAM_pbzn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbzn = chem_num_table(idomain) chem_index_table( PARAM_pbzn , idomain ) = P_pbzn ELSE P_pbzn = chem_index_table( PARAM_pbzn , idomain ) END IF chem_boundary_table( idomain, P_pbzn ) = .TRUE. chem_dname_table( idomain, P_pbzn ) = 'pbzn' chem_desc_table( idomain, P_pbzn ) = 'PBZN mixing ratio' chem_units_table( idomain, P_pbzn ) = 'ppmv' chem_streams_table( idomain, P_pbzn )%stream(1) = 33554433 chem_streams_table( idomain, P_pbzn )%stream(2) = 2097216 F_pbzn = .TRUE. IF ( chem_index_table( PARAM_ma_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_pan = chem_num_table(idomain) chem_index_table( PARAM_ma_pan , idomain ) = P_ma_pan ELSE P_ma_pan = chem_index_table( PARAM_ma_pan , idomain ) END IF chem_boundary_table( idomain, P_ma_pan ) = .TRUE. chem_dname_table( idomain, P_ma_pan ) = 'ma_pan' chem_desc_table( idomain, P_ma_pan ) = 'MA_PAN mixing ratio' chem_units_table( idomain, P_ma_pan ) = 'ppmv' chem_streams_table( idomain, P_ma_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_ma_pan )%stream(2) = 2097216 F_ma_pan = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_cco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_ooh = chem_num_table(idomain) chem_index_table( PARAM_cco_ooh , idomain ) = P_cco_ooh ELSE P_cco_ooh = chem_index_table( PARAM_cco_ooh , idomain ) END IF chem_boundary_table( idomain, P_cco_ooh ) = .TRUE. chem_dname_table( idomain, P_cco_ooh ) = 'cco_ooh' chem_desc_table( idomain, P_cco_ooh ) = 'CCO_OOH mixing ratio' chem_units_table( idomain, P_cco_ooh ) = 'ppmv' chem_streams_table( idomain, P_cco_ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_ooh )%stream(2) = 2097216 F_cco_ooh = .TRUE. IF ( chem_index_table( PARAM_rco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_o2 = chem_num_table(idomain) chem_index_table( PARAM_rco_o2 , idomain ) = P_rco_o2 ELSE P_rco_o2 = chem_index_table( PARAM_rco_o2 , idomain ) END IF chem_boundary_table( idomain, P_rco_o2 ) = .TRUE. chem_dname_table( idomain, P_rco_o2 ) = 'rco_o2' chem_desc_table( idomain, P_rco_o2 ) = 'RCO_O2 mixing ratio' chem_units_table( idomain, P_rco_o2 ) = 'ppmv' chem_streams_table( idomain, P_rco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_o2 )%stream(2) = 2097216 F_rco_o2 = .TRUE. IF ( chem_index_table( PARAM_rco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_ooh = chem_num_table(idomain) chem_index_table( PARAM_rco_ooh , idomain ) = P_rco_ooh ELSE P_rco_ooh = chem_index_table( PARAM_rco_ooh , idomain ) END IF chem_boundary_table( idomain, P_rco_ooh ) = .TRUE. chem_dname_table( idomain, P_rco_ooh ) = 'rco_ooh' chem_desc_table( idomain, P_rco_ooh ) = 'RCO_OOH mixing ratio' chem_units_table( idomain, P_rco_ooh ) = 'ppmv' chem_streams_table( idomain, P_rco_ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_ooh )%stream(2) = 2097216 F_rco_ooh = .TRUE. IF ( chem_index_table( PARAM_xn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xn = chem_num_table(idomain) chem_index_table( PARAM_xn , idomain ) = P_xn ELSE P_xn = chem_index_table( PARAM_xn , idomain ) END IF chem_boundary_table( idomain, P_xn ) = .TRUE. chem_dname_table( idomain, P_xn ) = 'xn' chem_desc_table( idomain, P_xn ) = 'XN mixing ratio' chem_units_table( idomain, P_xn ) = 'ppmv' chem_streams_table( idomain, P_xn )%stream(1) = 33554433 chem_streams_table( idomain, P_xn )%stream(2) = 2097216 F_xn = .TRUE. IF ( chem_index_table( PARAM_xc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xc = chem_num_table(idomain) chem_index_table( PARAM_xc , idomain ) = P_xc ELSE P_xc = chem_index_table( PARAM_xc , idomain ) END IF chem_boundary_table( idomain, P_xc ) = .TRUE. chem_dname_table( idomain, P_xc ) = 'xc' chem_desc_table( idomain, P_xc ) = 'XC mixing ratio' chem_units_table( idomain, P_xc ) = 'ppmv' chem_streams_table( idomain, P_xc )%stream(1) = 33554433 chem_streams_table( idomain, P_xc )%stream(2) = 2097216 F_xc = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_c_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c_o2 = chem_num_table(idomain) chem_index_table( PARAM_c_o2 , idomain ) = P_c_o2 ELSE P_c_o2 = chem_index_table( PARAM_c_o2 , idomain ) END IF chem_boundary_table( idomain, P_c_o2 ) = .TRUE. chem_dname_table( idomain, P_c_o2 ) = 'c_o2' chem_desc_table( idomain, P_c_o2 ) = 'C_O2 mixing ratio' chem_units_table( idomain, P_c_o2 ) = 'ppmv' chem_streams_table( idomain, P_c_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c_o2 )%stream(2) = 2097216 F_c_o2 = .TRUE. IF ( chem_index_table( PARAM_cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cooh = chem_num_table(idomain) chem_index_table( PARAM_cooh , idomain ) = P_cooh ELSE P_cooh = chem_index_table( PARAM_cooh , idomain ) END IF chem_boundary_table( idomain, P_cooh ) = .TRUE. chem_dname_table( idomain, P_cooh ) = 'cooh' chem_desc_table( idomain, P_cooh ) = 'COOH mixing ratio' chem_units_table( idomain, P_cooh ) = 'ppmv' chem_streams_table( idomain, P_cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_cooh )%stream(2) = 2097216 F_cooh = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 F_rooh = .TRUE. IF ( chem_index_table( PARAM_ro2_r , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_r = chem_num_table(idomain) chem_index_table( PARAM_ro2_r , idomain ) = P_ro2_r ELSE P_ro2_r = chem_index_table( PARAM_ro2_r , idomain ) END IF chem_boundary_table( idomain, P_ro2_r ) = .TRUE. chem_dname_table( idomain, P_ro2_r ) = 'ro2_r' chem_desc_table( idomain, P_ro2_r ) = 'RO2_R mixing ratio' chem_units_table( idomain, P_ro2_r ) = 'ppmv' chem_streams_table( idomain, P_ro2_r )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2_r )%stream(2) = 2097216 F_ro2_r = .TRUE. IF ( chem_index_table( PARAM_r2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_r2o2 = chem_num_table(idomain) chem_index_table( PARAM_r2o2 , idomain ) = P_r2o2 ELSE P_r2o2 = chem_index_table( PARAM_r2o2 , idomain ) END IF chem_boundary_table( idomain, P_r2o2 ) = .TRUE. chem_dname_table( idomain, P_r2o2 ) = 'r2o2' chem_desc_table( idomain, P_r2o2 ) = 'R2O2 mixing ratio' chem_units_table( idomain, P_r2o2 ) = 'ppmv' chem_streams_table( idomain, P_r2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_r2o2 )%stream(2) = 2097216 F_r2o2 = .TRUE. IF ( chem_index_table( PARAM_ro2_n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_n = chem_num_table(idomain) chem_index_table( PARAM_ro2_n , idomain ) = P_ro2_n ELSE P_ro2_n = chem_index_table( PARAM_ro2_n , idomain ) END IF chem_boundary_table( idomain, P_ro2_n ) = .TRUE. chem_dname_table( idomain, P_ro2_n ) = 'ro2_n' chem_desc_table( idomain, P_ro2_n ) = 'RO2_N mixing ratio' chem_units_table( idomain, P_ro2_n ) = 'ppmv' chem_streams_table( idomain, P_ro2_n )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2_n )%stream(2) = 2097216 F_ro2_n = .TRUE. IF ( chem_index_table( PARAM_cco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_o2 = chem_num_table(idomain) chem_index_table( PARAM_cco_o2 , idomain ) = P_cco_o2 ELSE P_cco_o2 = chem_index_table( PARAM_cco_o2 , idomain ) END IF chem_boundary_table( idomain, P_cco_o2 ) = .TRUE. chem_dname_table( idomain, P_cco_o2 ) = 'cco_o2' chem_desc_table( idomain, P_cco_o2 ) = 'CCO_O2 mixing ratio' chem_units_table( idomain, P_cco_o2 ) = 'ppmv' chem_streams_table( idomain, P_cco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_o2 )%stream(2) = 2097216 F_cco_o2 = .TRUE. IF ( chem_index_table( PARAM_bzco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzco_o2 = chem_num_table(idomain) chem_index_table( PARAM_bzco_o2 , idomain ) = P_bzco_o2 ELSE P_bzco_o2 = chem_index_table( PARAM_bzco_o2 , idomain ) END IF chem_boundary_table( idomain, P_bzco_o2 ) = .TRUE. chem_dname_table( idomain, P_bzco_o2 ) = 'bzco_o2' chem_desc_table( idomain, P_bzco_o2 ) = 'BZCO_O2 mixing ratio' chem_units_table( idomain, P_bzco_o2 ) = 'ppmv' chem_streams_table( idomain, P_bzco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bzco_o2 )%stream(2) = 2097216 F_bzco_o2 = .TRUE. IF ( chem_index_table( PARAM_ma_rco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_rco3 = chem_num_table(idomain) chem_index_table( PARAM_ma_rco3 , idomain ) = P_ma_rco3 ELSE P_ma_rco3 = chem_index_table( PARAM_ma_rco3 , idomain ) END IF chem_boundary_table( idomain, P_ma_rco3 ) = .TRUE. chem_dname_table( idomain, P_ma_rco3 ) = 'ma_rco3' chem_desc_table( idomain, P_ma_rco3 ) = 'MA_RCO3 mixing ratio' chem_units_table( idomain, P_ma_rco3 ) = 'ppmv' chem_streams_table( idomain, P_ma_rco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ma_rco3 )%stream(2) = 2097216 F_ma_rco3 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==198)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_h2so4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2so4 = chem_num_table(idomain) chem_index_table( PARAM_h2so4 , idomain ) = P_h2so4 ELSE P_h2so4 = chem_index_table( PARAM_h2so4 , idomain ) END IF chem_boundary_table( idomain, P_h2so4 ) = .TRUE. chem_dname_table( idomain, P_h2so4 ) = 'h2so4' chem_desc_table( idomain, P_h2so4 ) = 'H2SO4 mixing ratio' chem_units_table( idomain, P_h2so4 ) = 'ppmv' chem_streams_table( idomain, P_h2so4 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2so4 )%stream(2) = 2097216 F_h2so4 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ccho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccho = chem_num_table(idomain) chem_index_table( PARAM_ccho , idomain ) = P_ccho ELSE P_ccho = chem_index_table( PARAM_ccho , idomain ) END IF chem_boundary_table( idomain, P_ccho ) = .TRUE. chem_dname_table( idomain, P_ccho ) = 'ccho' chem_desc_table( idomain, P_ccho ) = 'CCHO mixing ratio' chem_units_table( idomain, P_ccho ) = 'ppmv' chem_streams_table( idomain, P_ccho )%stream(1) = 33554433 chem_streams_table( idomain, P_ccho )%stream(2) = 2097216 F_ccho = .TRUE. IF ( chem_index_table( PARAM_rcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcho = chem_num_table(idomain) chem_index_table( PARAM_rcho , idomain ) = P_rcho ELSE P_rcho = chem_index_table( PARAM_rcho , idomain ) END IF chem_boundary_table( idomain, P_rcho ) = .TRUE. chem_dname_table( idomain, P_rcho ) = 'rcho' chem_desc_table( idomain, P_rcho ) = 'RCHO mixing ratio' chem_units_table( idomain, P_rcho ) = 'ppmv' chem_streams_table( idomain, P_rcho )%stream(1) = 33554433 chem_streams_table( idomain, P_rcho )%stream(2) = 2097216 F_rcho = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 F_meoh = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 F_etoh = .TRUE. IF ( chem_index_table( PARAM_cco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_oh = chem_num_table(idomain) chem_index_table( PARAM_cco_oh , idomain ) = P_cco_oh ELSE P_cco_oh = chem_index_table( PARAM_cco_oh , idomain ) END IF chem_boundary_table( idomain, P_cco_oh ) = .TRUE. chem_dname_table( idomain, P_cco_oh ) = 'cco_oh' chem_desc_table( idomain, P_cco_oh ) = 'CCO_OH mixing ratio' chem_units_table( idomain, P_cco_oh ) = 'ppmv' chem_streams_table( idomain, P_cco_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_oh )%stream(2) = 2097216 F_cco_oh = .TRUE. IF ( chem_index_table( PARAM_rco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_oh = chem_num_table(idomain) chem_index_table( PARAM_rco_oh , idomain ) = P_rco_oh ELSE P_rco_oh = chem_index_table( PARAM_rco_oh , idomain ) END IF chem_boundary_table( idomain, P_rco_oh ) = .TRUE. chem_dname_table( idomain, P_rco_oh ) = 'rco_oh' chem_desc_table( idomain, P_rco_oh ) = 'RCO_OH mixing ratio' chem_units_table( idomain, P_rco_oh ) = 'ppmv' chem_streams_table( idomain, P_rco_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_oh )%stream(2) = 2097216 F_rco_oh = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_bacl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bacl = chem_num_table(idomain) chem_index_table( PARAM_bacl , idomain ) = P_bacl ELSE P_bacl = chem_index_table( PARAM_bacl , idomain ) END IF chem_boundary_table( idomain, P_bacl ) = .TRUE. chem_dname_table( idomain, P_bacl ) = 'bacl' chem_desc_table( idomain, P_bacl ) = 'BACL mixing ratio' chem_units_table( idomain, P_bacl ) = 'ppmv' chem_streams_table( idomain, P_bacl )%stream(1) = 33554433 chem_streams_table( idomain, P_bacl )%stream(2) = 2097216 F_bacl = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 F_bald = .TRUE. IF ( chem_index_table( PARAM_isoprod , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprod = chem_num_table(idomain) chem_index_table( PARAM_isoprod , idomain ) = P_isoprod ELSE P_isoprod = chem_index_table( PARAM_isoprod , idomain ) END IF chem_boundary_table( idomain, P_isoprod ) = .TRUE. chem_dname_table( idomain, P_isoprod ) = 'isoprod' chem_desc_table( idomain, P_isoprod ) = 'ISOPROD mixing ratio' chem_units_table( idomain, P_isoprod ) = 'ppmv' chem_streams_table( idomain, P_isoprod )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprod )%stream(2) = 2097216 F_isoprod = .TRUE. IF ( chem_index_table( PARAM_methacro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methacro = chem_num_table(idomain) chem_index_table( PARAM_methacro , idomain ) = P_methacro ELSE P_methacro = chem_index_table( PARAM_methacro , idomain ) END IF chem_boundary_table( idomain, P_methacro ) = .TRUE. chem_dname_table( idomain, P_methacro ) = 'methacro' chem_desc_table( idomain, P_methacro ) = 'METHACRO mixing ratio' chem_units_table( idomain, P_methacro ) = 'ppmv' chem_streams_table( idomain, P_methacro )%stream(1) = 33554433 chem_streams_table( idomain, P_methacro )%stream(2) = 2097216 F_methacro = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_prod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prod2 = chem_num_table(idomain) chem_index_table( PARAM_prod2 , idomain ) = P_prod2 ELSE P_prod2 = chem_index_table( PARAM_prod2 , idomain ) END IF chem_boundary_table( idomain, P_prod2 ) = .TRUE. chem_dname_table( idomain, P_prod2 ) = 'prod2' chem_desc_table( idomain, P_prod2 ) = 'PROD2 mixing ratio' chem_units_table( idomain, P_prod2 ) = 'ppmv' chem_streams_table( idomain, P_prod2 )%stream(1) = 33554433 chem_streams_table( idomain, P_prod2 )%stream(2) = 2097216 F_prod2 = .TRUE. IF ( chem_index_table( PARAM_dcb1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb1 = chem_num_table(idomain) chem_index_table( PARAM_dcb1 , idomain ) = P_dcb1 ELSE P_dcb1 = chem_index_table( PARAM_dcb1 , idomain ) END IF chem_boundary_table( idomain, P_dcb1 ) = .TRUE. chem_dname_table( idomain, P_dcb1 ) = 'dcb1' chem_desc_table( idomain, P_dcb1 ) = 'DCB1 mixing ratio' chem_units_table( idomain, P_dcb1 ) = 'ppmv' chem_streams_table( idomain, P_dcb1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb1 )%stream(2) = 2097216 F_dcb1 = .TRUE. IF ( chem_index_table( PARAM_dcb2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb2 = chem_num_table(idomain) chem_index_table( PARAM_dcb2 , idomain ) = P_dcb2 ELSE P_dcb2 = chem_index_table( PARAM_dcb2 , idomain ) END IF chem_boundary_table( idomain, P_dcb2 ) = .TRUE. chem_dname_table( idomain, P_dcb2 ) = 'dcb2' chem_desc_table( idomain, P_dcb2 ) = 'DCB2 mixing ratio' chem_units_table( idomain, P_dcb2 ) = 'ppmv' chem_streams_table( idomain, P_dcb2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb2 )%stream(2) = 2097216 F_dcb2 = .TRUE. IF ( chem_index_table( PARAM_dcb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb3 = chem_num_table(idomain) chem_index_table( PARAM_dcb3 , idomain ) = P_dcb3 ELSE P_dcb3 = chem_index_table( PARAM_dcb3 , idomain ) END IF chem_boundary_table( idomain, P_dcb3 ) = .TRUE. chem_dname_table( idomain, P_dcb3 ) = 'dcb3' chem_desc_table( idomain, P_dcb3 ) = 'DCB3 mixing ratio' chem_units_table( idomain, P_dcb3 ) = 'ppmv' chem_streams_table( idomain, P_dcb3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb3 )%stream(2) = 2097216 F_dcb3 = .TRUE. IF ( chem_index_table( PARAM_ethene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethene = chem_num_table(idomain) chem_index_table( PARAM_ethene , idomain ) = P_ethene ELSE P_ethene = chem_index_table( PARAM_ethene , idomain ) END IF chem_boundary_table( idomain, P_ethene ) = .TRUE. chem_dname_table( idomain, P_ethene ) = 'ethene' chem_desc_table( idomain, P_ethene ) = 'ETHENE mixing ratio' chem_units_table( idomain, P_ethene ) = 'ppmv' chem_streams_table( idomain, P_ethene )%stream(1) = 33554433 chem_streams_table( idomain, P_ethene )%stream(2) = 2097216 F_ethene = .TRUE. IF ( chem_index_table( PARAM_isoprene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprene = chem_num_table(idomain) chem_index_table( PARAM_isoprene , idomain ) = P_isoprene ELSE P_isoprene = chem_index_table( PARAM_isoprene , idomain ) END IF chem_boundary_table( idomain, P_isoprene ) = .TRUE. chem_dname_table( idomain, P_isoprene ) = 'isoprene' chem_desc_table( idomain, P_isoprene ) = 'ISOPRENE mixing ratio' chem_units_table( idomain, P_isoprene ) = 'ppmv' chem_streams_table( idomain, P_isoprene )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprene )%stream(2) = 2097216 F_isoprene = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_alk3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk3 = chem_num_table(idomain) chem_index_table( PARAM_alk3 , idomain ) = P_alk3 ELSE P_alk3 = chem_index_table( PARAM_alk3 , idomain ) END IF chem_boundary_table( idomain, P_alk3 ) = .TRUE. chem_dname_table( idomain, P_alk3 ) = 'alk3' chem_desc_table( idomain, P_alk3 ) = 'ALK3 mixing ratio' chem_units_table( idomain, P_alk3 ) = 'ppmv' chem_streams_table( idomain, P_alk3 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk3 )%stream(2) = 2097216 F_alk3 = .TRUE. IF ( chem_index_table( PARAM_alk4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk4 = chem_num_table(idomain) chem_index_table( PARAM_alk4 , idomain ) = P_alk4 ELSE P_alk4 = chem_index_table( PARAM_alk4 , idomain ) END IF chem_boundary_table( idomain, P_alk4 ) = .TRUE. chem_dname_table( idomain, P_alk4 ) = 'alk4' chem_desc_table( idomain, P_alk4 ) = 'ALK4 mixing ratio' chem_units_table( idomain, P_alk4 ) = 'ppmv' chem_streams_table( idomain, P_alk4 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk4 )%stream(2) = 2097216 F_alk4 = .TRUE. IF ( chem_index_table( PARAM_alk5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk5 = chem_num_table(idomain) chem_index_table( PARAM_alk5 , idomain ) = P_alk5 ELSE P_alk5 = chem_index_table( PARAM_alk5 , idomain ) END IF chem_boundary_table( idomain, P_alk5 ) = .TRUE. chem_dname_table( idomain, P_alk5 ) = 'alk5' chem_desc_table( idomain, P_alk5 ) = 'ALK5 mixing ratio' chem_units_table( idomain, P_alk5 ) = 'ppmv' chem_streams_table( idomain, P_alk5 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk5 )%stream(2) = 2097216 F_alk5 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_ole2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole2 = chem_num_table(idomain) chem_index_table( PARAM_ole2 , idomain ) = P_ole2 ELSE P_ole2 = chem_index_table( PARAM_ole2 , idomain ) END IF chem_boundary_table( idomain, P_ole2 ) = .TRUE. chem_dname_table( idomain, P_ole2 ) = 'ole2' chem_desc_table( idomain, P_ole2 ) = 'OLE2 mixing ratio' chem_units_table( idomain, P_ole2 ) = 'ppmv' chem_streams_table( idomain, P_ole2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole2 )%stream(2) = 2097216 F_ole2 = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 F_terp = .TRUE. IF ( chem_index_table( PARAM_rno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rno3 = chem_num_table(idomain) chem_index_table( PARAM_rno3 , idomain ) = P_rno3 ELSE P_rno3 = chem_index_table( PARAM_rno3 , idomain ) END IF chem_boundary_table( idomain, P_rno3 ) = .TRUE. chem_dname_table( idomain, P_rno3 ) = 'rno3' chem_desc_table( idomain, P_rno3 ) = 'RNO3 mixing ratio' chem_units_table( idomain, P_rno3 ) = 'ppmv' chem_streams_table( idomain, P_rno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rno3 )%stream(2) = 2097216 F_rno3 = .TRUE. IF ( chem_index_table( PARAM_nphe , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nphe = chem_num_table(idomain) chem_index_table( PARAM_nphe , idomain ) = P_nphe ELSE P_nphe = chem_index_table( PARAM_nphe , idomain ) END IF chem_boundary_table( idomain, P_nphe ) = .TRUE. chem_dname_table( idomain, P_nphe ) = 'nphe' chem_desc_table( idomain, P_nphe ) = 'NPHE mixing ratio' chem_units_table( idomain, P_nphe ) = 'ppmv' chem_streams_table( idomain, P_nphe )%stream(1) = 33554433 chem_streams_table( idomain, P_nphe )%stream(2) = 2097216 F_nphe = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 F_phen = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_pan2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan2 = chem_num_table(idomain) chem_index_table( PARAM_pan2 , idomain ) = P_pan2 ELSE P_pan2 = chem_index_table( PARAM_pan2 , idomain ) END IF chem_boundary_table( idomain, P_pan2 ) = .TRUE. chem_dname_table( idomain, P_pan2 ) = 'pan2' chem_desc_table( idomain, P_pan2 ) = 'PAN2 mixing ratio' chem_units_table( idomain, P_pan2 ) = 'ppmv' chem_streams_table( idomain, P_pan2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pan2 )%stream(2) = 2097216 F_pan2 = .TRUE. IF ( chem_index_table( PARAM_pbzn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbzn = chem_num_table(idomain) chem_index_table( PARAM_pbzn , idomain ) = P_pbzn ELSE P_pbzn = chem_index_table( PARAM_pbzn , idomain ) END IF chem_boundary_table( idomain, P_pbzn ) = .TRUE. chem_dname_table( idomain, P_pbzn ) = 'pbzn' chem_desc_table( idomain, P_pbzn ) = 'PBZN mixing ratio' chem_units_table( idomain, P_pbzn ) = 'ppmv' chem_streams_table( idomain, P_pbzn )%stream(1) = 33554433 chem_streams_table( idomain, P_pbzn )%stream(2) = 2097216 F_pbzn = .TRUE. IF ( chem_index_table( PARAM_ma_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_pan = chem_num_table(idomain) chem_index_table( PARAM_ma_pan , idomain ) = P_ma_pan ELSE P_ma_pan = chem_index_table( PARAM_ma_pan , idomain ) END IF chem_boundary_table( idomain, P_ma_pan ) = .TRUE. chem_dname_table( idomain, P_ma_pan ) = 'ma_pan' chem_desc_table( idomain, P_ma_pan ) = 'MA_PAN mixing ratio' chem_units_table( idomain, P_ma_pan ) = 'ppmv' chem_streams_table( idomain, P_ma_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_ma_pan )%stream(2) = 2097216 F_ma_pan = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_cco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_ooh = chem_num_table(idomain) chem_index_table( PARAM_cco_ooh , idomain ) = P_cco_ooh ELSE P_cco_ooh = chem_index_table( PARAM_cco_ooh , idomain ) END IF chem_boundary_table( idomain, P_cco_ooh ) = .TRUE. chem_dname_table( idomain, P_cco_ooh ) = 'cco_ooh' chem_desc_table( idomain, P_cco_ooh ) = 'CCO_OOH mixing ratio' chem_units_table( idomain, P_cco_ooh ) = 'ppmv' chem_streams_table( idomain, P_cco_ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_ooh )%stream(2) = 2097216 F_cco_ooh = .TRUE. IF ( chem_index_table( PARAM_rco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_o2 = chem_num_table(idomain) chem_index_table( PARAM_rco_o2 , idomain ) = P_rco_o2 ELSE P_rco_o2 = chem_index_table( PARAM_rco_o2 , idomain ) END IF chem_boundary_table( idomain, P_rco_o2 ) = .TRUE. chem_dname_table( idomain, P_rco_o2 ) = 'rco_o2' chem_desc_table( idomain, P_rco_o2 ) = 'RCO_O2 mixing ratio' chem_units_table( idomain, P_rco_o2 ) = 'ppmv' chem_streams_table( idomain, P_rco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_o2 )%stream(2) = 2097216 F_rco_o2 = .TRUE. IF ( chem_index_table( PARAM_rco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_ooh = chem_num_table(idomain) chem_index_table( PARAM_rco_ooh , idomain ) = P_rco_ooh ELSE P_rco_ooh = chem_index_table( PARAM_rco_ooh , idomain ) END IF chem_boundary_table( idomain, P_rco_ooh ) = .TRUE. chem_dname_table( idomain, P_rco_ooh ) = 'rco_ooh' chem_desc_table( idomain, P_rco_ooh ) = 'RCO_OOH mixing ratio' chem_units_table( idomain, P_rco_ooh ) = 'ppmv' chem_streams_table( idomain, P_rco_ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_ooh )%stream(2) = 2097216 F_rco_ooh = .TRUE. IF ( chem_index_table( PARAM_xn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xn = chem_num_table(idomain) chem_index_table( PARAM_xn , idomain ) = P_xn ELSE P_xn = chem_index_table( PARAM_xn , idomain ) END IF chem_boundary_table( idomain, P_xn ) = .TRUE. chem_dname_table( idomain, P_xn ) = 'xn' chem_desc_table( idomain, P_xn ) = 'XN mixing ratio' chem_units_table( idomain, P_xn ) = 'ppmv' chem_streams_table( idomain, P_xn )%stream(1) = 33554433 chem_streams_table( idomain, P_xn )%stream(2) = 2097216 F_xn = .TRUE. IF ( chem_index_table( PARAM_xc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xc = chem_num_table(idomain) chem_index_table( PARAM_xc , idomain ) = P_xc ELSE P_xc = chem_index_table( PARAM_xc , idomain ) END IF chem_boundary_table( idomain, P_xc ) = .TRUE. chem_dname_table( idomain, P_xc ) = 'xc' chem_desc_table( idomain, P_xc ) = 'XC mixing ratio' chem_units_table( idomain, P_xc ) = 'ppmv' chem_streams_table( idomain, P_xc )%stream(1) = 33554433 chem_streams_table( idomain, P_xc )%stream(2) = 2097216 F_xc = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_c_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c_o2 = chem_num_table(idomain) chem_index_table( PARAM_c_o2 , idomain ) = P_c_o2 ELSE P_c_o2 = chem_index_table( PARAM_c_o2 , idomain ) END IF chem_boundary_table( idomain, P_c_o2 ) = .TRUE. chem_dname_table( idomain, P_c_o2 ) = 'c_o2' chem_desc_table( idomain, P_c_o2 ) = 'C_O2 mixing ratio' chem_units_table( idomain, P_c_o2 ) = 'ppmv' chem_streams_table( idomain, P_c_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c_o2 )%stream(2) = 2097216 F_c_o2 = .TRUE. IF ( chem_index_table( PARAM_cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cooh = chem_num_table(idomain) chem_index_table( PARAM_cooh , idomain ) = P_cooh ELSE P_cooh = chem_index_table( PARAM_cooh , idomain ) END IF chem_boundary_table( idomain, P_cooh ) = .TRUE. chem_dname_table( idomain, P_cooh ) = 'cooh' chem_desc_table( idomain, P_cooh ) = 'COOH mixing ratio' chem_units_table( idomain, P_cooh ) = 'ppmv' chem_streams_table( idomain, P_cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_cooh )%stream(2) = 2097216 F_cooh = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 F_rooh = .TRUE. IF ( chem_index_table( PARAM_ro2_r , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_r = chem_num_table(idomain) chem_index_table( PARAM_ro2_r , idomain ) = P_ro2_r ELSE P_ro2_r = chem_index_table( PARAM_ro2_r , idomain ) END IF chem_boundary_table( idomain, P_ro2_r ) = .TRUE. chem_dname_table( idomain, P_ro2_r ) = 'ro2_r' chem_desc_table( idomain, P_ro2_r ) = 'RO2_R mixing ratio' chem_units_table( idomain, P_ro2_r ) = 'ppmv' chem_streams_table( idomain, P_ro2_r )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2_r )%stream(2) = 2097216 F_ro2_r = .TRUE. IF ( chem_index_table( PARAM_r2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_r2o2 = chem_num_table(idomain) chem_index_table( PARAM_r2o2 , idomain ) = P_r2o2 ELSE P_r2o2 = chem_index_table( PARAM_r2o2 , idomain ) END IF chem_boundary_table( idomain, P_r2o2 ) = .TRUE. chem_dname_table( idomain, P_r2o2 ) = 'r2o2' chem_desc_table( idomain, P_r2o2 ) = 'R2O2 mixing ratio' chem_units_table( idomain, P_r2o2 ) = 'ppmv' chem_streams_table( idomain, P_r2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_r2o2 )%stream(2) = 2097216 F_r2o2 = .TRUE. IF ( chem_index_table( PARAM_ro2_n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_n = chem_num_table(idomain) chem_index_table( PARAM_ro2_n , idomain ) = P_ro2_n ELSE P_ro2_n = chem_index_table( PARAM_ro2_n , idomain ) END IF chem_boundary_table( idomain, P_ro2_n ) = .TRUE. chem_dname_table( idomain, P_ro2_n ) = 'ro2_n' chem_desc_table( idomain, P_ro2_n ) = 'RO2_N mixing ratio' chem_units_table( idomain, P_ro2_n ) = 'ppmv' chem_streams_table( idomain, P_ro2_n )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2_n )%stream(2) = 2097216 F_ro2_n = .TRUE. IF ( chem_index_table( PARAM_cco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_o2 = chem_num_table(idomain) chem_index_table( PARAM_cco_o2 , idomain ) = P_cco_o2 ELSE P_cco_o2 = chem_index_table( PARAM_cco_o2 , idomain ) END IF chem_boundary_table( idomain, P_cco_o2 ) = .TRUE. chem_dname_table( idomain, P_cco_o2 ) = 'cco_o2' chem_desc_table( idomain, P_cco_o2 ) = 'CCO_O2 mixing ratio' chem_units_table( idomain, P_cco_o2 ) = 'ppmv' chem_streams_table( idomain, P_cco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_o2 )%stream(2) = 2097216 F_cco_o2 = .TRUE. IF ( chem_index_table( PARAM_bzco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzco_o2 = chem_num_table(idomain) chem_index_table( PARAM_bzco_o2 , idomain ) = P_bzco_o2 ELSE P_bzco_o2 = chem_index_table( PARAM_bzco_o2 , idomain ) END IF chem_boundary_table( idomain, P_bzco_o2 ) = .TRUE. chem_dname_table( idomain, P_bzco_o2 ) = 'bzco_o2' chem_desc_table( idomain, P_bzco_o2 ) = 'BZCO_O2 mixing ratio' chem_units_table( idomain, P_bzco_o2 ) = 'ppmv' chem_streams_table( idomain, P_bzco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bzco_o2 )%stream(2) = 2097216 F_bzco_o2 = .TRUE. IF ( chem_index_table( PARAM_ma_rco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_rco3 = chem_num_table(idomain) chem_index_table( PARAM_ma_rco3 , idomain ) = P_ma_rco3 ELSE P_ma_rco3 = chem_index_table( PARAM_ma_rco3 , idomain ) END IF chem_boundary_table( idomain, P_ma_rco3 ) = .TRUE. chem_dname_table( idomain, P_ma_rco3 ) = 'ma_rco3' chem_desc_table( idomain, P_ma_rco3 ) = 'MA_RCO3 mixing ratio' chem_units_table( idomain, P_ma_rco3 ) = 'ppmv' chem_streams_table( idomain, P_ma_rco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ma_rco3 )%stream(2) = 2097216 F_ma_rco3 = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 F_sesq = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c , idomain ) = P_pcg1_b_c ELSE P_pcg1_b_c = chem_index_table( PARAM_pcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c' chem_desc_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c mixing ratio' chem_units_table( idomain, P_pcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c )%stream(2) = 2097216 F_pcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c , idomain ) = P_pcg2_b_c ELSE P_pcg2_b_c = chem_index_table( PARAM_pcg2_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c' chem_desc_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c mixing ratio' chem_units_table( idomain, P_pcg2_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_c )%stream(2) = 2097216 F_pcg2_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o , idomain ) = P_pcg1_b_o ELSE P_pcg1_b_o = chem_index_table( PARAM_pcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o' chem_desc_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o mixing ratio' chem_units_table( idomain, P_pcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o )%stream(2) = 2097216 F_pcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o , idomain ) = P_pcg2_b_o ELSE P_pcg2_b_o = chem_index_table( PARAM_pcg2_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o' chem_desc_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o mixing ratio' chem_units_table( idomain, P_pcg2_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_o )%stream(2) = 2097216 F_pcg2_b_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c , idomain ) = P_opcg1_b_c ELSE P_opcg1_b_c = chem_index_table( PARAM_opcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c' chem_desc_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c mixing ratio' chem_units_table( idomain, P_opcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c )%stream(2) = 2097216 F_opcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o , idomain ) = P_opcg1_b_o ELSE P_opcg1_b_o = chem_index_table( PARAM_opcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o' chem_desc_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o mixing ratio' chem_units_table( idomain, P_opcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o )%stream(2) = 2097216 F_opcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c , idomain ) = P_pcg1_f_c ELSE P_pcg1_f_c = chem_index_table( PARAM_pcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c' chem_desc_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c mixing ratio' chem_units_table( idomain, P_pcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c )%stream(2) = 2097216 F_pcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c , idomain ) = P_pcg2_f_c ELSE P_pcg2_f_c = chem_index_table( PARAM_pcg2_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c' chem_desc_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c mixing ratio' chem_units_table( idomain, P_pcg2_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_c )%stream(2) = 2097216 F_pcg2_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o , idomain ) = P_pcg1_f_o ELSE P_pcg1_f_o = chem_index_table( PARAM_pcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o' chem_desc_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o mixing ratio' chem_units_table( idomain, P_pcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o )%stream(2) = 2097216 F_pcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o , idomain ) = P_pcg2_f_o ELSE P_pcg2_f_o = chem_index_table( PARAM_pcg2_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o' chem_desc_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o mixing ratio' chem_units_table( idomain, P_pcg2_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_o )%stream(2) = 2097216 F_pcg2_f_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c , idomain ) = P_opcg1_f_c ELSE P_opcg1_f_c = chem_index_table( PARAM_opcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c' chem_desc_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c mixing ratio' chem_units_table( idomain, P_opcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c )%stream(2) = 2097216 F_opcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o , idomain ) = P_opcg1_f_o ELSE P_opcg1_f_o = chem_index_table( PARAM_opcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o' chem_desc_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o mixing ratio' chem_units_table( idomain, P_opcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o )%stream(2) = 2097216 F_opcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_psd1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd1 = chem_num_table(idomain) chem_index_table( PARAM_psd1 , idomain ) = P_psd1 ELSE P_psd1 = chem_index_table( PARAM_psd1 , idomain ) END IF chem_boundary_table( idomain, P_psd1 ) = .TRUE. chem_dname_table( idomain, P_psd1 ) = 'psd1' chem_desc_table( idomain, P_psd1 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd1 ) = 'ppmv' chem_streams_table( idomain, P_psd1 )%stream(1) = 33554433 chem_streams_table( idomain, P_psd1 )%stream(2) = 2097216 F_psd1 = .TRUE. IF ( chem_index_table( PARAM_psd2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd2 = chem_num_table(idomain) chem_index_table( PARAM_psd2 , idomain ) = P_psd2 ELSE P_psd2 = chem_index_table( PARAM_psd2 , idomain ) END IF chem_boundary_table( idomain, P_psd2 ) = .TRUE. chem_dname_table( idomain, P_psd2 ) = 'psd2' chem_desc_table( idomain, P_psd2 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd2 ) = 'ppmv' chem_streams_table( idomain, P_psd2 )%stream(1) = 33554433 chem_streams_table( idomain, P_psd2 )%stream(2) = 2097216 F_psd2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 chem_streams_table( idomain, P_den )%stream(2) = 2097216 F_den = .TRUE. IF ( chem_index_table( PARAM_ant1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c = chem_num_table(idomain) chem_index_table( PARAM_ant1_c , idomain ) = P_ant1_c ELSE P_ant1_c = chem_index_table( PARAM_ant1_c , idomain ) END IF chem_boundary_table( idomain, P_ant1_c ) = .TRUE. chem_dname_table( idomain, P_ant1_c ) = 'ant1_c' chem_desc_table( idomain, P_ant1_c ) = 'ant1_c mixing ratio' chem_units_table( idomain, P_ant1_c ) = 'ppmv' chem_streams_table( idomain, P_ant1_c )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c )%stream(2) = 2097216 F_ant1_c = .TRUE. IF ( chem_index_table( PARAM_ant1_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o = chem_num_table(idomain) chem_index_table( PARAM_ant1_o , idomain ) = P_ant1_o ELSE P_ant1_o = chem_index_table( PARAM_ant1_o , idomain ) END IF chem_boundary_table( idomain, P_ant1_o ) = .TRUE. chem_dname_table( idomain, P_ant1_o ) = 'ant1_o' chem_desc_table( idomain, P_ant1_o ) = 'ant1_o mixing ratio' chem_units_table( idomain, P_ant1_o ) = 'ppmv' chem_streams_table( idomain, P_ant1_o )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_o )%stream(2) = 2097216 F_ant1_o = .TRUE. IF ( chem_index_table( PARAM_biog1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c = chem_num_table(idomain) chem_index_table( PARAM_biog1_c , idomain ) = P_biog1_c ELSE P_biog1_c = chem_index_table( PARAM_biog1_c , idomain ) END IF chem_boundary_table( idomain, P_biog1_c ) = .TRUE. chem_dname_table( idomain, P_biog1_c ) = 'biog1_c' chem_desc_table( idomain, P_biog1_c ) = 'biog1_c mixing ratio' chem_units_table( idomain, P_biog1_c ) = 'ppmv' chem_streams_table( idomain, P_biog1_c )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c )%stream(2) = 2097216 F_biog1_c = .TRUE. IF ( chem_index_table( PARAM_biog1_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o = chem_num_table(idomain) chem_index_table( PARAM_biog1_o , idomain ) = P_biog1_o ELSE P_biog1_o = chem_index_table( PARAM_biog1_o , idomain ) END IF chem_boundary_table( idomain, P_biog1_o ) = .TRUE. chem_dname_table( idomain, P_biog1_o ) = 'biog1_o' chem_desc_table( idomain, P_biog1_o ) = 'biog1_o mixing ratio' chem_units_table( idomain, P_biog1_o ) = 'ppmv' chem_streams_table( idomain, P_biog1_o )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o )%stream(2) = 2097216 F_biog1_o = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) = P_pcg1_b_c_a01 ELSE P_pcg1_b_c_a01 = chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c_a01' chem_desc_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(2) = 2097216 F_pcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c_a01 , idomain ) = P_pcg2_b_c_a01 ELSE P_pcg2_b_c_a01 = chem_index_table( PARAM_pcg2_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c_a01 ) = 'pcg2_b_c_a01' chem_desc_table( idomain, P_pcg2_b_c_a01 ) = 'pcg2_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_c_a01 )%stream(2) = 2097216 F_pcg2_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) = P_pcg1_b_o_a01 ELSE P_pcg1_b_o_a01 = chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o_a01' chem_desc_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(2) = 2097216 F_pcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o_a01 , idomain ) = P_pcg2_b_o_a01 ELSE P_pcg2_b_o_a01 = chem_index_table( PARAM_pcg2_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o_a01 ) = 'pcg2_b_o_a01' chem_desc_table( idomain, P_pcg2_b_o_a01 ) = 'pcg2_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_o_a01 )%stream(2) = 2097216 F_pcg2_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) = P_opcg1_b_c_a01 ELSE P_opcg1_b_c_a01 = chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c_a01' chem_desc_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(2) = 2097216 F_opcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) = P_opcg1_b_o_a01 ELSE P_opcg1_b_o_a01 = chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o_a01' chem_desc_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(2) = 2097216 F_opcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) = P_pcg1_f_c_a01 ELSE P_pcg1_f_c_a01 = chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c_a01' chem_desc_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(2) = 2097216 F_pcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c_a01 , idomain ) = P_pcg2_f_c_a01 ELSE P_pcg2_f_c_a01 = chem_index_table( PARAM_pcg2_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c_a01 ) = 'pcg2_f_c_a01' chem_desc_table( idomain, P_pcg2_f_c_a01 ) = 'pcg2_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_c_a01 )%stream(2) = 2097216 F_pcg2_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) = P_pcg1_f_o_a01 ELSE P_pcg1_f_o_a01 = chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o_a01' chem_desc_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(2) = 2097216 F_pcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o_a01 , idomain ) = P_pcg2_f_o_a01 ELSE P_pcg2_f_o_a01 = chem_index_table( PARAM_pcg2_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o_a01 ) = 'pcg2_f_o_a01' chem_desc_table( idomain, P_pcg2_f_o_a01 ) = 'pcg2_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_o_a01 )%stream(2) = 2097216 F_pcg2_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) = P_opcg1_f_c_a01 ELSE P_opcg1_f_c_a01 = chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c_a01' chem_desc_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(2) = 2097216 F_opcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) = P_opcg1_f_o_a01 ELSE P_opcg1_f_o_a01 = chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o_a01' chem_desc_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(2) = 2097216 F_opcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a01 , idomain ) = P_ant1_c_a01 ELSE P_ant1_c_a01 = chem_index_table( PARAM_ant1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a01 ) = 'ant1_c_a01' chem_desc_table( idomain, P_ant1_c_a01 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a01 )%stream(2) = 2097216 F_ant1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_ant1_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_o_a01 , idomain ) = P_ant1_o_a01 ELSE P_ant1_o_a01 = chem_index_table( PARAM_ant1_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_o_a01 ) = .TRUE. chem_dname_table( idomain, P_ant1_o_a01 ) = 'ant1_o_a01' chem_desc_table( idomain, P_ant1_o_a01 ) = 'ant1_o, aerosol bin 01' chem_units_table( idomain, P_ant1_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_o_a01 )%stream(2) = 2097216 F_ant1_o_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a01 , idomain ) = P_biog1_c_a01 ELSE P_biog1_c_a01 = chem_index_table( PARAM_biog1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a01 ) = 'biog1_c_a01' chem_desc_table( idomain, P_biog1_c_a01 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a01 )%stream(2) = 2097216 F_biog1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a01 , idomain ) = P_biog1_o_a01 ELSE P_biog1_o_a01 = chem_index_table( PARAM_biog1_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a01 ) = 'biog1_o_a01' chem_desc_table( idomain, P_biog1_o_a01 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a01 )%stream(2) = 2097216 F_biog1_o_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) = P_pcg1_b_c_a02 ELSE P_pcg1_b_c_a02 = chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c_a02' chem_desc_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(2) = 2097216 F_pcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c_a02 , idomain ) = P_pcg2_b_c_a02 ELSE P_pcg2_b_c_a02 = chem_index_table( PARAM_pcg2_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c_a02 ) = 'pcg2_b_c_a02' chem_desc_table( idomain, P_pcg2_b_c_a02 ) = 'pcg2_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_c_a02 )%stream(2) = 2097216 F_pcg2_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) = P_pcg1_b_o_a02 ELSE P_pcg1_b_o_a02 = chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o_a02' chem_desc_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(2) = 2097216 F_pcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o_a02 , idomain ) = P_pcg2_b_o_a02 ELSE P_pcg2_b_o_a02 = chem_index_table( PARAM_pcg2_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o_a02 ) = 'pcg2_b_o_a02' chem_desc_table( idomain, P_pcg2_b_o_a02 ) = 'pcg2_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_o_a02 )%stream(2) = 2097216 F_pcg2_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) = P_opcg1_b_c_a02 ELSE P_opcg1_b_c_a02 = chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c_a02' chem_desc_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(2) = 2097216 F_opcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) = P_opcg1_b_o_a02 ELSE P_opcg1_b_o_a02 = chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o_a02' chem_desc_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(2) = 2097216 F_opcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) = P_pcg1_f_c_a02 ELSE P_pcg1_f_c_a02 = chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c_a02' chem_desc_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(2) = 2097216 F_pcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c_a02 , idomain ) = P_pcg2_f_c_a02 ELSE P_pcg2_f_c_a02 = chem_index_table( PARAM_pcg2_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c_a02 ) = 'pcg2_f_c_a02' chem_desc_table( idomain, P_pcg2_f_c_a02 ) = 'pcg2_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_c_a02 )%stream(2) = 2097216 F_pcg2_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) = P_pcg1_f_o_a02 ELSE P_pcg1_f_o_a02 = chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o_a02' chem_desc_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(2) = 2097216 F_pcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o_a02 , idomain ) = P_pcg2_f_o_a02 ELSE P_pcg2_f_o_a02 = chem_index_table( PARAM_pcg2_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o_a02 ) = 'pcg2_f_o_a02' chem_desc_table( idomain, P_pcg2_f_o_a02 ) = 'pcg2_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_o_a02 )%stream(2) = 2097216 F_pcg2_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) = P_opcg1_f_c_a02 ELSE P_opcg1_f_c_a02 = chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c_a02' chem_desc_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(2) = 2097216 F_opcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) = P_opcg1_f_o_a02 ELSE P_opcg1_f_o_a02 = chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o_a02' chem_desc_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(2) = 2097216 F_opcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a02 , idomain ) = P_ant1_c_a02 ELSE P_ant1_c_a02 = chem_index_table( PARAM_ant1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a02 ) = 'ant1_c_a02' chem_desc_table( idomain, P_ant1_c_a02 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a02 )%stream(2) = 2097216 F_ant1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_ant1_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_o_a02 , idomain ) = P_ant1_o_a02 ELSE P_ant1_o_a02 = chem_index_table( PARAM_ant1_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_o_a02 ) = .TRUE. chem_dname_table( idomain, P_ant1_o_a02 ) = 'ant1_o_a02' chem_desc_table( idomain, P_ant1_o_a02 ) = 'ant1_o, aerosol bin 01' chem_units_table( idomain, P_ant1_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_o_a02 )%stream(2) = 2097216 F_ant1_o_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a02 , idomain ) = P_biog1_c_a02 ELSE P_biog1_c_a02 = chem_index_table( PARAM_biog1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a02 ) = 'biog1_c_a02' chem_desc_table( idomain, P_biog1_c_a02 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a02 )%stream(2) = 2097216 F_biog1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a02 , idomain ) = P_biog1_o_a02 ELSE P_biog1_o_a02 = chem_index_table( PARAM_biog1_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a02 ) = 'biog1_o_a02' chem_desc_table( idomain, P_biog1_o_a02 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a02 )%stream(2) = 2097216 F_biog1_o_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) = P_pcg1_b_c_a03 ELSE P_pcg1_b_c_a03 = chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c_a03' chem_desc_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(2) = 2097216 F_pcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c_a03 , idomain ) = P_pcg2_b_c_a03 ELSE P_pcg2_b_c_a03 = chem_index_table( PARAM_pcg2_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c_a03 ) = 'pcg2_b_c_a03' chem_desc_table( idomain, P_pcg2_b_c_a03 ) = 'pcg2_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_c_a03 )%stream(2) = 2097216 F_pcg2_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) = P_pcg1_b_o_a03 ELSE P_pcg1_b_o_a03 = chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o_a03' chem_desc_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(2) = 2097216 F_pcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o_a03 , idomain ) = P_pcg2_b_o_a03 ELSE P_pcg2_b_o_a03 = chem_index_table( PARAM_pcg2_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o_a03 ) = 'pcg2_b_o_a03' chem_desc_table( idomain, P_pcg2_b_o_a03 ) = 'pcg2_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_o_a03 )%stream(2) = 2097216 F_pcg2_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) = P_opcg1_b_c_a03 ELSE P_opcg1_b_c_a03 = chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c_a03' chem_desc_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(2) = 2097216 F_opcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) = P_opcg1_b_o_a03 ELSE P_opcg1_b_o_a03 = chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o_a03' chem_desc_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(2) = 2097216 F_opcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) = P_pcg1_f_c_a03 ELSE P_pcg1_f_c_a03 = chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c_a03' chem_desc_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(2) = 2097216 F_pcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c_a03 , idomain ) = P_pcg2_f_c_a03 ELSE P_pcg2_f_c_a03 = chem_index_table( PARAM_pcg2_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c_a03 ) = 'pcg2_f_c_a03' chem_desc_table( idomain, P_pcg2_f_c_a03 ) = 'pcg2_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_c_a03 )%stream(2) = 2097216 F_pcg2_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) = P_pcg1_f_o_a03 ELSE P_pcg1_f_o_a03 = chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o_a03' chem_desc_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(2) = 2097216 F_pcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o_a03 , idomain ) = P_pcg2_f_o_a03 ELSE P_pcg2_f_o_a03 = chem_index_table( PARAM_pcg2_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o_a03 ) = 'pcg2_f_o_a03' chem_desc_table( idomain, P_pcg2_f_o_a03 ) = 'pcg2_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_o_a03 )%stream(2) = 2097216 F_pcg2_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) = P_opcg1_f_c_a03 ELSE P_opcg1_f_c_a03 = chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c_a03' chem_desc_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(2) = 2097216 F_opcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) = P_opcg1_f_o_a03 ELSE P_opcg1_f_o_a03 = chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o_a03' chem_desc_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(2) = 2097216 F_opcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a03 , idomain ) = P_ant1_c_a03 ELSE P_ant1_c_a03 = chem_index_table( PARAM_ant1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a03 ) = 'ant1_c_a03' chem_desc_table( idomain, P_ant1_c_a03 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a03 )%stream(2) = 2097216 F_ant1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_ant1_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_o_a03 , idomain ) = P_ant1_o_a03 ELSE P_ant1_o_a03 = chem_index_table( PARAM_ant1_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_o_a03 ) = .TRUE. chem_dname_table( idomain, P_ant1_o_a03 ) = 'ant1_o_a03' chem_desc_table( idomain, P_ant1_o_a03 ) = 'ant1_o, aerosol bin 01' chem_units_table( idomain, P_ant1_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_o_a03 )%stream(2) = 2097216 F_ant1_o_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a03 , idomain ) = P_biog1_c_a03 ELSE P_biog1_c_a03 = chem_index_table( PARAM_biog1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a03 ) = 'biog1_c_a03' chem_desc_table( idomain, P_biog1_c_a03 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a03 )%stream(2) = 2097216 F_biog1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a03 , idomain ) = P_biog1_o_a03 ELSE P_biog1_o_a03 = chem_index_table( PARAM_biog1_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a03 ) = 'biog1_o_a03' chem_desc_table( idomain, P_biog1_o_a03 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a03 )%stream(2) = 2097216 F_biog1_o_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) = P_pcg1_b_c_a04 ELSE P_pcg1_b_c_a04 = chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c_a04' chem_desc_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(2) = 2097216 F_pcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c_a04 , idomain ) = P_pcg2_b_c_a04 ELSE P_pcg2_b_c_a04 = chem_index_table( PARAM_pcg2_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c_a04 ) = 'pcg2_b_c_a04' chem_desc_table( idomain, P_pcg2_b_c_a04 ) = 'pcg2_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_c_a04 )%stream(2) = 2097216 F_pcg2_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) = P_pcg1_b_o_a04 ELSE P_pcg1_b_o_a04 = chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o_a04' chem_desc_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(2) = 2097216 F_pcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o_a04 , idomain ) = P_pcg2_b_o_a04 ELSE P_pcg2_b_o_a04 = chem_index_table( PARAM_pcg2_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o_a04 ) = 'pcg2_b_o_a04' chem_desc_table( idomain, P_pcg2_b_o_a04 ) = 'pcg2_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_b_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_o_a04 )%stream(2) = 2097216 F_pcg2_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) = P_opcg1_b_c_a04 ELSE P_opcg1_b_c_a04 = chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c_a04' chem_desc_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(2) = 2097216 F_opcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) = P_opcg1_b_o_a04 ELSE P_opcg1_b_o_a04 = chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o_a04' chem_desc_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(2) = 2097216 F_opcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) = P_pcg1_f_c_a04 ELSE P_pcg1_f_c_a04 = chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c_a04' chem_desc_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(2) = 2097216 F_pcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c_a04 , idomain ) = P_pcg2_f_c_a04 ELSE P_pcg2_f_c_a04 = chem_index_table( PARAM_pcg2_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c_a04 ) = 'pcg2_f_c_a04' chem_desc_table( idomain, P_pcg2_f_c_a04 ) = 'pcg2_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_c_a04 )%stream(2) = 2097216 F_pcg2_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) = P_pcg1_f_o_a04 ELSE P_pcg1_f_o_a04 = chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o_a04' chem_desc_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(2) = 2097216 F_pcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o_a04 , idomain ) = P_pcg2_f_o_a04 ELSE P_pcg2_f_o_a04 = chem_index_table( PARAM_pcg2_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o_a04 ) = 'pcg2_f_o_a04' chem_desc_table( idomain, P_pcg2_f_o_a04 ) = 'pcg2_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg2_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg2_f_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_o_a04 )%stream(2) = 2097216 F_pcg2_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) = P_opcg1_f_c_a04 ELSE P_opcg1_f_c_a04 = chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c_a04' chem_desc_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(2) = 2097216 F_opcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) = P_opcg1_f_o_a04 ELSE P_opcg1_f_o_a04 = chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o_a04' chem_desc_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(2) = 2097216 F_opcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a04 , idomain ) = P_ant1_c_a04 ELSE P_ant1_c_a04 = chem_index_table( PARAM_ant1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a04 ) = 'ant1_c_a04' chem_desc_table( idomain, P_ant1_c_a04 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a04 )%stream(2) = 2097216 F_ant1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_ant1_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_o_a04 , idomain ) = P_ant1_o_a04 ELSE P_ant1_o_a04 = chem_index_table( PARAM_ant1_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_o_a04 ) = .TRUE. chem_dname_table( idomain, P_ant1_o_a04 ) = 'ant1_o_a04' chem_desc_table( idomain, P_ant1_o_a04 ) = 'ant1_o, aerosol bin 01' chem_units_table( idomain, P_ant1_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_o_a04 )%stream(2) = 2097216 F_ant1_o_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a04 , idomain ) = P_biog1_c_a04 ELSE P_biog1_c_a04 = chem_index_table( PARAM_biog1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a04 ) = 'biog1_c_a04' chem_desc_table( idomain, P_biog1_c_a04 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a04 )%stream(2) = 2097216 F_biog1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a04 , idomain ) = P_biog1_o_a04 ELSE P_biog1_o_a04 = chem_index_table( PARAM_biog1_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a04 ) = 'biog1_o_a04' chem_desc_table( idomain, P_biog1_o_a04 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a04 )%stream(2) = 2097216 F_biog1_o_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==201)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 chem_streams_table( idomain, P_o )%stream(2) = 2097216 F_o = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_hoch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2oo = chem_num_table(idomain) chem_index_table( PARAM_hoch2oo , idomain ) = P_hoch2oo ELSE P_hoch2oo = chem_index_table( PARAM_hoch2oo , idomain ) END IF chem_boundary_table( idomain, P_hoch2oo ) = .TRUE. chem_dname_table( idomain, P_hoch2oo ) = 'hoch2oo' chem_desc_table( idomain, P_hoch2oo ) = 'HOCH2OO mixing ratio' chem_units_table( idomain, P_hoch2oo ) = 'ppmv' chem_streams_table( idomain, P_hoch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2oo )%stream(2) = 2097216 F_hoch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 F_h2 = .TRUE. IF ( chem_index_table( PARAM_eo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo2 = chem_num_table(idomain) chem_index_table( PARAM_eo2 , idomain ) = P_eo2 ELSE P_eo2 = chem_index_table( PARAM_eo2 , idomain ) END IF chem_boundary_table( idomain, P_eo2 ) = .TRUE. chem_dname_table( idomain, P_eo2 ) = 'eo2' chem_desc_table( idomain, P_eo2 ) = 'EO2 mixing ratio' chem_units_table( idomain, P_eo2 ) = 'ppmv' chem_streams_table( idomain, P_eo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eo2 )%stream(2) = 2097216 F_eo2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_n2o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o = chem_num_table(idomain) chem_index_table( PARAM_n2o , idomain ) = P_n2o ELSE P_n2o = chem_index_table( PARAM_n2o , idomain ) END IF chem_boundary_table( idomain, P_n2o ) = .TRUE. chem_dname_table( idomain, P_n2o ) = 'n2o' chem_desc_table( idomain, P_n2o ) = 'N2O mixing ratio' chem_units_table( idomain, P_n2o ) = 'ppmv' chem_streams_table( idomain, P_n2o )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o )%stream(2) = 2097216 F_n2o = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 F_etooh = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 F_acetp = .TRUE. IF ( chem_index_table( PARAM_xooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xooh = chem_num_table(idomain) chem_index_table( PARAM_xooh , idomain ) = P_xooh ELSE P_xooh = chem_index_table( PARAM_xooh , idomain ) END IF chem_boundary_table( idomain, P_xooh ) = .TRUE. chem_dname_table( idomain, P_xooh ) = 'xooh' chem_desc_table( idomain, P_xooh ) = 'XOOH mixing ratio' chem_units_table( idomain, P_xooh ) = 'ppmv' chem_streams_table( idomain, P_xooh )%stream(1) = 33554433 chem_streams_table( idomain, P_xooh )%stream(2) = 2097216 F_xooh = .TRUE. IF ( chem_index_table( PARAM_onitr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onitr = chem_num_table(idomain) chem_index_table( PARAM_onitr , idomain ) = P_onitr ELSE P_onitr = chem_index_table( PARAM_onitr , idomain ) END IF chem_boundary_table( idomain, P_onitr ) = .TRUE. chem_dname_table( idomain, P_onitr ) = 'onitr' chem_desc_table( idomain, P_onitr ) = 'ONITR mixing ratio' chem_units_table( idomain, P_onitr ) = 'ppmv' chem_streams_table( idomain, P_onitr )%stream(1) = 33554433 chem_streams_table( idomain, P_onitr )%stream(2) = 2097216 F_onitr = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 F_isooh = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 F_acetol = .TRUE. IF ( chem_index_table( PARAM_glyald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glyald = chem_num_table(idomain) chem_index_table( PARAM_glyald , idomain ) = P_glyald ELSE P_glyald = chem_index_table( PARAM_glyald , idomain ) END IF chem_boundary_table( idomain, P_glyald ) = .TRUE. chem_dname_table( idomain, P_glyald ) = 'glyald' chem_desc_table( idomain, P_glyald ) = 'GLYALD mixing ratio' chem_units_table( idomain, P_glyald ) = 'ppmv' chem_streams_table( idomain, P_glyald )%stream(1) = 33554433 chem_streams_table( idomain, P_glyald )%stream(2) = 2097216 F_glyald = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_alkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkooh = chem_num_table(idomain) chem_index_table( PARAM_alkooh , idomain ) = P_alkooh ELSE P_alkooh = chem_index_table( PARAM_alkooh , idomain ) END IF chem_boundary_table( idomain, P_alkooh ) = .TRUE. chem_dname_table( idomain, P_alkooh ) = 'alkooh' chem_desc_table( idomain, P_alkooh ) = 'ALKOOH mixing ratio' chem_units_table( idomain, P_alkooh ) = 'ppmv' chem_streams_table( idomain, P_alkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_alkooh )%stream(2) = 2097216 F_alkooh = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_tolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolooh = chem_num_table(idomain) chem_index_table( PARAM_tolooh , idomain ) = P_tolooh ELSE P_tolooh = chem_index_table( PARAM_tolooh , idomain ) END IF chem_boundary_table( idomain, P_tolooh ) = .TRUE. chem_dname_table( idomain, P_tolooh ) = 'tolooh' chem_desc_table( idomain, P_tolooh ) = 'TOLOOH mixing ratio' chem_units_table( idomain, P_tolooh ) = 'ppmv' chem_streams_table( idomain, P_tolooh )%stream(1) = 33554433 chem_streams_table( idomain, P_tolooh )%stream(2) = 2097216 F_tolooh = .TRUE. IF ( chem_index_table( PARAM_terpooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpooh = chem_num_table(idomain) chem_index_table( PARAM_terpooh , idomain ) = P_terpooh ELSE P_terpooh = chem_index_table( PARAM_terpooh , idomain ) END IF chem_boundary_table( idomain, P_terpooh ) = .TRUE. chem_dname_table( idomain, P_terpooh ) = 'terpooh' chem_desc_table( idomain, P_terpooh ) = 'TERPOOH mixing ratio' chem_units_table( idomain, P_terpooh ) = 'ppmv' chem_streams_table( idomain, P_terpooh )%stream(1) = 33554433 chem_streams_table( idomain, P_terpooh )%stream(2) = 2097216 F_terpooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_mco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mco3 = chem_num_table(idomain) chem_index_table( PARAM_mco3 , idomain ) = P_mco3 ELSE P_mco3 = chem_index_table( PARAM_mco3 , idomain ) END IF chem_boundary_table( idomain, P_mco3 ) = .TRUE. chem_dname_table( idomain, P_mco3 ) = 'mco3' chem_desc_table( idomain, P_mco3 ) = 'MCO3 mixing ratio' chem_units_table( idomain, P_mco3 ) = 'ppmv' chem_streams_table( idomain, P_mco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_mco3 )%stream(2) = 2097216 F_mco3 = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_eo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo = chem_num_table(idomain) chem_index_table( PARAM_eo , idomain ) = P_eo ELSE P_eo = chem_index_table( PARAM_eo , idomain ) END IF chem_boundary_table( idomain, P_eo ) = .TRUE. chem_dname_table( idomain, P_eo ) = 'eo' chem_desc_table( idomain, P_eo ) = 'EO mixing ratio' chem_units_table( idomain, P_eo ) = 'ppmv' chem_streams_table( idomain, P_eo )%stream(1) = 33554433 chem_streams_table( idomain, P_eo )%stream(2) = 2097216 F_eo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_po2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_po2 = chem_num_table(idomain) chem_index_table( PARAM_po2 , idomain ) = P_po2 ELSE P_po2 = chem_index_table( PARAM_po2 , idomain ) END IF chem_boundary_table( idomain, P_po2 ) = .TRUE. chem_dname_table( idomain, P_po2 ) = 'po2' chem_desc_table( idomain, P_po2 ) = 'PO2 mixing ratio' chem_units_table( idomain, P_po2 ) = 'ppmv' chem_streams_table( idomain, P_po2 )%stream(1) = 33554433 chem_streams_table( idomain, P_po2 )%stream(2) = 2097216 F_po2 = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_bigene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigene = chem_num_table(idomain) chem_index_table( PARAM_bigene , idomain ) = P_bigene ELSE P_bigene = chem_index_table( PARAM_bigene , idomain ) END IF chem_boundary_table( idomain, P_bigene ) = .TRUE. chem_dname_table( idomain, P_bigene ) = 'bigene' chem_desc_table( idomain, P_bigene ) = 'BIGENE mixing ratio' chem_units_table( idomain, P_bigene ) = 'ppmv' chem_streams_table( idomain, P_bigene )%stream(1) = 33554433 chem_streams_table( idomain, P_bigene )%stream(2) = 2097216 F_bigene = .TRUE. IF ( chem_index_table( PARAM_bigalk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigalk = chem_num_table(idomain) chem_index_table( PARAM_bigalk , idomain ) = P_bigalk ELSE P_bigalk = chem_index_table( PARAM_bigalk , idomain ) END IF chem_boundary_table( idomain, P_bigalk ) = .TRUE. chem_dname_table( idomain, P_bigalk ) = 'bigalk' chem_desc_table( idomain, P_bigalk ) = 'BIGALK mixing ratio' chem_units_table( idomain, P_bigalk ) = 'ppmv' chem_streams_table( idomain, P_bigalk )%stream(1) = 33554433 chem_streams_table( idomain, P_bigalk )%stream(2) = 2097216 F_bigalk = .TRUE. IF ( chem_index_table( PARAM_eneo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eneo2 = chem_num_table(idomain) chem_index_table( PARAM_eneo2 , idomain ) = P_eneo2 ELSE P_eneo2 = chem_index_table( PARAM_eneo2 , idomain ) END IF chem_boundary_table( idomain, P_eneo2 ) = .TRUE. chem_dname_table( idomain, P_eneo2 ) = 'eneo2' chem_desc_table( idomain, P_eneo2 ) = 'ENEO2 mixing ratio' chem_units_table( idomain, P_eneo2 ) = 'ppmv' chem_streams_table( idomain, P_eneo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eneo2 )%stream(2) = 2097216 F_eneo2 = .TRUE. IF ( chem_index_table( PARAM_alko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alko2 = chem_num_table(idomain) chem_index_table( PARAM_alko2 , idomain ) = P_alko2 ELSE P_alko2 = chem_index_table( PARAM_alko2 , idomain ) END IF chem_boundary_table( idomain, P_alko2 ) = .TRUE. chem_dname_table( idomain, P_alko2 ) = 'alko2' chem_desc_table( idomain, P_alko2 ) = 'ALKO2 mixing ratio' chem_units_table( idomain, P_alko2 ) = 'ppmv' chem_streams_table( idomain, P_alko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_alko2 )%stream(2) = 2097216 F_alko2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 F_isopr = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_hydrald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hydrald = chem_num_table(idomain) chem_index_table( PARAM_hydrald , idomain ) = P_hydrald ELSE P_hydrald = chem_index_table( PARAM_hydrald , idomain ) END IF chem_boundary_table( idomain, P_hydrald ) = .TRUE. chem_dname_table( idomain, P_hydrald ) = 'hydrald' chem_desc_table( idomain, P_hydrald ) = 'HYDRALD mixing ratio' chem_units_table( idomain, P_hydrald ) = 'ppmv' chem_streams_table( idomain, P_hydrald )%stream(1) = 33554433 chem_streams_table( idomain, P_hydrald )%stream(2) = 2097216 F_hydrald = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_apin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apin = chem_num_table(idomain) chem_index_table( PARAM_apin , idomain ) = P_apin ELSE P_apin = chem_index_table( PARAM_apin , idomain ) END IF chem_boundary_table( idomain, P_apin ) = .TRUE. chem_dname_table( idomain, P_apin ) = 'apin' chem_desc_table( idomain, P_apin ) = 'APIN mixing ratio' chem_units_table( idomain, P_apin ) = 'ppmv' chem_streams_table( idomain, P_apin )%stream(1) = 33554433 chem_streams_table( idomain, P_apin )%stream(2) = 2097216 F_apin = .TRUE. IF ( chem_index_table( PARAM_bpin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpin = chem_num_table(idomain) chem_index_table( PARAM_bpin , idomain ) = P_bpin ELSE P_bpin = chem_index_table( PARAM_bpin , idomain ) END IF chem_boundary_table( idomain, P_bpin ) = .TRUE. chem_dname_table( idomain, P_bpin ) = 'bpin' chem_desc_table( idomain, P_bpin ) = 'BPIN mixing ratio' chem_units_table( idomain, P_bpin ) = 'ppmv' chem_streams_table( idomain, P_bpin )%stream(1) = 33554433 chem_streams_table( idomain, P_bpin )%stream(2) = 2097216 F_bpin = .TRUE. IF ( chem_index_table( PARAM_limon , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limon = chem_num_table(idomain) chem_index_table( PARAM_limon , idomain ) = P_limon ELSE P_limon = chem_index_table( PARAM_limon , idomain ) END IF chem_boundary_table( idomain, P_limon ) = .TRUE. chem_dname_table( idomain, P_limon ) = 'limon' chem_desc_table( idomain, P_limon ) = 'LIMON mixing ratio' chem_units_table( idomain, P_limon ) = 'ppmv' chem_streams_table( idomain, P_limon )%stream(1) = 33554433 chem_streams_table( idomain, P_limon )%stream(2) = 2097216 F_limon = .TRUE. IF ( chem_index_table( PARAM_myrc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_myrc = chem_num_table(idomain) chem_index_table( PARAM_myrc , idomain ) = P_myrc ELSE P_myrc = chem_index_table( PARAM_myrc , idomain ) END IF chem_boundary_table( idomain, P_myrc ) = .TRUE. chem_dname_table( idomain, P_myrc ) = 'myrc' chem_desc_table( idomain, P_myrc ) = 'MYRC mixing ratio' chem_units_table( idomain, P_myrc ) = 'ppmv' chem_streams_table( idomain, P_myrc )%stream(1) = 33554433 chem_streams_table( idomain, P_myrc )%stream(2) = 2097216 F_myrc = .TRUE. IF ( chem_index_table( PARAM_bcary , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bcary = chem_num_table(idomain) chem_index_table( PARAM_bcary , idomain ) = P_bcary ELSE P_bcary = chem_index_table( PARAM_bcary , idomain ) END IF chem_boundary_table( idomain, P_bcary ) = .TRUE. chem_dname_table( idomain, P_bcary ) = 'bcary' chem_desc_table( idomain, P_bcary ) = 'BCARY C15H24 mixing ratio' chem_units_table( idomain, P_bcary ) = 'ppmv' chem_streams_table( idomain, P_bcary )%stream(1) = 33554433 chem_streams_table( idomain, P_bcary )%stream(2) = 2097216 F_bcary = .TRUE. IF ( chem_index_table( PARAM_terprod1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terprod1 = chem_num_table(idomain) chem_index_table( PARAM_terprod1 , idomain ) = P_terprod1 ELSE P_terprod1 = chem_index_table( PARAM_terprod1 , idomain ) END IF chem_boundary_table( idomain, P_terprod1 ) = .TRUE. chem_dname_table( idomain, P_terprod1 ) = 'terprod1' chem_desc_table( idomain, P_terprod1 ) = 'TERPROD1 -> C10H16O2 mixing ratio' chem_units_table( idomain, P_terprod1 ) = 'ppmv' chem_streams_table( idomain, P_terprod1 )%stream(1) = 33554433 chem_streams_table( idomain, P_terprod1 )%stream(2) = 2097216 F_terprod1 = .TRUE. IF ( chem_index_table( PARAM_terprod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terprod2 = chem_num_table(idomain) chem_index_table( PARAM_terprod2 , idomain ) = P_terprod2 ELSE P_terprod2 = chem_index_table( PARAM_terprod2 , idomain ) END IF chem_boundary_table( idomain, P_terprod2 ) = .TRUE. chem_dname_table( idomain, P_terprod2 ) = 'terprod2' chem_desc_table( idomain, P_terprod2 ) = 'TERPROD2 -> C9H14O2 mixing ratio' chem_units_table( idomain, P_terprod2 ) = 'ppmv' chem_streams_table( idomain, P_terprod2 )%stream(1) = 33554433 chem_streams_table( idomain, P_terprod2 )%stream(2) = 2097216 F_terprod2 = .TRUE. IF ( chem_index_table( PARAM_terp2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp2o2 = chem_num_table(idomain) chem_index_table( PARAM_terp2o2 , idomain ) = P_terp2o2 ELSE P_terp2o2 = chem_index_table( PARAM_terp2o2 , idomain ) END IF chem_boundary_table( idomain, P_terp2o2 ) = .TRUE. chem_dname_table( idomain, P_terp2o2 ) = 'terp2o2' chem_desc_table( idomain, P_terp2o2 ) = 'TERP2O2 -> C10H15O4 mixing ratio' chem_units_table( idomain, P_terp2o2 ) = 'ppmv' chem_streams_table( idomain, P_terp2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_terp2o2 )%stream(2) = 2097216 F_terp2o2 = .TRUE. IF ( chem_index_table( PARAM_terp2ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp2ooh = chem_num_table(idomain) chem_index_table( PARAM_terp2ooh , idomain ) = P_terp2ooh ELSE P_terp2ooh = chem_index_table( PARAM_terp2ooh , idomain ) END IF chem_boundary_table( idomain, P_terp2ooh ) = .TRUE. chem_dname_table( idomain, P_terp2ooh ) = 'terp2ooh' chem_desc_table( idomain, P_terp2ooh ) = 'TERP2OOH -> C10H16O4 mixing ratio' chem_units_table( idomain, P_terp2ooh ) = 'ppmv' chem_streams_table( idomain, P_terp2ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_terp2ooh )%stream(2) = 2097216 F_terp2ooh = .TRUE. IF ( chem_index_table( PARAM_nterpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nterpo2 = chem_num_table(idomain) chem_index_table( PARAM_nterpo2 , idomain ) = P_nterpo2 ELSE P_nterpo2 = chem_index_table( PARAM_nterpo2 , idomain ) END IF chem_boundary_table( idomain, P_nterpo2 ) = .TRUE. chem_dname_table( idomain, P_nterpo2 ) = 'nterpo2' chem_desc_table( idomain, P_nterpo2 ) = 'NTERPO2 -> C10H16NO5 mixing ratio' chem_units_table( idomain, P_nterpo2 ) = 'ppmv' chem_streams_table( idomain, P_nterpo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nterpo2 )%stream(2) = 2097216 F_nterpo2 = .TRUE. IF ( chem_index_table( PARAM_terpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpo2 = chem_num_table(idomain) chem_index_table( PARAM_terpo2 , idomain ) = P_terpo2 ELSE P_terpo2 = chem_index_table( PARAM_terpo2 , idomain ) END IF chem_boundary_table( idomain, P_terpo2 ) = .TRUE. chem_dname_table( idomain, P_terpo2 ) = 'terpo2' chem_desc_table( idomain, P_terpo2 ) = 'TERPO2 mixing ratio' chem_units_table( idomain, P_terpo2 ) = 'ppmv' chem_streams_table( idomain, P_terpo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_terpo2 )%stream(2) = 2097216 F_terpo2 = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_mbo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbo = chem_num_table(idomain) chem_index_table( PARAM_mbo , idomain ) = P_mbo ELSE P_mbo = chem_index_table( PARAM_mbo , idomain ) END IF chem_boundary_table( idomain, P_mbo ) = .TRUE. chem_dname_table( idomain, P_mbo ) = 'mbo' chem_desc_table( idomain, P_mbo ) = 'MBO (2-Methyl-3-Buten-2-ol) mixing ratio' chem_units_table( idomain, P_mbo ) = 'ppmv' chem_streams_table( idomain, P_mbo )%stream(1) = 33554433 chem_streams_table( idomain, P_mbo )%stream(2) = 2097216 F_mbo = .TRUE. IF ( chem_index_table( PARAM_mboo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mboo2 = chem_num_table(idomain) chem_index_table( PARAM_mboo2 , idomain ) = P_mboo2 ELSE P_mboo2 = chem_index_table( PARAM_mboo2 , idomain ) END IF chem_boundary_table( idomain, P_mboo2 ) = .TRUE. chem_dname_table( idomain, P_mboo2 ) = 'mboo2' chem_desc_table( idomain, P_mboo2 ) = 'MBOO2 concentration' chem_units_table( idomain, P_mboo2 ) = 'ppmv' chem_streams_table( idomain, P_mboo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mboo2 )%stream(2) = 2097216 F_mboo2 = .TRUE. IF ( chem_index_table( PARAM_hmprop , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hmprop = chem_num_table(idomain) chem_index_table( PARAM_hmprop , idomain ) = P_hmprop ELSE P_hmprop = chem_index_table( PARAM_hmprop , idomain ) END IF chem_boundary_table( idomain, P_hmprop ) = .TRUE. chem_dname_table( idomain, P_hmprop ) = 'hmprop' chem_desc_table( idomain, P_hmprop ) = 'HMPROP concentration' chem_units_table( idomain, P_hmprop ) = 'ppmv' chem_streams_table( idomain, P_hmprop )%stream(1) = 33554433 chem_streams_table( idomain, P_hmprop )%stream(2) = 2097216 F_hmprop = .TRUE. IF ( chem_index_table( PARAM_hmpropo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hmpropo2 = chem_num_table(idomain) chem_index_table( PARAM_hmpropo2 , idomain ) = P_hmpropo2 ELSE P_hmpropo2 = chem_index_table( PARAM_hmpropo2 , idomain ) END IF chem_boundary_table( idomain, P_hmpropo2 ) = .TRUE. chem_dname_table( idomain, P_hmpropo2 ) = 'hmpropo2' chem_desc_table( idomain, P_hmpropo2 ) = 'HMPROPO2 concentration' chem_units_table( idomain, P_hmpropo2 ) = 'ppmv' chem_streams_table( idomain, P_hmpropo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_hmpropo2 )%stream(2) = 2097216 F_hmpropo2 = .TRUE. IF ( chem_index_table( PARAM_mboooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mboooh = chem_num_table(idomain) chem_index_table( PARAM_mboooh , idomain ) = P_mboooh ELSE P_mboooh = chem_index_table( PARAM_mboooh , idomain ) END IF chem_boundary_table( idomain, P_mboooh ) = .TRUE. chem_dname_table( idomain, P_mboooh ) = 'mboooh' chem_desc_table( idomain, P_mboooh ) = 'MBOOOH concentration' chem_units_table( idomain, P_mboooh ) = 'ppmv' chem_streams_table( idomain, P_mboooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mboooh )%stream(2) = 2097216 F_mboooh = .TRUE. IF ( chem_index_table( PARAM_mbono3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbono3o2 = chem_num_table(idomain) chem_index_table( PARAM_mbono3o2 , idomain ) = P_mbono3o2 ELSE P_mbono3o2 = chem_index_table( PARAM_mbono3o2 , idomain ) END IF chem_boundary_table( idomain, P_mbono3o2 ) = .TRUE. chem_dname_table( idomain, P_mbono3o2 ) = 'mbono3o2' chem_desc_table( idomain, P_mbono3o2 ) = 'MBONO3O2 concentration' chem_units_table( idomain, P_mbono3o2 ) = 'ppmv' chem_streams_table( idomain, P_mbono3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mbono3o2 )%stream(2) = 2097216 F_mbono3o2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 chem_streams_table( idomain, P_den )%stream(2) = 2097216 F_den = .TRUE. IF ( chem_index_table( PARAM_voca , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_voca = chem_num_table(idomain) chem_index_table( PARAM_voca , idomain ) = P_voca ELSE P_voca = chem_index_table( PARAM_voca , idomain ) END IF chem_boundary_table( idomain, P_voca ) = .TRUE. chem_dname_table( idomain, P_voca ) = 'voca' chem_desc_table( idomain, P_voca ) = 'VOCA mixing ratio' chem_units_table( idomain, P_voca ) = 'ppmv' chem_streams_table( idomain, P_voca )%stream(1) = 33554433 chem_streams_table( idomain, P_voca )%stream(2) = 2097216 F_voca = .TRUE. IF ( chem_index_table( PARAM_vocbb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vocbb = chem_num_table(idomain) chem_index_table( PARAM_vocbb , idomain ) = P_vocbb ELSE P_vocbb = chem_index_table( PARAM_vocbb , idomain ) END IF chem_boundary_table( idomain, P_vocbb ) = .TRUE. chem_dname_table( idomain, P_vocbb ) = 'vocbb' chem_desc_table( idomain, P_vocbb ) = 'VOCBB mixing ratio' chem_units_table( idomain, P_vocbb ) = 'ppmv' chem_streams_table( idomain, P_vocbb )%stream(1) = 33554433 chem_streams_table( idomain, P_vocbb )%stream(2) = 2097216 F_vocbb = .TRUE. IF ( chem_index_table( PARAM_smpa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa = chem_num_table(idomain) chem_index_table( PARAM_smpa , idomain ) = P_smpa ELSE P_smpa = chem_index_table( PARAM_smpa , idomain ) END IF chem_boundary_table( idomain, P_smpa ) = .TRUE. chem_dname_table( idomain, P_smpa ) = 'smpa' chem_desc_table( idomain, P_smpa ) = 'smpa mixing ratio' chem_units_table( idomain, P_smpa ) = 'ppmv' chem_streams_table( idomain, P_smpa )%stream(1) = 33554433 chem_streams_table( idomain, P_smpa )%stream(2) = 2097216 F_smpa = .TRUE. IF ( chem_index_table( PARAM_smpbb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb = chem_num_table(idomain) chem_index_table( PARAM_smpbb , idomain ) = P_smpbb ELSE P_smpbb = chem_index_table( PARAM_smpbb , idomain ) END IF chem_boundary_table( idomain, P_smpbb ) = .TRUE. chem_dname_table( idomain, P_smpbb ) = 'smpbb' chem_desc_table( idomain, P_smpbb ) = 'smpbb mixing ratio' chem_units_table( idomain, P_smpbb ) = 'ppmv' chem_streams_table( idomain, P_smpbb )%stream(1) = 33554433 chem_streams_table( idomain, P_smpbb )%stream(2) = 2097216 F_smpbb = .TRUE. IF ( chem_index_table( PARAM_biog1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c = chem_num_table(idomain) chem_index_table( PARAM_biog1_c , idomain ) = P_biog1_c ELSE P_biog1_c = chem_index_table( PARAM_biog1_c , idomain ) END IF chem_boundary_table( idomain, P_biog1_c ) = .TRUE. chem_dname_table( idomain, P_biog1_c ) = 'biog1_c' chem_desc_table( idomain, P_biog1_c ) = 'biog1_c mixing ratio' chem_units_table( idomain, P_biog1_c ) = 'ppmv' chem_streams_table( idomain, P_biog1_c )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c )%stream(2) = 2097216 F_biog1_c = .TRUE. IF ( chem_index_table( PARAM_biog1_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o = chem_num_table(idomain) chem_index_table( PARAM_biog1_o , idomain ) = P_biog1_o ELSE P_biog1_o = chem_index_table( PARAM_biog1_o , idomain ) END IF chem_boundary_table( idomain, P_biog1_o ) = .TRUE. chem_dname_table( idomain, P_biog1_o ) = 'biog1_o' chem_desc_table( idomain, P_biog1_o ) = 'biog1_o mixing ratio' chem_units_table( idomain, P_biog1_o ) = 'ppmv' chem_streams_table( idomain, P_biog1_o )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o )%stream(2) = 2097216 F_biog1_o = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 F_benzene = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 F_phen = .TRUE. IF ( chem_index_table( PARAM_bepomuc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bepomuc = chem_num_table(idomain) chem_index_table( PARAM_bepomuc , idomain ) = P_bepomuc ELSE P_bepomuc = chem_index_table( PARAM_bepomuc , idomain ) END IF chem_boundary_table( idomain, P_bepomuc ) = .TRUE. chem_dname_table( idomain, P_bepomuc ) = 'bepomuc' chem_desc_table( idomain, P_bepomuc ) = 'bepomuc mixing ratio' chem_units_table( idomain, P_bepomuc ) = 'ppmv' chem_streams_table( idomain, P_bepomuc )%stream(1) = 33554433 chem_streams_table( idomain, P_bepomuc )%stream(2) = 2097216 F_bepomuc = .TRUE. IF ( chem_index_table( PARAM_benzo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzo2 = chem_num_table(idomain) chem_index_table( PARAM_benzo2 , idomain ) = P_benzo2 ELSE P_benzo2 = chem_index_table( PARAM_benzo2 , idomain ) END IF chem_boundary_table( idomain, P_benzo2 ) = .TRUE. chem_dname_table( idomain, P_benzo2 ) = 'benzo2' chem_desc_table( idomain, P_benzo2 ) = 'benzo2 mixing ratio' chem_units_table( idomain, P_benzo2 ) = 'ppmv' chem_streams_table( idomain, P_benzo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_benzo2 )%stream(2) = 2097216 F_benzo2 = .TRUE. IF ( chem_index_table( PARAM_pheno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pheno2 = chem_num_table(idomain) chem_index_table( PARAM_pheno2 , idomain ) = P_pheno2 ELSE P_pheno2 = chem_index_table( PARAM_pheno2 , idomain ) END IF chem_boundary_table( idomain, P_pheno2 ) = .TRUE. chem_dname_table( idomain, P_pheno2 ) = 'pheno2' chem_desc_table( idomain, P_pheno2 ) = 'pheno2 mixing ratio' chem_units_table( idomain, P_pheno2 ) = 'ppmv' chem_streams_table( idomain, P_pheno2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pheno2 )%stream(2) = 2097216 F_pheno2 = .TRUE. IF ( chem_index_table( PARAM_pheno , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pheno = chem_num_table(idomain) chem_index_table( PARAM_pheno , idomain ) = P_pheno ELSE P_pheno = chem_index_table( PARAM_pheno , idomain ) END IF chem_boundary_table( idomain, P_pheno ) = .TRUE. chem_dname_table( idomain, P_pheno ) = 'pheno' chem_desc_table( idomain, P_pheno ) = 'pheno mixing ratio' chem_units_table( idomain, P_pheno ) = 'ppmv' chem_streams_table( idomain, P_pheno )%stream(1) = 33554433 chem_streams_table( idomain, P_pheno )%stream(2) = 2097216 F_pheno = .TRUE. IF ( chem_index_table( PARAM_phenooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phenooh = chem_num_table(idomain) chem_index_table( PARAM_phenooh , idomain ) = P_phenooh ELSE P_phenooh = chem_index_table( PARAM_phenooh , idomain ) END IF chem_boundary_table( idomain, P_phenooh ) = .TRUE. chem_dname_table( idomain, P_phenooh ) = 'phenooh' chem_desc_table( idomain, P_phenooh ) = 'phenooh mixing ratio' chem_units_table( idomain, P_phenooh ) = 'ppmv' chem_streams_table( idomain, P_phenooh )%stream(1) = 33554433 chem_streams_table( idomain, P_phenooh )%stream(2) = 2097216 F_phenooh = .TRUE. IF ( chem_index_table( PARAM_c6h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c6h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c6h5o2 , idomain ) = P_c6h5o2 ELSE P_c6h5o2 = chem_index_table( PARAM_c6h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c6h5o2 ) = .TRUE. chem_dname_table( idomain, P_c6h5o2 ) = 'c6h5o2' chem_desc_table( idomain, P_c6h5o2 ) = 'c6h5o2 mixing ratio' chem_units_table( idomain, P_c6h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c6h5o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c6h5o2 )%stream(2) = 2097216 F_c6h5o2 = .TRUE. IF ( chem_index_table( PARAM_c6h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c6h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c6h5ooh , idomain ) = P_c6h5ooh ELSE P_c6h5ooh = chem_index_table( PARAM_c6h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c6h5ooh ) = .TRUE. chem_dname_table( idomain, P_c6h5ooh ) = 'c6h5ooh' chem_desc_table( idomain, P_c6h5ooh ) = 'c6h5ooh mixing ratio' chem_units_table( idomain, P_c6h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c6h5ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c6h5ooh )%stream(2) = 2097216 F_c6h5ooh = .TRUE. IF ( chem_index_table( PARAM_benzooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzooh = chem_num_table(idomain) chem_index_table( PARAM_benzooh , idomain ) = P_benzooh ELSE P_benzooh = chem_index_table( PARAM_benzooh , idomain ) END IF chem_boundary_table( idomain, P_benzooh ) = .TRUE. chem_dname_table( idomain, P_benzooh ) = 'benzooh' chem_desc_table( idomain, P_benzooh ) = 'benzooh mixing ratio' chem_units_table( idomain, P_benzooh ) = 'ppmv' chem_streams_table( idomain, P_benzooh )%stream(1) = 33554433 chem_streams_table( idomain, P_benzooh )%stream(2) = 2097216 F_benzooh = .TRUE. IF ( chem_index_table( PARAM_bigald1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald1 = chem_num_table(idomain) chem_index_table( PARAM_bigald1 , idomain ) = P_bigald1 ELSE P_bigald1 = chem_index_table( PARAM_bigald1 , idomain ) END IF chem_boundary_table( idomain, P_bigald1 ) = .TRUE. chem_dname_table( idomain, P_bigald1 ) = 'bigald1' chem_desc_table( idomain, P_bigald1 ) = 'bigald1 mixing ratio' chem_units_table( idomain, P_bigald1 ) = 'ppmv' chem_streams_table( idomain, P_bigald1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bigald1 )%stream(2) = 2097216 F_bigald1 = .TRUE. IF ( chem_index_table( PARAM_bigald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald2 = chem_num_table(idomain) chem_index_table( PARAM_bigald2 , idomain ) = P_bigald2 ELSE P_bigald2 = chem_index_table( PARAM_bigald2 , idomain ) END IF chem_boundary_table( idomain, P_bigald2 ) = .TRUE. chem_dname_table( idomain, P_bigald2 ) = 'bigald2' chem_desc_table( idomain, P_bigald2 ) = 'bigald2 mixing ratio' chem_units_table( idomain, P_bigald2 ) = 'ppmv' chem_streams_table( idomain, P_bigald2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bigald2 )%stream(2) = 2097216 F_bigald2 = .TRUE. IF ( chem_index_table( PARAM_bigald3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald3 = chem_num_table(idomain) chem_index_table( PARAM_bigald3 , idomain ) = P_bigald3 ELSE P_bigald3 = chem_index_table( PARAM_bigald3 , idomain ) END IF chem_boundary_table( idomain, P_bigald3 ) = .TRUE. chem_dname_table( idomain, P_bigald3 ) = 'bigald3' chem_desc_table( idomain, P_bigald3 ) = 'bigald3 mixing ratio' chem_units_table( idomain, P_bigald3 ) = 'ppmv' chem_streams_table( idomain, P_bigald3 )%stream(1) = 33554433 chem_streams_table( idomain, P_bigald3 )%stream(2) = 2097216 F_bigald3 = .TRUE. IF ( chem_index_table( PARAM_bigald4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald4 = chem_num_table(idomain) chem_index_table( PARAM_bigald4 , idomain ) = P_bigald4 ELSE P_bigald4 = chem_index_table( PARAM_bigald4 , idomain ) END IF chem_boundary_table( idomain, P_bigald4 ) = .TRUE. chem_dname_table( idomain, P_bigald4 ) = 'bigald4' chem_desc_table( idomain, P_bigald4 ) = 'bigald4 mixing ratio' chem_units_table( idomain, P_bigald4 ) = 'ppmv' chem_streams_table( idomain, P_bigald4 )%stream(1) = 33554433 chem_streams_table( idomain, P_bigald4 )%stream(2) = 2097216 F_bigald4 = .TRUE. IF ( chem_index_table( PARAM_malo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_malo2 = chem_num_table(idomain) chem_index_table( PARAM_malo2 , idomain ) = P_malo2 ELSE P_malo2 = chem_index_table( PARAM_malo2 , idomain ) END IF chem_boundary_table( idomain, P_malo2 ) = .TRUE. chem_dname_table( idomain, P_malo2 ) = 'malo2' chem_desc_table( idomain, P_malo2 ) = 'malo2 mixing ratio' chem_units_table( idomain, P_malo2 ) = 'ppmv' chem_streams_table( idomain, P_malo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_malo2 )%stream(2) = 2097216 F_malo2 = .TRUE. IF ( chem_index_table( PARAM_tepomuc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tepomuc = chem_num_table(idomain) chem_index_table( PARAM_tepomuc , idomain ) = P_tepomuc ELSE P_tepomuc = chem_index_table( PARAM_tepomuc , idomain ) END IF chem_boundary_table( idomain, P_tepomuc ) = .TRUE. chem_dname_table( idomain, P_tepomuc ) = 'tepomuc' chem_desc_table( idomain, P_tepomuc ) = 'tepomuc mixing ratio' chem_units_table( idomain, P_tepomuc ) = 'ppmv' chem_streams_table( idomain, P_tepomuc )%stream(1) = 33554433 chem_streams_table( idomain, P_tepomuc )%stream(2) = 2097216 F_tepomuc = .TRUE. IF ( chem_index_table( PARAM_bzoo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzoo = chem_num_table(idomain) chem_index_table( PARAM_bzoo , idomain ) = P_bzoo ELSE P_bzoo = chem_index_table( PARAM_bzoo , idomain ) END IF chem_boundary_table( idomain, P_bzoo ) = .TRUE. chem_dname_table( idomain, P_bzoo ) = 'bzoo' chem_desc_table( idomain, P_bzoo ) = 'bzoo mixing ratio' chem_units_table( idomain, P_bzoo ) = 'ppmv' chem_streams_table( idomain, P_bzoo )%stream(1) = 33554433 chem_streams_table( idomain, P_bzoo )%stream(2) = 2097216 F_bzoo = .TRUE. IF ( chem_index_table( PARAM_bzooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzooh = chem_num_table(idomain) chem_index_table( PARAM_bzooh , idomain ) = P_bzooh ELSE P_bzooh = chem_index_table( PARAM_bzooh , idomain ) END IF chem_boundary_table( idomain, P_bzooh ) = .TRUE. chem_dname_table( idomain, P_bzooh ) = 'bzooh' chem_desc_table( idomain, P_bzooh ) = 'bzooh mixing ratio' chem_units_table( idomain, P_bzooh ) = 'ppmv' chem_streams_table( idomain, P_bzooh )%stream(1) = 33554433 chem_streams_table( idomain, P_bzooh )%stream(2) = 2097216 F_bzooh = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 F_bald = .TRUE. IF ( chem_index_table( PARAM_acbzo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acbzo2 = chem_num_table(idomain) chem_index_table( PARAM_acbzo2 , idomain ) = P_acbzo2 ELSE P_acbzo2 = chem_index_table( PARAM_acbzo2 , idomain ) END IF chem_boundary_table( idomain, P_acbzo2 ) = .TRUE. chem_dname_table( idomain, P_acbzo2 ) = 'acbzo2' chem_desc_table( idomain, P_acbzo2 ) = 'acbzo2 mixing ratio' chem_units_table( idomain, P_acbzo2 ) = 'ppmv' chem_streams_table( idomain, P_acbzo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_acbzo2 )%stream(2) = 2097216 F_acbzo2 = .TRUE. IF ( chem_index_table( PARAM_dicarbo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dicarbo2 = chem_num_table(idomain) chem_index_table( PARAM_dicarbo2 , idomain ) = P_dicarbo2 ELSE P_dicarbo2 = chem_index_table( PARAM_dicarbo2 , idomain ) END IF chem_boundary_table( idomain, P_dicarbo2 ) = .TRUE. chem_dname_table( idomain, P_dicarbo2 ) = 'dicarbo2' chem_desc_table( idomain, P_dicarbo2 ) = 'dicarbo2 mixing ratio' chem_units_table( idomain, P_dicarbo2 ) = 'ppmv' chem_streams_table( idomain, P_dicarbo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dicarbo2 )%stream(2) = 2097216 F_dicarbo2 = .TRUE. IF ( chem_index_table( PARAM_mdialo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mdialo2 = chem_num_table(idomain) chem_index_table( PARAM_mdialo2 , idomain ) = P_mdialo2 ELSE P_mdialo2 = chem_index_table( PARAM_mdialo2 , idomain ) END IF chem_boundary_table( idomain, P_mdialo2 ) = .TRUE. chem_dname_table( idomain, P_mdialo2 ) = 'mdialo2' chem_desc_table( idomain, P_mdialo2 ) = 'mdialo2 mixing ratio' chem_units_table( idomain, P_mdialo2 ) = 'ppmv' chem_streams_table( idomain, P_mdialo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mdialo2 )%stream(2) = 2097216 F_mdialo2 = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_xylol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylol = chem_num_table(idomain) chem_index_table( PARAM_xylol , idomain ) = P_xylol ELSE P_xylol = chem_index_table( PARAM_xylol , idomain ) END IF chem_boundary_table( idomain, P_xylol ) = .TRUE. chem_dname_table( idomain, P_xylol ) = 'xylol' chem_desc_table( idomain, P_xylol ) = 'xylol mixing ratio' chem_units_table( idomain, P_xylol ) = 'ppmv' chem_streams_table( idomain, P_xylol )%stream(1) = 33554433 chem_streams_table( idomain, P_xylol )%stream(2) = 2097216 F_xylol = .TRUE. IF ( chem_index_table( PARAM_xylolo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylolo2 = chem_num_table(idomain) chem_index_table( PARAM_xylolo2 , idomain ) = P_xylolo2 ELSE P_xylolo2 = chem_index_table( PARAM_xylolo2 , idomain ) END IF chem_boundary_table( idomain, P_xylolo2 ) = .TRUE. chem_dname_table( idomain, P_xylolo2 ) = 'xylolo2' chem_desc_table( idomain, P_xylolo2 ) = 'xylolo2 mixing ratio' chem_units_table( idomain, P_xylolo2 ) = 'ppmv' chem_streams_table( idomain, P_xylolo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xylolo2 )%stream(2) = 2097216 F_xylolo2 = .TRUE. IF ( chem_index_table( PARAM_xylolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylolooh = chem_num_table(idomain) chem_index_table( PARAM_xylolooh , idomain ) = P_xylolooh ELSE P_xylolooh = chem_index_table( PARAM_xylolooh , idomain ) END IF chem_boundary_table( idomain, P_xylolooh ) = .TRUE. chem_dname_table( idomain, P_xylolooh ) = 'xylolooh' chem_desc_table( idomain, P_xylolooh ) = 'xylolooh mixing ratio' chem_units_table( idomain, P_xylolooh ) = 'ppmv' chem_streams_table( idomain, P_xylolooh )%stream(1) = 33554433 chem_streams_table( idomain, P_xylolooh )%stream(2) = 2097216 F_xylolooh = .TRUE. IF ( chem_index_table( PARAM_xyleno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyleno2 = chem_num_table(idomain) chem_index_table( PARAM_xyleno2 , idomain ) = P_xyleno2 ELSE P_xyleno2 = chem_index_table( PARAM_xyleno2 , idomain ) END IF chem_boundary_table( idomain, P_xyleno2 ) = .TRUE. chem_dname_table( idomain, P_xyleno2 ) = 'xyleno2' chem_desc_table( idomain, P_xyleno2 ) = 'xyleno2 mixing ratio' chem_units_table( idomain, P_xyleno2 ) = 'ppmv' chem_streams_table( idomain, P_xyleno2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xyleno2 )%stream(2) = 2097216 F_xyleno2 = .TRUE. IF ( chem_index_table( PARAM_xylenooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylenooh = chem_num_table(idomain) chem_index_table( PARAM_xylenooh , idomain ) = P_xylenooh ELSE P_xylenooh = chem_index_table( PARAM_xylenooh , idomain ) END IF chem_boundary_table( idomain, P_xylenooh ) = .TRUE. chem_dname_table( idomain, P_xylenooh ) = 'xylenooh' chem_desc_table( idomain, P_xylenooh ) = 'xylenooh mixing ratio' chem_units_table( idomain, P_xylenooh ) = 'ppmv' chem_streams_table( idomain, P_xylenooh )%stream(1) = 33554433 chem_streams_table( idomain, P_xylenooh )%stream(2) = 2097216 F_xylenooh = .TRUE. IF ( chem_index_table( PARAM_pbznit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbznit = chem_num_table(idomain) chem_index_table( PARAM_pbznit , idomain ) = P_pbznit ELSE P_pbznit = chem_index_table( PARAM_pbznit , idomain ) END IF chem_boundary_table( idomain, P_pbznit ) = .TRUE. chem_dname_table( idomain, P_pbznit ) = 'pbznit' chem_desc_table( idomain, P_pbznit ) = 'pbznit mixing ratio' chem_units_table( idomain, P_pbznit ) = 'ppmv' chem_streams_table( idomain, P_pbznit )%stream(1) = 33554433 chem_streams_table( idomain, P_pbznit )%stream(2) = 2097216 F_pbznit = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 F_meko2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_smpa_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa_a01 = chem_num_table(idomain) chem_index_table( PARAM_smpa_a01 , idomain ) = P_smpa_a01 ELSE P_smpa_a01 = chem_index_table( PARAM_smpa_a01 , idomain ) END IF chem_boundary_table( idomain, P_smpa_a01 ) = .TRUE. chem_dname_table( idomain, P_smpa_a01 ) = 'smpa_a01' chem_desc_table( idomain, P_smpa_a01 ) = 'smpa, aerosol bin 01' chem_units_table( idomain, P_smpa_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpa_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_smpa_a01 )%stream(2) = 2097216 F_smpa_a01 = .TRUE. IF ( chem_index_table( PARAM_smpbb_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb_a01 = chem_num_table(idomain) chem_index_table( PARAM_smpbb_a01 , idomain ) = P_smpbb_a01 ELSE P_smpbb_a01 = chem_index_table( PARAM_smpbb_a01 , idomain ) END IF chem_boundary_table( idomain, P_smpbb_a01 ) = .TRUE. chem_dname_table( idomain, P_smpbb_a01 ) = 'smpbb_a01' chem_desc_table( idomain, P_smpbb_a01 ) = 'smpbb, aerosol bin 01' chem_units_table( idomain, P_smpbb_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpbb_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_smpbb_a01 )%stream(2) = 2097216 F_smpbb_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) = P_glysoa_sfc_a01 ELSE P_glysoa_sfc_a01 = chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a01 ) = 'glysoa_sfc_a01' chem_desc_table( idomain, P_glysoa_sfc_a01 ) = 'glysoa_sfc, aerosol bin 01' chem_units_table( idomain, P_glysoa_sfc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_a01 )%stream(2) = 2097216 F_glysoa_sfc_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a01 , idomain ) = P_biog1_c_a01 ELSE P_biog1_c_a01 = chem_index_table( PARAM_biog1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a01 ) = 'biog1_c_a01' chem_desc_table( idomain, P_biog1_c_a01 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a01 )%stream(2) = 2097216 F_biog1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a01 , idomain ) = P_biog1_o_a01 ELSE P_biog1_o_a01 = chem_index_table( PARAM_biog1_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a01 ) = 'biog1_o_a01' chem_desc_table( idomain, P_biog1_o_a01 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a01 )%stream(2) = 2097216 F_biog1_o_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_smpa_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa_a02 = chem_num_table(idomain) chem_index_table( PARAM_smpa_a02 , idomain ) = P_smpa_a02 ELSE P_smpa_a02 = chem_index_table( PARAM_smpa_a02 , idomain ) END IF chem_boundary_table( idomain, P_smpa_a02 ) = .TRUE. chem_dname_table( idomain, P_smpa_a02 ) = 'smpa_a02' chem_desc_table( idomain, P_smpa_a02 ) = 'smpa, aerosol bin 02' chem_units_table( idomain, P_smpa_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpa_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_smpa_a02 )%stream(2) = 2097216 F_smpa_a02 = .TRUE. IF ( chem_index_table( PARAM_smpbb_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb_a02 = chem_num_table(idomain) chem_index_table( PARAM_smpbb_a02 , idomain ) = P_smpbb_a02 ELSE P_smpbb_a02 = chem_index_table( PARAM_smpbb_a02 , idomain ) END IF chem_boundary_table( idomain, P_smpbb_a02 ) = .TRUE. chem_dname_table( idomain, P_smpbb_a02 ) = 'smpbb_a02' chem_desc_table( idomain, P_smpbb_a02 ) = 'smpbb, aerosol bin 02' chem_units_table( idomain, P_smpbb_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpbb_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_smpbb_a02 )%stream(2) = 2097216 F_smpbb_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) = P_glysoa_sfc_a02 ELSE P_glysoa_sfc_a02 = chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a02 ) = 'glysoa_sfc_a02' chem_desc_table( idomain, P_glysoa_sfc_a02 ) = 'glysoa_sfc, aerosol bin 02' chem_units_table( idomain, P_glysoa_sfc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_a02 )%stream(2) = 2097216 F_glysoa_sfc_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a02 , idomain ) = P_biog1_c_a02 ELSE P_biog1_c_a02 = chem_index_table( PARAM_biog1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a02 ) = 'biog1_c_a02' chem_desc_table( idomain, P_biog1_c_a02 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a02 )%stream(2) = 2097216 F_biog1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a02 , idomain ) = P_biog1_o_a02 ELSE P_biog1_o_a02 = chem_index_table( PARAM_biog1_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a02 ) = 'biog1_o_a02' chem_desc_table( idomain, P_biog1_o_a02 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a02 )%stream(2) = 2097216 F_biog1_o_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_smpa_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa_a03 = chem_num_table(idomain) chem_index_table( PARAM_smpa_a03 , idomain ) = P_smpa_a03 ELSE P_smpa_a03 = chem_index_table( PARAM_smpa_a03 , idomain ) END IF chem_boundary_table( idomain, P_smpa_a03 ) = .TRUE. chem_dname_table( idomain, P_smpa_a03 ) = 'smpa_a03' chem_desc_table( idomain, P_smpa_a03 ) = 'smpa, aerosol bin 03' chem_units_table( idomain, P_smpa_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpa_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_smpa_a03 )%stream(2) = 2097216 F_smpa_a03 = .TRUE. IF ( chem_index_table( PARAM_smpbb_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb_a03 = chem_num_table(idomain) chem_index_table( PARAM_smpbb_a03 , idomain ) = P_smpbb_a03 ELSE P_smpbb_a03 = chem_index_table( PARAM_smpbb_a03 , idomain ) END IF chem_boundary_table( idomain, P_smpbb_a03 ) = .TRUE. chem_dname_table( idomain, P_smpbb_a03 ) = 'smpbb_a03' chem_desc_table( idomain, P_smpbb_a03 ) = 'smpbb, aerosol bin 03' chem_units_table( idomain, P_smpbb_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpbb_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_smpbb_a03 )%stream(2) = 2097216 F_smpbb_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) = P_glysoa_sfc_a03 ELSE P_glysoa_sfc_a03 = chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a03 ) = 'glysoa_sfc_a03' chem_desc_table( idomain, P_glysoa_sfc_a03 ) = 'glysoa_sfc, aerosol bin 03' chem_units_table( idomain, P_glysoa_sfc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_a03 )%stream(2) = 2097216 F_glysoa_sfc_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a03 , idomain ) = P_biog1_c_a03 ELSE P_biog1_c_a03 = chem_index_table( PARAM_biog1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a03 ) = 'biog1_c_a03' chem_desc_table( idomain, P_biog1_c_a03 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a03 )%stream(2) = 2097216 F_biog1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a03 , idomain ) = P_biog1_o_a03 ELSE P_biog1_o_a03 = chem_index_table( PARAM_biog1_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a03 ) = 'biog1_o_a03' chem_desc_table( idomain, P_biog1_o_a03 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a03 )%stream(2) = 2097216 F_biog1_o_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_smpa_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpa_a04 = chem_num_table(idomain) chem_index_table( PARAM_smpa_a04 , idomain ) = P_smpa_a04 ELSE P_smpa_a04 = chem_index_table( PARAM_smpa_a04 , idomain ) END IF chem_boundary_table( idomain, P_smpa_a04 ) = .TRUE. chem_dname_table( idomain, P_smpa_a04 ) = 'smpa_a04' chem_desc_table( idomain, P_smpa_a04 ) = 'smpa, aerosol bin 04' chem_units_table( idomain, P_smpa_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpa_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_smpa_a04 )%stream(2) = 2097216 F_smpa_a04 = .TRUE. IF ( chem_index_table( PARAM_smpbb_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_smpbb_a04 = chem_num_table(idomain) chem_index_table( PARAM_smpbb_a04 , idomain ) = P_smpbb_a04 ELSE P_smpbb_a04 = chem_index_table( PARAM_smpbb_a04 , idomain ) END IF chem_boundary_table( idomain, P_smpbb_a04 ) = .TRUE. chem_dname_table( idomain, P_smpbb_a04 ) = 'smpbb_a04' chem_desc_table( idomain, P_smpbb_a04 ) = 'smpbb, aerosol bin 04' chem_units_table( idomain, P_smpbb_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_smpbb_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_smpbb_a04 )%stream(2) = 2097216 F_smpbb_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) = P_glysoa_sfc_a04 ELSE P_glysoa_sfc_a04 = chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a04 ) = 'glysoa_sfc_a04' chem_desc_table( idomain, P_glysoa_sfc_a04 ) = 'glysoa_sfc, aerosol bin 04' chem_units_table( idomain, P_glysoa_sfc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_a04 )%stream(2) = 2097216 F_glysoa_sfc_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a04 , idomain ) = P_biog1_c_a04 ELSE P_biog1_c_a04 = chem_index_table( PARAM_biog1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a04 ) = 'biog1_c_a04' chem_desc_table( idomain, P_biog1_c_a04 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a04 )%stream(2) = 2097216 F_biog1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a04 , idomain ) = P_biog1_o_a04 ELSE P_biog1_o_a04 = chem_index_table( PARAM_biog1_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a04 ) = 'biog1_o_a04' chem_desc_table( idomain, P_biog1_o_a04 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a04 )%stream(2) = 2097216 F_biog1_o_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==202)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_o1d_cb4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o1d_cb4 = chem_num_table(idomain) chem_index_table( PARAM_o1d_cb4 , idomain ) = P_o1d_cb4 ELSE P_o1d_cb4 = chem_index_table( PARAM_o1d_cb4 , idomain ) END IF chem_boundary_table( idomain, P_o1d_cb4 ) = .TRUE. chem_dname_table( idomain, P_o1d_cb4 ) = 'o1d_cb4' chem_desc_table( idomain, P_o1d_cb4 ) = 'o1d_cb4 mixing ratio' chem_units_table( idomain, P_o1d_cb4 ) = 'ppmv' chem_streams_table( idomain, P_o1d_cb4 )%stream(1) = 33554433 chem_streams_table( idomain, P_o1d_cb4 )%stream(2) = 2097216 F_o1d_cb4 = .TRUE. IF ( chem_index_table( PARAM_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o = chem_num_table(idomain) chem_index_table( PARAM_o , idomain ) = P_o ELSE P_o = chem_index_table( PARAM_o , idomain ) END IF chem_boundary_table( idomain, P_o ) = .TRUE. chem_dname_table( idomain, P_o ) = 'o' chem_desc_table( idomain, P_o ) = 'o mixing ratio' chem_units_table( idomain, P_o ) = 'ppmv' chem_streams_table( idomain, P_o )%stream(1) = 33554433 chem_streams_table( idomain, P_o )%stream(2) = 2097216 F_o = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_hoch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2oo = chem_num_table(idomain) chem_index_table( PARAM_hoch2oo , idomain ) = P_hoch2oo ELSE P_hoch2oo = chem_index_table( PARAM_hoch2oo , idomain ) END IF chem_boundary_table( idomain, P_hoch2oo ) = .TRUE. chem_dname_table( idomain, P_hoch2oo ) = 'hoch2oo' chem_desc_table( idomain, P_hoch2oo ) = 'HOCH2OO mixing ratio' chem_units_table( idomain, P_hoch2oo ) = 'ppmv' chem_streams_table( idomain, P_hoch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2oo )%stream(2) = 2097216 F_hoch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2 = chem_num_table(idomain) chem_index_table( PARAM_h2 , idomain ) = P_h2 ELSE P_h2 = chem_index_table( PARAM_h2 , idomain ) END IF chem_boundary_table( idomain, P_h2 ) = .TRUE. chem_dname_table( idomain, P_h2 ) = 'h2' chem_desc_table( idomain, P_h2 ) = 'H2 mixing ratio' chem_units_table( idomain, P_h2 ) = 'ppmv' chem_streams_table( idomain, P_h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2 )%stream(2) = 2097216 F_h2 = .TRUE. IF ( chem_index_table( PARAM_eo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo2 = chem_num_table(idomain) chem_index_table( PARAM_eo2 , idomain ) = P_eo2 ELSE P_eo2 = chem_index_table( PARAM_eo2 , idomain ) END IF chem_boundary_table( idomain, P_eo2 ) = .TRUE. chem_dname_table( idomain, P_eo2 ) = 'eo2' chem_desc_table( idomain, P_eo2 ) = 'EO2 mixing ratio' chem_units_table( idomain, P_eo2 ) = 'ppmv' chem_streams_table( idomain, P_eo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eo2 )%stream(2) = 2097216 F_eo2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_n2o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o = chem_num_table(idomain) chem_index_table( PARAM_n2o , idomain ) = P_n2o ELSE P_n2o = chem_index_table( PARAM_n2o , idomain ) END IF chem_boundary_table( idomain, P_n2o ) = .TRUE. chem_dname_table( idomain, P_n2o ) = 'n2o' chem_desc_table( idomain, P_n2o ) = 'N2O mixing ratio' chem_units_table( idomain, P_n2o ) = 'ppmv' chem_streams_table( idomain, P_n2o )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o )%stream(2) = 2097216 F_n2o = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 F_etooh = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 F_acetp = .TRUE. IF ( chem_index_table( PARAM_xooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xooh = chem_num_table(idomain) chem_index_table( PARAM_xooh , idomain ) = P_xooh ELSE P_xooh = chem_index_table( PARAM_xooh , idomain ) END IF chem_boundary_table( idomain, P_xooh ) = .TRUE. chem_dname_table( idomain, P_xooh ) = 'xooh' chem_desc_table( idomain, P_xooh ) = 'XOOH mixing ratio' chem_units_table( idomain, P_xooh ) = 'ppmv' chem_streams_table( idomain, P_xooh )%stream(1) = 33554433 chem_streams_table( idomain, P_xooh )%stream(2) = 2097216 F_xooh = .TRUE. IF ( chem_index_table( PARAM_onitr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onitr = chem_num_table(idomain) chem_index_table( PARAM_onitr , idomain ) = P_onitr ELSE P_onitr = chem_index_table( PARAM_onitr , idomain ) END IF chem_boundary_table( idomain, P_onitr ) = .TRUE. chem_dname_table( idomain, P_onitr ) = 'onitr' chem_desc_table( idomain, P_onitr ) = 'ONITR mixing ratio' chem_units_table( idomain, P_onitr ) = 'ppmv' chem_streams_table( idomain, P_onitr )%stream(1) = 33554433 chem_streams_table( idomain, P_onitr )%stream(2) = 2097216 F_onitr = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 F_isooh = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 F_acetol = .TRUE. IF ( chem_index_table( PARAM_glyald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glyald = chem_num_table(idomain) chem_index_table( PARAM_glyald , idomain ) = P_glyald ELSE P_glyald = chem_index_table( PARAM_glyald , idomain ) END IF chem_boundary_table( idomain, P_glyald ) = .TRUE. chem_dname_table( idomain, P_glyald ) = 'glyald' chem_desc_table( idomain, P_glyald ) = 'GLYALD mixing ratio' chem_units_table( idomain, P_glyald ) = 'ppmv' chem_streams_table( idomain, P_glyald )%stream(1) = 33554433 chem_streams_table( idomain, P_glyald )%stream(2) = 2097216 F_glyald = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_alkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alkooh = chem_num_table(idomain) chem_index_table( PARAM_alkooh , idomain ) = P_alkooh ELSE P_alkooh = chem_index_table( PARAM_alkooh , idomain ) END IF chem_boundary_table( idomain, P_alkooh ) = .TRUE. chem_dname_table( idomain, P_alkooh ) = 'alkooh' chem_desc_table( idomain, P_alkooh ) = 'ALKOOH mixing ratio' chem_units_table( idomain, P_alkooh ) = 'ppmv' chem_streams_table( idomain, P_alkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_alkooh )%stream(2) = 2097216 F_alkooh = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_tolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tolooh = chem_num_table(idomain) chem_index_table( PARAM_tolooh , idomain ) = P_tolooh ELSE P_tolooh = chem_index_table( PARAM_tolooh , idomain ) END IF chem_boundary_table( idomain, P_tolooh ) = .TRUE. chem_dname_table( idomain, P_tolooh ) = 'tolooh' chem_desc_table( idomain, P_tolooh ) = 'TOLOOH mixing ratio' chem_units_table( idomain, P_tolooh ) = 'ppmv' chem_streams_table( idomain, P_tolooh )%stream(1) = 33554433 chem_streams_table( idomain, P_tolooh )%stream(2) = 2097216 F_tolooh = .TRUE. IF ( chem_index_table( PARAM_terpooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpooh = chem_num_table(idomain) chem_index_table( PARAM_terpooh , idomain ) = P_terpooh ELSE P_terpooh = chem_index_table( PARAM_terpooh , idomain ) END IF chem_boundary_table( idomain, P_terpooh ) = .TRUE. chem_dname_table( idomain, P_terpooh ) = 'terpooh' chem_desc_table( idomain, P_terpooh ) = 'TERPOOH mixing ratio' chem_units_table( idomain, P_terpooh ) = 'ppmv' chem_streams_table( idomain, P_terpooh )%stream(1) = 33554433 chem_streams_table( idomain, P_terpooh )%stream(2) = 2097216 F_terpooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_mco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mco3 = chem_num_table(idomain) chem_index_table( PARAM_mco3 , idomain ) = P_mco3 ELSE P_mco3 = chem_index_table( PARAM_mco3 , idomain ) END IF chem_boundary_table( idomain, P_mco3 ) = .TRUE. chem_dname_table( idomain, P_mco3 ) = 'mco3' chem_desc_table( idomain, P_mco3 ) = 'MCO3 mixing ratio' chem_units_table( idomain, P_mco3 ) = 'ppmv' chem_streams_table( idomain, P_mco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_mco3 )%stream(2) = 2097216 F_mco3 = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_eo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eo = chem_num_table(idomain) chem_index_table( PARAM_eo , idomain ) = P_eo ELSE P_eo = chem_index_table( PARAM_eo , idomain ) END IF chem_boundary_table( idomain, P_eo ) = .TRUE. chem_dname_table( idomain, P_eo ) = 'eo' chem_desc_table( idomain, P_eo ) = 'EO mixing ratio' chem_units_table( idomain, P_eo ) = 'ppmv' chem_streams_table( idomain, P_eo )%stream(1) = 33554433 chem_streams_table( idomain, P_eo )%stream(2) = 2097216 F_eo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_po2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_po2 = chem_num_table(idomain) chem_index_table( PARAM_po2 , idomain ) = P_po2 ELSE P_po2 = chem_index_table( PARAM_po2 , idomain ) END IF chem_boundary_table( idomain, P_po2 ) = .TRUE. chem_dname_table( idomain, P_po2 ) = 'po2' chem_desc_table( idomain, P_po2 ) = 'PO2 mixing ratio' chem_units_table( idomain, P_po2 ) = 'ppmv' chem_streams_table( idomain, P_po2 )%stream(1) = 33554433 chem_streams_table( idomain, P_po2 )%stream(2) = 2097216 F_po2 = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_bigene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigene = chem_num_table(idomain) chem_index_table( PARAM_bigene , idomain ) = P_bigene ELSE P_bigene = chem_index_table( PARAM_bigene , idomain ) END IF chem_boundary_table( idomain, P_bigene ) = .TRUE. chem_dname_table( idomain, P_bigene ) = 'bigene' chem_desc_table( idomain, P_bigene ) = 'BIGENE mixing ratio' chem_units_table( idomain, P_bigene ) = 'ppmv' chem_streams_table( idomain, P_bigene )%stream(1) = 33554433 chem_streams_table( idomain, P_bigene )%stream(2) = 2097216 F_bigene = .TRUE. IF ( chem_index_table( PARAM_bigalk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigalk = chem_num_table(idomain) chem_index_table( PARAM_bigalk , idomain ) = P_bigalk ELSE P_bigalk = chem_index_table( PARAM_bigalk , idomain ) END IF chem_boundary_table( idomain, P_bigalk ) = .TRUE. chem_dname_table( idomain, P_bigalk ) = 'bigalk' chem_desc_table( idomain, P_bigalk ) = 'BIGALK mixing ratio' chem_units_table( idomain, P_bigalk ) = 'ppmv' chem_streams_table( idomain, P_bigalk )%stream(1) = 33554433 chem_streams_table( idomain, P_bigalk )%stream(2) = 2097216 F_bigalk = .TRUE. IF ( chem_index_table( PARAM_eneo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eneo2 = chem_num_table(idomain) chem_index_table( PARAM_eneo2 , idomain ) = P_eneo2 ELSE P_eneo2 = chem_index_table( PARAM_eneo2 , idomain ) END IF chem_boundary_table( idomain, P_eneo2 ) = .TRUE. chem_dname_table( idomain, P_eneo2 ) = 'eneo2' chem_desc_table( idomain, P_eneo2 ) = 'ENEO2 mixing ratio' chem_units_table( idomain, P_eneo2 ) = 'ppmv' chem_streams_table( idomain, P_eneo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eneo2 )%stream(2) = 2097216 F_eneo2 = .TRUE. IF ( chem_index_table( PARAM_alko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alko2 = chem_num_table(idomain) chem_index_table( PARAM_alko2 , idomain ) = P_alko2 ELSE P_alko2 = chem_index_table( PARAM_alko2 , idomain ) END IF chem_boundary_table( idomain, P_alko2 ) = .TRUE. chem_dname_table( idomain, P_alko2 ) = 'alko2' chem_desc_table( idomain, P_alko2 ) = 'ALKO2 mixing ratio' chem_units_table( idomain, P_alko2 ) = 'ppmv' chem_streams_table( idomain, P_alko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_alko2 )%stream(2) = 2097216 F_alko2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 F_isopr = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_hydrald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hydrald = chem_num_table(idomain) chem_index_table( PARAM_hydrald , idomain ) = P_hydrald ELSE P_hydrald = chem_index_table( PARAM_hydrald , idomain ) END IF chem_boundary_table( idomain, P_hydrald ) = .TRUE. chem_dname_table( idomain, P_hydrald ) = 'hydrald' chem_desc_table( idomain, P_hydrald ) = 'HYDRALD mixing ratio' chem_units_table( idomain, P_hydrald ) = 'ppmv' chem_streams_table( idomain, P_hydrald )%stream(1) = 33554433 chem_streams_table( idomain, P_hydrald )%stream(2) = 2097216 F_hydrald = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_apin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apin = chem_num_table(idomain) chem_index_table( PARAM_apin , idomain ) = P_apin ELSE P_apin = chem_index_table( PARAM_apin , idomain ) END IF chem_boundary_table( idomain, P_apin ) = .TRUE. chem_dname_table( idomain, P_apin ) = 'apin' chem_desc_table( idomain, P_apin ) = 'APIN mixing ratio' chem_units_table( idomain, P_apin ) = 'ppmv' chem_streams_table( idomain, P_apin )%stream(1) = 33554433 chem_streams_table( idomain, P_apin )%stream(2) = 2097216 F_apin = .TRUE. IF ( chem_index_table( PARAM_bpin , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpin = chem_num_table(idomain) chem_index_table( PARAM_bpin , idomain ) = P_bpin ELSE P_bpin = chem_index_table( PARAM_bpin , idomain ) END IF chem_boundary_table( idomain, P_bpin ) = .TRUE. chem_dname_table( idomain, P_bpin ) = 'bpin' chem_desc_table( idomain, P_bpin ) = 'BPIN mixing ratio' chem_units_table( idomain, P_bpin ) = 'ppmv' chem_streams_table( idomain, P_bpin )%stream(1) = 33554433 chem_streams_table( idomain, P_bpin )%stream(2) = 2097216 F_bpin = .TRUE. IF ( chem_index_table( PARAM_limon , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_limon = chem_num_table(idomain) chem_index_table( PARAM_limon , idomain ) = P_limon ELSE P_limon = chem_index_table( PARAM_limon , idomain ) END IF chem_boundary_table( idomain, P_limon ) = .TRUE. chem_dname_table( idomain, P_limon ) = 'limon' chem_desc_table( idomain, P_limon ) = 'LIMON mixing ratio' chem_units_table( idomain, P_limon ) = 'ppmv' chem_streams_table( idomain, P_limon )%stream(1) = 33554433 chem_streams_table( idomain, P_limon )%stream(2) = 2097216 F_limon = .TRUE. IF ( chem_index_table( PARAM_myrc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_myrc = chem_num_table(idomain) chem_index_table( PARAM_myrc , idomain ) = P_myrc ELSE P_myrc = chem_index_table( PARAM_myrc , idomain ) END IF chem_boundary_table( idomain, P_myrc ) = .TRUE. chem_dname_table( idomain, P_myrc ) = 'myrc' chem_desc_table( idomain, P_myrc ) = 'MYRC mixing ratio' chem_units_table( idomain, P_myrc ) = 'ppmv' chem_streams_table( idomain, P_myrc )%stream(1) = 33554433 chem_streams_table( idomain, P_myrc )%stream(2) = 2097216 F_myrc = .TRUE. IF ( chem_index_table( PARAM_bcary , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bcary = chem_num_table(idomain) chem_index_table( PARAM_bcary , idomain ) = P_bcary ELSE P_bcary = chem_index_table( PARAM_bcary , idomain ) END IF chem_boundary_table( idomain, P_bcary ) = .TRUE. chem_dname_table( idomain, P_bcary ) = 'bcary' chem_desc_table( idomain, P_bcary ) = 'BCARY C15H24 mixing ratio' chem_units_table( idomain, P_bcary ) = 'ppmv' chem_streams_table( idomain, P_bcary )%stream(1) = 33554433 chem_streams_table( idomain, P_bcary )%stream(2) = 2097216 F_bcary = .TRUE. IF ( chem_index_table( PARAM_terprod1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terprod1 = chem_num_table(idomain) chem_index_table( PARAM_terprod1 , idomain ) = P_terprod1 ELSE P_terprod1 = chem_index_table( PARAM_terprod1 , idomain ) END IF chem_boundary_table( idomain, P_terprod1 ) = .TRUE. chem_dname_table( idomain, P_terprod1 ) = 'terprod1' chem_desc_table( idomain, P_terprod1 ) = 'TERPROD1 -> C10H16O2 mixing ratio' chem_units_table( idomain, P_terprod1 ) = 'ppmv' chem_streams_table( idomain, P_terprod1 )%stream(1) = 33554433 chem_streams_table( idomain, P_terprod1 )%stream(2) = 2097216 F_terprod1 = .TRUE. IF ( chem_index_table( PARAM_terprod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terprod2 = chem_num_table(idomain) chem_index_table( PARAM_terprod2 , idomain ) = P_terprod2 ELSE P_terprod2 = chem_index_table( PARAM_terprod2 , idomain ) END IF chem_boundary_table( idomain, P_terprod2 ) = .TRUE. chem_dname_table( idomain, P_terprod2 ) = 'terprod2' chem_desc_table( idomain, P_terprod2 ) = 'TERPROD2 -> C9H14O2 mixing ratio' chem_units_table( idomain, P_terprod2 ) = 'ppmv' chem_streams_table( idomain, P_terprod2 )%stream(1) = 33554433 chem_streams_table( idomain, P_terprod2 )%stream(2) = 2097216 F_terprod2 = .TRUE. IF ( chem_index_table( PARAM_terp2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp2o2 = chem_num_table(idomain) chem_index_table( PARAM_terp2o2 , idomain ) = P_terp2o2 ELSE P_terp2o2 = chem_index_table( PARAM_terp2o2 , idomain ) END IF chem_boundary_table( idomain, P_terp2o2 ) = .TRUE. chem_dname_table( idomain, P_terp2o2 ) = 'terp2o2' chem_desc_table( idomain, P_terp2o2 ) = 'TERP2O2 -> C10H15O4 mixing ratio' chem_units_table( idomain, P_terp2o2 ) = 'ppmv' chem_streams_table( idomain, P_terp2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_terp2o2 )%stream(2) = 2097216 F_terp2o2 = .TRUE. IF ( chem_index_table( PARAM_terp2ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp2ooh = chem_num_table(idomain) chem_index_table( PARAM_terp2ooh , idomain ) = P_terp2ooh ELSE P_terp2ooh = chem_index_table( PARAM_terp2ooh , idomain ) END IF chem_boundary_table( idomain, P_terp2ooh ) = .TRUE. chem_dname_table( idomain, P_terp2ooh ) = 'terp2ooh' chem_desc_table( idomain, P_terp2ooh ) = 'TERP2OOH -> C10H16O4 mixing ratio' chem_units_table( idomain, P_terp2ooh ) = 'ppmv' chem_streams_table( idomain, P_terp2ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_terp2ooh )%stream(2) = 2097216 F_terp2ooh = .TRUE. IF ( chem_index_table( PARAM_nterpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nterpo2 = chem_num_table(idomain) chem_index_table( PARAM_nterpo2 , idomain ) = P_nterpo2 ELSE P_nterpo2 = chem_index_table( PARAM_nterpo2 , idomain ) END IF chem_boundary_table( idomain, P_nterpo2 ) = .TRUE. chem_dname_table( idomain, P_nterpo2 ) = 'nterpo2' chem_desc_table( idomain, P_nterpo2 ) = 'NTERPO2 -> C10H16NO5 mixing ratio' chem_units_table( idomain, P_nterpo2 ) = 'ppmv' chem_streams_table( idomain, P_nterpo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nterpo2 )%stream(2) = 2097216 F_nterpo2 = .TRUE. IF ( chem_index_table( PARAM_terpo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terpo2 = chem_num_table(idomain) chem_index_table( PARAM_terpo2 , idomain ) = P_terpo2 ELSE P_terpo2 = chem_index_table( PARAM_terpo2 , idomain ) END IF chem_boundary_table( idomain, P_terpo2 ) = .TRUE. chem_dname_table( idomain, P_terpo2 ) = 'terpo2' chem_desc_table( idomain, P_terpo2 ) = 'TERPO2 mixing ratio' chem_units_table( idomain, P_terpo2 ) = 'ppmv' chem_streams_table( idomain, P_terpo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_terpo2 )%stream(2) = 2097216 F_terpo2 = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_mbo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbo = chem_num_table(idomain) chem_index_table( PARAM_mbo , idomain ) = P_mbo ELSE P_mbo = chem_index_table( PARAM_mbo , idomain ) END IF chem_boundary_table( idomain, P_mbo ) = .TRUE. chem_dname_table( idomain, P_mbo ) = 'mbo' chem_desc_table( idomain, P_mbo ) = 'MBO (2-Methyl-3-Buten-2-ol) mixing ratio' chem_units_table( idomain, P_mbo ) = 'ppmv' chem_streams_table( idomain, P_mbo )%stream(1) = 33554433 chem_streams_table( idomain, P_mbo )%stream(2) = 2097216 F_mbo = .TRUE. IF ( chem_index_table( PARAM_mboo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mboo2 = chem_num_table(idomain) chem_index_table( PARAM_mboo2 , idomain ) = P_mboo2 ELSE P_mboo2 = chem_index_table( PARAM_mboo2 , idomain ) END IF chem_boundary_table( idomain, P_mboo2 ) = .TRUE. chem_dname_table( idomain, P_mboo2 ) = 'mboo2' chem_desc_table( idomain, P_mboo2 ) = 'MBOO2 concentration' chem_units_table( idomain, P_mboo2 ) = 'ppmv' chem_streams_table( idomain, P_mboo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mboo2 )%stream(2) = 2097216 F_mboo2 = .TRUE. IF ( chem_index_table( PARAM_hmprop , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hmprop = chem_num_table(idomain) chem_index_table( PARAM_hmprop , idomain ) = P_hmprop ELSE P_hmprop = chem_index_table( PARAM_hmprop , idomain ) END IF chem_boundary_table( idomain, P_hmprop ) = .TRUE. chem_dname_table( idomain, P_hmprop ) = 'hmprop' chem_desc_table( idomain, P_hmprop ) = 'HMPROP concentration' chem_units_table( idomain, P_hmprop ) = 'ppmv' chem_streams_table( idomain, P_hmprop )%stream(1) = 33554433 chem_streams_table( idomain, P_hmprop )%stream(2) = 2097216 F_hmprop = .TRUE. IF ( chem_index_table( PARAM_hmpropo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hmpropo2 = chem_num_table(idomain) chem_index_table( PARAM_hmpropo2 , idomain ) = P_hmpropo2 ELSE P_hmpropo2 = chem_index_table( PARAM_hmpropo2 , idomain ) END IF chem_boundary_table( idomain, P_hmpropo2 ) = .TRUE. chem_dname_table( idomain, P_hmpropo2 ) = 'hmpropo2' chem_desc_table( idomain, P_hmpropo2 ) = 'HMPROPO2 concentration' chem_units_table( idomain, P_hmpropo2 ) = 'ppmv' chem_streams_table( idomain, P_hmpropo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_hmpropo2 )%stream(2) = 2097216 F_hmpropo2 = .TRUE. IF ( chem_index_table( PARAM_mboooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mboooh = chem_num_table(idomain) chem_index_table( PARAM_mboooh , idomain ) = P_mboooh ELSE P_mboooh = chem_index_table( PARAM_mboooh , idomain ) END IF chem_boundary_table( idomain, P_mboooh ) = .TRUE. chem_dname_table( idomain, P_mboooh ) = 'mboooh' chem_desc_table( idomain, P_mboooh ) = 'MBOOOH concentration' chem_units_table( idomain, P_mboooh ) = 'ppmv' chem_streams_table( idomain, P_mboooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mboooh )%stream(2) = 2097216 F_mboooh = .TRUE. IF ( chem_index_table( PARAM_mbono3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mbono3o2 = chem_num_table(idomain) chem_index_table( PARAM_mbono3o2 , idomain ) = P_mbono3o2 ELSE P_mbono3o2 = chem_index_table( PARAM_mbono3o2 , idomain ) END IF chem_boundary_table( idomain, P_mbono3o2 ) = .TRUE. chem_dname_table( idomain, P_mbono3o2 ) = 'mbono3o2' chem_desc_table( idomain, P_mbono3o2 ) = 'MBONO3O2 concentration' chem_units_table( idomain, P_mbono3o2 ) = 'ppmv' chem_streams_table( idomain, P_mbono3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mbono3o2 )%stream(2) = 2097216 F_mbono3o2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 chem_streams_table( idomain, P_den )%stream(2) = 2097216 F_den = .TRUE. IF ( chem_index_table( PARAM_cvasoax , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoax = chem_num_table(idomain) chem_index_table( PARAM_cvasoax , idomain ) = P_cvasoax ELSE P_cvasoax = chem_index_table( PARAM_cvasoax , idomain ) END IF chem_boundary_table( idomain, P_cvasoax ) = .TRUE. chem_dname_table( idomain, P_cvasoax ) = 'cvasoaX' chem_desc_table( idomain, P_cvasoax ) = 'cond.vapor from ASOAX' chem_units_table( idomain, P_cvasoax ) = 'ppmv' chem_streams_table( idomain, P_cvasoax )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoax )%stream(2) = 2097216 F_cvasoax = .TRUE. IF ( chem_index_table( PARAM_cvasoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa1 , idomain ) = P_cvasoa1 ELSE P_cvasoa1 = chem_index_table( PARAM_cvasoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa1 ) = .TRUE. chem_dname_table( idomain, P_cvasoa1 ) = 'cvasoa1' chem_desc_table( idomain, P_cvasoa1 ) = 'cond.vapor from ASOA1' chem_units_table( idomain, P_cvasoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa1 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa1 )%stream(2) = 2097216 F_cvasoa1 = .TRUE. IF ( chem_index_table( PARAM_cvasoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa2 , idomain ) = P_cvasoa2 ELSE P_cvasoa2 = chem_index_table( PARAM_cvasoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa2 ) = .TRUE. chem_dname_table( idomain, P_cvasoa2 ) = 'cvasoa2' chem_desc_table( idomain, P_cvasoa2 ) = 'cond.vapor from ASOA2' chem_units_table( idomain, P_cvasoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa2 )%stream(2) = 2097216 F_cvasoa2 = .TRUE. IF ( chem_index_table( PARAM_cvasoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa3 , idomain ) = P_cvasoa3 ELSE P_cvasoa3 = chem_index_table( PARAM_cvasoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa3 ) = .TRUE. chem_dname_table( idomain, P_cvasoa3 ) = 'cvasoa3' chem_desc_table( idomain, P_cvasoa3 ) = 'cond.vapor from ASOA3' chem_units_table( idomain, P_cvasoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa3 )%stream(2) = 2097216 F_cvasoa3 = .TRUE. IF ( chem_index_table( PARAM_cvasoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvasoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvasoa4 , idomain ) = P_cvasoa4 ELSE P_cvasoa4 = chem_index_table( PARAM_cvasoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvasoa4 ) = .TRUE. chem_dname_table( idomain, P_cvasoa4 ) = 'cvasoa4' chem_desc_table( idomain, P_cvasoa4 ) = 'cond.vapor from ASOA4' chem_units_table( idomain, P_cvasoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvasoa4 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvasoa4 )%stream(2) = 2097216 F_cvasoa4 = .TRUE. IF ( chem_index_table( PARAM_cvbsoax , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoax = chem_num_table(idomain) chem_index_table( PARAM_cvbsoax , idomain ) = P_cvbsoax ELSE P_cvbsoax = chem_index_table( PARAM_cvbsoax , idomain ) END IF chem_boundary_table( idomain, P_cvbsoax ) = .TRUE. chem_dname_table( idomain, P_cvbsoax ) = 'cvbsoaX' chem_desc_table( idomain, P_cvbsoax ) = 'cond.vapor from BSOAX' chem_units_table( idomain, P_cvbsoax ) = 'ppmv' chem_streams_table( idomain, P_cvbsoax )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoax )%stream(2) = 2097216 F_cvbsoax = .TRUE. IF ( chem_index_table( PARAM_cvbsoa1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa1 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa1 , idomain ) = P_cvbsoa1 ELSE P_cvbsoa1 = chem_index_table( PARAM_cvbsoa1 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa1 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa1 ) = 'cvbsoa1' chem_desc_table( idomain, P_cvbsoa1 ) = 'cond.vapor from BSOA1' chem_units_table( idomain, P_cvbsoa1 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa1 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa1 )%stream(2) = 2097216 F_cvbsoa1 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa2 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa2 , idomain ) = P_cvbsoa2 ELSE P_cvbsoa2 = chem_index_table( PARAM_cvbsoa2 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa2 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa2 ) = 'cvbsoa2' chem_desc_table( idomain, P_cvbsoa2 ) = 'cond.vapor from BSOA2' chem_units_table( idomain, P_cvbsoa2 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa2 )%stream(2) = 2097216 F_cvbsoa2 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa3 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa3 , idomain ) = P_cvbsoa3 ELSE P_cvbsoa3 = chem_index_table( PARAM_cvbsoa3 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa3 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa3 ) = 'cvbsoa3' chem_desc_table( idomain, P_cvbsoa3 ) = 'cond.vapor from BSOA3' chem_units_table( idomain, P_cvbsoa3 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa3 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa3 )%stream(2) = 2097216 F_cvbsoa3 = .TRUE. IF ( chem_index_table( PARAM_cvbsoa4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cvbsoa4 = chem_num_table(idomain) chem_index_table( PARAM_cvbsoa4 , idomain ) = P_cvbsoa4 ELSE P_cvbsoa4 = chem_index_table( PARAM_cvbsoa4 , idomain ) END IF chem_boundary_table( idomain, P_cvbsoa4 ) = .TRUE. chem_dname_table( idomain, P_cvbsoa4 ) = 'cvbsoa4' chem_desc_table( idomain, P_cvbsoa4 ) = 'cond.vapor from BSOA4' chem_units_table( idomain, P_cvbsoa4 ) = 'ppmv' chem_streams_table( idomain, P_cvbsoa4 )%stream(1) = 33554433 chem_streams_table( idomain, P_cvbsoa4 )%stream(2) = 2097216 F_cvbsoa4 = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 F_benzene = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 F_phen = .TRUE. IF ( chem_index_table( PARAM_bepomuc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bepomuc = chem_num_table(idomain) chem_index_table( PARAM_bepomuc , idomain ) = P_bepomuc ELSE P_bepomuc = chem_index_table( PARAM_bepomuc , idomain ) END IF chem_boundary_table( idomain, P_bepomuc ) = .TRUE. chem_dname_table( idomain, P_bepomuc ) = 'bepomuc' chem_desc_table( idomain, P_bepomuc ) = 'bepomuc mixing ratio' chem_units_table( idomain, P_bepomuc ) = 'ppmv' chem_streams_table( idomain, P_bepomuc )%stream(1) = 33554433 chem_streams_table( idomain, P_bepomuc )%stream(2) = 2097216 F_bepomuc = .TRUE. IF ( chem_index_table( PARAM_benzo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzo2 = chem_num_table(idomain) chem_index_table( PARAM_benzo2 , idomain ) = P_benzo2 ELSE P_benzo2 = chem_index_table( PARAM_benzo2 , idomain ) END IF chem_boundary_table( idomain, P_benzo2 ) = .TRUE. chem_dname_table( idomain, P_benzo2 ) = 'benzo2' chem_desc_table( idomain, P_benzo2 ) = 'benzo2 mixing ratio' chem_units_table( idomain, P_benzo2 ) = 'ppmv' chem_streams_table( idomain, P_benzo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_benzo2 )%stream(2) = 2097216 F_benzo2 = .TRUE. IF ( chem_index_table( PARAM_pheno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pheno2 = chem_num_table(idomain) chem_index_table( PARAM_pheno2 , idomain ) = P_pheno2 ELSE P_pheno2 = chem_index_table( PARAM_pheno2 , idomain ) END IF chem_boundary_table( idomain, P_pheno2 ) = .TRUE. chem_dname_table( idomain, P_pheno2 ) = 'pheno2' chem_desc_table( idomain, P_pheno2 ) = 'pheno2 mixing ratio' chem_units_table( idomain, P_pheno2 ) = 'ppmv' chem_streams_table( idomain, P_pheno2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pheno2 )%stream(2) = 2097216 F_pheno2 = .TRUE. IF ( chem_index_table( PARAM_pheno , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pheno = chem_num_table(idomain) chem_index_table( PARAM_pheno , idomain ) = P_pheno ELSE P_pheno = chem_index_table( PARAM_pheno , idomain ) END IF chem_boundary_table( idomain, P_pheno ) = .TRUE. chem_dname_table( idomain, P_pheno ) = 'pheno' chem_desc_table( idomain, P_pheno ) = 'pheno mixing ratio' chem_units_table( idomain, P_pheno ) = 'ppmv' chem_streams_table( idomain, P_pheno )%stream(1) = 33554433 chem_streams_table( idomain, P_pheno )%stream(2) = 2097216 F_pheno = .TRUE. IF ( chem_index_table( PARAM_phenooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phenooh = chem_num_table(idomain) chem_index_table( PARAM_phenooh , idomain ) = P_phenooh ELSE P_phenooh = chem_index_table( PARAM_phenooh , idomain ) END IF chem_boundary_table( idomain, P_phenooh ) = .TRUE. chem_dname_table( idomain, P_phenooh ) = 'phenooh' chem_desc_table( idomain, P_phenooh ) = 'phenooh mixing ratio' chem_units_table( idomain, P_phenooh ) = 'ppmv' chem_streams_table( idomain, P_phenooh )%stream(1) = 33554433 chem_streams_table( idomain, P_phenooh )%stream(2) = 2097216 F_phenooh = .TRUE. IF ( chem_index_table( PARAM_c6h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c6h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c6h5o2 , idomain ) = P_c6h5o2 ELSE P_c6h5o2 = chem_index_table( PARAM_c6h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c6h5o2 ) = .TRUE. chem_dname_table( idomain, P_c6h5o2 ) = 'c6h5o2' chem_desc_table( idomain, P_c6h5o2 ) = 'c6h5o2 mixing ratio' chem_units_table( idomain, P_c6h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c6h5o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c6h5o2 )%stream(2) = 2097216 F_c6h5o2 = .TRUE. IF ( chem_index_table( PARAM_c6h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c6h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c6h5ooh , idomain ) = P_c6h5ooh ELSE P_c6h5ooh = chem_index_table( PARAM_c6h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c6h5ooh ) = .TRUE. chem_dname_table( idomain, P_c6h5ooh ) = 'c6h5ooh' chem_desc_table( idomain, P_c6h5ooh ) = 'c6h5ooh mixing ratio' chem_units_table( idomain, P_c6h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c6h5ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c6h5ooh )%stream(2) = 2097216 F_c6h5ooh = .TRUE. IF ( chem_index_table( PARAM_benzooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzooh = chem_num_table(idomain) chem_index_table( PARAM_benzooh , idomain ) = P_benzooh ELSE P_benzooh = chem_index_table( PARAM_benzooh , idomain ) END IF chem_boundary_table( idomain, P_benzooh ) = .TRUE. chem_dname_table( idomain, P_benzooh ) = 'benzooh' chem_desc_table( idomain, P_benzooh ) = 'benzooh mixing ratio' chem_units_table( idomain, P_benzooh ) = 'ppmv' chem_streams_table( idomain, P_benzooh )%stream(1) = 33554433 chem_streams_table( idomain, P_benzooh )%stream(2) = 2097216 F_benzooh = .TRUE. IF ( chem_index_table( PARAM_bigald1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald1 = chem_num_table(idomain) chem_index_table( PARAM_bigald1 , idomain ) = P_bigald1 ELSE P_bigald1 = chem_index_table( PARAM_bigald1 , idomain ) END IF chem_boundary_table( idomain, P_bigald1 ) = .TRUE. chem_dname_table( idomain, P_bigald1 ) = 'bigald1' chem_desc_table( idomain, P_bigald1 ) = 'bigald1 mixing ratio' chem_units_table( idomain, P_bigald1 ) = 'ppmv' chem_streams_table( idomain, P_bigald1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bigald1 )%stream(2) = 2097216 F_bigald1 = .TRUE. IF ( chem_index_table( PARAM_bigald2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald2 = chem_num_table(idomain) chem_index_table( PARAM_bigald2 , idomain ) = P_bigald2 ELSE P_bigald2 = chem_index_table( PARAM_bigald2 , idomain ) END IF chem_boundary_table( idomain, P_bigald2 ) = .TRUE. chem_dname_table( idomain, P_bigald2 ) = 'bigald2' chem_desc_table( idomain, P_bigald2 ) = 'bigald2 mixing ratio' chem_units_table( idomain, P_bigald2 ) = 'ppmv' chem_streams_table( idomain, P_bigald2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bigald2 )%stream(2) = 2097216 F_bigald2 = .TRUE. IF ( chem_index_table( PARAM_bigald3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald3 = chem_num_table(idomain) chem_index_table( PARAM_bigald3 , idomain ) = P_bigald3 ELSE P_bigald3 = chem_index_table( PARAM_bigald3 , idomain ) END IF chem_boundary_table( idomain, P_bigald3 ) = .TRUE. chem_dname_table( idomain, P_bigald3 ) = 'bigald3' chem_desc_table( idomain, P_bigald3 ) = 'bigald3 mixing ratio' chem_units_table( idomain, P_bigald3 ) = 'ppmv' chem_streams_table( idomain, P_bigald3 )%stream(1) = 33554433 chem_streams_table( idomain, P_bigald3 )%stream(2) = 2097216 F_bigald3 = .TRUE. IF ( chem_index_table( PARAM_bigald4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bigald4 = chem_num_table(idomain) chem_index_table( PARAM_bigald4 , idomain ) = P_bigald4 ELSE P_bigald4 = chem_index_table( PARAM_bigald4 , idomain ) END IF chem_boundary_table( idomain, P_bigald4 ) = .TRUE. chem_dname_table( idomain, P_bigald4 ) = 'bigald4' chem_desc_table( idomain, P_bigald4 ) = 'bigald4 mixing ratio' chem_units_table( idomain, P_bigald4 ) = 'ppmv' chem_streams_table( idomain, P_bigald4 )%stream(1) = 33554433 chem_streams_table( idomain, P_bigald4 )%stream(2) = 2097216 F_bigald4 = .TRUE. IF ( chem_index_table( PARAM_malo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_malo2 = chem_num_table(idomain) chem_index_table( PARAM_malo2 , idomain ) = P_malo2 ELSE P_malo2 = chem_index_table( PARAM_malo2 , idomain ) END IF chem_boundary_table( idomain, P_malo2 ) = .TRUE. chem_dname_table( idomain, P_malo2 ) = 'malo2' chem_desc_table( idomain, P_malo2 ) = 'malo2 mixing ratio' chem_units_table( idomain, P_malo2 ) = 'ppmv' chem_streams_table( idomain, P_malo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_malo2 )%stream(2) = 2097216 F_malo2 = .TRUE. IF ( chem_index_table( PARAM_tepomuc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tepomuc = chem_num_table(idomain) chem_index_table( PARAM_tepomuc , idomain ) = P_tepomuc ELSE P_tepomuc = chem_index_table( PARAM_tepomuc , idomain ) END IF chem_boundary_table( idomain, P_tepomuc ) = .TRUE. chem_dname_table( idomain, P_tepomuc ) = 'tepomuc' chem_desc_table( idomain, P_tepomuc ) = 'tepomuc mixing ratio' chem_units_table( idomain, P_tepomuc ) = 'ppmv' chem_streams_table( idomain, P_tepomuc )%stream(1) = 33554433 chem_streams_table( idomain, P_tepomuc )%stream(2) = 2097216 F_tepomuc = .TRUE. IF ( chem_index_table( PARAM_bzoo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzoo = chem_num_table(idomain) chem_index_table( PARAM_bzoo , idomain ) = P_bzoo ELSE P_bzoo = chem_index_table( PARAM_bzoo , idomain ) END IF chem_boundary_table( idomain, P_bzoo ) = .TRUE. chem_dname_table( idomain, P_bzoo ) = 'bzoo' chem_desc_table( idomain, P_bzoo ) = 'bzoo mixing ratio' chem_units_table( idomain, P_bzoo ) = 'ppmv' chem_streams_table( idomain, P_bzoo )%stream(1) = 33554433 chem_streams_table( idomain, P_bzoo )%stream(2) = 2097216 F_bzoo = .TRUE. IF ( chem_index_table( PARAM_bzooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzooh = chem_num_table(idomain) chem_index_table( PARAM_bzooh , idomain ) = P_bzooh ELSE P_bzooh = chem_index_table( PARAM_bzooh , idomain ) END IF chem_boundary_table( idomain, P_bzooh ) = .TRUE. chem_dname_table( idomain, P_bzooh ) = 'bzooh' chem_desc_table( idomain, P_bzooh ) = 'bzooh mixing ratio' chem_units_table( idomain, P_bzooh ) = 'ppmv' chem_streams_table( idomain, P_bzooh )%stream(1) = 33554433 chem_streams_table( idomain, P_bzooh )%stream(2) = 2097216 F_bzooh = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 F_bald = .TRUE. IF ( chem_index_table( PARAM_acbzo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acbzo2 = chem_num_table(idomain) chem_index_table( PARAM_acbzo2 , idomain ) = P_acbzo2 ELSE P_acbzo2 = chem_index_table( PARAM_acbzo2 , idomain ) END IF chem_boundary_table( idomain, P_acbzo2 ) = .TRUE. chem_dname_table( idomain, P_acbzo2 ) = 'acbzo2' chem_desc_table( idomain, P_acbzo2 ) = 'acbzo2 mixing ratio' chem_units_table( idomain, P_acbzo2 ) = 'ppmv' chem_streams_table( idomain, P_acbzo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_acbzo2 )%stream(2) = 2097216 F_acbzo2 = .TRUE. IF ( chem_index_table( PARAM_dicarbo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dicarbo2 = chem_num_table(idomain) chem_index_table( PARAM_dicarbo2 , idomain ) = P_dicarbo2 ELSE P_dicarbo2 = chem_index_table( PARAM_dicarbo2 , idomain ) END IF chem_boundary_table( idomain, P_dicarbo2 ) = .TRUE. chem_dname_table( idomain, P_dicarbo2 ) = 'dicarbo2' chem_desc_table( idomain, P_dicarbo2 ) = 'dicarbo2 mixing ratio' chem_units_table( idomain, P_dicarbo2 ) = 'ppmv' chem_streams_table( idomain, P_dicarbo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dicarbo2 )%stream(2) = 2097216 F_dicarbo2 = .TRUE. IF ( chem_index_table( PARAM_mdialo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mdialo2 = chem_num_table(idomain) chem_index_table( PARAM_mdialo2 , idomain ) = P_mdialo2 ELSE P_mdialo2 = chem_index_table( PARAM_mdialo2 , idomain ) END IF chem_boundary_table( idomain, P_mdialo2 ) = .TRUE. chem_dname_table( idomain, P_mdialo2 ) = 'mdialo2' chem_desc_table( idomain, P_mdialo2 ) = 'mdialo2 mixing ratio' chem_units_table( idomain, P_mdialo2 ) = 'ppmv' chem_streams_table( idomain, P_mdialo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mdialo2 )%stream(2) = 2097216 F_mdialo2 = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_xylol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylol = chem_num_table(idomain) chem_index_table( PARAM_xylol , idomain ) = P_xylol ELSE P_xylol = chem_index_table( PARAM_xylol , idomain ) END IF chem_boundary_table( idomain, P_xylol ) = .TRUE. chem_dname_table( idomain, P_xylol ) = 'xylol' chem_desc_table( idomain, P_xylol ) = 'xylol mixing ratio' chem_units_table( idomain, P_xylol ) = 'ppmv' chem_streams_table( idomain, P_xylol )%stream(1) = 33554433 chem_streams_table( idomain, P_xylol )%stream(2) = 2097216 F_xylol = .TRUE. IF ( chem_index_table( PARAM_xylolo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylolo2 = chem_num_table(idomain) chem_index_table( PARAM_xylolo2 , idomain ) = P_xylolo2 ELSE P_xylolo2 = chem_index_table( PARAM_xylolo2 , idomain ) END IF chem_boundary_table( idomain, P_xylolo2 ) = .TRUE. chem_dname_table( idomain, P_xylolo2 ) = 'xylolo2' chem_desc_table( idomain, P_xylolo2 ) = 'xylolo2 mixing ratio' chem_units_table( idomain, P_xylolo2 ) = 'ppmv' chem_streams_table( idomain, P_xylolo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xylolo2 )%stream(2) = 2097216 F_xylolo2 = .TRUE. IF ( chem_index_table( PARAM_xylolooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylolooh = chem_num_table(idomain) chem_index_table( PARAM_xylolooh , idomain ) = P_xylolooh ELSE P_xylolooh = chem_index_table( PARAM_xylolooh , idomain ) END IF chem_boundary_table( idomain, P_xylolooh ) = .TRUE. chem_dname_table( idomain, P_xylolooh ) = 'xylolooh' chem_desc_table( idomain, P_xylolooh ) = 'xylolooh mixing ratio' chem_units_table( idomain, P_xylolooh ) = 'ppmv' chem_streams_table( idomain, P_xylolooh )%stream(1) = 33554433 chem_streams_table( idomain, P_xylolooh )%stream(2) = 2097216 F_xylolooh = .TRUE. IF ( chem_index_table( PARAM_xyleno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyleno2 = chem_num_table(idomain) chem_index_table( PARAM_xyleno2 , idomain ) = P_xyleno2 ELSE P_xyleno2 = chem_index_table( PARAM_xyleno2 , idomain ) END IF chem_boundary_table( idomain, P_xyleno2 ) = .TRUE. chem_dname_table( idomain, P_xyleno2 ) = 'xyleno2' chem_desc_table( idomain, P_xyleno2 ) = 'xyleno2 mixing ratio' chem_units_table( idomain, P_xyleno2 ) = 'ppmv' chem_streams_table( idomain, P_xyleno2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xyleno2 )%stream(2) = 2097216 F_xyleno2 = .TRUE. IF ( chem_index_table( PARAM_xylenooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xylenooh = chem_num_table(idomain) chem_index_table( PARAM_xylenooh , idomain ) = P_xylenooh ELSE P_xylenooh = chem_index_table( PARAM_xylenooh , idomain ) END IF chem_boundary_table( idomain, P_xylenooh ) = .TRUE. chem_dname_table( idomain, P_xylenooh ) = 'xylenooh' chem_desc_table( idomain, P_xylenooh ) = 'xylenooh mixing ratio' chem_units_table( idomain, P_xylenooh ) = 'ppmv' chem_streams_table( idomain, P_xylenooh )%stream(1) = 33554433 chem_streams_table( idomain, P_xylenooh )%stream(2) = 2097216 F_xylenooh = .TRUE. IF ( chem_index_table( PARAM_pbznit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbznit = chem_num_table(idomain) chem_index_table( PARAM_pbznit , idomain ) = P_pbznit ELSE P_pbznit = chem_index_table( PARAM_pbznit , idomain ) END IF chem_boundary_table( idomain, P_pbznit ) = .TRUE. chem_dname_table( idomain, P_pbznit ) = 'pbznit' chem_desc_table( idomain, P_pbznit ) = 'pbznit mixing ratio' chem_units_table( idomain, P_pbznit ) = 'ppmv' chem_streams_table( idomain, P_pbznit )%stream(1) = 33554433 chem_streams_table( idomain, P_pbznit )%stream(2) = 2097216 F_pbznit = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 F_meko2 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_asoax_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoax_a01 , idomain ) = P_asoax_a01 ELSE P_asoax_a01 = chem_index_table( PARAM_asoax_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoax_a01 ) = .TRUE. chem_dname_table( idomain, P_asoax_a01 ) = 'asoaX_a01' chem_desc_table( idomain, P_asoax_a01 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 Bin 1' chem_units_table( idomain, P_asoax_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoax_a01 )%stream(2) = 2097216 F_asoax_a01 = .TRUE. IF ( chem_index_table( PARAM_asoa1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_a01 , idomain ) = P_asoa1_a01 ELSE P_asoa1_a01 = chem_index_table( PARAM_asoa1_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_a01 ) = .TRUE. chem_dname_table( idomain, P_asoa1_a01 ) = 'asoa1_a01' chem_desc_table( idomain, P_asoa1_a01 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Bin 1' chem_units_table( idomain, P_asoa1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1_a01 )%stream(2) = 2097216 F_asoa1_a01 = .TRUE. IF ( chem_index_table( PARAM_asoa2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_a01 , idomain ) = P_asoa2_a01 ELSE P_asoa2_a01 = chem_index_table( PARAM_asoa2_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_a01 ) = .TRUE. chem_dname_table( idomain, P_asoa2_a01 ) = 'asoa2_a01' chem_desc_table( idomain, P_asoa2_a01 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Bin 1' chem_units_table( idomain, P_asoa2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2_a01 )%stream(2) = 2097216 F_asoa2_a01 = .TRUE. IF ( chem_index_table( PARAM_asoa3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_a01 , idomain ) = P_asoa3_a01 ELSE P_asoa3_a01 = chem_index_table( PARAM_asoa3_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_a01 ) = .TRUE. chem_dname_table( idomain, P_asoa3_a01 ) = 'asoa3_a01' chem_desc_table( idomain, P_asoa3_a01 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Bin 1' chem_units_table( idomain, P_asoa3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3_a01 )%stream(2) = 2097216 F_asoa3_a01 = .TRUE. IF ( chem_index_table( PARAM_asoa4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_a01 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_a01 , idomain ) = P_asoa4_a01 ELSE P_asoa4_a01 = chem_index_table( PARAM_asoa4_a01 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_a01 ) = .TRUE. chem_dname_table( idomain, P_asoa4_a01 ) = 'asoa4_a01' chem_desc_table( idomain, P_asoa4_a01 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Bin 1' chem_units_table( idomain, P_asoa4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4_a01 )%stream(2) = 2097216 F_asoa4_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoax_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_a01 , idomain ) = P_bsoax_a01 ELSE P_bsoax_a01 = chem_index_table( PARAM_bsoax_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoax_a01 ) = 'bsoaX_a01' chem_desc_table( idomain, P_bsoax_a01 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 Bin 1' chem_units_table( idomain, P_bsoax_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoax_a01 )%stream(2) = 2097216 F_bsoax_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_a01 , idomain ) = P_bsoa1_a01 ELSE P_bsoa1_a01 = chem_index_table( PARAM_bsoa1_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_a01 ) = 'bsoa1_a01' chem_desc_table( idomain, P_bsoa1_a01 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Bin 1' chem_units_table( idomain, P_bsoa1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1_a01 )%stream(2) = 2097216 F_bsoa1_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_a01 , idomain ) = P_bsoa2_a01 ELSE P_bsoa2_a01 = chem_index_table( PARAM_bsoa2_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_a01 ) = 'bsoa2_a01' chem_desc_table( idomain, P_bsoa2_a01 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Bin 1' chem_units_table( idomain, P_bsoa2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2_a01 )%stream(2) = 2097216 F_bsoa2_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_a01 , idomain ) = P_bsoa3_a01 ELSE P_bsoa3_a01 = chem_index_table( PARAM_bsoa3_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_a01 ) = 'bsoa3_a01' chem_desc_table( idomain, P_bsoa3_a01 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Bin 1' chem_units_table( idomain, P_bsoa3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3_a01 )%stream(2) = 2097216 F_bsoa3_a01 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_a01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_a01 , idomain ) = P_bsoa4_a01 ELSE P_bsoa4_a01 = chem_index_table( PARAM_bsoa4_a01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_a01 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_a01 ) = 'bsoa4_a01' chem_desc_table( idomain, P_bsoa4_a01 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Bin 1' chem_units_table( idomain, P_bsoa4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4_a01 )%stream(2) = 2097216 F_bsoa4_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_a01 , idomain ) = P_glysoa_r1_a01 ELSE P_glysoa_r1_a01 = chem_index_table( PARAM_glysoa_r1_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_a01 ) = 'glysoa_r1_a01' chem_desc_table( idomain, P_glysoa_r1_a01 ) = 'glysoa_r1, aerosol bin 01' chem_units_table( idomain, P_glysoa_r1_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r1_a01 )%stream(2) = 2097216 F_glysoa_r1_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_a01 , idomain ) = P_glysoa_r2_a01 ELSE P_glysoa_r2_a01 = chem_index_table( PARAM_glysoa_r2_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_a01 ) = 'glysoa_r2_a01' chem_desc_table( idomain, P_glysoa_r2_a01 ) = 'glysoa_r2, aerosol bin 01' chem_units_table( idomain, P_glysoa_r2_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r2_a01 )%stream(2) = 2097216 F_glysoa_r2_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) = P_glysoa_sfc_a01 ELSE P_glysoa_sfc_a01 = chem_index_table( PARAM_glysoa_sfc_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a01 ) = 'glysoa_sfc_a01' chem_desc_table( idomain, P_glysoa_sfc_a01 ) = 'glysoa_sfc, aerosol bin 01' chem_units_table( idomain, P_glysoa_sfc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_a01 )%stream(2) = 2097216 F_glysoa_sfc_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_a01 , idomain ) = P_glysoa_nh4_a01 ELSE P_glysoa_nh4_a01 = chem_index_table( PARAM_glysoa_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_a01 ) = 'glysoa_nh4_a01' chem_desc_table( idomain, P_glysoa_nh4_a01 ) = 'glysoa_nh4, aerosol bin 01' chem_units_table( idomain, P_glysoa_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_nh4_a01 )%stream(2) = 2097216 F_glysoa_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_a01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_a01 , idomain ) = P_glysoa_oh_a01 ELSE P_glysoa_oh_a01 = chem_index_table( PARAM_glysoa_oh_a01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_a01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_a01 ) = 'glysoa_oh_a01' chem_desc_table( idomain, P_glysoa_oh_a01 ) = 'glysoa_oh, aerosol bin 01' chem_units_table( idomain, P_glysoa_oh_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_oh_a01 )%stream(2) = 2097216 F_glysoa_oh_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_co3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a01 = chem_num_table(idomain) chem_index_table( PARAM_co3_a01 , idomain ) = P_co3_a01 ELSE P_co3_a01 = chem_index_table( PARAM_co3_a01 , idomain ) END IF chem_boundary_table( idomain, P_co3_a01 ) = .TRUE. chem_dname_table( idomain, P_co3_a01 ) = 'co3_a01' chem_desc_table( idomain, P_co3_a01 ) = 'Carbonate, aerosol bin 01' chem_units_table( idomain, P_co3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a01 )%stream(2) = 2097216 F_co3_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_ca_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a01 = chem_num_table(idomain) chem_index_table( PARAM_ca_a01 , idomain ) = P_ca_a01 ELSE P_ca_a01 = chem_index_table( PARAM_ca_a01 , idomain ) END IF chem_boundary_table( idomain, P_ca_a01 ) = .TRUE. chem_dname_table( idomain, P_ca_a01 ) = 'ca_a01' chem_desc_table( idomain, P_ca_a01 ) = 'Calcium, aerosol bin 01' chem_units_table( idomain, P_ca_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a01 )%stream(2) = 2097216 F_ca_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_asoax_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoax_a02 , idomain ) = P_asoax_a02 ELSE P_asoax_a02 = chem_index_table( PARAM_asoax_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoax_a02 ) = .TRUE. chem_dname_table( idomain, P_asoax_a02 ) = 'asoaX_a02' chem_desc_table( idomain, P_asoax_a02 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 Bin 2' chem_units_table( idomain, P_asoax_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoax_a02 )%stream(2) = 2097216 F_asoax_a02 = .TRUE. IF ( chem_index_table( PARAM_asoa1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_a02 , idomain ) = P_asoa1_a02 ELSE P_asoa1_a02 = chem_index_table( PARAM_asoa1_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_a02 ) = .TRUE. chem_dname_table( idomain, P_asoa1_a02 ) = 'asoa1_a02' chem_desc_table( idomain, P_asoa1_a02 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Bin 2' chem_units_table( idomain, P_asoa1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1_a02 )%stream(2) = 2097216 F_asoa1_a02 = .TRUE. IF ( chem_index_table( PARAM_asoa2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_a02 , idomain ) = P_asoa2_a02 ELSE P_asoa2_a02 = chem_index_table( PARAM_asoa2_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_a02 ) = .TRUE. chem_dname_table( idomain, P_asoa2_a02 ) = 'asoa2_a02' chem_desc_table( idomain, P_asoa2_a02 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Bin 2' chem_units_table( idomain, P_asoa2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2_a02 )%stream(2) = 2097216 F_asoa2_a02 = .TRUE. IF ( chem_index_table( PARAM_asoa3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_a02 , idomain ) = P_asoa3_a02 ELSE P_asoa3_a02 = chem_index_table( PARAM_asoa3_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_a02 ) = .TRUE. chem_dname_table( idomain, P_asoa3_a02 ) = 'asoa3_a02' chem_desc_table( idomain, P_asoa3_a02 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Bin 2' chem_units_table( idomain, P_asoa3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3_a02 )%stream(2) = 2097216 F_asoa3_a02 = .TRUE. IF ( chem_index_table( PARAM_asoa4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_a02 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_a02 , idomain ) = P_asoa4_a02 ELSE P_asoa4_a02 = chem_index_table( PARAM_asoa4_a02 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_a02 ) = .TRUE. chem_dname_table( idomain, P_asoa4_a02 ) = 'asoa4_a02' chem_desc_table( idomain, P_asoa4_a02 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Bin 2' chem_units_table( idomain, P_asoa4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4_a02 )%stream(2) = 2097216 F_asoa4_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoax_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_a02 , idomain ) = P_bsoax_a02 ELSE P_bsoax_a02 = chem_index_table( PARAM_bsoax_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoax_a02 ) = 'bsoaX_a02' chem_desc_table( idomain, P_bsoax_a02 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 Bin 2' chem_units_table( idomain, P_bsoax_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoax_a02 )%stream(2) = 2097216 F_bsoax_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_a02 , idomain ) = P_bsoa1_a02 ELSE P_bsoa1_a02 = chem_index_table( PARAM_bsoa1_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_a02 ) = 'bsoa1_a02' chem_desc_table( idomain, P_bsoa1_a02 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Bin 2' chem_units_table( idomain, P_bsoa1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1_a02 )%stream(2) = 2097216 F_bsoa1_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_a02 , idomain ) = P_bsoa2_a02 ELSE P_bsoa2_a02 = chem_index_table( PARAM_bsoa2_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_a02 ) = 'bsoa2_a02' chem_desc_table( idomain, P_bsoa2_a02 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Bin 2' chem_units_table( idomain, P_bsoa2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2_a02 )%stream(2) = 2097216 F_bsoa2_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_a02 , idomain ) = P_bsoa3_a02 ELSE P_bsoa3_a02 = chem_index_table( PARAM_bsoa3_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_a02 ) = 'bsoa3_a02' chem_desc_table( idomain, P_bsoa3_a02 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Bin 2' chem_units_table( idomain, P_bsoa3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3_a02 )%stream(2) = 2097216 F_bsoa3_a02 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_a02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_a02 , idomain ) = P_bsoa4_a02 ELSE P_bsoa4_a02 = chem_index_table( PARAM_bsoa4_a02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_a02 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_a02 ) = 'bsoa4_a02' chem_desc_table( idomain, P_bsoa4_a02 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Bin 2' chem_units_table( idomain, P_bsoa4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4_a02 )%stream(2) = 2097216 F_bsoa4_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_a02 , idomain ) = P_glysoa_r1_a02 ELSE P_glysoa_r1_a02 = chem_index_table( PARAM_glysoa_r1_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_a02 ) = 'glysoa_r1_a02' chem_desc_table( idomain, P_glysoa_r1_a02 ) = 'glysoa_r1, aerosol bin 02' chem_units_table( idomain, P_glysoa_r1_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r1_a02 )%stream(2) = 2097216 F_glysoa_r1_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_a02 , idomain ) = P_glysoa_r2_a02 ELSE P_glysoa_r2_a02 = chem_index_table( PARAM_glysoa_r2_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_a02 ) = 'glysoa_r2_a02' chem_desc_table( idomain, P_glysoa_r2_a02 ) = 'glysoa_r2, aerosol bin 02' chem_units_table( idomain, P_glysoa_r2_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r2_a02 )%stream(2) = 2097216 F_glysoa_r2_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) = P_glysoa_sfc_a02 ELSE P_glysoa_sfc_a02 = chem_index_table( PARAM_glysoa_sfc_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a02 ) = 'glysoa_sfc_a02' chem_desc_table( idomain, P_glysoa_sfc_a02 ) = 'glysoa_sfc, aerosol bin 02' chem_units_table( idomain, P_glysoa_sfc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_a02 )%stream(2) = 2097216 F_glysoa_sfc_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_a02 , idomain ) = P_glysoa_nh4_a02 ELSE P_glysoa_nh4_a02 = chem_index_table( PARAM_glysoa_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_a02 ) = 'glysoa_nh4_a02' chem_desc_table( idomain, P_glysoa_nh4_a02 ) = 'glysoa_nh4, aerosol bin 02' chem_units_table( idomain, P_glysoa_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_nh4_a02 )%stream(2) = 2097216 F_glysoa_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_a02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_a02 , idomain ) = P_glysoa_oh_a02 ELSE P_glysoa_oh_a02 = chem_index_table( PARAM_glysoa_oh_a02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_a02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_a02 ) = 'glysoa_oh_a02' chem_desc_table( idomain, P_glysoa_oh_a02 ) = 'glysoa_oh, aerosol bin 02' chem_units_table( idomain, P_glysoa_oh_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_oh_a02 )%stream(2) = 2097216 F_glysoa_oh_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_co3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a02 = chem_num_table(idomain) chem_index_table( PARAM_co3_a02 , idomain ) = P_co3_a02 ELSE P_co3_a02 = chem_index_table( PARAM_co3_a02 , idomain ) END IF chem_boundary_table( idomain, P_co3_a02 ) = .TRUE. chem_dname_table( idomain, P_co3_a02 ) = 'co3_a02' chem_desc_table( idomain, P_co3_a02 ) = 'Carbonate, aerosol bin 02' chem_units_table( idomain, P_co3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a02 )%stream(2) = 2097216 F_co3_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_ca_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a02 = chem_num_table(idomain) chem_index_table( PARAM_ca_a02 , idomain ) = P_ca_a02 ELSE P_ca_a02 = chem_index_table( PARAM_ca_a02 , idomain ) END IF chem_boundary_table( idomain, P_ca_a02 ) = .TRUE. chem_dname_table( idomain, P_ca_a02 ) = 'ca_a02' chem_desc_table( idomain, P_ca_a02 ) = 'Calcium, aerosol bin 02' chem_units_table( idomain, P_ca_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a02 )%stream(2) = 2097216 F_ca_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_asoax_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoax_a03 , idomain ) = P_asoax_a03 ELSE P_asoax_a03 = chem_index_table( PARAM_asoax_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoax_a03 ) = .TRUE. chem_dname_table( idomain, P_asoax_a03 ) = 'asoaX_a03' chem_desc_table( idomain, P_asoax_a03 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 Bin 3' chem_units_table( idomain, P_asoax_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoax_a03 )%stream(2) = 2097216 F_asoax_a03 = .TRUE. IF ( chem_index_table( PARAM_asoa1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_a03 , idomain ) = P_asoa1_a03 ELSE P_asoa1_a03 = chem_index_table( PARAM_asoa1_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_a03 ) = .TRUE. chem_dname_table( idomain, P_asoa1_a03 ) = 'asoa1_a03' chem_desc_table( idomain, P_asoa1_a03 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Bin 3' chem_units_table( idomain, P_asoa1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1_a03 )%stream(2) = 2097216 F_asoa1_a03 = .TRUE. IF ( chem_index_table( PARAM_asoa2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_a03 , idomain ) = P_asoa2_a03 ELSE P_asoa2_a03 = chem_index_table( PARAM_asoa2_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_a03 ) = .TRUE. chem_dname_table( idomain, P_asoa2_a03 ) = 'asoa2_a03' chem_desc_table( idomain, P_asoa2_a03 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Bin 3' chem_units_table( idomain, P_asoa2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2_a03 )%stream(2) = 2097216 F_asoa2_a03 = .TRUE. IF ( chem_index_table( PARAM_asoa3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_a03 , idomain ) = P_asoa3_a03 ELSE P_asoa3_a03 = chem_index_table( PARAM_asoa3_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_a03 ) = .TRUE. chem_dname_table( idomain, P_asoa3_a03 ) = 'asoa3_a03' chem_desc_table( idomain, P_asoa3_a03 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Bin 3' chem_units_table( idomain, P_asoa3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3_a03 )%stream(2) = 2097216 F_asoa3_a03 = .TRUE. IF ( chem_index_table( PARAM_asoa4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_a03 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_a03 , idomain ) = P_asoa4_a03 ELSE P_asoa4_a03 = chem_index_table( PARAM_asoa4_a03 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_a03 ) = .TRUE. chem_dname_table( idomain, P_asoa4_a03 ) = 'asoa4_a03' chem_desc_table( idomain, P_asoa4_a03 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Bin 3' chem_units_table( idomain, P_asoa4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4_a03 )%stream(2) = 2097216 F_asoa4_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoax_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_a03 , idomain ) = P_bsoax_a03 ELSE P_bsoax_a03 = chem_index_table( PARAM_bsoax_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoax_a03 ) = 'bsoaX_a03' chem_desc_table( idomain, P_bsoax_a03 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 Bin 3' chem_units_table( idomain, P_bsoax_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoax_a03 )%stream(2) = 2097216 F_bsoax_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_a03 , idomain ) = P_bsoa1_a03 ELSE P_bsoa1_a03 = chem_index_table( PARAM_bsoa1_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_a03 ) = 'bsoa1_a03' chem_desc_table( idomain, P_bsoa1_a03 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Bin 3' chem_units_table( idomain, P_bsoa1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1_a03 )%stream(2) = 2097216 F_bsoa1_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_a03 , idomain ) = P_bsoa2_a03 ELSE P_bsoa2_a03 = chem_index_table( PARAM_bsoa2_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_a03 ) = 'bsoa2_a03' chem_desc_table( idomain, P_bsoa2_a03 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Bin 3' chem_units_table( idomain, P_bsoa2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2_a03 )%stream(2) = 2097216 F_bsoa2_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_a03 , idomain ) = P_bsoa3_a03 ELSE P_bsoa3_a03 = chem_index_table( PARAM_bsoa3_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_a03 ) = 'bsoa3_a03' chem_desc_table( idomain, P_bsoa3_a03 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Bin 3' chem_units_table( idomain, P_bsoa3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3_a03 )%stream(2) = 2097216 F_bsoa3_a03 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_a03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_a03 , idomain ) = P_bsoa4_a03 ELSE P_bsoa4_a03 = chem_index_table( PARAM_bsoa4_a03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_a03 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_a03 ) = 'bsoa4_a03' chem_desc_table( idomain, P_bsoa4_a03 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Bin 3' chem_units_table( idomain, P_bsoa4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4_a03 )%stream(2) = 2097216 F_bsoa4_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_a03 , idomain ) = P_glysoa_r1_a03 ELSE P_glysoa_r1_a03 = chem_index_table( PARAM_glysoa_r1_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_a03 ) = 'glysoa_r1_a03' chem_desc_table( idomain, P_glysoa_r1_a03 ) = 'glysoa_r1, aerosol bin 03' chem_units_table( idomain, P_glysoa_r1_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r1_a03 )%stream(2) = 2097216 F_glysoa_r1_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_a03 , idomain ) = P_glysoa_r2_a03 ELSE P_glysoa_r2_a03 = chem_index_table( PARAM_glysoa_r2_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_a03 ) = 'glysoa_r2_a03' chem_desc_table( idomain, P_glysoa_r2_a03 ) = 'glysoa_r2, aerosol bin 03' chem_units_table( idomain, P_glysoa_r2_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r2_a03 )%stream(2) = 2097216 F_glysoa_r2_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) = P_glysoa_sfc_a03 ELSE P_glysoa_sfc_a03 = chem_index_table( PARAM_glysoa_sfc_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a03 ) = 'glysoa_sfc_a03' chem_desc_table( idomain, P_glysoa_sfc_a03 ) = 'glysoa_sfc, aerosol bin 03' chem_units_table( idomain, P_glysoa_sfc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_a03 )%stream(2) = 2097216 F_glysoa_sfc_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_a03 , idomain ) = P_glysoa_nh4_a03 ELSE P_glysoa_nh4_a03 = chem_index_table( PARAM_glysoa_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_a03 ) = 'glysoa_nh4_a03' chem_desc_table( idomain, P_glysoa_nh4_a03 ) = 'glysoa_nh4, aerosol bin 03' chem_units_table( idomain, P_glysoa_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_nh4_a03 )%stream(2) = 2097216 F_glysoa_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_a03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_a03 , idomain ) = P_glysoa_oh_a03 ELSE P_glysoa_oh_a03 = chem_index_table( PARAM_glysoa_oh_a03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_a03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_a03 ) = 'glysoa_oh_a03' chem_desc_table( idomain, P_glysoa_oh_a03 ) = 'glysoa_oh, aerosol bin 03' chem_units_table( idomain, P_glysoa_oh_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_oh_a03 )%stream(2) = 2097216 F_glysoa_oh_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_co3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a03 = chem_num_table(idomain) chem_index_table( PARAM_co3_a03 , idomain ) = P_co3_a03 ELSE P_co3_a03 = chem_index_table( PARAM_co3_a03 , idomain ) END IF chem_boundary_table( idomain, P_co3_a03 ) = .TRUE. chem_dname_table( idomain, P_co3_a03 ) = 'co3_a03' chem_desc_table( idomain, P_co3_a03 ) = 'Carbonate, aerosol bin 03' chem_units_table( idomain, P_co3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a03 )%stream(2) = 2097216 F_co3_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_ca_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a03 = chem_num_table(idomain) chem_index_table( PARAM_ca_a03 , idomain ) = P_ca_a03 ELSE P_ca_a03 = chem_index_table( PARAM_ca_a03 , idomain ) END IF chem_boundary_table( idomain, P_ca_a03 ) = .TRUE. chem_dname_table( idomain, P_ca_a03 ) = 'ca_a03' chem_desc_table( idomain, P_ca_a03 ) = 'Calcium, aerosol bin 03' chem_units_table( idomain, P_ca_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a03 )%stream(2) = 2097216 F_ca_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_asoax_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoax_a04 , idomain ) = P_asoax_a04 ELSE P_asoax_a04 = chem_index_table( PARAM_asoax_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoax_a04 ) = .TRUE. chem_dname_table( idomain, P_asoax_a04 ) = 'asoaX_a04' chem_desc_table( idomain, P_asoax_a04 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 Bin 4' chem_units_table( idomain, P_asoax_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoax_a04 )%stream(2) = 2097216 F_asoax_a04 = .TRUE. IF ( chem_index_table( PARAM_asoa1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_a04 , idomain ) = P_asoa1_a04 ELSE P_asoa1_a04 = chem_index_table( PARAM_asoa1_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_a04 ) = .TRUE. chem_dname_table( idomain, P_asoa1_a04 ) = 'asoa1_a04' chem_desc_table( idomain, P_asoa1_a04 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 Bin 4' chem_units_table( idomain, P_asoa1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1_a04 )%stream(2) = 2097216 F_asoa1_a04 = .TRUE. IF ( chem_index_table( PARAM_asoa2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_a04 , idomain ) = P_asoa2_a04 ELSE P_asoa2_a04 = chem_index_table( PARAM_asoa2_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_a04 ) = .TRUE. chem_dname_table( idomain, P_asoa2_a04 ) = 'asoa2_a04' chem_desc_table( idomain, P_asoa2_a04 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 Bin 4' chem_units_table( idomain, P_asoa2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2_a04 )%stream(2) = 2097216 F_asoa2_a04 = .TRUE. IF ( chem_index_table( PARAM_asoa3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_a04 , idomain ) = P_asoa3_a04 ELSE P_asoa3_a04 = chem_index_table( PARAM_asoa3_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_a04 ) = .TRUE. chem_dname_table( idomain, P_asoa3_a04 ) = 'asoa3_a04' chem_desc_table( idomain, P_asoa3_a04 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 Bin 4' chem_units_table( idomain, P_asoa3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3_a04 )%stream(2) = 2097216 F_asoa3_a04 = .TRUE. IF ( chem_index_table( PARAM_asoa4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_a04 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_a04 , idomain ) = P_asoa4_a04 ELSE P_asoa4_a04 = chem_index_table( PARAM_asoa4_a04 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_a04 ) = .TRUE. chem_dname_table( idomain, P_asoa4_a04 ) = 'asoa4_a04' chem_desc_table( idomain, P_asoa4_a04 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 Bin 4' chem_units_table( idomain, P_asoa4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4_a04 )%stream(2) = 2097216 F_asoa4_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoax_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_a04 , idomain ) = P_bsoax_a04 ELSE P_bsoax_a04 = chem_index_table( PARAM_bsoax_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoax_a04 ) = 'bsoaX_a04' chem_desc_table( idomain, P_bsoax_a04 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 Bin 4' chem_units_table( idomain, P_bsoax_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoax_a04 )%stream(2) = 2097216 F_bsoax_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_a04 , idomain ) = P_bsoa1_a04 ELSE P_bsoa1_a04 = chem_index_table( PARAM_bsoa1_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_a04 ) = 'bsoa1_a04' chem_desc_table( idomain, P_bsoa1_a04 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 Bin 4' chem_units_table( idomain, P_bsoa1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1_a04 )%stream(2) = 2097216 F_bsoa1_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_a04 , idomain ) = P_bsoa2_a04 ELSE P_bsoa2_a04 = chem_index_table( PARAM_bsoa2_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_a04 ) = 'bsoa2_a04' chem_desc_table( idomain, P_bsoa2_a04 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 Bin 4' chem_units_table( idomain, P_bsoa2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2_a04 )%stream(2) = 2097216 F_bsoa2_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_a04 , idomain ) = P_bsoa3_a04 ELSE P_bsoa3_a04 = chem_index_table( PARAM_bsoa3_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_a04 ) = 'bsoa3_a04' chem_desc_table( idomain, P_bsoa3_a04 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 Bin 4' chem_units_table( idomain, P_bsoa3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3_a04 )%stream(2) = 2097216 F_bsoa3_a04 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_a04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_a04 , idomain ) = P_bsoa4_a04 ELSE P_bsoa4_a04 = chem_index_table( PARAM_bsoa4_a04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_a04 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_a04 ) = 'bsoa4_a04' chem_desc_table( idomain, P_bsoa4_a04 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 Bin 4' chem_units_table( idomain, P_bsoa4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4_a04 )%stream(2) = 2097216 F_bsoa4_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_a04 , idomain ) = P_glysoa_r1_a04 ELSE P_glysoa_r1_a04 = chem_index_table( PARAM_glysoa_r1_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_a04 ) = 'glysoa_r1_a04' chem_desc_table( idomain, P_glysoa_r1_a04 ) = 'glysoa_r2, aerosol bin 04' chem_units_table( idomain, P_glysoa_r1_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r1_a04 )%stream(2) = 2097216 F_glysoa_r1_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_a04 , idomain ) = P_glysoa_r2_a04 ELSE P_glysoa_r2_a04 = chem_index_table( PARAM_glysoa_r2_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_a04 ) = 'glysoa_r2_a04' chem_desc_table( idomain, P_glysoa_r2_a04 ) = 'glysoa_r1, aerosol bin 04' chem_units_table( idomain, P_glysoa_r2_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r2_a04 )%stream(2) = 2097216 F_glysoa_r2_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) = P_glysoa_sfc_a04 ELSE P_glysoa_sfc_a04 = chem_index_table( PARAM_glysoa_sfc_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_a04 ) = 'glysoa_sfc_a04' chem_desc_table( idomain, P_glysoa_sfc_a04 ) = 'glysoa_sfc, aerosol bin 04' chem_units_table( idomain, P_glysoa_sfc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_a04 )%stream(2) = 2097216 F_glysoa_sfc_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_a04 , idomain ) = P_glysoa_nh4_a04 ELSE P_glysoa_nh4_a04 = chem_index_table( PARAM_glysoa_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_a04 ) = 'glysoa_nh4_a04' chem_desc_table( idomain, P_glysoa_nh4_a04 ) = 'glysoa_nh4, aerosol bin 04' chem_units_table( idomain, P_glysoa_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_nh4_a04 )%stream(2) = 2097216 F_glysoa_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_a04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_a04 , idomain ) = P_glysoa_oh_a04 ELSE P_glysoa_oh_a04 = chem_index_table( PARAM_glysoa_oh_a04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_a04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_a04 ) = 'glysoa_oh_a04' chem_desc_table( idomain, P_glysoa_oh_a04 ) = 'glysoa_oh, aerosol bin 04' chem_units_table( idomain, P_glysoa_oh_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_oh_a04 )%stream(2) = 2097216 F_glysoa_oh_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_co3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_a04 = chem_num_table(idomain) chem_index_table( PARAM_co3_a04 , idomain ) = P_co3_a04 ELSE P_co3_a04 = chem_index_table( PARAM_co3_a04 , idomain ) END IF chem_boundary_table( idomain, P_co3_a04 ) = .TRUE. chem_dname_table( idomain, P_co3_a04 ) = 'co3_a04' chem_desc_table( idomain, P_co3_a04 ) = 'Carbonate, aerosol bin 04' chem_units_table( idomain, P_co3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_a04 )%stream(2) = 2097216 F_co3_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_ca_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_a04 = chem_num_table(idomain) chem_index_table( PARAM_ca_a04 , idomain ) = P_ca_a04 ELSE P_ca_a04 = chem_index_table( PARAM_ca_a04 , idomain ) END IF chem_boundary_table( idomain, P_ca_a04 ) = .TRUE. chem_dname_table( idomain, P_ca_a04 ) = 'ca_a04' chem_desc_table( idomain, P_ca_a04 ) = 'Calcium, aerosol bin 04' chem_units_table( idomain, P_ca_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_a04 )%stream(2) = 2097216 F_ca_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoax_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoax_cw01 , idomain ) = P_asoax_cw01 ELSE P_asoax_cw01 = chem_index_table( PARAM_asoax_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoax_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoax_cw01 ) = 'asoaX_cw01' chem_desc_table( idomain, P_asoax_cw01 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoax_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoax_cw01 )%stream(2) = 2097216 F_asoax_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoa1_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_cw01 , idomain ) = P_asoa1_cw01 ELSE P_asoa1_cw01 = chem_index_table( PARAM_asoa1_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoa1_cw01 ) = 'asoa1_cw01' chem_desc_table( idomain, P_asoa1_cw01 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoa1_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1_cw01 )%stream(2) = 2097216 F_asoa1_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoa2_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_cw01 , idomain ) = P_asoa2_cw01 ELSE P_asoa2_cw01 = chem_index_table( PARAM_asoa2_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoa2_cw01 ) = 'asoa2_cw01' chem_desc_table( idomain, P_asoa2_cw01 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoa2_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2_cw01 )%stream(2) = 2097216 F_asoa2_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoa3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_cw01 , idomain ) = P_asoa3_cw01 ELSE P_asoa3_cw01 = chem_index_table( PARAM_asoa3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoa3_cw01 ) = 'asoa3_cw01' chem_desc_table( idomain, P_asoa3_cw01 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoa3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3_cw01 )%stream(2) = 2097216 F_asoa3_cw01 = .TRUE. IF ( chem_index_table( PARAM_asoa4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_cw01 , idomain ) = P_asoa4_cw01 ELSE P_asoa4_cw01 = chem_index_table( PARAM_asoa4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_cw01 ) = .TRUE. chem_dname_table( idomain, P_asoa4_cw01 ) = 'asoa4_cw01' chem_desc_table( idomain, P_asoa4_cw01 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_asoa4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4_cw01 )%stream(2) = 2097216 F_asoa4_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoax_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_cw01 , idomain ) = P_bsoax_cw01 ELSE P_bsoax_cw01 = chem_index_table( PARAM_bsoax_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoax_cw01 ) = 'bsoaX_cw01' chem_desc_table( idomain, P_bsoax_cw01 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoax_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoax_cw01 )%stream(2) = 2097216 F_bsoax_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_cw01 , idomain ) = P_bsoa1_cw01 ELSE P_bsoa1_cw01 = chem_index_table( PARAM_bsoa1_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_cw01 ) = 'bsoa1_cw01' chem_desc_table( idomain, P_bsoa1_cw01 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoa1_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1_cw01 )%stream(2) = 2097216 F_bsoa1_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_cw01 , idomain ) = P_bsoa2_cw01 ELSE P_bsoa2_cw01 = chem_index_table( PARAM_bsoa2_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_cw01 ) = 'bsoa2_cw01' chem_desc_table( idomain, P_bsoa2_cw01 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoa2_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2_cw01 )%stream(2) = 2097216 F_bsoa2_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_cw01 , idomain ) = P_bsoa3_cw01 ELSE P_bsoa3_cw01 = chem_index_table( PARAM_bsoa3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_cw01 ) = 'bsoa3_cw01' chem_desc_table( idomain, P_bsoa3_cw01 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoa3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3_cw01 )%stream(2) = 2097216 F_bsoa3_cw01 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_cw01 , idomain ) = P_bsoa4_cw01 ELSE P_bsoa4_cw01 = chem_index_table( PARAM_bsoa4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_cw01 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_cw01 ) = 'bsoa4_cw01' chem_desc_table( idomain, P_bsoa4_cw01 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 in cloud Bin 1' chem_units_table( idomain, P_bsoa4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4_cw01 )%stream(2) = 2097216 F_bsoa4_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_cw01 , idomain ) = P_glysoa_r1_cw01 ELSE P_glysoa_r1_cw01 = chem_index_table( PARAM_glysoa_r1_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_cw01 ) = 'glysoa_r1_cw01' chem_desc_table( idomain, P_glysoa_r1_cw01 ) = 'glysoa_r1, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_r1_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r1_cw01 )%stream(2) = 2097216 F_glysoa_r1_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_cw01 , idomain ) = P_glysoa_r2_cw01 ELSE P_glysoa_r2_cw01 = chem_index_table( PARAM_glysoa_r2_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_cw01 ) = 'glysoa_r2_cw01' chem_desc_table( idomain, P_glysoa_r2_cw01 ) = 'glysoa_r2, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_r2_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r2_cw01 )%stream(2) = 2097216 F_glysoa_r2_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_cw01 , idomain ) = P_glysoa_sfc_cw01 ELSE P_glysoa_sfc_cw01 = chem_index_table( PARAM_glysoa_sfc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_cw01 ) = 'glysoa_sfc_cw01' chem_desc_table( idomain, P_glysoa_sfc_cw01 ) = 'glysoa_sfc, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_sfc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_cw01 )%stream(2) = 2097216 F_glysoa_sfc_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_cw01 , idomain ) = P_glysoa_nh4_cw01 ELSE P_glysoa_nh4_cw01 = chem_index_table( PARAM_glysoa_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_cw01 ) = 'glysoa_nh4_cw01' chem_desc_table( idomain, P_glysoa_nh4_cw01 ) = 'glysoa_nh4, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_nh4_cw01 )%stream(2) = 2097216 F_glysoa_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_cw01 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_cw01 , idomain ) = P_glysoa_oh_cw01 ELSE P_glysoa_oh_cw01 = chem_index_table( PARAM_glysoa_oh_cw01 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_cw01 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_cw01 ) = 'glysoa_oh_cw01' chem_desc_table( idomain, P_glysoa_oh_cw01 ) = 'glysoa_oh, aerosol in cloud bin 01' chem_units_table( idomain, P_glysoa_oh_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_oh_cw01 )%stream(2) = 2097216 F_glysoa_oh_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_co3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw01 , idomain ) = P_co3_cw01 ELSE P_co3_cw01 = chem_index_table( PARAM_co3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw01 ) = .TRUE. chem_dname_table( idomain, P_co3_cw01 ) = 'co3_cw01' chem_desc_table( idomain, P_co3_cw01 ) = 'Carbonate, aerosol in cloud bin 01' chem_units_table( idomain, P_co3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw01 )%stream(2) = 2097216 F_co3_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_ca_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw01 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw01 , idomain ) = P_ca_cw01 ELSE P_ca_cw01 = chem_index_table( PARAM_ca_cw01 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw01 ) = .TRUE. chem_dname_table( idomain, P_ca_cw01 ) = 'ca_cw01' chem_desc_table( idomain, P_ca_cw01 ) = 'Calcium, aerosol in cloud bin 01' chem_units_table( idomain, P_ca_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw01 )%stream(2) = 2097216 F_ca_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoax_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoax_cw02 , idomain ) = P_asoax_cw02 ELSE P_asoax_cw02 = chem_index_table( PARAM_asoax_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoax_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoax_cw02 ) = 'asoaX_cw02' chem_desc_table( idomain, P_asoax_cw02 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoax_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoax_cw02 )%stream(2) = 2097216 F_asoax_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoa1_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_cw02 , idomain ) = P_asoa1_cw02 ELSE P_asoa1_cw02 = chem_index_table( PARAM_asoa1_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoa1_cw02 ) = 'asoa1_cw02' chem_desc_table( idomain, P_asoa1_cw02 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoa1_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1_cw02 )%stream(2) = 2097216 F_asoa1_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoa2_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_cw02 , idomain ) = P_asoa2_cw02 ELSE P_asoa2_cw02 = chem_index_table( PARAM_asoa2_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoa2_cw02 ) = 'asoa2_cw02' chem_desc_table( idomain, P_asoa2_cw02 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoa2_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2_cw02 )%stream(2) = 2097216 F_asoa2_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoa3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_cw02 , idomain ) = P_asoa3_cw02 ELSE P_asoa3_cw02 = chem_index_table( PARAM_asoa3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoa3_cw02 ) = 'asoa3_cw02' chem_desc_table( idomain, P_asoa3_cw02 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoa3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3_cw02 )%stream(2) = 2097216 F_asoa3_cw02 = .TRUE. IF ( chem_index_table( PARAM_asoa4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_cw02 , idomain ) = P_asoa4_cw02 ELSE P_asoa4_cw02 = chem_index_table( PARAM_asoa4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_cw02 ) = .TRUE. chem_dname_table( idomain, P_asoa4_cw02 ) = 'asoa4_cw02' chem_desc_table( idomain, P_asoa4_cw02 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_asoa4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4_cw02 )%stream(2) = 2097216 F_asoa4_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoax_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_cw02 , idomain ) = P_bsoax_cw02 ELSE P_bsoax_cw02 = chem_index_table( PARAM_bsoax_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoax_cw02 ) = 'bsoaX_cw02' chem_desc_table( idomain, P_bsoax_cw02 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoax_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoax_cw02 )%stream(2) = 2097216 F_bsoax_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_cw02 , idomain ) = P_bsoa1_cw02 ELSE P_bsoa1_cw02 = chem_index_table( PARAM_bsoa1_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_cw02 ) = 'bsoa1_cw02' chem_desc_table( idomain, P_bsoa1_cw02 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoa1_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1_cw02 )%stream(2) = 2097216 F_bsoa1_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_cw02 , idomain ) = P_bsoa2_cw02 ELSE P_bsoa2_cw02 = chem_index_table( PARAM_bsoa2_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_cw02 ) = 'bsoa2_cw02' chem_desc_table( idomain, P_bsoa2_cw02 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoa2_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2_cw02 )%stream(2) = 2097216 F_bsoa2_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_cw02 , idomain ) = P_bsoa3_cw02 ELSE P_bsoa3_cw02 = chem_index_table( PARAM_bsoa3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_cw02 ) = 'bsoa3_cw02' chem_desc_table( idomain, P_bsoa3_cw02 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoa3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3_cw02 )%stream(2) = 2097216 F_bsoa3_cw02 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_cw02 , idomain ) = P_bsoa4_cw02 ELSE P_bsoa4_cw02 = chem_index_table( PARAM_bsoa4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_cw02 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_cw02 ) = 'bsoa4_cw02' chem_desc_table( idomain, P_bsoa4_cw02 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 in cloud Bin 2' chem_units_table( idomain, P_bsoa4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4_cw02 )%stream(2) = 2097216 F_bsoa4_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_cw02 , idomain ) = P_glysoa_r1_cw02 ELSE P_glysoa_r1_cw02 = chem_index_table( PARAM_glysoa_r1_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_cw02 ) = 'glysoa_r1_cw02' chem_desc_table( idomain, P_glysoa_r1_cw02 ) = 'glysoa_r1, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_r1_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r1_cw02 )%stream(2) = 2097216 F_glysoa_r1_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_cw02 , idomain ) = P_glysoa_r2_cw02 ELSE P_glysoa_r2_cw02 = chem_index_table( PARAM_glysoa_r2_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_cw02 ) = 'glysoa_r2_cw02' chem_desc_table( idomain, P_glysoa_r2_cw02 ) = 'glysoa_r2, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_r2_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r2_cw02 )%stream(2) = 2097216 F_glysoa_r2_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_cw02 , idomain ) = P_glysoa_sfc_cw02 ELSE P_glysoa_sfc_cw02 = chem_index_table( PARAM_glysoa_sfc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_cw02 ) = 'glysoa_sfc_cw02' chem_desc_table( idomain, P_glysoa_sfc_cw02 ) = 'glysoa_sfc, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_sfc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_cw02 )%stream(2) = 2097216 F_glysoa_sfc_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_cw02 , idomain ) = P_glysoa_nh4_cw02 ELSE P_glysoa_nh4_cw02 = chem_index_table( PARAM_glysoa_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_cw02 ) = 'glysoa_nh4_cw02' chem_desc_table( idomain, P_glysoa_nh4_cw02 ) = 'glysoa_nh4, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_nh4_cw02 )%stream(2) = 2097216 F_glysoa_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_cw02 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_cw02 , idomain ) = P_glysoa_oh_cw02 ELSE P_glysoa_oh_cw02 = chem_index_table( PARAM_glysoa_oh_cw02 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_cw02 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_cw02 ) = 'glysoa_oh_cw02' chem_desc_table( idomain, P_glysoa_oh_cw02 ) = 'glysoa_oh, aerosol in cloud bin 02' chem_units_table( idomain, P_glysoa_oh_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_oh_cw02 )%stream(2) = 2097216 F_glysoa_oh_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_co3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw02 , idomain ) = P_co3_cw02 ELSE P_co3_cw02 = chem_index_table( PARAM_co3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw02 ) = .TRUE. chem_dname_table( idomain, P_co3_cw02 ) = 'co3_cw02' chem_desc_table( idomain, P_co3_cw02 ) = 'Carbonate, aerosol in cloud bin 02' chem_units_table( idomain, P_co3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw02 )%stream(2) = 2097216 F_co3_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_ca_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw02 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw02 , idomain ) = P_ca_cw02 ELSE P_ca_cw02 = chem_index_table( PARAM_ca_cw02 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw02 ) = .TRUE. chem_dname_table( idomain, P_ca_cw02 ) = 'ca_cw02' chem_desc_table( idomain, P_ca_cw02 ) = 'Calcium, aerosol in cloud bin 02' chem_units_table( idomain, P_ca_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw02 )%stream(2) = 2097216 F_ca_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoax_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoax_cw03 , idomain ) = P_asoax_cw03 ELSE P_asoax_cw03 = chem_index_table( PARAM_asoax_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoax_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoax_cw03 ) = 'asoaX_cw03' chem_desc_table( idomain, P_asoax_cw03 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoax_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoax_cw03 )%stream(2) = 2097216 F_asoax_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoa1_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_cw03 , idomain ) = P_asoa1_cw03 ELSE P_asoa1_cw03 = chem_index_table( PARAM_asoa1_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoa1_cw03 ) = 'asoa1_cw03' chem_desc_table( idomain, P_asoa1_cw03 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoa1_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1_cw03 )%stream(2) = 2097216 F_asoa1_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoa2_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_cw03 , idomain ) = P_asoa2_cw03 ELSE P_asoa2_cw03 = chem_index_table( PARAM_asoa2_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoa2_cw03 ) = 'asoa2_cw03' chem_desc_table( idomain, P_asoa2_cw03 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoa2_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2_cw03 )%stream(2) = 2097216 F_asoa2_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoa3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_cw03 , idomain ) = P_asoa3_cw03 ELSE P_asoa3_cw03 = chem_index_table( PARAM_asoa3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoa3_cw03 ) = 'asoa3_cw03' chem_desc_table( idomain, P_asoa3_cw03 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoa3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3_cw03 )%stream(2) = 2097216 F_asoa3_cw03 = .TRUE. IF ( chem_index_table( PARAM_asoa4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_cw03 , idomain ) = P_asoa4_cw03 ELSE P_asoa4_cw03 = chem_index_table( PARAM_asoa4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_cw03 ) = .TRUE. chem_dname_table( idomain, P_asoa4_cw03 ) = 'asoa4_cw03' chem_desc_table( idomain, P_asoa4_cw03 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_asoa4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4_cw03 )%stream(2) = 2097216 F_asoa4_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoax_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_cw03 , idomain ) = P_bsoax_cw03 ELSE P_bsoax_cw03 = chem_index_table( PARAM_bsoax_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoax_cw03 ) = 'bsoaX_cw03' chem_desc_table( idomain, P_bsoax_cw03 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoax_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoax_cw03 )%stream(2) = 2097216 F_bsoax_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_cw03 , idomain ) = P_bsoa1_cw03 ELSE P_bsoa1_cw03 = chem_index_table( PARAM_bsoa1_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_cw03 ) = 'bsoa1_cw03' chem_desc_table( idomain, P_bsoa1_cw03 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoa1_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1_cw03 )%stream(2) = 2097216 F_bsoa1_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_cw03 , idomain ) = P_bsoa2_cw03 ELSE P_bsoa2_cw03 = chem_index_table( PARAM_bsoa2_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_cw03 ) = 'bsoa2_cw03' chem_desc_table( idomain, P_bsoa2_cw03 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoa2_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2_cw03 )%stream(2) = 2097216 F_bsoa2_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_cw03 , idomain ) = P_bsoa3_cw03 ELSE P_bsoa3_cw03 = chem_index_table( PARAM_bsoa3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_cw03 ) = 'bsoa3_cw03' chem_desc_table( idomain, P_bsoa3_cw03 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoa3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3_cw03 )%stream(2) = 2097216 F_bsoa3_cw03 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_cw03 , idomain ) = P_bsoa4_cw03 ELSE P_bsoa4_cw03 = chem_index_table( PARAM_bsoa4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_cw03 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_cw03 ) = 'bsoa4_cw03' chem_desc_table( idomain, P_bsoa4_cw03 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 in cloud Bin 3' chem_units_table( idomain, P_bsoa4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4_cw03 )%stream(2) = 2097216 F_bsoa4_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_cw03 , idomain ) = P_glysoa_r1_cw03 ELSE P_glysoa_r1_cw03 = chem_index_table( PARAM_glysoa_r1_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_cw03 ) = 'glysoa_r1_cw03' chem_desc_table( idomain, P_glysoa_r1_cw03 ) = 'glysoa_r1, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_r1_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r1_cw03 )%stream(2) = 2097216 F_glysoa_r1_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_cw03 , idomain ) = P_glysoa_r2_cw03 ELSE P_glysoa_r2_cw03 = chem_index_table( PARAM_glysoa_r2_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_cw03 ) = 'glysoa_r2_cw03' chem_desc_table( idomain, P_glysoa_r2_cw03 ) = 'glysoa_r2, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_r2_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r2_cw03 )%stream(2) = 2097216 F_glysoa_r2_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_cw03 , idomain ) = P_glysoa_sfc_cw03 ELSE P_glysoa_sfc_cw03 = chem_index_table( PARAM_glysoa_sfc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_cw03 ) = 'glysoa_sfc_cw03' chem_desc_table( idomain, P_glysoa_sfc_cw03 ) = 'glysoa_sfc, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_sfc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_cw03 )%stream(2) = 2097216 F_glysoa_sfc_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_cw03 , idomain ) = P_glysoa_nh4_cw03 ELSE P_glysoa_nh4_cw03 = chem_index_table( PARAM_glysoa_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_cw03 ) = 'glysoa_nh4_cw03' chem_desc_table( idomain, P_glysoa_nh4_cw03 ) = 'glysoa_nh4, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_nh4_cw03 )%stream(2) = 2097216 F_glysoa_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_cw03 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_cw03 , idomain ) = P_glysoa_oh_cw03 ELSE P_glysoa_oh_cw03 = chem_index_table( PARAM_glysoa_oh_cw03 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_cw03 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_cw03 ) = 'glysoa_oh_cw03' chem_desc_table( idomain, P_glysoa_oh_cw03 ) = 'glysoa_oh, aerosol in cloud bin 03' chem_units_table( idomain, P_glysoa_oh_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_oh_cw03 )%stream(2) = 2097216 F_glysoa_oh_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_co3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw03 , idomain ) = P_co3_cw03 ELSE P_co3_cw03 = chem_index_table( PARAM_co3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw03 ) = .TRUE. chem_dname_table( idomain, P_co3_cw03 ) = 'co3_cw03' chem_desc_table( idomain, P_co3_cw03 ) = 'Carbonate, aerosol in cloud bin 03' chem_units_table( idomain, P_co3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw03 )%stream(2) = 2097216 F_co3_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_ca_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw03 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw03 , idomain ) = P_ca_cw03 ELSE P_ca_cw03 = chem_index_table( PARAM_ca_cw03 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw03 ) = .TRUE. chem_dname_table( idomain, P_ca_cw03 ) = 'ca_cw03' chem_desc_table( idomain, P_ca_cw03 ) = 'Calcium, aerosol in cloud bin 03' chem_units_table( idomain, P_ca_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw03 )%stream(2) = 2097216 F_ca_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoax_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoax_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoax_cw04 , idomain ) = P_asoax_cw04 ELSE P_asoax_cw04 = chem_index_table( PARAM_asoax_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoax_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoax_cw04 ) = 'asoaX_cw04' chem_desc_table( idomain, P_asoax_cw04 ) = 'SOA Anth. org. conc. with C* value=X ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoax_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoax_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoax_cw04 )%stream(2) = 2097216 F_asoax_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoa1_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa1_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoa1_cw04 , idomain ) = P_asoa1_cw04 ELSE P_asoa1_cw04 = chem_index_table( PARAM_asoa1_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoa1_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoa1_cw04 ) = 'asoa1_cw04' chem_desc_table( idomain, P_asoa1_cw04 ) = 'SOA Anth. org. conc. with C* value=1 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoa1_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa1_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa1_cw04 )%stream(2) = 2097216 F_asoa1_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoa2_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa2_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoa2_cw04 , idomain ) = P_asoa2_cw04 ELSE P_asoa2_cw04 = chem_index_table( PARAM_asoa2_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoa2_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoa2_cw04 ) = 'asoa2_cw04' chem_desc_table( idomain, P_asoa2_cw04 ) = 'SOA Anth. org. conc. with C* value=10 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoa2_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa2_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa2_cw04 )%stream(2) = 2097216 F_asoa2_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoa3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoa3_cw04 , idomain ) = P_asoa3_cw04 ELSE P_asoa3_cw04 = chem_index_table( PARAM_asoa3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoa3_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoa3_cw04 ) = 'asoa3_cw04' chem_desc_table( idomain, P_asoa3_cw04 ) = 'SOA Anth. org. conc. with C* value=100 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoa3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa3_cw04 )%stream(2) = 2097216 F_asoa3_cw04 = .TRUE. IF ( chem_index_table( PARAM_asoa4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_asoa4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_asoa4_cw04 , idomain ) = P_asoa4_cw04 ELSE P_asoa4_cw04 = chem_index_table( PARAM_asoa4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_asoa4_cw04 ) = .TRUE. chem_dname_table( idomain, P_asoa4_cw04 ) = 'asoa4_cw04' chem_desc_table( idomain, P_asoa4_cw04 ) = 'SOA Anth. org. conc. with C* value=1000 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_asoa4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_asoa4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_asoa4_cw04 )%stream(2) = 2097216 F_asoa4_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoax_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoax_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoax_cw04 , idomain ) = P_bsoax_cw04 ELSE P_bsoax_cw04 = chem_index_table( PARAM_bsoax_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoax_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoax_cw04 ) = 'bsoaX_cw04' chem_desc_table( idomain, P_bsoax_cw04 ) = 'SOA Biog. org. conc. with C* value=X ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoax_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoax_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoax_cw04 )%stream(2) = 2097216 F_bsoax_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoa1_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa1_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa1_cw04 , idomain ) = P_bsoa1_cw04 ELSE P_bsoa1_cw04 = chem_index_table( PARAM_bsoa1_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa1_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoa1_cw04 ) = 'bsoa1_cw04' chem_desc_table( idomain, P_bsoa1_cw04 ) = 'SOA Biog. org. conc. with C* value=1 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoa1_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa1_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa1_cw04 )%stream(2) = 2097216 F_bsoa1_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoa2_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa2_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa2_cw04 , idomain ) = P_bsoa2_cw04 ELSE P_bsoa2_cw04 = chem_index_table( PARAM_bsoa2_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa2_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoa2_cw04 ) = 'bsoa2_cw04' chem_desc_table( idomain, P_bsoa2_cw04 ) = 'SOA Biog. org. conc. with C* value=10 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoa2_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa2_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa2_cw04 )%stream(2) = 2097216 F_bsoa2_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoa3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa3_cw04 , idomain ) = P_bsoa3_cw04 ELSE P_bsoa3_cw04 = chem_index_table( PARAM_bsoa3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa3_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoa3_cw04 ) = 'bsoa3_cw04' chem_desc_table( idomain, P_bsoa3_cw04 ) = 'SOA Biog. org. conc. with C* value=100 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoa3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa3_cw04 )%stream(2) = 2097216 F_bsoa3_cw04 = .TRUE. IF ( chem_index_table( PARAM_bsoa4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bsoa4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bsoa4_cw04 , idomain ) = P_bsoa4_cw04 ELSE P_bsoa4_cw04 = chem_index_table( PARAM_bsoa4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bsoa4_cw04 ) = .TRUE. chem_dname_table( idomain, P_bsoa4_cw04 ) = 'bsoa4_cw04' chem_desc_table( idomain, P_bsoa4_cw04 ) = 'SOA Biog. org. conc. with C* value=1000 ug/m^3 in cloud Bin 4' chem_units_table( idomain, P_bsoa4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bsoa4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bsoa4_cw04 )%stream(2) = 2097216 F_bsoa4_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r1_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r1_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r1_cw04 , idomain ) = P_glysoa_r1_cw04 ELSE P_glysoa_r1_cw04 = chem_index_table( PARAM_glysoa_r1_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r1_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r1_cw04 ) = 'glysoa_r1_cw04' chem_desc_table( idomain, P_glysoa_r1_cw04 ) = 'glysoa_r1, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_r1_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r1_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r1_cw04 )%stream(2) = 2097216 F_glysoa_r1_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_r2_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_r2_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_r2_cw04 , idomain ) = P_glysoa_r2_cw04 ELSE P_glysoa_r2_cw04 = chem_index_table( PARAM_glysoa_r2_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_r2_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_r2_cw04 ) = 'glysoa_r2_cw04' chem_desc_table( idomain, P_glysoa_r2_cw04 ) = 'glysoa_r2, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_r2_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_r2_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_r2_cw04 )%stream(2) = 2097216 F_glysoa_r2_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_sfc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_sfc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_sfc_cw04 , idomain ) = P_glysoa_sfc_cw04 ELSE P_glysoa_sfc_cw04 = chem_index_table( PARAM_glysoa_sfc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_sfc_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_sfc_cw04 ) = 'glysoa_sfc_cw04' chem_desc_table( idomain, P_glysoa_sfc_cw04 ) = 'glysoa_sfc, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_sfc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_sfc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_sfc_cw04 )%stream(2) = 2097216 F_glysoa_sfc_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_nh4_cw04 , idomain ) = P_glysoa_nh4_cw04 ELSE P_glysoa_nh4_cw04 = chem_index_table( PARAM_glysoa_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_nh4_cw04 ) = 'glysoa_nh4_cw04' chem_desc_table( idomain, P_glysoa_nh4_cw04 ) = 'glysoa_nh4, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_nh4_cw04 )%stream(2) = 2097216 F_glysoa_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_glysoa_oh_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_glysoa_oh_cw04 = chem_num_table(idomain) chem_index_table( PARAM_glysoa_oh_cw04 , idomain ) = P_glysoa_oh_cw04 ELSE P_glysoa_oh_cw04 = chem_index_table( PARAM_glysoa_oh_cw04 , idomain ) END IF chem_boundary_table( idomain, P_glysoa_oh_cw04 ) = .TRUE. chem_dname_table( idomain, P_glysoa_oh_cw04 ) = 'glysoa_oh_cw04' chem_desc_table( idomain, P_glysoa_oh_cw04 ) = 'glysoa_oh, aerosol in cloud bin 04' chem_units_table( idomain, P_glysoa_oh_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_glysoa_oh_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_glysoa_oh_cw04 )%stream(2) = 2097216 F_glysoa_oh_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_co3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_co3_cw04 , idomain ) = P_co3_cw04 ELSE P_co3_cw04 = chem_index_table( PARAM_co3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_co3_cw04 ) = .TRUE. chem_dname_table( idomain, P_co3_cw04 ) = 'co3_cw04' chem_desc_table( idomain, P_co3_cw04 ) = 'Carbonate, aerosol in cloud bin 04' chem_units_table( idomain, P_co3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_co3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_co3_cw04 )%stream(2) = 2097216 F_co3_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_ca_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ca_cw04 = chem_num_table(idomain) chem_index_table( PARAM_ca_cw04 , idomain ) = P_ca_cw04 ELSE P_ca_cw04 = chem_index_table( PARAM_ca_cw04 , idomain ) END IF chem_boundary_table( idomain, P_ca_cw04 ) = .TRUE. chem_dname_table( idomain, P_ca_cw04 ) = 'ca_cw04' chem_desc_table( idomain, P_ca_cw04 ) = 'Calcium, aerosol in cloud bin 04' chem_units_table( idomain, P_ca_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ca_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ca_cw04 )%stream(2) = 2097216 F_ca_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 F_num_cw04 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==203)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_h2so4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2so4 = chem_num_table(idomain) chem_index_table( PARAM_h2so4 , idomain ) = P_h2so4 ELSE P_h2so4 = chem_index_table( PARAM_h2so4 , idomain ) END IF chem_boundary_table( idomain, P_h2so4 ) = .TRUE. chem_dname_table( idomain, P_h2so4 ) = 'h2so4' chem_desc_table( idomain, P_h2so4 ) = 'H2SO4 mixing ratio' chem_units_table( idomain, P_h2so4 ) = 'ppmv' chem_streams_table( idomain, P_h2so4 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2so4 )%stream(2) = 2097216 F_h2so4 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ccho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccho = chem_num_table(idomain) chem_index_table( PARAM_ccho , idomain ) = P_ccho ELSE P_ccho = chem_index_table( PARAM_ccho , idomain ) END IF chem_boundary_table( idomain, P_ccho ) = .TRUE. chem_dname_table( idomain, P_ccho ) = 'ccho' chem_desc_table( idomain, P_ccho ) = 'CCHO mixing ratio' chem_units_table( idomain, P_ccho ) = 'ppmv' chem_streams_table( idomain, P_ccho )%stream(1) = 33554433 chem_streams_table( idomain, P_ccho )%stream(2) = 2097216 F_ccho = .TRUE. IF ( chem_index_table( PARAM_rcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcho = chem_num_table(idomain) chem_index_table( PARAM_rcho , idomain ) = P_rcho ELSE P_rcho = chem_index_table( PARAM_rcho , idomain ) END IF chem_boundary_table( idomain, P_rcho ) = .TRUE. chem_dname_table( idomain, P_rcho ) = 'rcho' chem_desc_table( idomain, P_rcho ) = 'RCHO mixing ratio' chem_units_table( idomain, P_rcho ) = 'ppmv' chem_streams_table( idomain, P_rcho )%stream(1) = 33554433 chem_streams_table( idomain, P_rcho )%stream(2) = 2097216 F_rcho = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 F_meoh = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 F_etoh = .TRUE. IF ( chem_index_table( PARAM_cco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_oh = chem_num_table(idomain) chem_index_table( PARAM_cco_oh , idomain ) = P_cco_oh ELSE P_cco_oh = chem_index_table( PARAM_cco_oh , idomain ) END IF chem_boundary_table( idomain, P_cco_oh ) = .TRUE. chem_dname_table( idomain, P_cco_oh ) = 'cco_oh' chem_desc_table( idomain, P_cco_oh ) = 'CCO_OH mixing ratio' chem_units_table( idomain, P_cco_oh ) = 'ppmv' chem_streams_table( idomain, P_cco_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_oh )%stream(2) = 2097216 F_cco_oh = .TRUE. IF ( chem_index_table( PARAM_rco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_oh = chem_num_table(idomain) chem_index_table( PARAM_rco_oh , idomain ) = P_rco_oh ELSE P_rco_oh = chem_index_table( PARAM_rco_oh , idomain ) END IF chem_boundary_table( idomain, P_rco_oh ) = .TRUE. chem_dname_table( idomain, P_rco_oh ) = 'rco_oh' chem_desc_table( idomain, P_rco_oh ) = 'RCO_OH mixing ratio' chem_units_table( idomain, P_rco_oh ) = 'ppmv' chem_streams_table( idomain, P_rco_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_oh )%stream(2) = 2097216 F_rco_oh = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_bacl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bacl = chem_num_table(idomain) chem_index_table( PARAM_bacl , idomain ) = P_bacl ELSE P_bacl = chem_index_table( PARAM_bacl , idomain ) END IF chem_boundary_table( idomain, P_bacl ) = .TRUE. chem_dname_table( idomain, P_bacl ) = 'bacl' chem_desc_table( idomain, P_bacl ) = 'BACL mixing ratio' chem_units_table( idomain, P_bacl ) = 'ppmv' chem_streams_table( idomain, P_bacl )%stream(1) = 33554433 chem_streams_table( idomain, P_bacl )%stream(2) = 2097216 F_bacl = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 F_bald = .TRUE. IF ( chem_index_table( PARAM_isoprod , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprod = chem_num_table(idomain) chem_index_table( PARAM_isoprod , idomain ) = P_isoprod ELSE P_isoprod = chem_index_table( PARAM_isoprod , idomain ) END IF chem_boundary_table( idomain, P_isoprod ) = .TRUE. chem_dname_table( idomain, P_isoprod ) = 'isoprod' chem_desc_table( idomain, P_isoprod ) = 'ISOPROD mixing ratio' chem_units_table( idomain, P_isoprod ) = 'ppmv' chem_streams_table( idomain, P_isoprod )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprod )%stream(2) = 2097216 F_isoprod = .TRUE. IF ( chem_index_table( PARAM_methacro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methacro = chem_num_table(idomain) chem_index_table( PARAM_methacro , idomain ) = P_methacro ELSE P_methacro = chem_index_table( PARAM_methacro , idomain ) END IF chem_boundary_table( idomain, P_methacro ) = .TRUE. chem_dname_table( idomain, P_methacro ) = 'methacro' chem_desc_table( idomain, P_methacro ) = 'METHACRO mixing ratio' chem_units_table( idomain, P_methacro ) = 'ppmv' chem_streams_table( idomain, P_methacro )%stream(1) = 33554433 chem_streams_table( idomain, P_methacro )%stream(2) = 2097216 F_methacro = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_prod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prod2 = chem_num_table(idomain) chem_index_table( PARAM_prod2 , idomain ) = P_prod2 ELSE P_prod2 = chem_index_table( PARAM_prod2 , idomain ) END IF chem_boundary_table( idomain, P_prod2 ) = .TRUE. chem_dname_table( idomain, P_prod2 ) = 'prod2' chem_desc_table( idomain, P_prod2 ) = 'PROD2 mixing ratio' chem_units_table( idomain, P_prod2 ) = 'ppmv' chem_streams_table( idomain, P_prod2 )%stream(1) = 33554433 chem_streams_table( idomain, P_prod2 )%stream(2) = 2097216 F_prod2 = .TRUE. IF ( chem_index_table( PARAM_dcb1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb1 = chem_num_table(idomain) chem_index_table( PARAM_dcb1 , idomain ) = P_dcb1 ELSE P_dcb1 = chem_index_table( PARAM_dcb1 , idomain ) END IF chem_boundary_table( idomain, P_dcb1 ) = .TRUE. chem_dname_table( idomain, P_dcb1 ) = 'dcb1' chem_desc_table( idomain, P_dcb1 ) = 'DCB1 mixing ratio' chem_units_table( idomain, P_dcb1 ) = 'ppmv' chem_streams_table( idomain, P_dcb1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb1 )%stream(2) = 2097216 F_dcb1 = .TRUE. IF ( chem_index_table( PARAM_dcb2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb2 = chem_num_table(idomain) chem_index_table( PARAM_dcb2 , idomain ) = P_dcb2 ELSE P_dcb2 = chem_index_table( PARAM_dcb2 , idomain ) END IF chem_boundary_table( idomain, P_dcb2 ) = .TRUE. chem_dname_table( idomain, P_dcb2 ) = 'dcb2' chem_desc_table( idomain, P_dcb2 ) = 'DCB2 mixing ratio' chem_units_table( idomain, P_dcb2 ) = 'ppmv' chem_streams_table( idomain, P_dcb2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb2 )%stream(2) = 2097216 F_dcb2 = .TRUE. IF ( chem_index_table( PARAM_dcb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb3 = chem_num_table(idomain) chem_index_table( PARAM_dcb3 , idomain ) = P_dcb3 ELSE P_dcb3 = chem_index_table( PARAM_dcb3 , idomain ) END IF chem_boundary_table( idomain, P_dcb3 ) = .TRUE. chem_dname_table( idomain, P_dcb3 ) = 'dcb3' chem_desc_table( idomain, P_dcb3 ) = 'DCB3 mixing ratio' chem_units_table( idomain, P_dcb3 ) = 'ppmv' chem_streams_table( idomain, P_dcb3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb3 )%stream(2) = 2097216 F_dcb3 = .TRUE. IF ( chem_index_table( PARAM_ethene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethene = chem_num_table(idomain) chem_index_table( PARAM_ethene , idomain ) = P_ethene ELSE P_ethene = chem_index_table( PARAM_ethene , idomain ) END IF chem_boundary_table( idomain, P_ethene ) = .TRUE. chem_dname_table( idomain, P_ethene ) = 'ethene' chem_desc_table( idomain, P_ethene ) = 'ETHENE mixing ratio' chem_units_table( idomain, P_ethene ) = 'ppmv' chem_streams_table( idomain, P_ethene )%stream(1) = 33554433 chem_streams_table( idomain, P_ethene )%stream(2) = 2097216 F_ethene = .TRUE. IF ( chem_index_table( PARAM_isoprene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprene = chem_num_table(idomain) chem_index_table( PARAM_isoprene , idomain ) = P_isoprene ELSE P_isoprene = chem_index_table( PARAM_isoprene , idomain ) END IF chem_boundary_table( idomain, P_isoprene ) = .TRUE. chem_dname_table( idomain, P_isoprene ) = 'isoprene' chem_desc_table( idomain, P_isoprene ) = 'ISOPRENE mixing ratio' chem_units_table( idomain, P_isoprene ) = 'ppmv' chem_streams_table( idomain, P_isoprene )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprene )%stream(2) = 2097216 F_isoprene = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_alk3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk3 = chem_num_table(idomain) chem_index_table( PARAM_alk3 , idomain ) = P_alk3 ELSE P_alk3 = chem_index_table( PARAM_alk3 , idomain ) END IF chem_boundary_table( idomain, P_alk3 ) = .TRUE. chem_dname_table( idomain, P_alk3 ) = 'alk3' chem_desc_table( idomain, P_alk3 ) = 'ALK3 mixing ratio' chem_units_table( idomain, P_alk3 ) = 'ppmv' chem_streams_table( idomain, P_alk3 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk3 )%stream(2) = 2097216 F_alk3 = .TRUE. IF ( chem_index_table( PARAM_alk4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk4 = chem_num_table(idomain) chem_index_table( PARAM_alk4 , idomain ) = P_alk4 ELSE P_alk4 = chem_index_table( PARAM_alk4 , idomain ) END IF chem_boundary_table( idomain, P_alk4 ) = .TRUE. chem_dname_table( idomain, P_alk4 ) = 'alk4' chem_desc_table( idomain, P_alk4 ) = 'ALK4 mixing ratio' chem_units_table( idomain, P_alk4 ) = 'ppmv' chem_streams_table( idomain, P_alk4 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk4 )%stream(2) = 2097216 F_alk4 = .TRUE. IF ( chem_index_table( PARAM_alk5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk5 = chem_num_table(idomain) chem_index_table( PARAM_alk5 , idomain ) = P_alk5 ELSE P_alk5 = chem_index_table( PARAM_alk5 , idomain ) END IF chem_boundary_table( idomain, P_alk5 ) = .TRUE. chem_dname_table( idomain, P_alk5 ) = 'alk5' chem_desc_table( idomain, P_alk5 ) = 'ALK5 mixing ratio' chem_units_table( idomain, P_alk5 ) = 'ppmv' chem_streams_table( idomain, P_alk5 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk5 )%stream(2) = 2097216 F_alk5 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_ole2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole2 = chem_num_table(idomain) chem_index_table( PARAM_ole2 , idomain ) = P_ole2 ELSE P_ole2 = chem_index_table( PARAM_ole2 , idomain ) END IF chem_boundary_table( idomain, P_ole2 ) = .TRUE. chem_dname_table( idomain, P_ole2 ) = 'ole2' chem_desc_table( idomain, P_ole2 ) = 'OLE2 mixing ratio' chem_units_table( idomain, P_ole2 ) = 'ppmv' chem_streams_table( idomain, P_ole2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole2 )%stream(2) = 2097216 F_ole2 = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 F_terp = .TRUE. IF ( chem_index_table( PARAM_rno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rno3 = chem_num_table(idomain) chem_index_table( PARAM_rno3 , idomain ) = P_rno3 ELSE P_rno3 = chem_index_table( PARAM_rno3 , idomain ) END IF chem_boundary_table( idomain, P_rno3 ) = .TRUE. chem_dname_table( idomain, P_rno3 ) = 'rno3' chem_desc_table( idomain, P_rno3 ) = 'RNO3 mixing ratio' chem_units_table( idomain, P_rno3 ) = 'ppmv' chem_streams_table( idomain, P_rno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rno3 )%stream(2) = 2097216 F_rno3 = .TRUE. IF ( chem_index_table( PARAM_nphe , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nphe = chem_num_table(idomain) chem_index_table( PARAM_nphe , idomain ) = P_nphe ELSE P_nphe = chem_index_table( PARAM_nphe , idomain ) END IF chem_boundary_table( idomain, P_nphe ) = .TRUE. chem_dname_table( idomain, P_nphe ) = 'nphe' chem_desc_table( idomain, P_nphe ) = 'NPHE mixing ratio' chem_units_table( idomain, P_nphe ) = 'ppmv' chem_streams_table( idomain, P_nphe )%stream(1) = 33554433 chem_streams_table( idomain, P_nphe )%stream(2) = 2097216 F_nphe = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 F_phen = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_pan2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan2 = chem_num_table(idomain) chem_index_table( PARAM_pan2 , idomain ) = P_pan2 ELSE P_pan2 = chem_index_table( PARAM_pan2 , idomain ) END IF chem_boundary_table( idomain, P_pan2 ) = .TRUE. chem_dname_table( idomain, P_pan2 ) = 'pan2' chem_desc_table( idomain, P_pan2 ) = 'PAN2 mixing ratio' chem_units_table( idomain, P_pan2 ) = 'ppmv' chem_streams_table( idomain, P_pan2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pan2 )%stream(2) = 2097216 F_pan2 = .TRUE. IF ( chem_index_table( PARAM_pbzn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbzn = chem_num_table(idomain) chem_index_table( PARAM_pbzn , idomain ) = P_pbzn ELSE P_pbzn = chem_index_table( PARAM_pbzn , idomain ) END IF chem_boundary_table( idomain, P_pbzn ) = .TRUE. chem_dname_table( idomain, P_pbzn ) = 'pbzn' chem_desc_table( idomain, P_pbzn ) = 'PBZN mixing ratio' chem_units_table( idomain, P_pbzn ) = 'ppmv' chem_streams_table( idomain, P_pbzn )%stream(1) = 33554433 chem_streams_table( idomain, P_pbzn )%stream(2) = 2097216 F_pbzn = .TRUE. IF ( chem_index_table( PARAM_ma_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_pan = chem_num_table(idomain) chem_index_table( PARAM_ma_pan , idomain ) = P_ma_pan ELSE P_ma_pan = chem_index_table( PARAM_ma_pan , idomain ) END IF chem_boundary_table( idomain, P_ma_pan ) = .TRUE. chem_dname_table( idomain, P_ma_pan ) = 'ma_pan' chem_desc_table( idomain, P_ma_pan ) = 'MA_PAN mixing ratio' chem_units_table( idomain, P_ma_pan ) = 'ppmv' chem_streams_table( idomain, P_ma_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_ma_pan )%stream(2) = 2097216 F_ma_pan = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_cco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_ooh = chem_num_table(idomain) chem_index_table( PARAM_cco_ooh , idomain ) = P_cco_ooh ELSE P_cco_ooh = chem_index_table( PARAM_cco_ooh , idomain ) END IF chem_boundary_table( idomain, P_cco_ooh ) = .TRUE. chem_dname_table( idomain, P_cco_ooh ) = 'cco_ooh' chem_desc_table( idomain, P_cco_ooh ) = 'CCO_OOH mixing ratio' chem_units_table( idomain, P_cco_ooh ) = 'ppmv' chem_streams_table( idomain, P_cco_ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_ooh )%stream(2) = 2097216 F_cco_ooh = .TRUE. IF ( chem_index_table( PARAM_rco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_o2 = chem_num_table(idomain) chem_index_table( PARAM_rco_o2 , idomain ) = P_rco_o2 ELSE P_rco_o2 = chem_index_table( PARAM_rco_o2 , idomain ) END IF chem_boundary_table( idomain, P_rco_o2 ) = .TRUE. chem_dname_table( idomain, P_rco_o2 ) = 'rco_o2' chem_desc_table( idomain, P_rco_o2 ) = 'RCO_O2 mixing ratio' chem_units_table( idomain, P_rco_o2 ) = 'ppmv' chem_streams_table( idomain, P_rco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_o2 )%stream(2) = 2097216 F_rco_o2 = .TRUE. IF ( chem_index_table( PARAM_rco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_ooh = chem_num_table(idomain) chem_index_table( PARAM_rco_ooh , idomain ) = P_rco_ooh ELSE P_rco_ooh = chem_index_table( PARAM_rco_ooh , idomain ) END IF chem_boundary_table( idomain, P_rco_ooh ) = .TRUE. chem_dname_table( idomain, P_rco_ooh ) = 'rco_ooh' chem_desc_table( idomain, P_rco_ooh ) = 'RCO_OOH mixing ratio' chem_units_table( idomain, P_rco_ooh ) = 'ppmv' chem_streams_table( idomain, P_rco_ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_ooh )%stream(2) = 2097216 F_rco_ooh = .TRUE. IF ( chem_index_table( PARAM_xn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xn = chem_num_table(idomain) chem_index_table( PARAM_xn , idomain ) = P_xn ELSE P_xn = chem_index_table( PARAM_xn , idomain ) END IF chem_boundary_table( idomain, P_xn ) = .TRUE. chem_dname_table( idomain, P_xn ) = 'xn' chem_desc_table( idomain, P_xn ) = 'XN mixing ratio' chem_units_table( idomain, P_xn ) = 'ppmv' chem_streams_table( idomain, P_xn )%stream(1) = 33554433 chem_streams_table( idomain, P_xn )%stream(2) = 2097216 F_xn = .TRUE. IF ( chem_index_table( PARAM_xc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xc = chem_num_table(idomain) chem_index_table( PARAM_xc , idomain ) = P_xc ELSE P_xc = chem_index_table( PARAM_xc , idomain ) END IF chem_boundary_table( idomain, P_xc ) = .TRUE. chem_dname_table( idomain, P_xc ) = 'xc' chem_desc_table( idomain, P_xc ) = 'XC mixing ratio' chem_units_table( idomain, P_xc ) = 'ppmv' chem_streams_table( idomain, P_xc )%stream(1) = 33554433 chem_streams_table( idomain, P_xc )%stream(2) = 2097216 F_xc = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_c_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c_o2 = chem_num_table(idomain) chem_index_table( PARAM_c_o2 , idomain ) = P_c_o2 ELSE P_c_o2 = chem_index_table( PARAM_c_o2 , idomain ) END IF chem_boundary_table( idomain, P_c_o2 ) = .TRUE. chem_dname_table( idomain, P_c_o2 ) = 'c_o2' chem_desc_table( idomain, P_c_o2 ) = 'C_O2 mixing ratio' chem_units_table( idomain, P_c_o2 ) = 'ppmv' chem_streams_table( idomain, P_c_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c_o2 )%stream(2) = 2097216 F_c_o2 = .TRUE. IF ( chem_index_table( PARAM_cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cooh = chem_num_table(idomain) chem_index_table( PARAM_cooh , idomain ) = P_cooh ELSE P_cooh = chem_index_table( PARAM_cooh , idomain ) END IF chem_boundary_table( idomain, P_cooh ) = .TRUE. chem_dname_table( idomain, P_cooh ) = 'cooh' chem_desc_table( idomain, P_cooh ) = 'COOH mixing ratio' chem_units_table( idomain, P_cooh ) = 'ppmv' chem_streams_table( idomain, P_cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_cooh )%stream(2) = 2097216 F_cooh = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 F_rooh = .TRUE. IF ( chem_index_table( PARAM_ro2_r , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_r = chem_num_table(idomain) chem_index_table( PARAM_ro2_r , idomain ) = P_ro2_r ELSE P_ro2_r = chem_index_table( PARAM_ro2_r , idomain ) END IF chem_boundary_table( idomain, P_ro2_r ) = .TRUE. chem_dname_table( idomain, P_ro2_r ) = 'ro2_r' chem_desc_table( idomain, P_ro2_r ) = 'RO2_R mixing ratio' chem_units_table( idomain, P_ro2_r ) = 'ppmv' chem_streams_table( idomain, P_ro2_r )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2_r )%stream(2) = 2097216 F_ro2_r = .TRUE. IF ( chem_index_table( PARAM_r2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_r2o2 = chem_num_table(idomain) chem_index_table( PARAM_r2o2 , idomain ) = P_r2o2 ELSE P_r2o2 = chem_index_table( PARAM_r2o2 , idomain ) END IF chem_boundary_table( idomain, P_r2o2 ) = .TRUE. chem_dname_table( idomain, P_r2o2 ) = 'r2o2' chem_desc_table( idomain, P_r2o2 ) = 'R2O2 mixing ratio' chem_units_table( idomain, P_r2o2 ) = 'ppmv' chem_streams_table( idomain, P_r2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_r2o2 )%stream(2) = 2097216 F_r2o2 = .TRUE. IF ( chem_index_table( PARAM_ro2_n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_n = chem_num_table(idomain) chem_index_table( PARAM_ro2_n , idomain ) = P_ro2_n ELSE P_ro2_n = chem_index_table( PARAM_ro2_n , idomain ) END IF chem_boundary_table( idomain, P_ro2_n ) = .TRUE. chem_dname_table( idomain, P_ro2_n ) = 'ro2_n' chem_desc_table( idomain, P_ro2_n ) = 'RO2_N mixing ratio' chem_units_table( idomain, P_ro2_n ) = 'ppmv' chem_streams_table( idomain, P_ro2_n )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2_n )%stream(2) = 2097216 F_ro2_n = .TRUE. IF ( chem_index_table( PARAM_cco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_o2 = chem_num_table(idomain) chem_index_table( PARAM_cco_o2 , idomain ) = P_cco_o2 ELSE P_cco_o2 = chem_index_table( PARAM_cco_o2 , idomain ) END IF chem_boundary_table( idomain, P_cco_o2 ) = .TRUE. chem_dname_table( idomain, P_cco_o2 ) = 'cco_o2' chem_desc_table( idomain, P_cco_o2 ) = 'CCO_O2 mixing ratio' chem_units_table( idomain, P_cco_o2 ) = 'ppmv' chem_streams_table( idomain, P_cco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_o2 )%stream(2) = 2097216 F_cco_o2 = .TRUE. IF ( chem_index_table( PARAM_bzco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzco_o2 = chem_num_table(idomain) chem_index_table( PARAM_bzco_o2 , idomain ) = P_bzco_o2 ELSE P_bzco_o2 = chem_index_table( PARAM_bzco_o2 , idomain ) END IF chem_boundary_table( idomain, P_bzco_o2 ) = .TRUE. chem_dname_table( idomain, P_bzco_o2 ) = 'bzco_o2' chem_desc_table( idomain, P_bzco_o2 ) = 'BZCO_O2 mixing ratio' chem_units_table( idomain, P_bzco_o2 ) = 'ppmv' chem_streams_table( idomain, P_bzco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bzco_o2 )%stream(2) = 2097216 F_bzco_o2 = .TRUE. IF ( chem_index_table( PARAM_ma_rco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_rco3 = chem_num_table(idomain) chem_index_table( PARAM_ma_rco3 , idomain ) = P_ma_rco3 ELSE P_ma_rco3 = chem_index_table( PARAM_ma_rco3 , idomain ) END IF chem_boundary_table( idomain, P_ma_rco3 ) = .TRUE. chem_dname_table( idomain, P_ma_rco3 ) = 'ma_rco3' chem_desc_table( idomain, P_ma_rco3 ) = 'MA_RCO3 mixing ratio' chem_units_table( idomain, P_ma_rco3 ) = 'ppmv' chem_streams_table( idomain, P_ma_rco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ma_rco3 )%stream(2) = 2097216 F_ma_rco3 = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 F_sesq = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c , idomain ) = P_pcg1_b_c ELSE P_pcg1_b_c = chem_index_table( PARAM_pcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c' chem_desc_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c mixing ratio' chem_units_table( idomain, P_pcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c )%stream(2) = 2097216 F_pcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c , idomain ) = P_pcg2_b_c ELSE P_pcg2_b_c = chem_index_table( PARAM_pcg2_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c' chem_desc_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c mixing ratio' chem_units_table( idomain, P_pcg2_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_c )%stream(2) = 2097216 F_pcg2_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o , idomain ) = P_pcg1_b_o ELSE P_pcg1_b_o = chem_index_table( PARAM_pcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o' chem_desc_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o mixing ratio' chem_units_table( idomain, P_pcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o )%stream(2) = 2097216 F_pcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o , idomain ) = P_pcg2_b_o ELSE P_pcg2_b_o = chem_index_table( PARAM_pcg2_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o' chem_desc_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o mixing ratio' chem_units_table( idomain, P_pcg2_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_o )%stream(2) = 2097216 F_pcg2_b_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c , idomain ) = P_opcg1_b_c ELSE P_opcg1_b_c = chem_index_table( PARAM_opcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c' chem_desc_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c mixing ratio' chem_units_table( idomain, P_opcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c )%stream(2) = 2097216 F_opcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o , idomain ) = P_opcg1_b_o ELSE P_opcg1_b_o = chem_index_table( PARAM_opcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o' chem_desc_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o mixing ratio' chem_units_table( idomain, P_opcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o )%stream(2) = 2097216 F_opcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c , idomain ) = P_pcg1_f_c ELSE P_pcg1_f_c = chem_index_table( PARAM_pcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c' chem_desc_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c mixing ratio' chem_units_table( idomain, P_pcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c )%stream(2) = 2097216 F_pcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c , idomain ) = P_pcg2_f_c ELSE P_pcg2_f_c = chem_index_table( PARAM_pcg2_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c' chem_desc_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c mixing ratio' chem_units_table( idomain, P_pcg2_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_c )%stream(2) = 2097216 F_pcg2_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o , idomain ) = P_pcg1_f_o ELSE P_pcg1_f_o = chem_index_table( PARAM_pcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o' chem_desc_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o mixing ratio' chem_units_table( idomain, P_pcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o )%stream(2) = 2097216 F_pcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o , idomain ) = P_pcg2_f_o ELSE P_pcg2_f_o = chem_index_table( PARAM_pcg2_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o' chem_desc_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o mixing ratio' chem_units_table( idomain, P_pcg2_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_o )%stream(2) = 2097216 F_pcg2_f_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c , idomain ) = P_opcg1_f_c ELSE P_opcg1_f_c = chem_index_table( PARAM_opcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c' chem_desc_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c mixing ratio' chem_units_table( idomain, P_opcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c )%stream(2) = 2097216 F_opcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o , idomain ) = P_opcg1_f_o ELSE P_opcg1_f_o = chem_index_table( PARAM_opcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o' chem_desc_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o mixing ratio' chem_units_table( idomain, P_opcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o )%stream(2) = 2097216 F_opcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_psd1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd1 = chem_num_table(idomain) chem_index_table( PARAM_psd1 , idomain ) = P_psd1 ELSE P_psd1 = chem_index_table( PARAM_psd1 , idomain ) END IF chem_boundary_table( idomain, P_psd1 ) = .TRUE. chem_dname_table( idomain, P_psd1 ) = 'psd1' chem_desc_table( idomain, P_psd1 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd1 ) = 'ppmv' chem_streams_table( idomain, P_psd1 )%stream(1) = 33554433 chem_streams_table( idomain, P_psd1 )%stream(2) = 2097216 F_psd1 = .TRUE. IF ( chem_index_table( PARAM_psd2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd2 = chem_num_table(idomain) chem_index_table( PARAM_psd2 , idomain ) = P_psd2 ELSE P_psd2 = chem_index_table( PARAM_psd2 , idomain ) END IF chem_boundary_table( idomain, P_psd2 ) = .TRUE. chem_dname_table( idomain, P_psd2 ) = 'psd2' chem_desc_table( idomain, P_psd2 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd2 ) = 'ppmv' chem_streams_table( idomain, P_psd2 )%stream(1) = 33554433 chem_streams_table( idomain, P_psd2 )%stream(2) = 2097216 F_psd2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 chem_streams_table( idomain, P_den )%stream(2) = 2097216 F_den = .TRUE. IF ( chem_index_table( PARAM_ant1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c = chem_num_table(idomain) chem_index_table( PARAM_ant1_c , idomain ) = P_ant1_c ELSE P_ant1_c = chem_index_table( PARAM_ant1_c , idomain ) END IF chem_boundary_table( idomain, P_ant1_c ) = .TRUE. chem_dname_table( idomain, P_ant1_c ) = 'ant1_c' chem_desc_table( idomain, P_ant1_c ) = 'ant1_c mixing ratio' chem_units_table( idomain, P_ant1_c ) = 'ppmv' chem_streams_table( idomain, P_ant1_c )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c )%stream(2) = 2097216 F_ant1_c = .TRUE. IF ( chem_index_table( PARAM_biog1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c = chem_num_table(idomain) chem_index_table( PARAM_biog1_c , idomain ) = P_biog1_c ELSE P_biog1_c = chem_index_table( PARAM_biog1_c , idomain ) END IF chem_boundary_table( idomain, P_biog1_c ) = .TRUE. chem_dname_table( idomain, P_biog1_c ) = 'biog1_c' chem_desc_table( idomain, P_biog1_c ) = 'biog1_c mixing ratio' chem_units_table( idomain, P_biog1_c ) = 'ppmv' chem_streams_table( idomain, P_biog1_c )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c )%stream(2) = 2097216 F_biog1_c = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) = P_pcg1_b_c_a01 ELSE P_pcg1_b_c_a01 = chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c_a01' chem_desc_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(2) = 2097216 F_pcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) = P_pcg1_b_o_a01 ELSE P_pcg1_b_o_a01 = chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o_a01' chem_desc_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(2) = 2097216 F_pcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) = P_opcg1_b_c_a01 ELSE P_opcg1_b_c_a01 = chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c_a01' chem_desc_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(2) = 2097216 F_opcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) = P_opcg1_b_o_a01 ELSE P_opcg1_b_o_a01 = chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o_a01' chem_desc_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(2) = 2097216 F_opcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) = P_pcg1_f_c_a01 ELSE P_pcg1_f_c_a01 = chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c_a01' chem_desc_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(2) = 2097216 F_pcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) = P_pcg1_f_o_a01 ELSE P_pcg1_f_o_a01 = chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o_a01' chem_desc_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(2) = 2097216 F_pcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) = P_opcg1_f_c_a01 ELSE P_opcg1_f_c_a01 = chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c_a01' chem_desc_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(2) = 2097216 F_opcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) = P_opcg1_f_o_a01 ELSE P_opcg1_f_o_a01 = chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o_a01' chem_desc_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(2) = 2097216 F_opcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a01 , idomain ) = P_ant1_c_a01 ELSE P_ant1_c_a01 = chem_index_table( PARAM_ant1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a01 ) = 'ant1_c_a01' chem_desc_table( idomain, P_ant1_c_a01 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a01 )%stream(2) = 2097216 F_ant1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a01 , idomain ) = P_biog1_c_a01 ELSE P_biog1_c_a01 = chem_index_table( PARAM_biog1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a01 ) = 'biog1_c_a01' chem_desc_table( idomain, P_biog1_c_a01 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a01 )%stream(2) = 2097216 F_biog1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) = P_pcg1_b_c_a02 ELSE P_pcg1_b_c_a02 = chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c_a02' chem_desc_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(2) = 2097216 F_pcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) = P_pcg1_b_o_a02 ELSE P_pcg1_b_o_a02 = chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o_a02' chem_desc_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(2) = 2097216 F_pcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) = P_opcg1_b_c_a02 ELSE P_opcg1_b_c_a02 = chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c_a02' chem_desc_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(2) = 2097216 F_opcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) = P_opcg1_b_o_a02 ELSE P_opcg1_b_o_a02 = chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o_a02' chem_desc_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(2) = 2097216 F_opcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) = P_pcg1_f_c_a02 ELSE P_pcg1_f_c_a02 = chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c_a02' chem_desc_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(2) = 2097216 F_pcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) = P_pcg1_f_o_a02 ELSE P_pcg1_f_o_a02 = chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o_a02' chem_desc_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(2) = 2097216 F_pcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) = P_opcg1_f_c_a02 ELSE P_opcg1_f_c_a02 = chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c_a02' chem_desc_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(2) = 2097216 F_opcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) = P_opcg1_f_o_a02 ELSE P_opcg1_f_o_a02 = chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o_a02' chem_desc_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(2) = 2097216 F_opcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a02 , idomain ) = P_ant1_c_a02 ELSE P_ant1_c_a02 = chem_index_table( PARAM_ant1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a02 ) = 'ant1_c_a02' chem_desc_table( idomain, P_ant1_c_a02 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a02 )%stream(2) = 2097216 F_ant1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a02 , idomain ) = P_biog1_c_a02 ELSE P_biog1_c_a02 = chem_index_table( PARAM_biog1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a02 ) = 'biog1_c_a02' chem_desc_table( idomain, P_biog1_c_a02 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a02 )%stream(2) = 2097216 F_biog1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) = P_pcg1_b_c_a03 ELSE P_pcg1_b_c_a03 = chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c_a03' chem_desc_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(2) = 2097216 F_pcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) = P_pcg1_b_o_a03 ELSE P_pcg1_b_o_a03 = chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o_a03' chem_desc_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(2) = 2097216 F_pcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) = P_opcg1_b_c_a03 ELSE P_opcg1_b_c_a03 = chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c_a03' chem_desc_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(2) = 2097216 F_opcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) = P_opcg1_b_o_a03 ELSE P_opcg1_b_o_a03 = chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o_a03' chem_desc_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(2) = 2097216 F_opcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) = P_pcg1_f_c_a03 ELSE P_pcg1_f_c_a03 = chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c_a03' chem_desc_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(2) = 2097216 F_pcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) = P_pcg1_f_o_a03 ELSE P_pcg1_f_o_a03 = chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o_a03' chem_desc_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(2) = 2097216 F_pcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) = P_opcg1_f_c_a03 ELSE P_opcg1_f_c_a03 = chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c_a03' chem_desc_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(2) = 2097216 F_opcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) = P_opcg1_f_o_a03 ELSE P_opcg1_f_o_a03 = chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o_a03' chem_desc_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(2) = 2097216 F_opcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a03 , idomain ) = P_ant1_c_a03 ELSE P_ant1_c_a03 = chem_index_table( PARAM_ant1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a03 ) = 'ant1_c_a03' chem_desc_table( idomain, P_ant1_c_a03 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a03 )%stream(2) = 2097216 F_ant1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a03 , idomain ) = P_biog1_c_a03 ELSE P_biog1_c_a03 = chem_index_table( PARAM_biog1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a03 ) = 'biog1_c_a03' chem_desc_table( idomain, P_biog1_c_a03 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a03 )%stream(2) = 2097216 F_biog1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) = P_pcg1_b_c_a04 ELSE P_pcg1_b_c_a04 = chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c_a04' chem_desc_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(2) = 2097216 F_pcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) = P_pcg1_b_o_a04 ELSE P_pcg1_b_o_a04 = chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o_a04' chem_desc_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(2) = 2097216 F_pcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) = P_opcg1_b_c_a04 ELSE P_opcg1_b_c_a04 = chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c_a04' chem_desc_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(2) = 2097216 F_opcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) = P_opcg1_b_o_a04 ELSE P_opcg1_b_o_a04 = chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o_a04' chem_desc_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(2) = 2097216 F_opcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) = P_pcg1_f_c_a04 ELSE P_pcg1_f_c_a04 = chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c_a04' chem_desc_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(2) = 2097216 F_pcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) = P_pcg1_f_o_a04 ELSE P_pcg1_f_o_a04 = chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o_a04' chem_desc_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(2) = 2097216 F_pcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) = P_opcg1_f_c_a04 ELSE P_opcg1_f_c_a04 = chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c_a04' chem_desc_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(2) = 2097216 F_opcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) = P_opcg1_f_o_a04 ELSE P_opcg1_f_o_a04 = chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o_a04' chem_desc_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(2) = 2097216 F_opcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a04 , idomain ) = P_ant1_c_a04 ELSE P_ant1_c_a04 = chem_index_table( PARAM_ant1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a04 ) = 'ant1_c_a04' chem_desc_table( idomain, P_ant1_c_a04 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a04 )%stream(2) = 2097216 F_ant1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a04 , idomain ) = P_biog1_c_a04 ELSE P_biog1_c_a04 = chem_index_table( PARAM_biog1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a04 ) = 'biog1_c_a04' chem_desc_table( idomain, P_biog1_c_a04 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a04 )%stream(2) = 2097216 F_biog1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) = P_pcg1_b_c_a05 ELSE P_pcg1_b_c_a05 = chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a05 ) = 'pcg1_b_c_a05' chem_desc_table( idomain, P_pcg1_b_c_a05 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a05 )%stream(2) = 2097216 F_pcg1_b_c_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) = P_pcg1_b_o_a05 ELSE P_pcg1_b_o_a05 = chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a05 ) = 'pcg1_b_o_a05' chem_desc_table( idomain, P_pcg1_b_o_a05 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a05 )%stream(2) = 2097216 F_pcg1_b_o_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) = P_opcg1_b_c_a05 ELSE P_opcg1_b_c_a05 = chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a05 ) = 'opcg1_b_c_a05' chem_desc_table( idomain, P_opcg1_b_c_a05 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a05 )%stream(2) = 2097216 F_opcg1_b_c_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) = P_opcg1_b_o_a05 ELSE P_opcg1_b_o_a05 = chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a05 ) = 'opcg1_b_o_a05' chem_desc_table( idomain, P_opcg1_b_o_a05 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a05 )%stream(2) = 2097216 F_opcg1_b_o_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) = P_pcg1_f_c_a05 ELSE P_pcg1_f_c_a05 = chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a05 ) = 'pcg1_f_c_a05' chem_desc_table( idomain, P_pcg1_f_c_a05 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a05 )%stream(2) = 2097216 F_pcg1_f_c_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) = P_pcg1_f_o_a05 ELSE P_pcg1_f_o_a05 = chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a05 ) = 'pcg1_f_o_a05' chem_desc_table( idomain, P_pcg1_f_o_a05 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a05 )%stream(2) = 2097216 F_pcg1_f_o_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) = P_opcg1_f_c_a05 ELSE P_opcg1_f_c_a05 = chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a05 ) = 'opcg1_f_c_a05' chem_desc_table( idomain, P_opcg1_f_c_a05 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a05 )%stream(2) = 2097216 F_opcg1_f_c_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) = P_opcg1_f_o_a05 ELSE P_opcg1_f_o_a05 = chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a05 ) = 'opcg1_f_o_a05' chem_desc_table( idomain, P_opcg1_f_o_a05 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a05 )%stream(2) = 2097216 F_opcg1_f_o_a05 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a05 , idomain ) = P_ant1_c_a05 ELSE P_ant1_c_a05 = chem_index_table( PARAM_ant1_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a05 ) = 'ant1_c_a05' chem_desc_table( idomain, P_ant1_c_a05 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_a05 )%stream(2) = 2097216 F_ant1_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a05 , idomain ) = P_biog1_c_a05 ELSE P_biog1_c_a05 = chem_index_table( PARAM_biog1_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a05 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a05 ) = 'biog1_c_a05' chem_desc_table( idomain, P_biog1_c_a05 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_a05 )%stream(2) = 2097216 F_biog1_c_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) = P_pcg1_b_c_a06 ELSE P_pcg1_b_c_a06 = chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a06 ) = 'pcg1_b_c_a06' chem_desc_table( idomain, P_pcg1_b_c_a06 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a06 )%stream(2) = 2097216 F_pcg1_b_c_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) = P_pcg1_b_o_a06 ELSE P_pcg1_b_o_a06 = chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a06 ) = 'pcg1_b_o_a06' chem_desc_table( idomain, P_pcg1_b_o_a06 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a06 )%stream(2) = 2097216 F_pcg1_b_o_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) = P_opcg1_b_c_a06 ELSE P_opcg1_b_c_a06 = chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a06 ) = 'opcg1_b_c_a06' chem_desc_table( idomain, P_opcg1_b_c_a06 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a06 )%stream(2) = 2097216 F_opcg1_b_c_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) = P_opcg1_b_o_a06 ELSE P_opcg1_b_o_a06 = chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a06 ) = 'opcg1_b_o_a06' chem_desc_table( idomain, P_opcg1_b_o_a06 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a06 )%stream(2) = 2097216 F_opcg1_b_o_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) = P_pcg1_f_c_a06 ELSE P_pcg1_f_c_a06 = chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a06 ) = 'pcg1_f_c_a06' chem_desc_table( idomain, P_pcg1_f_c_a06 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a06 )%stream(2) = 2097216 F_pcg1_f_c_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) = P_pcg1_f_o_a06 ELSE P_pcg1_f_o_a06 = chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a06 ) = 'pcg1_f_o_a06' chem_desc_table( idomain, P_pcg1_f_o_a06 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a06 )%stream(2) = 2097216 F_pcg1_f_o_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) = P_opcg1_f_c_a06 ELSE P_opcg1_f_c_a06 = chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a06 ) = 'opcg1_f_c_a06' chem_desc_table( idomain, P_opcg1_f_c_a06 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a06 )%stream(2) = 2097216 F_opcg1_f_c_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) = P_opcg1_f_o_a06 ELSE P_opcg1_f_o_a06 = chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a06 ) = 'opcg1_f_o_a06' chem_desc_table( idomain, P_opcg1_f_o_a06 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a06 )%stream(2) = 2097216 F_opcg1_f_o_a06 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a06 , idomain ) = P_ant1_c_a06 ELSE P_ant1_c_a06 = chem_index_table( PARAM_ant1_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a06 ) = 'ant1_c_a06' chem_desc_table( idomain, P_ant1_c_a06 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_a06 )%stream(2) = 2097216 F_ant1_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a06 , idomain ) = P_biog1_c_a06 ELSE P_biog1_c_a06 = chem_index_table( PARAM_biog1_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a06 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a06 ) = 'biog1_c_a06' chem_desc_table( idomain, P_biog1_c_a06 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_a06 )%stream(2) = 2097216 F_biog1_c_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) = P_pcg1_b_c_a07 ELSE P_pcg1_b_c_a07 = chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a07 ) = 'pcg1_b_c_a07' chem_desc_table( idomain, P_pcg1_b_c_a07 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a07 )%stream(2) = 2097216 F_pcg1_b_c_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) = P_pcg1_b_o_a07 ELSE P_pcg1_b_o_a07 = chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a07 ) = 'pcg1_b_o_a07' chem_desc_table( idomain, P_pcg1_b_o_a07 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a07 )%stream(2) = 2097216 F_pcg1_b_o_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) = P_opcg1_b_c_a07 ELSE P_opcg1_b_c_a07 = chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a07 ) = 'opcg1_b_c_a07' chem_desc_table( idomain, P_opcg1_b_c_a07 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a07 )%stream(2) = 2097216 F_opcg1_b_c_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) = P_opcg1_b_o_a07 ELSE P_opcg1_b_o_a07 = chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a07 ) = 'opcg1_b_o_a07' chem_desc_table( idomain, P_opcg1_b_o_a07 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a07 )%stream(2) = 2097216 F_opcg1_b_o_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) = P_pcg1_f_c_a07 ELSE P_pcg1_f_c_a07 = chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a07 ) = 'pcg1_f_c_a07' chem_desc_table( idomain, P_pcg1_f_c_a07 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a07 )%stream(2) = 2097216 F_pcg1_f_c_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) = P_pcg1_f_o_a07 ELSE P_pcg1_f_o_a07 = chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a07 ) = 'pcg1_f_o_a07' chem_desc_table( idomain, P_pcg1_f_o_a07 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a07 )%stream(2) = 2097216 F_pcg1_f_o_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) = P_opcg1_f_c_a07 ELSE P_opcg1_f_c_a07 = chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a07 ) = 'opcg1_f_c_a07' chem_desc_table( idomain, P_opcg1_f_c_a07 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a07 )%stream(2) = 2097216 F_opcg1_f_c_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) = P_opcg1_f_o_a07 ELSE P_opcg1_f_o_a07 = chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a07 ) = 'opcg1_f_o_a07' chem_desc_table( idomain, P_opcg1_f_o_a07 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a07 )%stream(2) = 2097216 F_opcg1_f_o_a07 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a07 , idomain ) = P_ant1_c_a07 ELSE P_ant1_c_a07 = chem_index_table( PARAM_ant1_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a07 ) = 'ant1_c_a07' chem_desc_table( idomain, P_ant1_c_a07 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_a07 )%stream(2) = 2097216 F_ant1_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a07 , idomain ) = P_biog1_c_a07 ELSE P_biog1_c_a07 = chem_index_table( PARAM_biog1_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a07 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a07 ) = 'biog1_c_a07' chem_desc_table( idomain, P_biog1_c_a07 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_a07 )%stream(2) = 2097216 F_biog1_c_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) = P_pcg1_b_c_a08 ELSE P_pcg1_b_c_a08 = chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a08 ) = 'pcg1_b_c_a08' chem_desc_table( idomain, P_pcg1_b_c_a08 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a08 )%stream(2) = 2097216 F_pcg1_b_c_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) = P_pcg1_b_o_a08 ELSE P_pcg1_b_o_a08 = chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a08 ) = 'pcg1_b_o_a08' chem_desc_table( idomain, P_pcg1_b_o_a08 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a08 )%stream(2) = 2097216 F_pcg1_b_o_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) = P_opcg1_b_c_a08 ELSE P_opcg1_b_c_a08 = chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a08 ) = 'opcg1_b_c_a08' chem_desc_table( idomain, P_opcg1_b_c_a08 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a08 )%stream(2) = 2097216 F_opcg1_b_c_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) = P_opcg1_b_o_a08 ELSE P_opcg1_b_o_a08 = chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a08 ) = 'opcg1_b_o_a08' chem_desc_table( idomain, P_opcg1_b_o_a08 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a08 )%stream(2) = 2097216 F_opcg1_b_o_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) = P_pcg1_f_c_a08 ELSE P_pcg1_f_c_a08 = chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a08 ) = 'pcg1_f_c_a08' chem_desc_table( idomain, P_pcg1_f_c_a08 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a08 )%stream(2) = 2097216 F_pcg1_f_c_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) = P_pcg1_f_o_a08 ELSE P_pcg1_f_o_a08 = chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a08 ) = 'pcg1_f_o_a08' chem_desc_table( idomain, P_pcg1_f_o_a08 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a08 )%stream(2) = 2097216 F_pcg1_f_o_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) = P_opcg1_f_c_a08 ELSE P_opcg1_f_c_a08 = chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a08 ) = 'opcg1_f_c_a08' chem_desc_table( idomain, P_opcg1_f_c_a08 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a08 )%stream(2) = 2097216 F_opcg1_f_c_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) = P_opcg1_f_o_a08 ELSE P_opcg1_f_o_a08 = chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a08 ) = 'opcg1_f_o_a08' chem_desc_table( idomain, P_opcg1_f_o_a08 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a08 )%stream(2) = 2097216 F_opcg1_f_o_a08 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a08 , idomain ) = P_ant1_c_a08 ELSE P_ant1_c_a08 = chem_index_table( PARAM_ant1_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a08 ) = 'ant1_c_a08' chem_desc_table( idomain, P_ant1_c_a08 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_a08 )%stream(2) = 2097216 F_ant1_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a08 , idomain ) = P_biog1_c_a08 ELSE P_biog1_c_a08 = chem_index_table( PARAM_biog1_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a08 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a08 ) = 'biog1_c_a08' chem_desc_table( idomain, P_biog1_c_a08 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_a08 )%stream(2) = 2097216 F_biog1_c_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw01 , idomain ) = P_pcg1_b_c_cw01 ELSE P_pcg1_b_c_cw01 = chem_index_table( PARAM_pcg1_b_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw01 ) = 'pcg1_b_c_cw01' chem_desc_table( idomain, P_pcg1_b_c_cw01 ) = 'pcg1_b_c_cw01, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_c_cw01 )%stream(2) = 2097152 F_pcg1_b_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw01 , idomain ) = P_pcg1_b_o_cw01 ELSE P_pcg1_b_o_cw01 = chem_index_table( PARAM_pcg1_b_o_cw01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw01 ) = 'pcg1_b_o_cw01' chem_desc_table( idomain, P_pcg1_b_o_cw01 ) = 'pcg1_b_o_cw01, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_o_cw01 )%stream(2) = 2097152 F_pcg1_b_o_cw01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw01 , idomain ) = P_opcg1_b_c_cw01 ELSE P_opcg1_b_c_cw01 = chem_index_table( PARAM_opcg1_b_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw01 ) = 'opcg1_b_c_cw01' chem_desc_table( idomain, P_opcg1_b_c_cw01 ) = 'opcg1_b_c_cw01, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_c_cw01 )%stream(2) = 2097152 F_opcg1_b_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw01 , idomain ) = P_opcg1_b_o_cw01 ELSE P_opcg1_b_o_cw01 = chem_index_table( PARAM_opcg1_b_o_cw01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw01 ) = 'opcg1_b_o_cw01' chem_desc_table( idomain, P_opcg1_b_o_cw01 ) = 'opcg1_b_o_cw01, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_o_cw01 )%stream(2) = 2097152 F_opcg1_b_o_cw01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw01 , idomain ) = P_pcg1_f_c_cw01 ELSE P_pcg1_f_c_cw01 = chem_index_table( PARAM_pcg1_f_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw01 ) = 'pcg1_f_c_cw01' chem_desc_table( idomain, P_pcg1_f_c_cw01 ) = 'pcg1_f_c_cw01, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_c_cw01 )%stream(2) = 2097152 F_pcg1_f_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw01 , idomain ) = P_pcg1_f_o_cw01 ELSE P_pcg1_f_o_cw01 = chem_index_table( PARAM_pcg1_f_o_cw01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw01 ) = 'pcg1_f_o_cw01' chem_desc_table( idomain, P_pcg1_f_o_cw01 ) = 'pcg1_f_o_cw01, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_o_cw01 )%stream(2) = 2097152 F_pcg1_f_o_cw01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw01 , idomain ) = P_opcg1_f_c_cw01 ELSE P_opcg1_f_c_cw01 = chem_index_table( PARAM_opcg1_f_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw01 ) = 'opcg1_f_c_cw01' chem_desc_table( idomain, P_opcg1_f_c_cw01 ) = 'opcg1_f_c_cw01, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_c_cw01 )%stream(2) = 2097152 F_opcg1_f_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw01 , idomain ) = P_opcg1_f_o_cw01 ELSE P_opcg1_f_o_cw01 = chem_index_table( PARAM_opcg1_f_o_cw01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw01 ) = 'opcg1_f_o_cw01' chem_desc_table( idomain, P_opcg1_f_o_cw01 ) = 'opcg1_f_o_cw01, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_o_cw01 )%stream(2) = 2097152 F_opcg1_f_o_cw01 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw01 , idomain ) = P_ant1_c_cw01 ELSE P_ant1_c_cw01 = chem_index_table( PARAM_ant1_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw01 ) = 'ant1_c_cw01' chem_desc_table( idomain, P_ant1_c_cw01 ) = 'ant1_c_cw01, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_cw01 )%stream(2) = 2097152 F_ant1_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw01 , idomain ) = P_biog1_c_cw01 ELSE P_biog1_c_cw01 = chem_index_table( PARAM_biog1_c_cw01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw01 ) = 'biog1_c_cw01' chem_desc_table( idomain, P_biog1_c_cw01 ) = 'biog1_c_cw01, aerosol bin 01' chem_units_table( idomain, P_biog1_c_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw01 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_cw01 )%stream(2) = 2097152 F_biog1_c_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw02 , idomain ) = P_pcg1_b_c_cw02 ELSE P_pcg1_b_c_cw02 = chem_index_table( PARAM_pcg1_b_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw02 ) = 'pcg1_b_c_cw02' chem_desc_table( idomain, P_pcg1_b_c_cw02 ) = 'pcg1_b_c_cw02, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_c_cw02 )%stream(2) = 2097152 F_pcg1_b_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw02 , idomain ) = P_pcg1_b_o_cw02 ELSE P_pcg1_b_o_cw02 = chem_index_table( PARAM_pcg1_b_o_cw02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw02 ) = 'pcg1_b_o_cw02' chem_desc_table( idomain, P_pcg1_b_o_cw02 ) = 'pcg1_b_o_cw02, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_o_cw02 )%stream(2) = 2097152 F_pcg1_b_o_cw02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw02 , idomain ) = P_opcg1_b_c_cw02 ELSE P_opcg1_b_c_cw02 = chem_index_table( PARAM_opcg1_b_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw02 ) = 'opcg1_b_c_cw02' chem_desc_table( idomain, P_opcg1_b_c_cw02 ) = 'opcg1_b_c_cw02, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_c_cw02 )%stream(2) = 2097152 F_opcg1_b_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw02 , idomain ) = P_opcg1_b_o_cw02 ELSE P_opcg1_b_o_cw02 = chem_index_table( PARAM_opcg1_b_o_cw02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw02 ) = 'opcg1_b_o_cw02' chem_desc_table( idomain, P_opcg1_b_o_cw02 ) = 'opcg1_b_o_cw02, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_o_cw02 )%stream(2) = 2097152 F_opcg1_b_o_cw02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw02 , idomain ) = P_pcg1_f_c_cw02 ELSE P_pcg1_f_c_cw02 = chem_index_table( PARAM_pcg1_f_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw02 ) = 'pcg1_f_c_cw02' chem_desc_table( idomain, P_pcg1_f_c_cw02 ) = 'pcg1_f_c_cw02, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_c_cw02 )%stream(2) = 2097152 F_pcg1_f_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw02 , idomain ) = P_pcg1_f_o_cw02 ELSE P_pcg1_f_o_cw02 = chem_index_table( PARAM_pcg1_f_o_cw02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw02 ) = 'pcg1_f_o_cw02' chem_desc_table( idomain, P_pcg1_f_o_cw02 ) = 'pcg1_f_o_cw02, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_o_cw02 )%stream(2) = 2097152 F_pcg1_f_o_cw02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw02 , idomain ) = P_opcg1_f_c_cw02 ELSE P_opcg1_f_c_cw02 = chem_index_table( PARAM_opcg1_f_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw02 ) = 'opcg1_f_c_cw02' chem_desc_table( idomain, P_opcg1_f_c_cw02 ) = 'opcg1_f_c_cw02, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_c_cw02 )%stream(2) = 2097152 F_opcg1_f_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw02 , idomain ) = P_opcg1_f_o_cw02 ELSE P_opcg1_f_o_cw02 = chem_index_table( PARAM_opcg1_f_o_cw02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw02 ) = 'opcg1_f_o_cw02' chem_desc_table( idomain, P_opcg1_f_o_cw02 ) = 'opcg1_f_o_cw02, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_o_cw02 )%stream(2) = 2097152 F_opcg1_f_o_cw02 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw02 , idomain ) = P_ant1_c_cw02 ELSE P_ant1_c_cw02 = chem_index_table( PARAM_ant1_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw02 ) = 'ant1_c_cw02' chem_desc_table( idomain, P_ant1_c_cw02 ) = 'ant1_c_cw02, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw02 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_cw02 )%stream(2) = 2097152 F_ant1_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw02 , idomain ) = P_biog1_c_cw02 ELSE P_biog1_c_cw02 = chem_index_table( PARAM_biog1_c_cw02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw02 ) = 'biog1_c_cw02' chem_desc_table( idomain, P_biog1_c_cw02 ) = 'biog1_c, aerosol in cloud bin 02' chem_units_table( idomain, P_biog1_c_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_cw02 )%stream(2) = 2097216 F_biog1_c_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw03 , idomain ) = P_pcg1_b_c_cw03 ELSE P_pcg1_b_c_cw03 = chem_index_table( PARAM_pcg1_b_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw03 ) = 'pcg1_b_c_cw03' chem_desc_table( idomain, P_pcg1_b_c_cw03 ) = 'pcg1_b_c_cw03, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_c_cw03 )%stream(2) = 2097152 F_pcg1_b_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw03 , idomain ) = P_pcg1_b_o_cw03 ELSE P_pcg1_b_o_cw03 = chem_index_table( PARAM_pcg1_b_o_cw03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw03 ) = 'pcg1_b_o_cw03' chem_desc_table( idomain, P_pcg1_b_o_cw03 ) = 'pcg1_b_o_cw03, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_o_cw03 )%stream(2) = 2097152 F_pcg1_b_o_cw03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw03 , idomain ) = P_opcg1_b_c_cw03 ELSE P_opcg1_b_c_cw03 = chem_index_table( PARAM_opcg1_b_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw03 ) = 'opcg1_b_c_cw03' chem_desc_table( idomain, P_opcg1_b_c_cw03 ) = 'opcg1_b_c_cw03, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_c_cw03 )%stream(2) = 2097152 F_opcg1_b_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw03 , idomain ) = P_opcg1_b_o_cw03 ELSE P_opcg1_b_o_cw03 = chem_index_table( PARAM_opcg1_b_o_cw03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw03 ) = 'opcg1_b_o_cw03' chem_desc_table( idomain, P_opcg1_b_o_cw03 ) = 'opcg1_b_o_cw03, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_o_cw03 )%stream(2) = 2097152 F_opcg1_b_o_cw03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw03 , idomain ) = P_pcg1_f_c_cw03 ELSE P_pcg1_f_c_cw03 = chem_index_table( PARAM_pcg1_f_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw03 ) = 'pcg1_f_c_cw03' chem_desc_table( idomain, P_pcg1_f_c_cw03 ) = 'pcg1_f_c_cw03, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_c_cw03 )%stream(2) = 2097152 F_pcg1_f_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw03 , idomain ) = P_pcg1_f_o_cw03 ELSE P_pcg1_f_o_cw03 = chem_index_table( PARAM_pcg1_f_o_cw03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw03 ) = 'pcg1_f_o_cw03' chem_desc_table( idomain, P_pcg1_f_o_cw03 ) = 'pcg1_f_o_cw03, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_o_cw03 )%stream(2) = 2097152 F_pcg1_f_o_cw03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw03 , idomain ) = P_opcg1_f_c_cw03 ELSE P_opcg1_f_c_cw03 = chem_index_table( PARAM_opcg1_f_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw03 ) = 'opcg1_f_c_cw03' chem_desc_table( idomain, P_opcg1_f_c_cw03 ) = 'opcg1_f_c_cw03, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_c_cw03 )%stream(2) = 2097152 F_opcg1_f_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw03 , idomain ) = P_opcg1_f_o_cw03 ELSE P_opcg1_f_o_cw03 = chem_index_table( PARAM_opcg1_f_o_cw03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw03 ) = 'opcg1_f_o_cw03' chem_desc_table( idomain, P_opcg1_f_o_cw03 ) = 'opcg1_f_o_cw03, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_o_cw03 )%stream(2) = 2097152 F_opcg1_f_o_cw03 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw03 , idomain ) = P_ant1_c_cw03 ELSE P_ant1_c_cw03 = chem_index_table( PARAM_ant1_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw03 ) = 'ant1_c_cw03' chem_desc_table( idomain, P_ant1_c_cw03 ) = 'ant1_c_cw03, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw03 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_cw03 )%stream(2) = 2097152 F_ant1_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw03 , idomain ) = P_biog1_c_cw03 ELSE P_biog1_c_cw03 = chem_index_table( PARAM_biog1_c_cw03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw03 ) = 'biog1_c_cw03' chem_desc_table( idomain, P_biog1_c_cw03 ) = 'biog1_c, aerosol in cloud bin 03' chem_units_table( idomain, P_biog1_c_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_cw03 )%stream(2) = 2097216 F_biog1_c_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw04 , idomain ) = P_pcg1_b_c_cw04 ELSE P_pcg1_b_c_cw04 = chem_index_table( PARAM_pcg1_b_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw04 ) = 'pcg1_b_c_cw04' chem_desc_table( idomain, P_pcg1_b_c_cw04 ) = 'pcg1_b_c_cw04, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_c_cw04 )%stream(2) = 2097152 F_pcg1_b_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw04 , idomain ) = P_pcg1_b_o_cw04 ELSE P_pcg1_b_o_cw04 = chem_index_table( PARAM_pcg1_b_o_cw04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw04 ) = 'pcg1_b_o_cw04' chem_desc_table( idomain, P_pcg1_b_o_cw04 ) = 'pcg1_b_o_cw04, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_o_cw04 )%stream(2) = 2097152 F_pcg1_b_o_cw04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw04 , idomain ) = P_opcg1_b_c_cw04 ELSE P_opcg1_b_c_cw04 = chem_index_table( PARAM_opcg1_b_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw04 ) = 'opcg1_b_c_cw04' chem_desc_table( idomain, P_opcg1_b_c_cw04 ) = 'opcg1_b_c_cw04, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_c_cw04 )%stream(2) = 2097152 F_opcg1_b_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw04 , idomain ) = P_opcg1_b_o_cw04 ELSE P_opcg1_b_o_cw04 = chem_index_table( PARAM_opcg1_b_o_cw04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw04 ) = 'opcg1_b_o_cw04' chem_desc_table( idomain, P_opcg1_b_o_cw04 ) = 'opcg1_b_o_cw04, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_o_cw04 )%stream(2) = 2097152 F_opcg1_b_o_cw04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw04 , idomain ) = P_pcg1_f_c_cw04 ELSE P_pcg1_f_c_cw04 = chem_index_table( PARAM_pcg1_f_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw04 ) = 'pcg1_f_c_cw04' chem_desc_table( idomain, P_pcg1_f_c_cw04 ) = 'pcg1_f_c_cw04, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_c_cw04 )%stream(2) = 2097152 F_pcg1_f_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw04 , idomain ) = P_pcg1_f_o_cw04 ELSE P_pcg1_f_o_cw04 = chem_index_table( PARAM_pcg1_f_o_cw04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw04 ) = 'pcg1_f_o_cw04' chem_desc_table( idomain, P_pcg1_f_o_cw04 ) = 'pcg1_f_o_cw04, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_o_cw04 )%stream(2) = 2097152 F_pcg1_f_o_cw04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw04 , idomain ) = P_opcg1_f_c_cw04 ELSE P_opcg1_f_c_cw04 = chem_index_table( PARAM_opcg1_f_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw04 ) = 'opcg1_f_c_cw04' chem_desc_table( idomain, P_opcg1_f_c_cw04 ) = 'opcg1_f_c_cw04, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_c_cw04 )%stream(2) = 2097152 F_opcg1_f_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw04 , idomain ) = P_opcg1_f_o_cw04 ELSE P_opcg1_f_o_cw04 = chem_index_table( PARAM_opcg1_f_o_cw04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw04 ) = 'opcg1_f_o_cw04' chem_desc_table( idomain, P_opcg1_f_o_cw04 ) = 'opcg1_f_o_cw04, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_o_cw04 )%stream(2) = 2097152 F_opcg1_f_o_cw04 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw04 , idomain ) = P_ant1_c_cw04 ELSE P_ant1_c_cw04 = chem_index_table( PARAM_ant1_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw04 ) = 'ant1_c_cw04' chem_desc_table( idomain, P_ant1_c_cw04 ) = 'ant1_c_cw04, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_cw04 )%stream(2) = 2097152 F_ant1_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw04 , idomain ) = P_biog1_c_cw04 ELSE P_biog1_c_cw04 = chem_index_table( PARAM_biog1_c_cw04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw04 ) = 'biog1_c_cw04' chem_desc_table( idomain, P_biog1_c_cw04 ) = 'biog1_c_cw04, aerosol bin 01' chem_units_table( idomain, P_biog1_c_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw04 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_cw04 )%stream(2) = 2097152 F_biog1_c_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw05 , idomain ) = P_so4_cw05 ELSE P_so4_cw05 = chem_index_table( PARAM_so4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw05 ) = .TRUE. chem_dname_table( idomain, P_so4_cw05 ) = 'so4_cw05' chem_desc_table( idomain, P_so4_cw05 ) = 'Sulfate, aerosol in cloud bin 05' chem_units_table( idomain, P_so4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw05 )%stream(2) = 2097216 F_so4_cw05 = .TRUE. IF ( chem_index_table( PARAM_no3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw05 , idomain ) = P_no3_cw05 ELSE P_no3_cw05 = chem_index_table( PARAM_no3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw05 ) = .TRUE. chem_dname_table( idomain, P_no3_cw05 ) = 'no3_cw05' chem_desc_table( idomain, P_no3_cw05 ) = 'Nitrate, aerosol in cloud bin 05' chem_units_table( idomain, P_no3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw05 )%stream(2) = 2097216 F_no3_cw05 = .TRUE. IF ( chem_index_table( PARAM_cl_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw05 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw05 , idomain ) = P_cl_cw05 ELSE P_cl_cw05 = chem_index_table( PARAM_cl_cw05 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw05 ) = .TRUE. chem_dname_table( idomain, P_cl_cw05 ) = 'cl_cw05' chem_desc_table( idomain, P_cl_cw05 ) = 'Chloride, aerosol in cloud bin 05' chem_units_table( idomain, P_cl_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw05 )%stream(2) = 2097216 F_cl_cw05 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw05 , idomain ) = P_nh4_cw05 ELSE P_nh4_cw05 = chem_index_table( PARAM_nh4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw05 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw05 ) = 'nh4_cw05' chem_desc_table( idomain, P_nh4_cw05 ) = 'Ammonium, aerosol in cloud bin 05' chem_units_table( idomain, P_nh4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw05 )%stream(2) = 2097216 F_nh4_cw05 = .TRUE. IF ( chem_index_table( PARAM_na_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw05 = chem_num_table(idomain) chem_index_table( PARAM_na_cw05 , idomain ) = P_na_cw05 ELSE P_na_cw05 = chem_index_table( PARAM_na_cw05 , idomain ) END IF chem_boundary_table( idomain, P_na_cw05 ) = .TRUE. chem_dname_table( idomain, P_na_cw05 ) = 'na_cw05' chem_desc_table( idomain, P_na_cw05 ) = 'Sodium, aerosol in cloud bin 05' chem_units_table( idomain, P_na_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw05 )%stream(2) = 2097216 F_na_cw05 = .TRUE. IF ( chem_index_table( PARAM_oin_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw05 , idomain ) = P_oin_cw05 ELSE P_oin_cw05 = chem_index_table( PARAM_oin_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw05 ) = .TRUE. chem_dname_table( idomain, P_oin_cw05 ) = 'oin_cw05' chem_desc_table( idomain, P_oin_cw05 ) = 'Other inorganics, aerosol in cloud bin 05' chem_units_table( idomain, P_oin_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw05 )%stream(2) = 2097216 F_oin_cw05 = .TRUE. IF ( chem_index_table( PARAM_oc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw05 , idomain ) = P_oc_cw05 ELSE P_oc_cw05 = chem_index_table( PARAM_oc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw05 ) = .TRUE. chem_dname_table( idomain, P_oc_cw05 ) = 'oc_cw05' chem_desc_table( idomain, P_oc_cw05 ) = 'Organic carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_oc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw05 )%stream(2) = 2097216 F_oc_cw05 = .TRUE. IF ( chem_index_table( PARAM_bc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw05 , idomain ) = P_bc_cw05 ELSE P_bc_cw05 = chem_index_table( PARAM_bc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw05 ) = .TRUE. chem_dname_table( idomain, P_bc_cw05 ) = 'bc_cw05' chem_desc_table( idomain, P_bc_cw05 ) = 'Black carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_bc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw05 )%stream(2) = 2097216 F_bc_cw05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw05 , idomain ) = P_pcg1_b_c_cw05 ELSE P_pcg1_b_c_cw05 = chem_index_table( PARAM_pcg1_b_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw05 ) = 'pcg1_b_c_cw05' chem_desc_table( idomain, P_pcg1_b_c_cw05 ) = 'pcg1_b_c_cw05, aerosol bin 05' chem_units_table( idomain, P_pcg1_b_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_c_cw05 )%stream(2) = 2097152 F_pcg1_b_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw05 , idomain ) = P_pcg1_b_o_cw05 ELSE P_pcg1_b_o_cw05 = chem_index_table( PARAM_pcg1_b_o_cw05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw05 ) = 'pcg1_b_o_cw05' chem_desc_table( idomain, P_pcg1_b_o_cw05 ) = 'pcg1_b_o_cw05, aerosol bin 05' chem_units_table( idomain, P_pcg1_b_o_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_o_cw05 )%stream(2) = 2097152 F_pcg1_b_o_cw05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw05 , idomain ) = P_opcg1_b_c_cw05 ELSE P_opcg1_b_c_cw05 = chem_index_table( PARAM_opcg1_b_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw05 ) = 'opcg1_b_c_cw05' chem_desc_table( idomain, P_opcg1_b_c_cw05 ) = 'opcg1_b_c_cw05, aerosol bin 05' chem_units_table( idomain, P_opcg1_b_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_c_cw05 )%stream(2) = 2097152 F_opcg1_b_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw05 , idomain ) = P_opcg1_b_o_cw05 ELSE P_opcg1_b_o_cw05 = chem_index_table( PARAM_opcg1_b_o_cw05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw05 ) = 'opcg1_b_o_cw05' chem_desc_table( idomain, P_opcg1_b_o_cw05 ) = 'opcg1_b_o_cw05, aerosol bin 05' chem_units_table( idomain, P_opcg1_b_o_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_o_cw05 )%stream(2) = 2097152 F_opcg1_b_o_cw05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw05 , idomain ) = P_pcg1_f_c_cw05 ELSE P_pcg1_f_c_cw05 = chem_index_table( PARAM_pcg1_f_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw05 ) = 'pcg1_f_c_cw05' chem_desc_table( idomain, P_pcg1_f_c_cw05 ) = 'pcg1_f_c_cw05, aerosol bin 05' chem_units_table( idomain, P_pcg1_f_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_c_cw05 )%stream(2) = 2097152 F_pcg1_f_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw05 , idomain ) = P_pcg1_f_o_cw05 ELSE P_pcg1_f_o_cw05 = chem_index_table( PARAM_pcg1_f_o_cw05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw05 ) = 'pcg1_f_o_cw05' chem_desc_table( idomain, P_pcg1_f_o_cw05 ) = 'pcg1_f_o_cw05, aerosol bin 05' chem_units_table( idomain, P_pcg1_f_o_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_o_cw05 )%stream(2) = 2097152 F_pcg1_f_o_cw05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw05 , idomain ) = P_opcg1_f_c_cw05 ELSE P_opcg1_f_c_cw05 = chem_index_table( PARAM_opcg1_f_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw05 ) = 'opcg1_f_c_cw05' chem_desc_table( idomain, P_opcg1_f_c_cw05 ) = 'opcg1_f_c_cw05, aerosol bin 05' chem_units_table( idomain, P_opcg1_f_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_c_cw05 )%stream(2) = 2097152 F_opcg1_f_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw05 , idomain ) = P_opcg1_f_o_cw05 ELSE P_opcg1_f_o_cw05 = chem_index_table( PARAM_opcg1_f_o_cw05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw05 ) = 'opcg1_f_o_cw05' chem_desc_table( idomain, P_opcg1_f_o_cw05 ) = 'opcg1_f_o_cw05, aerosol bin 05' chem_units_table( idomain, P_opcg1_f_o_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_o_cw05 )%stream(2) = 2097152 F_opcg1_f_o_cw05 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw05 , idomain ) = P_ant1_c_cw05 ELSE P_ant1_c_cw05 = chem_index_table( PARAM_ant1_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw05 ) = 'ant1_c_cw05' chem_desc_table( idomain, P_ant1_c_cw05 ) = 'ant1_c_cw05, aerosol bin 05' chem_units_table( idomain, P_ant1_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_cw05 )%stream(2) = 2097152 F_ant1_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw05 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw05 , idomain ) = P_biog1_c_cw05 ELSE P_biog1_c_cw05 = chem_index_table( PARAM_biog1_c_cw05 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw05 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw05 ) = 'biog1_c_cw05' chem_desc_table( idomain, P_biog1_c_cw05 ) = 'biog1_c_cw05, aerosol bin 05' chem_units_table( idomain, P_biog1_c_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw05 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_cw05 )%stream(2) = 2097152 F_biog1_c_cw05 = .TRUE. IF ( chem_index_table( PARAM_num_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw05 = chem_num_table(idomain) chem_index_table( PARAM_num_cw05 , idomain ) = P_num_cw05 ELSE P_num_cw05 = chem_index_table( PARAM_num_cw05 , idomain ) END IF chem_boundary_table( idomain, P_num_cw05 ) = .TRUE. chem_dname_table( idomain, P_num_cw05 ) = 'num_cw05' chem_desc_table( idomain, P_num_cw05 ) = 'Number, aerosol in cloud bin 05' chem_units_table( idomain, P_num_cw05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw05 )%stream(2) = 2097216 F_num_cw05 = .TRUE. IF ( chem_index_table( PARAM_so4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw06 , idomain ) = P_so4_cw06 ELSE P_so4_cw06 = chem_index_table( PARAM_so4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw06 ) = .TRUE. chem_dname_table( idomain, P_so4_cw06 ) = 'so4_cw06' chem_desc_table( idomain, P_so4_cw06 ) = 'Sulfate, aerosol in cloud bin 06' chem_units_table( idomain, P_so4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw06 )%stream(2) = 2097216 F_so4_cw06 = .TRUE. IF ( chem_index_table( PARAM_no3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw06 , idomain ) = P_no3_cw06 ELSE P_no3_cw06 = chem_index_table( PARAM_no3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw06 ) = .TRUE. chem_dname_table( idomain, P_no3_cw06 ) = 'no3_cw06' chem_desc_table( idomain, P_no3_cw06 ) = 'Nitrate, aerosol in cloud bin 06' chem_units_table( idomain, P_no3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw06 )%stream(2) = 2097216 F_no3_cw06 = .TRUE. IF ( chem_index_table( PARAM_cl_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw06 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw06 , idomain ) = P_cl_cw06 ELSE P_cl_cw06 = chem_index_table( PARAM_cl_cw06 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw06 ) = .TRUE. chem_dname_table( idomain, P_cl_cw06 ) = 'cl_cw06' chem_desc_table( idomain, P_cl_cw06 ) = 'Chloride, aerosol in cloud bin 06' chem_units_table( idomain, P_cl_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw06 )%stream(2) = 2097216 F_cl_cw06 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw06 , idomain ) = P_nh4_cw06 ELSE P_nh4_cw06 = chem_index_table( PARAM_nh4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw06 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw06 ) = 'nh4_cw06' chem_desc_table( idomain, P_nh4_cw06 ) = 'Ammonium, aerosol in cloud bin 06' chem_units_table( idomain, P_nh4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw06 )%stream(2) = 2097216 F_nh4_cw06 = .TRUE. IF ( chem_index_table( PARAM_na_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw06 = chem_num_table(idomain) chem_index_table( PARAM_na_cw06 , idomain ) = P_na_cw06 ELSE P_na_cw06 = chem_index_table( PARAM_na_cw06 , idomain ) END IF chem_boundary_table( idomain, P_na_cw06 ) = .TRUE. chem_dname_table( idomain, P_na_cw06 ) = 'na_cw06' chem_desc_table( idomain, P_na_cw06 ) = 'Sodium, aerosol in cloud bin 06' chem_units_table( idomain, P_na_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw06 )%stream(2) = 2097216 F_na_cw06 = .TRUE. IF ( chem_index_table( PARAM_oin_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw06 , idomain ) = P_oin_cw06 ELSE P_oin_cw06 = chem_index_table( PARAM_oin_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw06 ) = .TRUE. chem_dname_table( idomain, P_oin_cw06 ) = 'oin_cw06' chem_desc_table( idomain, P_oin_cw06 ) = 'Other inorganics, aerosol in cloud bin 06' chem_units_table( idomain, P_oin_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw06 )%stream(2) = 2097216 F_oin_cw06 = .TRUE. IF ( chem_index_table( PARAM_oc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw06 , idomain ) = P_oc_cw06 ELSE P_oc_cw06 = chem_index_table( PARAM_oc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw06 ) = .TRUE. chem_dname_table( idomain, P_oc_cw06 ) = 'oc_cw06' chem_desc_table( idomain, P_oc_cw06 ) = 'Organic carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_oc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw06 )%stream(2) = 2097216 F_oc_cw06 = .TRUE. IF ( chem_index_table( PARAM_bc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw06 , idomain ) = P_bc_cw06 ELSE P_bc_cw06 = chem_index_table( PARAM_bc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw06 ) = .TRUE. chem_dname_table( idomain, P_bc_cw06 ) = 'bc_cw06' chem_desc_table( idomain, P_bc_cw06 ) = 'Black carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_bc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw06 )%stream(2) = 2097216 F_bc_cw06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw06 , idomain ) = P_pcg1_b_c_cw06 ELSE P_pcg1_b_c_cw06 = chem_index_table( PARAM_pcg1_b_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw06 ) = 'pcg1_b_c_cw06' chem_desc_table( idomain, P_pcg1_b_c_cw06 ) = 'pcg1_b_c_cw06, aerosol bin 06' chem_units_table( idomain, P_pcg1_b_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_c_cw06 )%stream(2) = 2097152 F_pcg1_b_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw06 , idomain ) = P_pcg1_b_o_cw06 ELSE P_pcg1_b_o_cw06 = chem_index_table( PARAM_pcg1_b_o_cw06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw06 ) = 'pcg1_b_o_cw06' chem_desc_table( idomain, P_pcg1_b_o_cw06 ) = 'pcg1_b_o_cw06, aerosol bin 06' chem_units_table( idomain, P_pcg1_b_o_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_o_cw06 )%stream(2) = 2097152 F_pcg1_b_o_cw06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw06 , idomain ) = P_opcg1_b_c_cw06 ELSE P_opcg1_b_c_cw06 = chem_index_table( PARAM_opcg1_b_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw06 ) = 'opcg1_b_c_cw06' chem_desc_table( idomain, P_opcg1_b_c_cw06 ) = 'opcg1_b_c_cw06, aerosol bin 06' chem_units_table( idomain, P_opcg1_b_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_c_cw06 )%stream(2) = 2097152 F_opcg1_b_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw06 , idomain ) = P_opcg1_b_o_cw06 ELSE P_opcg1_b_o_cw06 = chem_index_table( PARAM_opcg1_b_o_cw06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw06 ) = 'opcg1_b_o_cw06' chem_desc_table( idomain, P_opcg1_b_o_cw06 ) = 'opcg1_b_o_cw06, aerosol bin 06' chem_units_table( idomain, P_opcg1_b_o_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_o_cw06 )%stream(2) = 2097152 F_opcg1_b_o_cw06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw06 , idomain ) = P_pcg1_f_c_cw06 ELSE P_pcg1_f_c_cw06 = chem_index_table( PARAM_pcg1_f_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw06 ) = 'pcg1_f_c_cw06' chem_desc_table( idomain, P_pcg1_f_c_cw06 ) = 'pcg1_f_c_cw06, aerosol bin 06' chem_units_table( idomain, P_pcg1_f_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_c_cw06 )%stream(2) = 2097152 F_pcg1_f_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw06 , idomain ) = P_pcg1_f_o_cw06 ELSE P_pcg1_f_o_cw06 = chem_index_table( PARAM_pcg1_f_o_cw06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw06 ) = 'pcg1_f_o_cw06' chem_desc_table( idomain, P_pcg1_f_o_cw06 ) = 'pcg1_f_o_cw06, aerosol bin 06' chem_units_table( idomain, P_pcg1_f_o_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_o_cw06 )%stream(2) = 2097152 F_pcg1_f_o_cw06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw06 , idomain ) = P_opcg1_f_c_cw06 ELSE P_opcg1_f_c_cw06 = chem_index_table( PARAM_opcg1_f_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw06 ) = 'opcg1_f_c_cw06' chem_desc_table( idomain, P_opcg1_f_c_cw06 ) = 'opcg1_f_c_cw06, aerosol bin 06' chem_units_table( idomain, P_opcg1_f_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_c_cw06 )%stream(2) = 2097152 F_opcg1_f_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw06 , idomain ) = P_opcg1_f_o_cw06 ELSE P_opcg1_f_o_cw06 = chem_index_table( PARAM_opcg1_f_o_cw06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw06 ) = 'opcg1_f_o_cw06' chem_desc_table( idomain, P_opcg1_f_o_cw06 ) = 'opcg1_f_o_cw06, aerosol bin 06' chem_units_table( idomain, P_opcg1_f_o_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_o_cw06 )%stream(2) = 2097152 F_opcg1_f_o_cw06 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw06 , idomain ) = P_ant1_c_cw06 ELSE P_ant1_c_cw06 = chem_index_table( PARAM_ant1_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw06 ) = 'ant1_c_cw06' chem_desc_table( idomain, P_ant1_c_cw06 ) = 'ant1_c_cw06, aerosol bin 06' chem_units_table( idomain, P_ant1_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_cw06 )%stream(2) = 2097152 F_ant1_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw06 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw06 , idomain ) = P_biog1_c_cw06 ELSE P_biog1_c_cw06 = chem_index_table( PARAM_biog1_c_cw06 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw06 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw06 ) = 'biog1_c_cw06' chem_desc_table( idomain, P_biog1_c_cw06 ) = 'biog1_c_cw06, aerosol bin 06' chem_units_table( idomain, P_biog1_c_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw06 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_cw06 )%stream(2) = 2097152 F_biog1_c_cw06 = .TRUE. IF ( chem_index_table( PARAM_num_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw06 = chem_num_table(idomain) chem_index_table( PARAM_num_cw06 , idomain ) = P_num_cw06 ELSE P_num_cw06 = chem_index_table( PARAM_num_cw06 , idomain ) END IF chem_boundary_table( idomain, P_num_cw06 ) = .TRUE. chem_dname_table( idomain, P_num_cw06 ) = 'num_cw06' chem_desc_table( idomain, P_num_cw06 ) = 'Number, aerosol in cloud bin 06' chem_units_table( idomain, P_num_cw06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw06 )%stream(2) = 2097216 F_num_cw06 = .TRUE. IF ( chem_index_table( PARAM_so4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw07 , idomain ) = P_so4_cw07 ELSE P_so4_cw07 = chem_index_table( PARAM_so4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw07 ) = .TRUE. chem_dname_table( idomain, P_so4_cw07 ) = 'so4_cw07' chem_desc_table( idomain, P_so4_cw07 ) = 'Sulfate, aerosol in cloud bin 07' chem_units_table( idomain, P_so4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw07 )%stream(2) = 2097216 F_so4_cw07 = .TRUE. IF ( chem_index_table( PARAM_no3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw07 , idomain ) = P_no3_cw07 ELSE P_no3_cw07 = chem_index_table( PARAM_no3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw07 ) = .TRUE. chem_dname_table( idomain, P_no3_cw07 ) = 'no3_cw07' chem_desc_table( idomain, P_no3_cw07 ) = 'Nitrate, aerosol in cloud bin 07' chem_units_table( idomain, P_no3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw07 )%stream(2) = 2097216 F_no3_cw07 = .TRUE. IF ( chem_index_table( PARAM_cl_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw07 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw07 , idomain ) = P_cl_cw07 ELSE P_cl_cw07 = chem_index_table( PARAM_cl_cw07 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw07 ) = .TRUE. chem_dname_table( idomain, P_cl_cw07 ) = 'cl_cw07' chem_desc_table( idomain, P_cl_cw07 ) = 'Chloride, aerosol in cloud bin 07' chem_units_table( idomain, P_cl_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw07 )%stream(2) = 2097216 F_cl_cw07 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw07 , idomain ) = P_nh4_cw07 ELSE P_nh4_cw07 = chem_index_table( PARAM_nh4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw07 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw07 ) = 'nh4_cw07' chem_desc_table( idomain, P_nh4_cw07 ) = 'Ammonium, aerosol in cloud bin 07' chem_units_table( idomain, P_nh4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw07 )%stream(2) = 2097216 F_nh4_cw07 = .TRUE. IF ( chem_index_table( PARAM_na_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw07 = chem_num_table(idomain) chem_index_table( PARAM_na_cw07 , idomain ) = P_na_cw07 ELSE P_na_cw07 = chem_index_table( PARAM_na_cw07 , idomain ) END IF chem_boundary_table( idomain, P_na_cw07 ) = .TRUE. chem_dname_table( idomain, P_na_cw07 ) = 'na_cw07' chem_desc_table( idomain, P_na_cw07 ) = 'Sodium, aerosol in cloud bin 07' chem_units_table( idomain, P_na_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw07 )%stream(2) = 2097216 F_na_cw07 = .TRUE. IF ( chem_index_table( PARAM_oin_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw07 , idomain ) = P_oin_cw07 ELSE P_oin_cw07 = chem_index_table( PARAM_oin_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw07 ) = .TRUE. chem_dname_table( idomain, P_oin_cw07 ) = 'oin_cw07' chem_desc_table( idomain, P_oin_cw07 ) = 'Other inorganics, aerosol in cloud bin 07' chem_units_table( idomain, P_oin_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw07 )%stream(2) = 2097216 F_oin_cw07 = .TRUE. IF ( chem_index_table( PARAM_oc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw07 , idomain ) = P_oc_cw07 ELSE P_oc_cw07 = chem_index_table( PARAM_oc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw07 ) = .TRUE. chem_dname_table( idomain, P_oc_cw07 ) = 'oc_cw07' chem_desc_table( idomain, P_oc_cw07 ) = 'Organic carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_oc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw07 )%stream(2) = 2097216 F_oc_cw07 = .TRUE. IF ( chem_index_table( PARAM_bc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw07 , idomain ) = P_bc_cw07 ELSE P_bc_cw07 = chem_index_table( PARAM_bc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw07 ) = .TRUE. chem_dname_table( idomain, P_bc_cw07 ) = 'bc_cw07' chem_desc_table( idomain, P_bc_cw07 ) = 'Black carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_bc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw07 )%stream(2) = 2097216 F_bc_cw07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw07 , idomain ) = P_pcg1_b_c_cw07 ELSE P_pcg1_b_c_cw07 = chem_index_table( PARAM_pcg1_b_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw07 ) = 'pcg1_b_c_cw07' chem_desc_table( idomain, P_pcg1_b_c_cw07 ) = 'pcg1_b_c_cw07, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_c_cw07 )%stream(2) = 2097152 F_pcg1_b_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw07 , idomain ) = P_pcg1_b_o_cw07 ELSE P_pcg1_b_o_cw07 = chem_index_table( PARAM_pcg1_b_o_cw07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw07 ) = 'pcg1_b_o_cw07' chem_desc_table( idomain, P_pcg1_b_o_cw07 ) = 'pcg1_b_o_cw07, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_o_cw07 )%stream(2) = 2097152 F_pcg1_b_o_cw07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw07 , idomain ) = P_opcg1_b_c_cw07 ELSE P_opcg1_b_c_cw07 = chem_index_table( PARAM_opcg1_b_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw07 ) = 'opcg1_b_c_cw07' chem_desc_table( idomain, P_opcg1_b_c_cw07 ) = 'opcg1_b_c_cw07, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_c_cw07 )%stream(2) = 2097152 F_opcg1_b_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw07 , idomain ) = P_opcg1_b_o_cw07 ELSE P_opcg1_b_o_cw07 = chem_index_table( PARAM_opcg1_b_o_cw07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw07 ) = 'opcg1_b_o_cw07' chem_desc_table( idomain, P_opcg1_b_o_cw07 ) = 'opcg1_b_o_cw07, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_o_cw07 )%stream(2) = 2097152 F_opcg1_b_o_cw07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw07 , idomain ) = P_pcg1_f_c_cw07 ELSE P_pcg1_f_c_cw07 = chem_index_table( PARAM_pcg1_f_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw07 ) = 'pcg1_f_c_cw07' chem_desc_table( idomain, P_pcg1_f_c_cw07 ) = 'pcg1_f_c_cw07, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_c_cw07 )%stream(2) = 2097152 F_pcg1_f_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw07 , idomain ) = P_pcg1_f_o_cw07 ELSE P_pcg1_f_o_cw07 = chem_index_table( PARAM_pcg1_f_o_cw07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw07 ) = 'pcg1_f_o_cw07' chem_desc_table( idomain, P_pcg1_f_o_cw07 ) = 'pcg1_f_o_cw07, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_o_cw07 )%stream(2) = 2097152 F_pcg1_f_o_cw07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw07 , idomain ) = P_opcg1_f_c_cw07 ELSE P_opcg1_f_c_cw07 = chem_index_table( PARAM_opcg1_f_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw07 ) = 'opcg1_f_c_cw07' chem_desc_table( idomain, P_opcg1_f_c_cw07 ) = 'opcg1_f_c_cw07, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_c_cw07 )%stream(2) = 2097152 F_opcg1_f_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw07 , idomain ) = P_opcg1_f_o_cw07 ELSE P_opcg1_f_o_cw07 = chem_index_table( PARAM_opcg1_f_o_cw07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw07 ) = 'opcg1_f_o_cw07' chem_desc_table( idomain, P_opcg1_f_o_cw07 ) = 'opcg1_f_o_cw07, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_o_cw07 )%stream(2) = 2097152 F_opcg1_f_o_cw07 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw07 , idomain ) = P_ant1_c_cw07 ELSE P_ant1_c_cw07 = chem_index_table( PARAM_ant1_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw07 ) = 'ant1_c_cw07' chem_desc_table( idomain, P_ant1_c_cw07 ) = 'ant1_c_cw07, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_cw07 )%stream(2) = 2097152 F_ant1_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw07 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw07 , idomain ) = P_biog1_c_cw07 ELSE P_biog1_c_cw07 = chem_index_table( PARAM_biog1_c_cw07 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw07 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw07 ) = 'biog1_c_cw07' chem_desc_table( idomain, P_biog1_c_cw07 ) = 'biog1_c_cw07, aerosol bin 01' chem_units_table( idomain, P_biog1_c_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw07 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_cw07 )%stream(2) = 2097152 F_biog1_c_cw07 = .TRUE. IF ( chem_index_table( PARAM_num_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw07 = chem_num_table(idomain) chem_index_table( PARAM_num_cw07 , idomain ) = P_num_cw07 ELSE P_num_cw07 = chem_index_table( PARAM_num_cw07 , idomain ) END IF chem_boundary_table( idomain, P_num_cw07 ) = .TRUE. chem_dname_table( idomain, P_num_cw07 ) = 'num_cw07' chem_desc_table( idomain, P_num_cw07 ) = 'Number, aerosol in cloud bin 07' chem_units_table( idomain, P_num_cw07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw07 )%stream(2) = 2097216 F_num_cw07 = .TRUE. IF ( chem_index_table( PARAM_so4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw08 , idomain ) = P_so4_cw08 ELSE P_so4_cw08 = chem_index_table( PARAM_so4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw08 ) = .TRUE. chem_dname_table( idomain, P_so4_cw08 ) = 'so4_cw08' chem_desc_table( idomain, P_so4_cw08 ) = 'Sulfate, aerosol in cloud bin 08' chem_units_table( idomain, P_so4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw08 )%stream(2) = 2097216 F_so4_cw08 = .TRUE. IF ( chem_index_table( PARAM_no3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw08 , idomain ) = P_no3_cw08 ELSE P_no3_cw08 = chem_index_table( PARAM_no3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw08 ) = .TRUE. chem_dname_table( idomain, P_no3_cw08 ) = 'no3_cw08' chem_desc_table( idomain, P_no3_cw08 ) = 'Nitrate, aerosol in cloud bin 08' chem_units_table( idomain, P_no3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw08 )%stream(2) = 2097216 F_no3_cw08 = .TRUE. IF ( chem_index_table( PARAM_cl_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw08 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw08 , idomain ) = P_cl_cw08 ELSE P_cl_cw08 = chem_index_table( PARAM_cl_cw08 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw08 ) = .TRUE. chem_dname_table( idomain, P_cl_cw08 ) = 'cl_cw08' chem_desc_table( idomain, P_cl_cw08 ) = 'Chloride, aerosol in cloud bin 08' chem_units_table( idomain, P_cl_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw08 )%stream(2) = 2097216 F_cl_cw08 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw08 , idomain ) = P_nh4_cw08 ELSE P_nh4_cw08 = chem_index_table( PARAM_nh4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw08 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw08 ) = 'nh4_cw08' chem_desc_table( idomain, P_nh4_cw08 ) = 'Ammonium, aerosol in cloud bin 08' chem_units_table( idomain, P_nh4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw08 )%stream(2) = 2097216 F_nh4_cw08 = .TRUE. IF ( chem_index_table( PARAM_na_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw08 = chem_num_table(idomain) chem_index_table( PARAM_na_cw08 , idomain ) = P_na_cw08 ELSE P_na_cw08 = chem_index_table( PARAM_na_cw08 , idomain ) END IF chem_boundary_table( idomain, P_na_cw08 ) = .TRUE. chem_dname_table( idomain, P_na_cw08 ) = 'na_cw08' chem_desc_table( idomain, P_na_cw08 ) = 'Sodium, aerosol in cloud bin 08' chem_units_table( idomain, P_na_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw08 )%stream(2) = 2097216 F_na_cw08 = .TRUE. IF ( chem_index_table( PARAM_oin_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw08 , idomain ) = P_oin_cw08 ELSE P_oin_cw08 = chem_index_table( PARAM_oin_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw08 ) = .TRUE. chem_dname_table( idomain, P_oin_cw08 ) = 'oin_cw08' chem_desc_table( idomain, P_oin_cw08 ) = 'Other inorganics, aerosol in cloud bin 08' chem_units_table( idomain, P_oin_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw08 )%stream(2) = 2097216 F_oin_cw08 = .TRUE. IF ( chem_index_table( PARAM_oc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw08 , idomain ) = P_oc_cw08 ELSE P_oc_cw08 = chem_index_table( PARAM_oc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw08 ) = .TRUE. chem_dname_table( idomain, P_oc_cw08 ) = 'oc_cw08' chem_desc_table( idomain, P_oc_cw08 ) = 'Organic carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_oc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw08 )%stream(2) = 2097216 F_oc_cw08 = .TRUE. IF ( chem_index_table( PARAM_bc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw08 , idomain ) = P_bc_cw08 ELSE P_bc_cw08 = chem_index_table( PARAM_bc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw08 ) = .TRUE. chem_dname_table( idomain, P_bc_cw08 ) = 'bc_cw08' chem_desc_table( idomain, P_bc_cw08 ) = 'Black carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_bc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw08 )%stream(2) = 2097216 F_bc_cw08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_cw08 , idomain ) = P_pcg1_b_c_cw08 ELSE P_pcg1_b_c_cw08 = chem_index_table( PARAM_pcg1_b_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_cw08 ) = 'pcg1_b_c_cw08' chem_desc_table( idomain, P_pcg1_b_c_cw08 ) = 'pcg1_b_c_cw08, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_c_cw08 )%stream(2) = 2097152 F_pcg1_b_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_cw08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_cw08 , idomain ) = P_pcg1_b_o_cw08 ELSE P_pcg1_b_o_cw08 = chem_index_table( PARAM_pcg1_b_o_cw08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_cw08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_cw08 ) = 'pcg1_b_o_cw08' chem_desc_table( idomain, P_pcg1_b_o_cw08 ) = 'pcg1_b_o_cw08, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_b_o_cw08 )%stream(2) = 2097152 F_pcg1_b_o_cw08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_cw08 , idomain ) = P_opcg1_b_c_cw08 ELSE P_opcg1_b_c_cw08 = chem_index_table( PARAM_opcg1_b_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_cw08 ) = 'opcg1_b_c_cw08' chem_desc_table( idomain, P_opcg1_b_c_cw08 ) = 'opcg1_b_c_cw08, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_c_cw08 )%stream(2) = 2097152 F_opcg1_b_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_cw08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_cw08 , idomain ) = P_opcg1_b_o_cw08 ELSE P_opcg1_b_o_cw08 = chem_index_table( PARAM_opcg1_b_o_cw08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_cw08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_cw08 ) = 'opcg1_b_o_cw08' chem_desc_table( idomain, P_opcg1_b_o_cw08 ) = 'opcg1_b_o_cw08, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_b_o_cw08 )%stream(2) = 2097152 F_opcg1_b_o_cw08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_cw08 , idomain ) = P_pcg1_f_c_cw08 ELSE P_pcg1_f_c_cw08 = chem_index_table( PARAM_pcg1_f_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_cw08 ) = 'pcg1_f_c_cw08' chem_desc_table( idomain, P_pcg1_f_c_cw08 ) = 'pcg1_f_c_cw08, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_c_cw08 )%stream(2) = 2097152 F_pcg1_f_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_cw08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_cw08 , idomain ) = P_pcg1_f_o_cw08 ELSE P_pcg1_f_o_cw08 = chem_index_table( PARAM_pcg1_f_o_cw08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_cw08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_cw08 ) = 'pcg1_f_o_cw08' chem_desc_table( idomain, P_pcg1_f_o_cw08 ) = 'pcg1_f_o_cw08, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_pcg1_f_o_cw08 )%stream(2) = 2097152 F_pcg1_f_o_cw08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_cw08 , idomain ) = P_opcg1_f_c_cw08 ELSE P_opcg1_f_c_cw08 = chem_index_table( PARAM_opcg1_f_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_cw08 ) = 'opcg1_f_c_cw08' chem_desc_table( idomain, P_opcg1_f_c_cw08 ) = 'opcg1_f_c_cw08, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_c_cw08 )%stream(2) = 2097152 F_opcg1_f_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_cw08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_cw08 , idomain ) = P_opcg1_f_o_cw08 ELSE P_opcg1_f_o_cw08 = chem_index_table( PARAM_opcg1_f_o_cw08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_cw08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_cw08 ) = 'opcg1_f_o_cw08' chem_desc_table( idomain, P_opcg1_f_o_cw08 ) = 'opcg1_f_o_cw08, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_opcg1_f_o_cw08 )%stream(2) = 2097152 F_opcg1_f_o_cw08 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_cw08 , idomain ) = P_ant1_c_cw08 ELSE P_ant1_c_cw08 = chem_index_table( PARAM_ant1_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_cw08 ) = 'ant1_c_cw08' chem_desc_table( idomain, P_ant1_c_cw08 ) = 'ant1_c_cw08, aerosol bin 01' chem_units_table( idomain, P_ant1_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_cw08 )%stream(2) = 2097152 F_ant1_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_cw08 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_cw08 , idomain ) = P_biog1_c_cw08 ELSE P_biog1_c_cw08 = chem_index_table( PARAM_biog1_c_cw08 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_cw08 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_cw08 ) = 'biog1_c_cw08' chem_desc_table( idomain, P_biog1_c_cw08 ) = 'biog1_c_cw08, aerosol bin 01' chem_units_table( idomain, P_biog1_c_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_cw08 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_cw08 )%stream(2) = 2097152 F_biog1_c_cw08 = .TRUE. IF ( chem_index_table( PARAM_num_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw08 = chem_num_table(idomain) chem_index_table( PARAM_num_cw08 , idomain ) = P_num_cw08 ELSE P_num_cw08 = chem_index_table( PARAM_num_cw08 , idomain ) END IF chem_boundary_table( idomain, P_num_cw08 ) = .TRUE. chem_dname_table( idomain, P_num_cw08 ) = 'num_cw08' chem_desc_table( idomain, P_num_cw08 ) = 'Number, aerosol in cloud bin 08' chem_units_table( idomain, P_num_cw08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw08 )%stream(2) = 2097216 F_num_cw08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==204)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_h2so4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2so4 = chem_num_table(idomain) chem_index_table( PARAM_h2so4 , idomain ) = P_h2so4 ELSE P_h2so4 = chem_index_table( PARAM_h2so4 , idomain ) END IF chem_boundary_table( idomain, P_h2so4 ) = .TRUE. chem_dname_table( idomain, P_h2so4 ) = 'h2so4' chem_desc_table( idomain, P_h2so4 ) = 'H2SO4 mixing ratio' chem_units_table( idomain, P_h2so4 ) = 'ppmv' chem_streams_table( idomain, P_h2so4 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2so4 )%stream(2) = 2097216 F_h2so4 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ccho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccho = chem_num_table(idomain) chem_index_table( PARAM_ccho , idomain ) = P_ccho ELSE P_ccho = chem_index_table( PARAM_ccho , idomain ) END IF chem_boundary_table( idomain, P_ccho ) = .TRUE. chem_dname_table( idomain, P_ccho ) = 'ccho' chem_desc_table( idomain, P_ccho ) = 'CCHO mixing ratio' chem_units_table( idomain, P_ccho ) = 'ppmv' chem_streams_table( idomain, P_ccho )%stream(1) = 33554433 chem_streams_table( idomain, P_ccho )%stream(2) = 2097216 F_ccho = .TRUE. IF ( chem_index_table( PARAM_rcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcho = chem_num_table(idomain) chem_index_table( PARAM_rcho , idomain ) = P_rcho ELSE P_rcho = chem_index_table( PARAM_rcho , idomain ) END IF chem_boundary_table( idomain, P_rcho ) = .TRUE. chem_dname_table( idomain, P_rcho ) = 'rcho' chem_desc_table( idomain, P_rcho ) = 'RCHO mixing ratio' chem_units_table( idomain, P_rcho ) = 'ppmv' chem_streams_table( idomain, P_rcho )%stream(1) = 33554433 chem_streams_table( idomain, P_rcho )%stream(2) = 2097216 F_rcho = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 F_meoh = .TRUE. IF ( chem_index_table( PARAM_etoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etoh = chem_num_table(idomain) chem_index_table( PARAM_etoh , idomain ) = P_etoh ELSE P_etoh = chem_index_table( PARAM_etoh , idomain ) END IF chem_boundary_table( idomain, P_etoh ) = .TRUE. chem_dname_table( idomain, P_etoh ) = 'etoh' chem_desc_table( idomain, P_etoh ) = 'ETOH mixing ratio' chem_units_table( idomain, P_etoh ) = 'ppmv' chem_streams_table( idomain, P_etoh )%stream(1) = 33554433 chem_streams_table( idomain, P_etoh )%stream(2) = 2097216 F_etoh = .TRUE. IF ( chem_index_table( PARAM_cco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_oh = chem_num_table(idomain) chem_index_table( PARAM_cco_oh , idomain ) = P_cco_oh ELSE P_cco_oh = chem_index_table( PARAM_cco_oh , idomain ) END IF chem_boundary_table( idomain, P_cco_oh ) = .TRUE. chem_dname_table( idomain, P_cco_oh ) = 'cco_oh' chem_desc_table( idomain, P_cco_oh ) = 'CCO_OH mixing ratio' chem_units_table( idomain, P_cco_oh ) = 'ppmv' chem_streams_table( idomain, P_cco_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_oh )%stream(2) = 2097216 F_cco_oh = .TRUE. IF ( chem_index_table( PARAM_rco_oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_oh = chem_num_table(idomain) chem_index_table( PARAM_rco_oh , idomain ) = P_rco_oh ELSE P_rco_oh = chem_index_table( PARAM_rco_oh , idomain ) END IF chem_boundary_table( idomain, P_rco_oh ) = .TRUE. chem_dname_table( idomain, P_rco_oh ) = 'rco_oh' chem_desc_table( idomain, P_rco_oh ) = 'RCO_OH mixing ratio' chem_units_table( idomain, P_rco_oh ) = 'ppmv' chem_streams_table( idomain, P_rco_oh )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_oh )%stream(2) = 2097216 F_rco_oh = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_bacl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bacl = chem_num_table(idomain) chem_index_table( PARAM_bacl , idomain ) = P_bacl ELSE P_bacl = chem_index_table( PARAM_bacl , idomain ) END IF chem_boundary_table( idomain, P_bacl ) = .TRUE. chem_dname_table( idomain, P_bacl ) = 'bacl' chem_desc_table( idomain, P_bacl ) = 'BACL mixing ratio' chem_units_table( idomain, P_bacl ) = 'ppmv' chem_streams_table( idomain, P_bacl )%stream(1) = 33554433 chem_streams_table( idomain, P_bacl )%stream(2) = 2097216 F_bacl = .TRUE. IF ( chem_index_table( PARAM_cres , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cres = chem_num_table(idomain) chem_index_table( PARAM_cres , idomain ) = P_cres ELSE P_cres = chem_index_table( PARAM_cres , idomain ) END IF chem_boundary_table( idomain, P_cres ) = .TRUE. chem_dname_table( idomain, P_cres ) = 'cres' chem_desc_table( idomain, P_cres ) = 'CRES mixing ratio' chem_units_table( idomain, P_cres ) = 'ppmv' chem_streams_table( idomain, P_cres )%stream(1) = 33554433 chem_streams_table( idomain, P_cres )%stream(2) = 2097216 F_cres = .TRUE. IF ( chem_index_table( PARAM_bald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bald = chem_num_table(idomain) chem_index_table( PARAM_bald , idomain ) = P_bald ELSE P_bald = chem_index_table( PARAM_bald , idomain ) END IF chem_boundary_table( idomain, P_bald ) = .TRUE. chem_dname_table( idomain, P_bald ) = 'bald' chem_desc_table( idomain, P_bald ) = 'BALD mixing ratio' chem_units_table( idomain, P_bald ) = 'ppmv' chem_streams_table( idomain, P_bald )%stream(1) = 33554433 chem_streams_table( idomain, P_bald )%stream(2) = 2097216 F_bald = .TRUE. IF ( chem_index_table( PARAM_isoprod , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprod = chem_num_table(idomain) chem_index_table( PARAM_isoprod , idomain ) = P_isoprod ELSE P_isoprod = chem_index_table( PARAM_isoprod , idomain ) END IF chem_boundary_table( idomain, P_isoprod ) = .TRUE. chem_dname_table( idomain, P_isoprod ) = 'isoprod' chem_desc_table( idomain, P_isoprod ) = 'ISOPROD mixing ratio' chem_units_table( idomain, P_isoprod ) = 'ppmv' chem_streams_table( idomain, P_isoprod )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprod )%stream(2) = 2097216 F_isoprod = .TRUE. IF ( chem_index_table( PARAM_methacro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methacro = chem_num_table(idomain) chem_index_table( PARAM_methacro , idomain ) = P_methacro ELSE P_methacro = chem_index_table( PARAM_methacro , idomain ) END IF chem_boundary_table( idomain, P_methacro ) = .TRUE. chem_dname_table( idomain, P_methacro ) = 'methacro' chem_desc_table( idomain, P_methacro ) = 'METHACRO mixing ratio' chem_units_table( idomain, P_methacro ) = 'ppmv' chem_streams_table( idomain, P_methacro )%stream(1) = 33554433 chem_streams_table( idomain, P_methacro )%stream(2) = 2097216 F_methacro = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_prod2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prod2 = chem_num_table(idomain) chem_index_table( PARAM_prod2 , idomain ) = P_prod2 ELSE P_prod2 = chem_index_table( PARAM_prod2 , idomain ) END IF chem_boundary_table( idomain, P_prod2 ) = .TRUE. chem_dname_table( idomain, P_prod2 ) = 'prod2' chem_desc_table( idomain, P_prod2 ) = 'PROD2 mixing ratio' chem_units_table( idomain, P_prod2 ) = 'ppmv' chem_streams_table( idomain, P_prod2 )%stream(1) = 33554433 chem_streams_table( idomain, P_prod2 )%stream(2) = 2097216 F_prod2 = .TRUE. IF ( chem_index_table( PARAM_dcb1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb1 = chem_num_table(idomain) chem_index_table( PARAM_dcb1 , idomain ) = P_dcb1 ELSE P_dcb1 = chem_index_table( PARAM_dcb1 , idomain ) END IF chem_boundary_table( idomain, P_dcb1 ) = .TRUE. chem_dname_table( idomain, P_dcb1 ) = 'dcb1' chem_desc_table( idomain, P_dcb1 ) = 'DCB1 mixing ratio' chem_units_table( idomain, P_dcb1 ) = 'ppmv' chem_streams_table( idomain, P_dcb1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb1 )%stream(2) = 2097216 F_dcb1 = .TRUE. IF ( chem_index_table( PARAM_dcb2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb2 = chem_num_table(idomain) chem_index_table( PARAM_dcb2 , idomain ) = P_dcb2 ELSE P_dcb2 = chem_index_table( PARAM_dcb2 , idomain ) END IF chem_boundary_table( idomain, P_dcb2 ) = .TRUE. chem_dname_table( idomain, P_dcb2 ) = 'dcb2' chem_desc_table( idomain, P_dcb2 ) = 'DCB2 mixing ratio' chem_units_table( idomain, P_dcb2 ) = 'ppmv' chem_streams_table( idomain, P_dcb2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb2 )%stream(2) = 2097216 F_dcb2 = .TRUE. IF ( chem_index_table( PARAM_dcb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb3 = chem_num_table(idomain) chem_index_table( PARAM_dcb3 , idomain ) = P_dcb3 ELSE P_dcb3 = chem_index_table( PARAM_dcb3 , idomain ) END IF chem_boundary_table( idomain, P_dcb3 ) = .TRUE. chem_dname_table( idomain, P_dcb3 ) = 'dcb3' chem_desc_table( idomain, P_dcb3 ) = 'DCB3 mixing ratio' chem_units_table( idomain, P_dcb3 ) = 'ppmv' chem_streams_table( idomain, P_dcb3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb3 )%stream(2) = 2097216 F_dcb3 = .TRUE. IF ( chem_index_table( PARAM_ethene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethene = chem_num_table(idomain) chem_index_table( PARAM_ethene , idomain ) = P_ethene ELSE P_ethene = chem_index_table( PARAM_ethene , idomain ) END IF chem_boundary_table( idomain, P_ethene ) = .TRUE. chem_dname_table( idomain, P_ethene ) = 'ethene' chem_desc_table( idomain, P_ethene ) = 'ETHENE mixing ratio' chem_units_table( idomain, P_ethene ) = 'ppmv' chem_streams_table( idomain, P_ethene )%stream(1) = 33554433 chem_streams_table( idomain, P_ethene )%stream(2) = 2097216 F_ethene = .TRUE. IF ( chem_index_table( PARAM_isoprene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprene = chem_num_table(idomain) chem_index_table( PARAM_isoprene , idomain ) = P_isoprene ELSE P_isoprene = chem_index_table( PARAM_isoprene , idomain ) END IF chem_boundary_table( idomain, P_isoprene ) = .TRUE. chem_dname_table( idomain, P_isoprene ) = 'isoprene' chem_desc_table( idomain, P_isoprene ) = 'ISOPRENE mixing ratio' chem_units_table( idomain, P_isoprene ) = 'ppmv' chem_streams_table( idomain, P_isoprene )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprene )%stream(2) = 2097216 F_isoprene = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_alk3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk3 = chem_num_table(idomain) chem_index_table( PARAM_alk3 , idomain ) = P_alk3 ELSE P_alk3 = chem_index_table( PARAM_alk3 , idomain ) END IF chem_boundary_table( idomain, P_alk3 ) = .TRUE. chem_dname_table( idomain, P_alk3 ) = 'alk3' chem_desc_table( idomain, P_alk3 ) = 'ALK3 mixing ratio' chem_units_table( idomain, P_alk3 ) = 'ppmv' chem_streams_table( idomain, P_alk3 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk3 )%stream(2) = 2097216 F_alk3 = .TRUE. IF ( chem_index_table( PARAM_alk4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk4 = chem_num_table(idomain) chem_index_table( PARAM_alk4 , idomain ) = P_alk4 ELSE P_alk4 = chem_index_table( PARAM_alk4 , idomain ) END IF chem_boundary_table( idomain, P_alk4 ) = .TRUE. chem_dname_table( idomain, P_alk4 ) = 'alk4' chem_desc_table( idomain, P_alk4 ) = 'ALK4 mixing ratio' chem_units_table( idomain, P_alk4 ) = 'ppmv' chem_streams_table( idomain, P_alk4 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk4 )%stream(2) = 2097216 F_alk4 = .TRUE. IF ( chem_index_table( PARAM_alk5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_alk5 = chem_num_table(idomain) chem_index_table( PARAM_alk5 , idomain ) = P_alk5 ELSE P_alk5 = chem_index_table( PARAM_alk5 , idomain ) END IF chem_boundary_table( idomain, P_alk5 ) = .TRUE. chem_dname_table( idomain, P_alk5 ) = 'alk5' chem_desc_table( idomain, P_alk5 ) = 'ALK5 mixing ratio' chem_units_table( idomain, P_alk5 ) = 'ppmv' chem_streams_table( idomain, P_alk5 )%stream(1) = 33554433 chem_streams_table( idomain, P_alk5 )%stream(2) = 2097216 F_alk5 = .TRUE. IF ( chem_index_table( PARAM_aro1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro1 = chem_num_table(idomain) chem_index_table( PARAM_aro1 , idomain ) = P_aro1 ELSE P_aro1 = chem_index_table( PARAM_aro1 , idomain ) END IF chem_boundary_table( idomain, P_aro1 ) = .TRUE. chem_dname_table( idomain, P_aro1 ) = 'aro1' chem_desc_table( idomain, P_aro1 ) = 'ARO1 mixing ratio' chem_units_table( idomain, P_aro1 ) = 'ppmv' chem_streams_table( idomain, P_aro1 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro1 )%stream(2) = 2097216 F_aro1 = .TRUE. IF ( chem_index_table( PARAM_aro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aro2 = chem_num_table(idomain) chem_index_table( PARAM_aro2 , idomain ) = P_aro2 ELSE P_aro2 = chem_index_table( PARAM_aro2 , idomain ) END IF chem_boundary_table( idomain, P_aro2 ) = .TRUE. chem_dname_table( idomain, P_aro2 ) = 'aro2' chem_desc_table( idomain, P_aro2 ) = 'ARO2 mixing ratio' chem_units_table( idomain, P_aro2 ) = 'ppmv' chem_streams_table( idomain, P_aro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aro2 )%stream(2) = 2097216 F_aro2 = .TRUE. IF ( chem_index_table( PARAM_ole1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole1 = chem_num_table(idomain) chem_index_table( PARAM_ole1 , idomain ) = P_ole1 ELSE P_ole1 = chem_index_table( PARAM_ole1 , idomain ) END IF chem_boundary_table( idomain, P_ole1 ) = .TRUE. chem_dname_table( idomain, P_ole1 ) = 'ole1' chem_desc_table( idomain, P_ole1 ) = 'OLE1 mixing ratio' chem_units_table( idomain, P_ole1 ) = 'ppmv' chem_streams_table( idomain, P_ole1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole1 )%stream(2) = 2097216 F_ole1 = .TRUE. IF ( chem_index_table( PARAM_ole2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ole2 = chem_num_table(idomain) chem_index_table( PARAM_ole2 , idomain ) = P_ole2 ELSE P_ole2 = chem_index_table( PARAM_ole2 , idomain ) END IF chem_boundary_table( idomain, P_ole2 ) = .TRUE. chem_dname_table( idomain, P_ole2 ) = 'ole2' chem_desc_table( idomain, P_ole2 ) = 'OLE2 mixing ratio' chem_units_table( idomain, P_ole2 ) = 'ppmv' chem_streams_table( idomain, P_ole2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ole2 )%stream(2) = 2097216 F_ole2 = .TRUE. IF ( chem_index_table( PARAM_terp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_terp = chem_num_table(idomain) chem_index_table( PARAM_terp , idomain ) = P_terp ELSE P_terp = chem_index_table( PARAM_terp , idomain ) END IF chem_boundary_table( idomain, P_terp ) = .TRUE. chem_dname_table( idomain, P_terp ) = 'terp' chem_desc_table( idomain, P_terp ) = 'TERP mixing ratio' chem_units_table( idomain, P_terp ) = 'ppmv' chem_streams_table( idomain, P_terp )%stream(1) = 33554433 chem_streams_table( idomain, P_terp )%stream(2) = 2097216 F_terp = .TRUE. IF ( chem_index_table( PARAM_rno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rno3 = chem_num_table(idomain) chem_index_table( PARAM_rno3 , idomain ) = P_rno3 ELSE P_rno3 = chem_index_table( PARAM_rno3 , idomain ) END IF chem_boundary_table( idomain, P_rno3 ) = .TRUE. chem_dname_table( idomain, P_rno3 ) = 'rno3' chem_desc_table( idomain, P_rno3 ) = 'RNO3 mixing ratio' chem_units_table( idomain, P_rno3 ) = 'ppmv' chem_streams_table( idomain, P_rno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rno3 )%stream(2) = 2097216 F_rno3 = .TRUE. IF ( chem_index_table( PARAM_nphe , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nphe = chem_num_table(idomain) chem_index_table( PARAM_nphe , idomain ) = P_nphe ELSE P_nphe = chem_index_table( PARAM_nphe , idomain ) END IF chem_boundary_table( idomain, P_nphe ) = .TRUE. chem_dname_table( idomain, P_nphe ) = 'nphe' chem_desc_table( idomain, P_nphe ) = 'NPHE mixing ratio' chem_units_table( idomain, P_nphe ) = 'ppmv' chem_streams_table( idomain, P_nphe )%stream(1) = 33554433 chem_streams_table( idomain, P_nphe )%stream(2) = 2097216 F_nphe = .TRUE. IF ( chem_index_table( PARAM_phen , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phen = chem_num_table(idomain) chem_index_table( PARAM_phen , idomain ) = P_phen ELSE P_phen = chem_index_table( PARAM_phen , idomain ) END IF chem_boundary_table( idomain, P_phen ) = .TRUE. chem_dname_table( idomain, P_phen ) = 'phen' chem_desc_table( idomain, P_phen ) = 'PHEN mixing ratio' chem_units_table( idomain, P_phen ) = 'ppmv' chem_streams_table( idomain, P_phen )%stream(1) = 33554433 chem_streams_table( idomain, P_phen )%stream(2) = 2097216 F_phen = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_pan2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan2 = chem_num_table(idomain) chem_index_table( PARAM_pan2 , idomain ) = P_pan2 ELSE P_pan2 = chem_index_table( PARAM_pan2 , idomain ) END IF chem_boundary_table( idomain, P_pan2 ) = .TRUE. chem_dname_table( idomain, P_pan2 ) = 'pan2' chem_desc_table( idomain, P_pan2 ) = 'PAN2 mixing ratio' chem_units_table( idomain, P_pan2 ) = 'ppmv' chem_streams_table( idomain, P_pan2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pan2 )%stream(2) = 2097216 F_pan2 = .TRUE. IF ( chem_index_table( PARAM_pbzn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pbzn = chem_num_table(idomain) chem_index_table( PARAM_pbzn , idomain ) = P_pbzn ELSE P_pbzn = chem_index_table( PARAM_pbzn , idomain ) END IF chem_boundary_table( idomain, P_pbzn ) = .TRUE. chem_dname_table( idomain, P_pbzn ) = 'pbzn' chem_desc_table( idomain, P_pbzn ) = 'PBZN mixing ratio' chem_units_table( idomain, P_pbzn ) = 'ppmv' chem_streams_table( idomain, P_pbzn )%stream(1) = 33554433 chem_streams_table( idomain, P_pbzn )%stream(2) = 2097216 F_pbzn = .TRUE. IF ( chem_index_table( PARAM_ma_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_pan = chem_num_table(idomain) chem_index_table( PARAM_ma_pan , idomain ) = P_ma_pan ELSE P_ma_pan = chem_index_table( PARAM_ma_pan , idomain ) END IF chem_boundary_table( idomain, P_ma_pan ) = .TRUE. chem_dname_table( idomain, P_ma_pan ) = 'ma_pan' chem_desc_table( idomain, P_ma_pan ) = 'MA_PAN mixing ratio' chem_units_table( idomain, P_ma_pan ) = 'ppmv' chem_streams_table( idomain, P_ma_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_ma_pan )%stream(2) = 2097216 F_ma_pan = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_cco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_ooh = chem_num_table(idomain) chem_index_table( PARAM_cco_ooh , idomain ) = P_cco_ooh ELSE P_cco_ooh = chem_index_table( PARAM_cco_ooh , idomain ) END IF chem_boundary_table( idomain, P_cco_ooh ) = .TRUE. chem_dname_table( idomain, P_cco_ooh ) = 'cco_ooh' chem_desc_table( idomain, P_cco_ooh ) = 'CCO_OOH mixing ratio' chem_units_table( idomain, P_cco_ooh ) = 'ppmv' chem_streams_table( idomain, P_cco_ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_ooh )%stream(2) = 2097216 F_cco_ooh = .TRUE. IF ( chem_index_table( PARAM_rco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_o2 = chem_num_table(idomain) chem_index_table( PARAM_rco_o2 , idomain ) = P_rco_o2 ELSE P_rco_o2 = chem_index_table( PARAM_rco_o2 , idomain ) END IF chem_boundary_table( idomain, P_rco_o2 ) = .TRUE. chem_dname_table( idomain, P_rco_o2 ) = 'rco_o2' chem_desc_table( idomain, P_rco_o2 ) = 'RCO_O2 mixing ratio' chem_units_table( idomain, P_rco_o2 ) = 'ppmv' chem_streams_table( idomain, P_rco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_o2 )%stream(2) = 2097216 F_rco_o2 = .TRUE. IF ( chem_index_table( PARAM_rco_ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rco_ooh = chem_num_table(idomain) chem_index_table( PARAM_rco_ooh , idomain ) = P_rco_ooh ELSE P_rco_ooh = chem_index_table( PARAM_rco_ooh , idomain ) END IF chem_boundary_table( idomain, P_rco_ooh ) = .TRUE. chem_dname_table( idomain, P_rco_ooh ) = 'rco_ooh' chem_desc_table( idomain, P_rco_ooh ) = 'RCO_OOH mixing ratio' chem_units_table( idomain, P_rco_ooh ) = 'ppmv' chem_streams_table( idomain, P_rco_ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rco_ooh )%stream(2) = 2097216 F_rco_ooh = .TRUE. IF ( chem_index_table( PARAM_xn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xn = chem_num_table(idomain) chem_index_table( PARAM_xn , idomain ) = P_xn ELSE P_xn = chem_index_table( PARAM_xn , idomain ) END IF chem_boundary_table( idomain, P_xn ) = .TRUE. chem_dname_table( idomain, P_xn ) = 'xn' chem_desc_table( idomain, P_xn ) = 'XN mixing ratio' chem_units_table( idomain, P_xn ) = 'ppmv' chem_streams_table( idomain, P_xn )%stream(1) = 33554433 chem_streams_table( idomain, P_xn )%stream(2) = 2097216 F_xn = .TRUE. IF ( chem_index_table( PARAM_xc , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xc = chem_num_table(idomain) chem_index_table( PARAM_xc , idomain ) = P_xc ELSE P_xc = chem_index_table( PARAM_xc , idomain ) END IF chem_boundary_table( idomain, P_xc ) = .TRUE. chem_dname_table( idomain, P_xc ) = 'xc' chem_desc_table( idomain, P_xc ) = 'XC mixing ratio' chem_units_table( idomain, P_xc ) = 'ppmv' chem_streams_table( idomain, P_xc )%stream(1) = 33554433 chem_streams_table( idomain, P_xc )%stream(2) = 2097216 F_xc = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_c_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c_o2 = chem_num_table(idomain) chem_index_table( PARAM_c_o2 , idomain ) = P_c_o2 ELSE P_c_o2 = chem_index_table( PARAM_c_o2 , idomain ) END IF chem_boundary_table( idomain, P_c_o2 ) = .TRUE. chem_dname_table( idomain, P_c_o2 ) = 'c_o2' chem_desc_table( idomain, P_c_o2 ) = 'C_O2 mixing ratio' chem_units_table( idomain, P_c_o2 ) = 'ppmv' chem_streams_table( idomain, P_c_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c_o2 )%stream(2) = 2097216 F_c_o2 = .TRUE. IF ( chem_index_table( PARAM_cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cooh = chem_num_table(idomain) chem_index_table( PARAM_cooh , idomain ) = P_cooh ELSE P_cooh = chem_index_table( PARAM_cooh , idomain ) END IF chem_boundary_table( idomain, P_cooh ) = .TRUE. chem_dname_table( idomain, P_cooh ) = 'cooh' chem_desc_table( idomain, P_cooh ) = 'COOH mixing ratio' chem_units_table( idomain, P_cooh ) = 'ppmv' chem_streams_table( idomain, P_cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_cooh )%stream(2) = 2097216 F_cooh = .TRUE. IF ( chem_index_table( PARAM_rooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rooh = chem_num_table(idomain) chem_index_table( PARAM_rooh , idomain ) = P_rooh ELSE P_rooh = chem_index_table( PARAM_rooh , idomain ) END IF chem_boundary_table( idomain, P_rooh ) = .TRUE. chem_dname_table( idomain, P_rooh ) = 'rooh' chem_desc_table( idomain, P_rooh ) = 'ROOH mixing ratio' chem_units_table( idomain, P_rooh ) = 'ppmv' chem_streams_table( idomain, P_rooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rooh )%stream(2) = 2097216 F_rooh = .TRUE. IF ( chem_index_table( PARAM_ro2_r , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_r = chem_num_table(idomain) chem_index_table( PARAM_ro2_r , idomain ) = P_ro2_r ELSE P_ro2_r = chem_index_table( PARAM_ro2_r , idomain ) END IF chem_boundary_table( idomain, P_ro2_r ) = .TRUE. chem_dname_table( idomain, P_ro2_r ) = 'ro2_r' chem_desc_table( idomain, P_ro2_r ) = 'RO2_R mixing ratio' chem_units_table( idomain, P_ro2_r ) = 'ppmv' chem_streams_table( idomain, P_ro2_r )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2_r )%stream(2) = 2097216 F_ro2_r = .TRUE. IF ( chem_index_table( PARAM_r2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_r2o2 = chem_num_table(idomain) chem_index_table( PARAM_r2o2 , idomain ) = P_r2o2 ELSE P_r2o2 = chem_index_table( PARAM_r2o2 , idomain ) END IF chem_boundary_table( idomain, P_r2o2 ) = .TRUE. chem_dname_table( idomain, P_r2o2 ) = 'r2o2' chem_desc_table( idomain, P_r2o2 ) = 'R2O2 mixing ratio' chem_units_table( idomain, P_r2o2 ) = 'ppmv' chem_streams_table( idomain, P_r2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_r2o2 )%stream(2) = 2097216 F_r2o2 = .TRUE. IF ( chem_index_table( PARAM_ro2_n , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2_n = chem_num_table(idomain) chem_index_table( PARAM_ro2_n , idomain ) = P_ro2_n ELSE P_ro2_n = chem_index_table( PARAM_ro2_n , idomain ) END IF chem_boundary_table( idomain, P_ro2_n ) = .TRUE. chem_dname_table( idomain, P_ro2_n ) = 'ro2_n' chem_desc_table( idomain, P_ro2_n ) = 'RO2_N mixing ratio' chem_units_table( idomain, P_ro2_n ) = 'ppmv' chem_streams_table( idomain, P_ro2_n )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2_n )%stream(2) = 2097216 F_ro2_n = .TRUE. IF ( chem_index_table( PARAM_cco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cco_o2 = chem_num_table(idomain) chem_index_table( PARAM_cco_o2 , idomain ) = P_cco_o2 ELSE P_cco_o2 = chem_index_table( PARAM_cco_o2 , idomain ) END IF chem_boundary_table( idomain, P_cco_o2 ) = .TRUE. chem_dname_table( idomain, P_cco_o2 ) = 'cco_o2' chem_desc_table( idomain, P_cco_o2 ) = 'CCO_O2 mixing ratio' chem_units_table( idomain, P_cco_o2 ) = 'ppmv' chem_streams_table( idomain, P_cco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_cco_o2 )%stream(2) = 2097216 F_cco_o2 = .TRUE. IF ( chem_index_table( PARAM_bzco_o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bzco_o2 = chem_num_table(idomain) chem_index_table( PARAM_bzco_o2 , idomain ) = P_bzco_o2 ELSE P_bzco_o2 = chem_index_table( PARAM_bzco_o2 , idomain ) END IF chem_boundary_table( idomain, P_bzco_o2 ) = .TRUE. chem_dname_table( idomain, P_bzco_o2 ) = 'bzco_o2' chem_desc_table( idomain, P_bzco_o2 ) = 'BZCO_O2 mixing ratio' chem_units_table( idomain, P_bzco_o2 ) = 'ppmv' chem_streams_table( idomain, P_bzco_o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bzco_o2 )%stream(2) = 2097216 F_bzco_o2 = .TRUE. IF ( chem_index_table( PARAM_ma_rco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ma_rco3 = chem_num_table(idomain) chem_index_table( PARAM_ma_rco3 , idomain ) = P_ma_rco3 ELSE P_ma_rco3 = chem_index_table( PARAM_ma_rco3 , idomain ) END IF chem_boundary_table( idomain, P_ma_rco3 ) = .TRUE. chem_dname_table( idomain, P_ma_rco3 ) = 'ma_rco3' chem_desc_table( idomain, P_ma_rco3 ) = 'MA_RCO3 mixing ratio' chem_units_table( idomain, P_ma_rco3 ) = 'ppmv' chem_streams_table( idomain, P_ma_rco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ma_rco3 )%stream(2) = 2097216 F_ma_rco3 = .TRUE. IF ( chem_index_table( PARAM_sesq , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sesq = chem_num_table(idomain) chem_index_table( PARAM_sesq , idomain ) = P_sesq ELSE P_sesq = chem_index_table( PARAM_sesq , idomain ) END IF chem_boundary_table( idomain, P_sesq ) = .TRUE. chem_dname_table( idomain, P_sesq ) = 'sesq' chem_desc_table( idomain, P_sesq ) = 'SESQ mixing ratio' chem_units_table( idomain, P_sesq ) = 'ppmv' chem_streams_table( idomain, P_sesq )%stream(1) = 33554433 chem_streams_table( idomain, P_sesq )%stream(2) = 2097216 F_sesq = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c , idomain ) = P_pcg1_b_c ELSE P_pcg1_b_c = chem_index_table( PARAM_pcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c' chem_desc_table( idomain, P_pcg1_b_c ) = 'pcg1_b_c mixing ratio' chem_units_table( idomain, P_pcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c )%stream(2) = 2097216 F_pcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_c , idomain ) = P_pcg2_b_c ELSE P_pcg2_b_c = chem_index_table( PARAM_pcg2_b_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c' chem_desc_table( idomain, P_pcg2_b_c ) = 'pcg2_b_c mixing ratio' chem_units_table( idomain, P_pcg2_b_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_c )%stream(2) = 2097216 F_pcg2_b_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o , idomain ) = P_pcg1_b_o ELSE P_pcg1_b_o = chem_index_table( PARAM_pcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o' chem_desc_table( idomain, P_pcg1_b_o ) = 'pcg1_b_o mixing ratio' chem_units_table( idomain, P_pcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o )%stream(2) = 2097216 F_pcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_b_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_b_o , idomain ) = P_pcg2_b_o ELSE P_pcg2_b_o = chem_index_table( PARAM_pcg2_b_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_b_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o' chem_desc_table( idomain, P_pcg2_b_o ) = 'pcg2_b_o mixing ratio' chem_units_table( idomain, P_pcg2_b_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_b_o )%stream(2) = 2097216 F_pcg2_b_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c , idomain ) = P_opcg1_b_c ELSE P_opcg1_b_c = chem_index_table( PARAM_opcg1_b_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c' chem_desc_table( idomain, P_opcg1_b_c ) = 'opcg1_b_c mixing ratio' chem_units_table( idomain, P_opcg1_b_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_c )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c )%stream(2) = 2097216 F_opcg1_b_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o , idomain ) = P_opcg1_b_o ELSE P_opcg1_b_o = chem_index_table( PARAM_opcg1_b_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o' chem_desc_table( idomain, P_opcg1_b_o ) = 'opcg1_b_o mixing ratio' chem_units_table( idomain, P_opcg1_b_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_b_o )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o )%stream(2) = 2097216 F_opcg1_b_o = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c , idomain ) = P_pcg1_f_c ELSE P_pcg1_f_c = chem_index_table( PARAM_pcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c' chem_desc_table( idomain, P_pcg1_f_c ) = 'pcg1_f_c mixing ratio' chem_units_table( idomain, P_pcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c )%stream(2) = 2097216 F_pcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_c = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_c , idomain ) = P_pcg2_f_c ELSE P_pcg2_f_c = chem_index_table( PARAM_pcg2_f_c , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_c ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c' chem_desc_table( idomain, P_pcg2_f_c ) = 'pcg2_f_c mixing ratio' chem_units_table( idomain, P_pcg2_f_c ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_c )%stream(2) = 2097216 F_pcg2_f_c = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o , idomain ) = P_pcg1_f_o ELSE P_pcg1_f_o = chem_index_table( PARAM_pcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o' chem_desc_table( idomain, P_pcg1_f_o ) = 'pcg1_f_o mixing ratio' chem_units_table( idomain, P_pcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg1_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o )%stream(2) = 2097216 F_pcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_pcg2_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg2_f_o = chem_num_table(idomain) chem_index_table( PARAM_pcg2_f_o , idomain ) = P_pcg2_f_o ELSE P_pcg2_f_o = chem_index_table( PARAM_pcg2_f_o , idomain ) END IF chem_boundary_table( idomain, P_pcg2_f_o ) = .TRUE. chem_dname_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o' chem_desc_table( idomain, P_pcg2_f_o ) = 'pcg2_f_o mixing ratio' chem_units_table( idomain, P_pcg2_f_o ) = 'ppmv' chem_streams_table( idomain, P_pcg2_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg2_f_o )%stream(2) = 2097216 F_pcg2_f_o = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c , idomain ) = P_opcg1_f_c ELSE P_opcg1_f_c = chem_index_table( PARAM_opcg1_f_c , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c' chem_desc_table( idomain, P_opcg1_f_c ) = 'opcg1_f_c mixing ratio' chem_units_table( idomain, P_opcg1_f_c ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_c )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c )%stream(2) = 2097216 F_opcg1_f_c = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o , idomain ) = P_opcg1_f_o ELSE P_opcg1_f_o = chem_index_table( PARAM_opcg1_f_o , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o' chem_desc_table( idomain, P_opcg1_f_o ) = 'opcg1_f_o mixing ratio' chem_units_table( idomain, P_opcg1_f_o ) = 'ppmv' chem_streams_table( idomain, P_opcg1_f_o )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o )%stream(2) = 2097216 F_opcg1_f_o = .TRUE. IF ( chem_index_table( PARAM_psd1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd1 = chem_num_table(idomain) chem_index_table( PARAM_psd1 , idomain ) = P_psd1 ELSE P_psd1 = chem_index_table( PARAM_psd1 , idomain ) END IF chem_boundary_table( idomain, P_psd1 ) = .TRUE. chem_dname_table( idomain, P_psd1 ) = 'psd1' chem_desc_table( idomain, P_psd1 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd1 ) = 'ppmv' chem_streams_table( idomain, P_psd1 )%stream(1) = 33554433 chem_streams_table( idomain, P_psd1 )%stream(2) = 2097216 F_psd1 = .TRUE. IF ( chem_index_table( PARAM_psd2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_psd2 = chem_num_table(idomain) chem_index_table( PARAM_psd2 , idomain ) = P_psd2 ELSE P_psd2 = chem_index_table( PARAM_psd2 , idomain ) END IF chem_boundary_table( idomain, P_psd2 ) = .TRUE. chem_dname_table( idomain, P_psd2 ) = 'psd2' chem_desc_table( idomain, P_psd2 ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_psd2 ) = 'ppmv' chem_streams_table( idomain, P_psd2 )%stream(1) = 33554433 chem_streams_table( idomain, P_psd2 )%stream(2) = 2097216 F_psd2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_nume , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nume = chem_num_table(idomain) chem_index_table( PARAM_nume , idomain ) = P_nume ELSE P_nume = chem_index_table( PARAM_nume , idomain ) END IF chem_boundary_table( idomain, P_nume ) = .TRUE. chem_dname_table( idomain, P_nume ) = 'nume' chem_desc_table( idomain, P_nume ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_nume ) = 'ppmv' chem_streams_table( idomain, P_nume )%stream(1) = 33554433 chem_streams_table( idomain, P_nume )%stream(2) = 2097216 F_nume = .TRUE. IF ( chem_index_table( PARAM_den , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_den = chem_num_table(idomain) chem_index_table( PARAM_den , idomain ) = P_den ELSE P_den = chem_index_table( PARAM_den , idomain ) END IF chem_boundary_table( idomain, P_den ) = .TRUE. chem_dname_table( idomain, P_den ) = 'den' chem_desc_table( idomain, P_den ) = 'LIM2 mixing ratio' chem_units_table( idomain, P_den ) = 'ppmv' chem_streams_table( idomain, P_den )%stream(1) = 33554433 chem_streams_table( idomain, P_den )%stream(2) = 2097216 F_den = .TRUE. IF ( chem_index_table( PARAM_ant1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c = chem_num_table(idomain) chem_index_table( PARAM_ant1_c , idomain ) = P_ant1_c ELSE P_ant1_c = chem_index_table( PARAM_ant1_c , idomain ) END IF chem_boundary_table( idomain, P_ant1_c ) = .TRUE. chem_dname_table( idomain, P_ant1_c ) = 'ant1_c' chem_desc_table( idomain, P_ant1_c ) = 'ant1_c mixing ratio' chem_units_table( idomain, P_ant1_c ) = 'ppmv' chem_streams_table( idomain, P_ant1_c )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c )%stream(2) = 2097216 F_ant1_c = .TRUE. IF ( chem_index_table( PARAM_biog1_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c = chem_num_table(idomain) chem_index_table( PARAM_biog1_c , idomain ) = P_biog1_c ELSE P_biog1_c = chem_index_table( PARAM_biog1_c , idomain ) END IF chem_boundary_table( idomain, P_biog1_c ) = .TRUE. chem_dname_table( idomain, P_biog1_c ) = 'biog1_c' chem_desc_table( idomain, P_biog1_c ) = 'biog1_c mixing ratio' chem_units_table( idomain, P_biog1_c ) = 'ppmv' chem_streams_table( idomain, P_biog1_c )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c )%stream(2) = 2097216 F_biog1_c = .TRUE. IF ( chem_index_table( PARAM_ant2_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c = chem_num_table(idomain) chem_index_table( PARAM_ant2_c , idomain ) = P_ant2_c ELSE P_ant2_c = chem_index_table( PARAM_ant2_c , idomain ) END IF chem_boundary_table( idomain, P_ant2_c ) = .TRUE. chem_dname_table( idomain, P_ant2_c ) = 'ant2_c' chem_desc_table( idomain, P_ant2_c ) = 'ant2_c mixing ratio' chem_units_table( idomain, P_ant2_c ) = 'ppmv' chem_streams_table( idomain, P_ant2_c )%stream(1) = 33554433 chem_streams_table( idomain, P_ant2_c )%stream(2) = 2097216 F_ant2_c = .TRUE. IF ( chem_index_table( PARAM_biog2_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c = chem_num_table(idomain) chem_index_table( PARAM_biog2_c , idomain ) = P_biog2_c ELSE P_biog2_c = chem_index_table( PARAM_biog2_c , idomain ) END IF chem_boundary_table( idomain, P_biog2_c ) = .TRUE. chem_dname_table( idomain, P_biog2_c ) = 'biog2_c' chem_desc_table( idomain, P_biog2_c ) = 'biog2_c mixing ratio' chem_units_table( idomain, P_biog2_c ) = 'ppmv' chem_streams_table( idomain, P_biog2_c )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_c )%stream(2) = 2097216 F_biog2_c = .TRUE. IF ( chem_index_table( PARAM_biog3_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c = chem_num_table(idomain) chem_index_table( PARAM_biog3_c , idomain ) = P_biog3_c ELSE P_biog3_c = chem_index_table( PARAM_biog3_c , idomain ) END IF chem_boundary_table( idomain, P_biog3_c ) = .TRUE. chem_dname_table( idomain, P_biog3_c ) = 'biog3_c' chem_desc_table( idomain, P_biog3_c ) = 'biog3_c mixing ratio' chem_units_table( idomain, P_biog3_c ) = 'ppmv' chem_streams_table( idomain, P_biog3_c )%stream(1) = 33554433 chem_streams_table( idomain, P_biog3_c )%stream(2) = 2097216 F_biog3_c = .TRUE. IF ( chem_index_table( PARAM_biog1_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o = chem_num_table(idomain) chem_index_table( PARAM_biog1_o , idomain ) = P_biog1_o ELSE P_biog1_o = chem_index_table( PARAM_biog1_o , idomain ) END IF chem_boundary_table( idomain, P_biog1_o ) = .TRUE. chem_dname_table( idomain, P_biog1_o ) = 'biog1_o' chem_desc_table( idomain, P_biog1_o ) = 'biog1_o mixing ratio' chem_units_table( idomain, P_biog1_o ) = 'ppmv' chem_streams_table( idomain, P_biog1_o )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o )%stream(2) = 2097216 F_biog1_o = .TRUE. IF ( chem_index_table( PARAM_biog2_o , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o = chem_num_table(idomain) chem_index_table( PARAM_biog2_o , idomain ) = P_biog2_o ELSE P_biog2_o = chem_index_table( PARAM_biog2_o , idomain ) END IF chem_boundary_table( idomain, P_biog2_o ) = .TRUE. chem_dname_table( idomain, P_biog2_o ) = 'biog2_o' chem_desc_table( idomain, P_biog2_o ) = 'biog2_o mixing ratio' chem_units_table( idomain, P_biog2_o ) = 'ppmv' chem_streams_table( idomain, P_biog2_o )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_o )%stream(2) = 2097216 F_biog2_o = .TRUE. IF ( chem_index_table( PARAM_ant3_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c = chem_num_table(idomain) chem_index_table( PARAM_ant3_c , idomain ) = P_ant3_c ELSE P_ant3_c = chem_index_table( PARAM_ant3_c , idomain ) END IF chem_boundary_table( idomain, P_ant3_c ) = .TRUE. chem_dname_table( idomain, P_ant3_c ) = 'ant3_c' chem_desc_table( idomain, P_ant3_c ) = 'ant3_c mixing ratio' chem_units_table( idomain, P_ant3_c ) = 'ppmv' chem_streams_table( idomain, P_ant3_c )%stream(1) = 33554433 chem_streams_table( idomain, P_ant3_c )%stream(2) = 2097216 F_ant3_c = .TRUE. IF ( chem_index_table( PARAM_ant4_c , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c = chem_num_table(idomain) chem_index_table( PARAM_ant4_c , idomain ) = P_ant4_c ELSE P_ant4_c = chem_index_table( PARAM_ant4_c , idomain ) END IF chem_boundary_table( idomain, P_ant4_c ) = .TRUE. chem_dname_table( idomain, P_ant4_c ) = 'ant4_c' chem_desc_table( idomain, P_ant4_c ) = 'ant4_c mixing ratio' chem_units_table( idomain, P_ant4_c ) = 'ppmv' chem_streams_table( idomain, P_ant4_c )%stream(1) = 33554433 chem_streams_table( idomain, P_ant4_c )%stream(2) = 2097216 F_ant4_c = .TRUE. IF ( chem_index_table( PARAM_bgas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bgas = chem_num_table(idomain) chem_index_table( PARAM_bgas , idomain ) = P_bgas ELSE P_bgas = chem_index_table( PARAM_bgas , idomain ) END IF chem_boundary_table( idomain, P_bgas ) = .TRUE. chem_dname_table( idomain, P_bgas ) = 'bgas' chem_desc_table( idomain, P_bgas ) = 'Biogenic gas concentration' chem_units_table( idomain, P_bgas ) = 'ppmv' chem_streams_table( idomain, P_bgas )%stream(1) = 33554433 chem_streams_table( idomain, P_bgas )%stream(2) = 2097216 F_bgas = .TRUE. IF ( chem_index_table( PARAM_agas , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_agas = chem_num_table(idomain) chem_index_table( PARAM_agas , idomain ) = P_agas ELSE P_agas = chem_index_table( PARAM_agas , idomain ) END IF chem_boundary_table( idomain, P_agas ) = .TRUE. chem_dname_table( idomain, P_agas ) = 'agas' chem_desc_table( idomain, P_agas ) = 'Anthropogenic gas concentration' chem_units_table( idomain, P_agas ) = 'ppmv' chem_streams_table( idomain, P_agas )%stream(1) = 33554433 chem_streams_table( idomain, P_agas )%stream(2) = 2097216 F_agas = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) = P_pcg1_b_c_a01 ELSE P_pcg1_b_c_a01 = chem_index_table( PARAM_pcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c_a01' chem_desc_table( idomain, P_pcg1_b_c_a01 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a01 )%stream(2) = 2097216 F_pcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) = P_pcg1_b_o_a01 ELSE P_pcg1_b_o_a01 = chem_index_table( PARAM_pcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o_a01' chem_desc_table( idomain, P_pcg1_b_o_a01 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a01 )%stream(2) = 2097216 F_pcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) = P_opcg1_b_c_a01 ELSE P_opcg1_b_c_a01 = chem_index_table( PARAM_opcg1_b_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c_a01' chem_desc_table( idomain, P_opcg1_b_c_a01 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a01 )%stream(2) = 2097216 F_opcg1_b_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) = P_opcg1_b_o_a01 ELSE P_opcg1_b_o_a01 = chem_index_table( PARAM_opcg1_b_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o_a01' chem_desc_table( idomain, P_opcg1_b_o_a01 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a01 )%stream(2) = 2097216 F_opcg1_b_o_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) = P_pcg1_f_c_a01 ELSE P_pcg1_f_c_a01 = chem_index_table( PARAM_pcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c_a01' chem_desc_table( idomain, P_pcg1_f_c_a01 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a01 )%stream(2) = 2097216 F_pcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) = P_pcg1_f_o_a01 ELSE P_pcg1_f_o_a01 = chem_index_table( PARAM_pcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o_a01' chem_desc_table( idomain, P_pcg1_f_o_a01 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a01 )%stream(2) = 2097216 F_pcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) = P_opcg1_f_c_a01 ELSE P_opcg1_f_c_a01 = chem_index_table( PARAM_opcg1_f_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c_a01' chem_desc_table( idomain, P_opcg1_f_c_a01 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a01 )%stream(2) = 2097216 F_opcg1_f_c_a01 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) = P_opcg1_f_o_a01 ELSE P_opcg1_f_o_a01 = chem_index_table( PARAM_opcg1_f_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a01 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o_a01' chem_desc_table( idomain, P_opcg1_f_o_a01 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a01 )%stream(2) = 2097216 F_opcg1_f_o_a01 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a01 , idomain ) = P_ant1_c_a01 ELSE P_ant1_c_a01 = chem_index_table( PARAM_ant1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a01 ) = 'ant1_c_a01' chem_desc_table( idomain, P_ant1_c_a01 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a01 )%stream(2) = 2097216 F_ant1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a01 , idomain ) = P_biog1_c_a01 ELSE P_biog1_c_a01 = chem_index_table( PARAM_biog1_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a01 ) = 'biog1_c_a01' chem_desc_table( idomain, P_biog1_c_a01 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a01 )%stream(2) = 2097216 F_biog1_c_a01 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a01 , idomain ) = P_ant2_c_a01 ELSE P_ant2_c_a01 = chem_index_table( PARAM_ant2_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a01 ) = 'ant2_c_a01' chem_desc_table( idomain, P_ant2_c_a01 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant2_c_a01 )%stream(2) = 2097216 F_ant2_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a01 , idomain ) = P_biog2_c_a01 ELSE P_biog2_c_a01 = chem_index_table( PARAM_biog2_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a01 ) = 'biog2_c_a01' chem_desc_table( idomain, P_biog2_c_a01 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_c_a01 )%stream(2) = 2097216 F_biog2_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a01 , idomain ) = P_biog3_c_a01 ELSE P_biog3_c_a01 = chem_index_table( PARAM_biog3_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a01 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a01 ) = 'biog3_c_a01' chem_desc_table( idomain, P_biog3_c_a01 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog3_c_a01 )%stream(2) = 2097216 F_biog3_c_a01 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a01 , idomain ) = P_biog1_o_a01 ELSE P_biog1_o_a01 = chem_index_table( PARAM_biog1_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a01 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a01 ) = 'biog1_o_a01' chem_desc_table( idomain, P_biog1_o_a01 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a01 )%stream(2) = 2097216 F_biog1_o_a01 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a01 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a01 , idomain ) = P_biog2_o_a01 ELSE P_biog2_o_a01 = chem_index_table( PARAM_biog2_o_a01 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a01 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a01 ) = 'biog2_o_a01' chem_desc_table( idomain, P_biog2_o_a01 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_o_a01 )%stream(2) = 2097216 F_biog2_o_a01 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a01 , idomain ) = P_ant3_c_a01 ELSE P_ant3_c_a01 = chem_index_table( PARAM_ant3_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a01 ) = 'ant3_c_a01' chem_desc_table( idomain, P_ant3_c_a01 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant3_c_a01 )%stream(2) = 2097216 F_ant3_c_a01 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a01 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a01 , idomain ) = P_ant4_c_a01 ELSE P_ant4_c_a01 = chem_index_table( PARAM_ant4_c_a01 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a01 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a01 ) = 'ant4_c_a01' chem_desc_table( idomain, P_ant4_c_a01 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant4_c_a01 )%stream(2) = 2097216 F_ant4_c_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) = P_pcg1_b_c_a02 ELSE P_pcg1_b_c_a02 = chem_index_table( PARAM_pcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c_a02' chem_desc_table( idomain, P_pcg1_b_c_a02 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a02 )%stream(2) = 2097216 F_pcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) = P_pcg1_b_o_a02 ELSE P_pcg1_b_o_a02 = chem_index_table( PARAM_pcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o_a02' chem_desc_table( idomain, P_pcg1_b_o_a02 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a02 )%stream(2) = 2097216 F_pcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) = P_opcg1_b_c_a02 ELSE P_opcg1_b_c_a02 = chem_index_table( PARAM_opcg1_b_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c_a02' chem_desc_table( idomain, P_opcg1_b_c_a02 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a02 )%stream(2) = 2097216 F_opcg1_b_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) = P_opcg1_b_o_a02 ELSE P_opcg1_b_o_a02 = chem_index_table( PARAM_opcg1_b_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o_a02' chem_desc_table( idomain, P_opcg1_b_o_a02 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a02 )%stream(2) = 2097216 F_opcg1_b_o_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) = P_pcg1_f_c_a02 ELSE P_pcg1_f_c_a02 = chem_index_table( PARAM_pcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c_a02' chem_desc_table( idomain, P_pcg1_f_c_a02 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a02 )%stream(2) = 2097216 F_pcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) = P_pcg1_f_o_a02 ELSE P_pcg1_f_o_a02 = chem_index_table( PARAM_pcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o_a02' chem_desc_table( idomain, P_pcg1_f_o_a02 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a02 )%stream(2) = 2097216 F_pcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) = P_opcg1_f_c_a02 ELSE P_opcg1_f_c_a02 = chem_index_table( PARAM_opcg1_f_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c_a02' chem_desc_table( idomain, P_opcg1_f_c_a02 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a02 )%stream(2) = 2097216 F_opcg1_f_c_a02 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) = P_opcg1_f_o_a02 ELSE P_opcg1_f_o_a02 = chem_index_table( PARAM_opcg1_f_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a02 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o_a02' chem_desc_table( idomain, P_opcg1_f_o_a02 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a02 )%stream(2) = 2097216 F_opcg1_f_o_a02 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a02 , idomain ) = P_ant1_c_a02 ELSE P_ant1_c_a02 = chem_index_table( PARAM_ant1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a02 ) = 'ant1_c_a02' chem_desc_table( idomain, P_ant1_c_a02 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a02 )%stream(2) = 2097216 F_ant1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a02 , idomain ) = P_biog1_c_a02 ELSE P_biog1_c_a02 = chem_index_table( PARAM_biog1_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a02 ) = 'biog1_c_a02' chem_desc_table( idomain, P_biog1_c_a02 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a02 )%stream(2) = 2097216 F_biog1_c_a02 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a02 , idomain ) = P_ant2_c_a02 ELSE P_ant2_c_a02 = chem_index_table( PARAM_ant2_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a02 ) = 'ant2_c_a02' chem_desc_table( idomain, P_ant2_c_a02 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant2_c_a02 )%stream(2) = 2097216 F_ant2_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a02 , idomain ) = P_biog2_c_a02 ELSE P_biog2_c_a02 = chem_index_table( PARAM_biog2_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a02 ) = 'biog2_c_a02' chem_desc_table( idomain, P_biog2_c_a02 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_c_a02 )%stream(2) = 2097216 F_biog2_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a02 , idomain ) = P_biog3_c_a02 ELSE P_biog3_c_a02 = chem_index_table( PARAM_biog3_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a02 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a02 ) = 'biog3_c_a02' chem_desc_table( idomain, P_biog3_c_a02 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog3_c_a02 )%stream(2) = 2097216 F_biog3_c_a02 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a02 , idomain ) = P_biog1_o_a02 ELSE P_biog1_o_a02 = chem_index_table( PARAM_biog1_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a02 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a02 ) = 'biog1_o_a02' chem_desc_table( idomain, P_biog1_o_a02 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a02 )%stream(2) = 2097216 F_biog1_o_a02 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a02 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a02 , idomain ) = P_biog2_o_a02 ELSE P_biog2_o_a02 = chem_index_table( PARAM_biog2_o_a02 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a02 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a02 ) = 'biog2_o_a02' chem_desc_table( idomain, P_biog2_o_a02 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_o_a02 )%stream(2) = 2097216 F_biog2_o_a02 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a02 , idomain ) = P_ant3_c_a02 ELSE P_ant3_c_a02 = chem_index_table( PARAM_ant3_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a02 ) = 'ant3_c_a02' chem_desc_table( idomain, P_ant3_c_a02 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant3_c_a02 )%stream(2) = 2097216 F_ant3_c_a02 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a02 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a02 , idomain ) = P_ant4_c_a02 ELSE P_ant4_c_a02 = chem_index_table( PARAM_ant4_c_a02 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a02 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a02 ) = 'ant4_c_a02' chem_desc_table( idomain, P_ant4_c_a02 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant4_c_a02 )%stream(2) = 2097216 F_ant4_c_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) = P_pcg1_b_c_a03 ELSE P_pcg1_b_c_a03 = chem_index_table( PARAM_pcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c_a03' chem_desc_table( idomain, P_pcg1_b_c_a03 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a03 )%stream(2) = 2097216 F_pcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) = P_pcg1_b_o_a03 ELSE P_pcg1_b_o_a03 = chem_index_table( PARAM_pcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o_a03' chem_desc_table( idomain, P_pcg1_b_o_a03 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a03 )%stream(2) = 2097216 F_pcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) = P_opcg1_b_c_a03 ELSE P_opcg1_b_c_a03 = chem_index_table( PARAM_opcg1_b_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c_a03' chem_desc_table( idomain, P_opcg1_b_c_a03 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a03 )%stream(2) = 2097216 F_opcg1_b_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) = P_opcg1_b_o_a03 ELSE P_opcg1_b_o_a03 = chem_index_table( PARAM_opcg1_b_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o_a03' chem_desc_table( idomain, P_opcg1_b_o_a03 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a03 )%stream(2) = 2097216 F_opcg1_b_o_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) = P_pcg1_f_c_a03 ELSE P_pcg1_f_c_a03 = chem_index_table( PARAM_pcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c_a03' chem_desc_table( idomain, P_pcg1_f_c_a03 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a03 )%stream(2) = 2097216 F_pcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) = P_pcg1_f_o_a03 ELSE P_pcg1_f_o_a03 = chem_index_table( PARAM_pcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o_a03' chem_desc_table( idomain, P_pcg1_f_o_a03 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a03 )%stream(2) = 2097216 F_pcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) = P_opcg1_f_c_a03 ELSE P_opcg1_f_c_a03 = chem_index_table( PARAM_opcg1_f_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c_a03' chem_desc_table( idomain, P_opcg1_f_c_a03 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a03 )%stream(2) = 2097216 F_opcg1_f_c_a03 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) = P_opcg1_f_o_a03 ELSE P_opcg1_f_o_a03 = chem_index_table( PARAM_opcg1_f_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a03 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o_a03' chem_desc_table( idomain, P_opcg1_f_o_a03 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a03 )%stream(2) = 2097216 F_opcg1_f_o_a03 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a03 , idomain ) = P_ant1_c_a03 ELSE P_ant1_c_a03 = chem_index_table( PARAM_ant1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a03 ) = 'ant1_c_a03' chem_desc_table( idomain, P_ant1_c_a03 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a03 )%stream(2) = 2097216 F_ant1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a03 , idomain ) = P_biog1_c_a03 ELSE P_biog1_c_a03 = chem_index_table( PARAM_biog1_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a03 ) = 'biog1_c_a03' chem_desc_table( idomain, P_biog1_c_a03 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a03 )%stream(2) = 2097216 F_biog1_c_a03 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a03 , idomain ) = P_ant2_c_a03 ELSE P_ant2_c_a03 = chem_index_table( PARAM_ant2_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a03 ) = 'ant2_c_a03' chem_desc_table( idomain, P_ant2_c_a03 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant2_c_a03 )%stream(2) = 2097216 F_ant2_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a03 , idomain ) = P_biog2_c_a03 ELSE P_biog2_c_a03 = chem_index_table( PARAM_biog2_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a03 ) = 'biog2_c_a03' chem_desc_table( idomain, P_biog2_c_a03 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_c_a03 )%stream(2) = 2097216 F_biog2_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a03 , idomain ) = P_biog3_c_a03 ELSE P_biog3_c_a03 = chem_index_table( PARAM_biog3_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a03 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a03 ) = 'biog3_c_a03' chem_desc_table( idomain, P_biog3_c_a03 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog3_c_a03 )%stream(2) = 2097216 F_biog3_c_a03 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a03 , idomain ) = P_biog1_o_a03 ELSE P_biog1_o_a03 = chem_index_table( PARAM_biog1_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a03 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a03 ) = 'biog1_o_a03' chem_desc_table( idomain, P_biog1_o_a03 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a03 )%stream(2) = 2097216 F_biog1_o_a03 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a03 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a03 , idomain ) = P_biog2_o_a03 ELSE P_biog2_o_a03 = chem_index_table( PARAM_biog2_o_a03 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a03 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a03 ) = 'biog2_o_a03' chem_desc_table( idomain, P_biog2_o_a03 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_o_a03 )%stream(2) = 2097216 F_biog2_o_a03 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a03 , idomain ) = P_ant3_c_a03 ELSE P_ant3_c_a03 = chem_index_table( PARAM_ant3_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a03 ) = 'ant3_c_a03' chem_desc_table( idomain, P_ant3_c_a03 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant3_c_a03 )%stream(2) = 2097216 F_ant3_c_a03 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a03 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a03 , idomain ) = P_ant4_c_a03 ELSE P_ant4_c_a03 = chem_index_table( PARAM_ant4_c_a03 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a03 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a03 ) = 'ant4_c_a03' chem_desc_table( idomain, P_ant4_c_a03 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant4_c_a03 )%stream(2) = 2097216 F_ant4_c_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) = P_pcg1_b_c_a04 ELSE P_pcg1_b_c_a04 = chem_index_table( PARAM_pcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c_a04' chem_desc_table( idomain, P_pcg1_b_c_a04 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a04 )%stream(2) = 2097216 F_pcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) = P_pcg1_b_o_a04 ELSE P_pcg1_b_o_a04 = chem_index_table( PARAM_pcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o_a04' chem_desc_table( idomain, P_pcg1_b_o_a04 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a04 )%stream(2) = 2097216 F_pcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) = P_opcg1_b_c_a04 ELSE P_opcg1_b_c_a04 = chem_index_table( PARAM_opcg1_b_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c_a04' chem_desc_table( idomain, P_opcg1_b_c_a04 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a04 )%stream(2) = 2097216 F_opcg1_b_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) = P_opcg1_b_o_a04 ELSE P_opcg1_b_o_a04 = chem_index_table( PARAM_opcg1_b_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o_a04' chem_desc_table( idomain, P_opcg1_b_o_a04 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a04 )%stream(2) = 2097216 F_opcg1_b_o_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) = P_pcg1_f_c_a04 ELSE P_pcg1_f_c_a04 = chem_index_table( PARAM_pcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c_a04' chem_desc_table( idomain, P_pcg1_f_c_a04 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a04 )%stream(2) = 2097216 F_pcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) = P_pcg1_f_o_a04 ELSE P_pcg1_f_o_a04 = chem_index_table( PARAM_pcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o_a04' chem_desc_table( idomain, P_pcg1_f_o_a04 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a04 )%stream(2) = 2097216 F_pcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) = P_opcg1_f_c_a04 ELSE P_opcg1_f_c_a04 = chem_index_table( PARAM_opcg1_f_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c_a04' chem_desc_table( idomain, P_opcg1_f_c_a04 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a04 )%stream(2) = 2097216 F_opcg1_f_c_a04 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) = P_opcg1_f_o_a04 ELSE P_opcg1_f_o_a04 = chem_index_table( PARAM_opcg1_f_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a04 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o_a04' chem_desc_table( idomain, P_opcg1_f_o_a04 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a04 )%stream(2) = 2097216 F_opcg1_f_o_a04 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a04 , idomain ) = P_ant1_c_a04 ELSE P_ant1_c_a04 = chem_index_table( PARAM_ant1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a04 ) = 'ant1_c_a04' chem_desc_table( idomain, P_ant1_c_a04 ) = 'ant1_c, aerosol bin 01' chem_units_table( idomain, P_ant1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant1_c_a04 )%stream(2) = 2097216 F_ant1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a04 , idomain ) = P_biog1_c_a04 ELSE P_biog1_c_a04 = chem_index_table( PARAM_biog1_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a04 ) = 'biog1_c_a04' chem_desc_table( idomain, P_biog1_c_a04 ) = 'biog1_c, aerosol bin 01' chem_units_table( idomain, P_biog1_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_c_a04 )%stream(2) = 2097216 F_biog1_c_a04 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a04 , idomain ) = P_ant2_c_a04 ELSE P_ant2_c_a04 = chem_index_table( PARAM_ant2_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a04 ) = 'ant2_c_a04' chem_desc_table( idomain, P_ant2_c_a04 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant2_c_a04 )%stream(2) = 2097216 F_ant2_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a04 , idomain ) = P_biog2_c_a04 ELSE P_biog2_c_a04 = chem_index_table( PARAM_biog2_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a04 ) = 'biog2_c_a04' chem_desc_table( idomain, P_biog2_c_a04 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_c_a04 )%stream(2) = 2097216 F_biog2_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a04 , idomain ) = P_biog3_c_a04 ELSE P_biog3_c_a04 = chem_index_table( PARAM_biog3_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a04 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a04 ) = 'biog3_c_a04' chem_desc_table( idomain, P_biog3_c_a04 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog3_c_a04 )%stream(2) = 2097216 F_biog3_c_a04 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a04 , idomain ) = P_biog1_o_a04 ELSE P_biog1_o_a04 = chem_index_table( PARAM_biog1_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a04 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a04 ) = 'biog1_o_a04' chem_desc_table( idomain, P_biog1_o_a04 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog1_o_a04 )%stream(2) = 2097216 F_biog1_o_a04 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a04 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a04 , idomain ) = P_biog2_o_a04 ELSE P_biog2_o_a04 = chem_index_table( PARAM_biog2_o_a04 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a04 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a04 ) = 'biog2_o_a04' chem_desc_table( idomain, P_biog2_o_a04 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_biog2_o_a04 )%stream(2) = 2097216 F_biog2_o_a04 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a04 , idomain ) = P_ant3_c_a04 ELSE P_ant3_c_a04 = chem_index_table( PARAM_ant3_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a04 ) = 'ant3_c_a04' chem_desc_table( idomain, P_ant3_c_a04 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant3_c_a04 )%stream(2) = 2097216 F_ant3_c_a04 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a04 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a04 , idomain ) = P_ant4_c_a04 ELSE P_ant4_c_a04 = chem_index_table( PARAM_ant4_c_a04 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a04 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a04 ) = 'ant4_c_a04' chem_desc_table( idomain, P_ant4_c_a04 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_ant4_c_a04 )%stream(2) = 2097216 F_ant4_c_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) = P_pcg1_b_c_a05 ELSE P_pcg1_b_c_a05 = chem_index_table( PARAM_pcg1_b_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a05 ) = 'pcg1_b_c_a05' chem_desc_table( idomain, P_pcg1_b_c_a05 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a05 )%stream(2) = 2097216 F_pcg1_b_c_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) = P_pcg1_b_o_a05 ELSE P_pcg1_b_o_a05 = chem_index_table( PARAM_pcg1_b_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a05 ) = 'pcg1_b_o_a05' chem_desc_table( idomain, P_pcg1_b_o_a05 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a05 )%stream(2) = 2097216 F_pcg1_b_o_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) = P_opcg1_b_c_a05 ELSE P_opcg1_b_c_a05 = chem_index_table( PARAM_opcg1_b_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a05 ) = 'opcg1_b_c_a05' chem_desc_table( idomain, P_opcg1_b_c_a05 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a05 )%stream(2) = 2097216 F_opcg1_b_c_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) = P_opcg1_b_o_a05 ELSE P_opcg1_b_o_a05 = chem_index_table( PARAM_opcg1_b_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a05 ) = 'opcg1_b_o_a05' chem_desc_table( idomain, P_opcg1_b_o_a05 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a05 )%stream(2) = 2097216 F_opcg1_b_o_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) = P_pcg1_f_c_a05 ELSE P_pcg1_f_c_a05 = chem_index_table( PARAM_pcg1_f_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a05 ) = 'pcg1_f_c_a05' chem_desc_table( idomain, P_pcg1_f_c_a05 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a05 )%stream(2) = 2097216 F_pcg1_f_c_a05 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) = P_pcg1_f_o_a05 ELSE P_pcg1_f_o_a05 = chem_index_table( PARAM_pcg1_f_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a05 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a05 ) = 'pcg1_f_o_a05' chem_desc_table( idomain, P_pcg1_f_o_a05 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a05 )%stream(2) = 2097216 F_pcg1_f_o_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) = P_opcg1_f_c_a05 ELSE P_opcg1_f_c_a05 = chem_index_table( PARAM_opcg1_f_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a05 ) = 'opcg1_f_c_a05' chem_desc_table( idomain, P_opcg1_f_c_a05 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a05 )%stream(2) = 2097216 F_opcg1_f_c_a05 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) = P_opcg1_f_o_a05 ELSE P_opcg1_f_o_a05 = chem_index_table( PARAM_opcg1_f_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a05 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a05 ) = 'opcg1_f_o_a05' chem_desc_table( idomain, P_opcg1_f_o_a05 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a05 )%stream(2) = 2097216 F_opcg1_f_o_a05 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a05 , idomain ) = P_ant1_c_a05 ELSE P_ant1_c_a05 = chem_index_table( PARAM_ant1_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a05 ) = 'ant1_c_a05' chem_desc_table( idomain, P_ant1_c_a05 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_a05 )%stream(2) = 2097216 F_ant1_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a05 , idomain ) = P_biog1_c_a05 ELSE P_biog1_c_a05 = chem_index_table( PARAM_biog1_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a05 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a05 ) = 'biog1_c_a05' chem_desc_table( idomain, P_biog1_c_a05 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_a05 )%stream(2) = 2097216 F_biog1_c_a05 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a05 , idomain ) = P_ant2_c_a05 ELSE P_ant2_c_a05 = chem_index_table( PARAM_ant2_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a05 ) = 'ant2_c_a05' chem_desc_table( idomain, P_ant2_c_a05 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant2_c_a05 )%stream(2) = 2097216 F_ant2_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a05 , idomain ) = P_biog2_c_a05 ELSE P_biog2_c_a05 = chem_index_table( PARAM_biog2_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a05 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a05 ) = 'biog2_c_a05' chem_desc_table( idomain, P_biog2_c_a05 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog2_c_a05 )%stream(2) = 2097216 F_biog2_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a05 , idomain ) = P_biog3_c_a05 ELSE P_biog3_c_a05 = chem_index_table( PARAM_biog3_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a05 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a05 ) = 'biog3_c_a05' chem_desc_table( idomain, P_biog3_c_a05 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog3_c_a05 )%stream(2) = 2097216 F_biog3_c_a05 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a05 , idomain ) = P_biog1_o_a05 ELSE P_biog1_o_a05 = chem_index_table( PARAM_biog1_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a05 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a05 ) = 'biog1_o_a05' chem_desc_table( idomain, P_biog1_o_a05 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_o_a05 )%stream(2) = 2097216 F_biog1_o_a05 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a05 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a05 , idomain ) = P_biog2_o_a05 ELSE P_biog2_o_a05 = chem_index_table( PARAM_biog2_o_a05 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a05 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a05 ) = 'biog2_o_a05' chem_desc_table( idomain, P_biog2_o_a05 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog2_o_a05 )%stream(2) = 2097216 F_biog2_o_a05 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a05 , idomain ) = P_ant3_c_a05 ELSE P_ant3_c_a05 = chem_index_table( PARAM_ant3_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a05 ) = 'ant3_c_a05' chem_desc_table( idomain, P_ant3_c_a05 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant3_c_a05 )%stream(2) = 2097216 F_ant3_c_a05 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a05 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a05 , idomain ) = P_ant4_c_a05 ELSE P_ant4_c_a05 = chem_index_table( PARAM_ant4_c_a05 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a05 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a05 ) = 'ant4_c_a05' chem_desc_table( idomain, P_ant4_c_a05 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a05 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant4_c_a05 )%stream(2) = 2097216 F_ant4_c_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) = P_pcg1_b_c_a06 ELSE P_pcg1_b_c_a06 = chem_index_table( PARAM_pcg1_b_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a06 ) = 'pcg1_b_c_a06' chem_desc_table( idomain, P_pcg1_b_c_a06 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a06 )%stream(2) = 2097216 F_pcg1_b_c_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) = P_pcg1_b_o_a06 ELSE P_pcg1_b_o_a06 = chem_index_table( PARAM_pcg1_b_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a06 ) = 'pcg1_b_o_a06' chem_desc_table( idomain, P_pcg1_b_o_a06 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a06 )%stream(2) = 2097216 F_pcg1_b_o_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) = P_opcg1_b_c_a06 ELSE P_opcg1_b_c_a06 = chem_index_table( PARAM_opcg1_b_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a06 ) = 'opcg1_b_c_a06' chem_desc_table( idomain, P_opcg1_b_c_a06 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a06 )%stream(2) = 2097216 F_opcg1_b_c_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) = P_opcg1_b_o_a06 ELSE P_opcg1_b_o_a06 = chem_index_table( PARAM_opcg1_b_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a06 ) = 'opcg1_b_o_a06' chem_desc_table( idomain, P_opcg1_b_o_a06 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a06 )%stream(2) = 2097216 F_opcg1_b_o_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) = P_pcg1_f_c_a06 ELSE P_pcg1_f_c_a06 = chem_index_table( PARAM_pcg1_f_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a06 ) = 'pcg1_f_c_a06' chem_desc_table( idomain, P_pcg1_f_c_a06 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a06 )%stream(2) = 2097216 F_pcg1_f_c_a06 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) = P_pcg1_f_o_a06 ELSE P_pcg1_f_o_a06 = chem_index_table( PARAM_pcg1_f_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a06 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a06 ) = 'pcg1_f_o_a06' chem_desc_table( idomain, P_pcg1_f_o_a06 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a06 )%stream(2) = 2097216 F_pcg1_f_o_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) = P_opcg1_f_c_a06 ELSE P_opcg1_f_c_a06 = chem_index_table( PARAM_opcg1_f_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a06 ) = 'opcg1_f_c_a06' chem_desc_table( idomain, P_opcg1_f_c_a06 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a06 )%stream(2) = 2097216 F_opcg1_f_c_a06 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) = P_opcg1_f_o_a06 ELSE P_opcg1_f_o_a06 = chem_index_table( PARAM_opcg1_f_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a06 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a06 ) = 'opcg1_f_o_a06' chem_desc_table( idomain, P_opcg1_f_o_a06 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a06 )%stream(2) = 2097216 F_opcg1_f_o_a06 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a06 , idomain ) = P_ant1_c_a06 ELSE P_ant1_c_a06 = chem_index_table( PARAM_ant1_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a06 ) = 'ant1_c_a06' chem_desc_table( idomain, P_ant1_c_a06 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_a06 )%stream(2) = 2097216 F_ant1_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a06 , idomain ) = P_biog1_c_a06 ELSE P_biog1_c_a06 = chem_index_table( PARAM_biog1_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a06 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a06 ) = 'biog1_c_a06' chem_desc_table( idomain, P_biog1_c_a06 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_a06 )%stream(2) = 2097216 F_biog1_c_a06 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a06 , idomain ) = P_ant2_c_a06 ELSE P_ant2_c_a06 = chem_index_table( PARAM_ant2_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a06 ) = 'ant2_c_a06' chem_desc_table( idomain, P_ant2_c_a06 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant2_c_a06 )%stream(2) = 2097216 F_ant2_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a06 , idomain ) = P_biog2_c_a06 ELSE P_biog2_c_a06 = chem_index_table( PARAM_biog2_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a06 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a06 ) = 'biog2_c_a06' chem_desc_table( idomain, P_biog2_c_a06 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog2_c_a06 )%stream(2) = 2097216 F_biog2_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a06 , idomain ) = P_biog3_c_a06 ELSE P_biog3_c_a06 = chem_index_table( PARAM_biog3_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a06 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a06 ) = 'biog3_c_a06' chem_desc_table( idomain, P_biog3_c_a06 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog3_c_a06 )%stream(2) = 2097216 F_biog3_c_a06 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a06 , idomain ) = P_biog1_o_a06 ELSE P_biog1_o_a06 = chem_index_table( PARAM_biog1_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a06 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a06 ) = 'biog1_o_a06' chem_desc_table( idomain, P_biog1_o_a06 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_o_a06 )%stream(2) = 2097216 F_biog1_o_a06 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a06 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a06 , idomain ) = P_biog2_o_a06 ELSE P_biog2_o_a06 = chem_index_table( PARAM_biog2_o_a06 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a06 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a06 ) = 'biog2_o_a06' chem_desc_table( idomain, P_biog2_o_a06 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog2_o_a06 )%stream(2) = 2097216 F_biog2_o_a06 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a06 , idomain ) = P_ant3_c_a06 ELSE P_ant3_c_a06 = chem_index_table( PARAM_ant3_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a06 ) = 'ant3_c_a06' chem_desc_table( idomain, P_ant3_c_a06 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant3_c_a06 )%stream(2) = 2097216 F_ant3_c_a06 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a06 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a06 , idomain ) = P_ant4_c_a06 ELSE P_ant4_c_a06 = chem_index_table( PARAM_ant4_c_a06 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a06 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a06 ) = 'ant4_c_a06' chem_desc_table( idomain, P_ant4_c_a06 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a06 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant4_c_a06 )%stream(2) = 2097216 F_ant4_c_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) = P_pcg1_b_c_a07 ELSE P_pcg1_b_c_a07 = chem_index_table( PARAM_pcg1_b_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a07 ) = 'pcg1_b_c_a07' chem_desc_table( idomain, P_pcg1_b_c_a07 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a07 )%stream(2) = 2097216 F_pcg1_b_c_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) = P_pcg1_b_o_a07 ELSE P_pcg1_b_o_a07 = chem_index_table( PARAM_pcg1_b_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a07 ) = 'pcg1_b_o_a07' chem_desc_table( idomain, P_pcg1_b_o_a07 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a07 )%stream(2) = 2097216 F_pcg1_b_o_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) = P_opcg1_b_c_a07 ELSE P_opcg1_b_c_a07 = chem_index_table( PARAM_opcg1_b_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a07 ) = 'opcg1_b_c_a07' chem_desc_table( idomain, P_opcg1_b_c_a07 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a07 )%stream(2) = 2097216 F_opcg1_b_c_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) = P_opcg1_b_o_a07 ELSE P_opcg1_b_o_a07 = chem_index_table( PARAM_opcg1_b_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a07 ) = 'opcg1_b_o_a07' chem_desc_table( idomain, P_opcg1_b_o_a07 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a07 )%stream(2) = 2097216 F_opcg1_b_o_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) = P_pcg1_f_c_a07 ELSE P_pcg1_f_c_a07 = chem_index_table( PARAM_pcg1_f_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a07 ) = 'pcg1_f_c_a07' chem_desc_table( idomain, P_pcg1_f_c_a07 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a07 )%stream(2) = 2097216 F_pcg1_f_c_a07 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) = P_pcg1_f_o_a07 ELSE P_pcg1_f_o_a07 = chem_index_table( PARAM_pcg1_f_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a07 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a07 ) = 'pcg1_f_o_a07' chem_desc_table( idomain, P_pcg1_f_o_a07 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a07 )%stream(2) = 2097216 F_pcg1_f_o_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) = P_opcg1_f_c_a07 ELSE P_opcg1_f_c_a07 = chem_index_table( PARAM_opcg1_f_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a07 ) = 'opcg1_f_c_a07' chem_desc_table( idomain, P_opcg1_f_c_a07 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a07 )%stream(2) = 2097216 F_opcg1_f_c_a07 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) = P_opcg1_f_o_a07 ELSE P_opcg1_f_o_a07 = chem_index_table( PARAM_opcg1_f_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a07 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a07 ) = 'opcg1_f_o_a07' chem_desc_table( idomain, P_opcg1_f_o_a07 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a07 )%stream(2) = 2097216 F_opcg1_f_o_a07 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a07 , idomain ) = P_ant1_c_a07 ELSE P_ant1_c_a07 = chem_index_table( PARAM_ant1_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a07 ) = 'ant1_c_a07' chem_desc_table( idomain, P_ant1_c_a07 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_a07 )%stream(2) = 2097216 F_ant1_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a07 , idomain ) = P_biog1_c_a07 ELSE P_biog1_c_a07 = chem_index_table( PARAM_biog1_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a07 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a07 ) = 'biog1_c_a07' chem_desc_table( idomain, P_biog1_c_a07 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_a07 )%stream(2) = 2097216 F_biog1_c_a07 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a07 , idomain ) = P_ant2_c_a07 ELSE P_ant2_c_a07 = chem_index_table( PARAM_ant2_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a07 ) = 'ant2_c_a07' chem_desc_table( idomain, P_ant2_c_a07 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant2_c_a07 )%stream(2) = 2097216 F_ant2_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a07 , idomain ) = P_biog2_c_a07 ELSE P_biog2_c_a07 = chem_index_table( PARAM_biog2_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a07 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a07 ) = 'biog2_c_a07' chem_desc_table( idomain, P_biog2_c_a07 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog2_c_a07 )%stream(2) = 2097216 F_biog2_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a07 , idomain ) = P_biog3_c_a07 ELSE P_biog3_c_a07 = chem_index_table( PARAM_biog3_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a07 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a07 ) = 'biog3_c_a07' chem_desc_table( idomain, P_biog3_c_a07 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog3_c_a07 )%stream(2) = 2097216 F_biog3_c_a07 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a07 , idomain ) = P_biog1_o_a07 ELSE P_biog1_o_a07 = chem_index_table( PARAM_biog1_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a07 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a07 ) = 'biog1_o_a07' chem_desc_table( idomain, P_biog1_o_a07 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_o_a07 )%stream(2) = 2097216 F_biog1_o_a07 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a07 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a07 , idomain ) = P_biog2_o_a07 ELSE P_biog2_o_a07 = chem_index_table( PARAM_biog2_o_a07 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a07 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a07 ) = 'biog2_o_a07' chem_desc_table( idomain, P_biog2_o_a07 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog2_o_a07 )%stream(2) = 2097216 F_biog2_o_a07 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a07 , idomain ) = P_ant3_c_a07 ELSE P_ant3_c_a07 = chem_index_table( PARAM_ant3_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a07 ) = 'ant3_c_a07' chem_desc_table( idomain, P_ant3_c_a07 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant3_c_a07 )%stream(2) = 2097216 F_ant3_c_a07 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a07 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a07 , idomain ) = P_ant4_c_a07 ELSE P_ant4_c_a07 = chem_index_table( PARAM_ant4_c_a07 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a07 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a07 ) = 'ant4_c_a07' chem_desc_table( idomain, P_ant4_c_a07 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a07 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant4_c_a07 )%stream(2) = 2097216 F_ant4_c_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) = P_pcg1_b_c_a08 ELSE P_pcg1_b_c_a08 = chem_index_table( PARAM_pcg1_b_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_c_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_c_a08 ) = 'pcg1_b_c_a08' chem_desc_table( idomain, P_pcg1_b_c_a08 ) = 'pcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_c_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_c_a08 )%stream(2) = 2097216 F_pcg1_b_c_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_b_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) = P_pcg1_b_o_a08 ELSE P_pcg1_b_o_a08 = chem_index_table( PARAM_pcg1_b_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_b_o_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_b_o_a08 ) = 'pcg1_b_o_a08' chem_desc_table( idomain, P_pcg1_b_o_a08 ) = 'pcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_b_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_b_o_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_b_o_a08 )%stream(2) = 2097216 F_pcg1_b_o_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) = P_opcg1_b_c_a08 ELSE P_opcg1_b_c_a08 = chem_index_table( PARAM_opcg1_b_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_c_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_c_a08 ) = 'opcg1_b_c_a08' chem_desc_table( idomain, P_opcg1_b_c_a08 ) = 'opcg1_b_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_c_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_c_a08 )%stream(2) = 2097216 F_opcg1_b_c_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_b_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) = P_opcg1_b_o_a08 ELSE P_opcg1_b_o_a08 = chem_index_table( PARAM_opcg1_b_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_b_o_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_b_o_a08 ) = 'opcg1_b_o_a08' chem_desc_table( idomain, P_opcg1_b_o_a08 ) = 'opcg1_b_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_b_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_b_o_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_b_o_a08 )%stream(2) = 2097216 F_opcg1_b_o_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) = P_pcg1_f_c_a08 ELSE P_pcg1_f_c_a08 = chem_index_table( PARAM_pcg1_f_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_c_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_c_a08 ) = 'pcg1_f_c_a08' chem_desc_table( idomain, P_pcg1_f_c_a08 ) = 'pcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_c_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_c_a08 )%stream(2) = 2097216 F_pcg1_f_c_a08 = .TRUE. IF ( chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pcg1_f_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) = P_pcg1_f_o_a08 ELSE P_pcg1_f_o_a08 = chem_index_table( PARAM_pcg1_f_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_pcg1_f_o_a08 ) = .TRUE. chem_dname_table( idomain, P_pcg1_f_o_a08 ) = 'pcg1_f_o_a08' chem_desc_table( idomain, P_pcg1_f_o_a08 ) = 'pcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_pcg1_f_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pcg1_f_o_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_pcg1_f_o_a08 )%stream(2) = 2097216 F_pcg1_f_o_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) = P_opcg1_f_c_a08 ELSE P_opcg1_f_c_a08 = chem_index_table( PARAM_opcg1_f_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_c_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_c_a08 ) = 'opcg1_f_c_a08' chem_desc_table( idomain, P_opcg1_f_c_a08 ) = 'opcg1_f_c, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_c_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_c_a08 )%stream(2) = 2097216 F_opcg1_f_c_a08 = .TRUE. IF ( chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_opcg1_f_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) = P_opcg1_f_o_a08 ELSE P_opcg1_f_o_a08 = chem_index_table( PARAM_opcg1_f_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_opcg1_f_o_a08 ) = .TRUE. chem_dname_table( idomain, P_opcg1_f_o_a08 ) = 'opcg1_f_o_a08' chem_desc_table( idomain, P_opcg1_f_o_a08 ) = 'opcg1_f_o, aerosol bin 01' chem_units_table( idomain, P_opcg1_f_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_opcg1_f_o_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_opcg1_f_o_a08 )%stream(2) = 2097216 F_opcg1_f_o_a08 = .TRUE. IF ( chem_index_table( PARAM_ant1_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant1_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant1_c_a08 , idomain ) = P_ant1_c_a08 ELSE P_ant1_c_a08 = chem_index_table( PARAM_ant1_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant1_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant1_c_a08 ) = 'ant1_c_a08' chem_desc_table( idomain, P_ant1_c_a08 ) = 'ant1_c, aerosol bin 05' chem_units_table( idomain, P_ant1_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant1_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant1_c_a08 )%stream(2) = 2097216 F_ant1_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog1_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog1_c_a08 , idomain ) = P_biog1_c_a08 ELSE P_biog1_c_a08 = chem_index_table( PARAM_biog1_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog1_c_a08 ) = .TRUE. chem_dname_table( idomain, P_biog1_c_a08 ) = 'biog1_c_a08' chem_desc_table( idomain, P_biog1_c_a08 ) = 'biog1_c, aerosol bin 05' chem_units_table( idomain, P_biog1_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_c_a08 )%stream(2) = 2097216 F_biog1_c_a08 = .TRUE. IF ( chem_index_table( PARAM_ant2_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant2_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant2_c_a08 , idomain ) = P_ant2_c_a08 ELSE P_ant2_c_a08 = chem_index_table( PARAM_ant2_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant2_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant2_c_a08 ) = 'ant2_c_a08' chem_desc_table( idomain, P_ant2_c_a08 ) = 'ant2_c, aerosol bin 01' chem_units_table( idomain, P_ant2_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant2_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant2_c_a08 )%stream(2) = 2097216 F_ant2_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog2_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog2_c_a08 , idomain ) = P_biog2_c_a08 ELSE P_biog2_c_a08 = chem_index_table( PARAM_biog2_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog2_c_a08 ) = .TRUE. chem_dname_table( idomain, P_biog2_c_a08 ) = 'biog2_c_a08' chem_desc_table( idomain, P_biog2_c_a08 ) = 'biog2_c, aerosol bin 01' chem_units_table( idomain, P_biog2_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog2_c_a08 )%stream(2) = 2097216 F_biog2_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog3_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog3_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog3_c_a08 , idomain ) = P_biog3_c_a08 ELSE P_biog3_c_a08 = chem_index_table( PARAM_biog3_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog3_c_a08 ) = .TRUE. chem_dname_table( idomain, P_biog3_c_a08 ) = 'biog3_c_a08' chem_desc_table( idomain, P_biog3_c_a08 ) = 'biog3_c, aerosol bin 01' chem_units_table( idomain, P_biog3_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog3_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog3_c_a08 )%stream(2) = 2097216 F_biog3_c_a08 = .TRUE. IF ( chem_index_table( PARAM_biog1_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog1_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog1_o_a08 , idomain ) = P_biog1_o_a08 ELSE P_biog1_o_a08 = chem_index_table( PARAM_biog1_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog1_o_a08 ) = .TRUE. chem_dname_table( idomain, P_biog1_o_a08 ) = 'biog1_o_a08' chem_desc_table( idomain, P_biog1_o_a08 ) = 'biog1_o, aerosol bin 01' chem_units_table( idomain, P_biog1_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog1_o_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog1_o_a08 )%stream(2) = 2097216 F_biog1_o_a08 = .TRUE. IF ( chem_index_table( PARAM_biog2_o_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_biog2_o_a08 = chem_num_table(idomain) chem_index_table( PARAM_biog2_o_a08 , idomain ) = P_biog2_o_a08 ELSE P_biog2_o_a08 = chem_index_table( PARAM_biog2_o_a08 , idomain ) END IF chem_boundary_table( idomain, P_biog2_o_a08 ) = .TRUE. chem_dname_table( idomain, P_biog2_o_a08 ) = 'biog2_o_a08' chem_desc_table( idomain, P_biog2_o_a08 ) = 'biog2_o, aerosol bin 01' chem_units_table( idomain, P_biog2_o_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_biog2_o_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_biog2_o_a08 )%stream(2) = 2097216 F_biog2_o_a08 = .TRUE. IF ( chem_index_table( PARAM_ant3_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant3_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant3_c_a08 , idomain ) = P_ant3_c_a08 ELSE P_ant3_c_a08 = chem_index_table( PARAM_ant3_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant3_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant3_c_a08 ) = 'ant3_c_a08' chem_desc_table( idomain, P_ant3_c_a08 ) = 'ant3_c, aerosol bin 01' chem_units_table( idomain, P_ant3_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant3_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant3_c_a08 )%stream(2) = 2097216 F_ant3_c_a08 = .TRUE. IF ( chem_index_table( PARAM_ant4_c_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ant4_c_a08 = chem_num_table(idomain) chem_index_table( PARAM_ant4_c_a08 , idomain ) = P_ant4_c_a08 ELSE P_ant4_c_a08 = chem_index_table( PARAM_ant4_c_a08 , idomain ) END IF chem_boundary_table( idomain, P_ant4_c_a08 ) = .TRUE. chem_dname_table( idomain, P_ant4_c_a08 ) = 'ant4_c_a08' chem_desc_table( idomain, P_ant4_c_a08 ) = 'ant4_c, aerosol bin 01' chem_units_table( idomain, P_ant4_c_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ant4_c_a08 )%stream(1) = 33554432 chem_streams_table( idomain, P_ant4_c_a08 )%stream(2) = 2097216 F_ant4_c_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 F_num_a08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==200)THEN IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_isopr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopr = chem_num_table(idomain) chem_index_table( PARAM_isopr , idomain ) = P_isopr ELSE P_isopr = chem_index_table( PARAM_isopr , idomain ) END IF chem_boundary_table( idomain, P_isopr ) = .TRUE. chem_dname_table( idomain, P_isopr ) = 'isopr' chem_desc_table( idomain, P_isopr ) = 'isoprene' chem_units_table( idomain, P_isopr ) = '' chem_streams_table( idomain, P_isopr )%stream(1) = 33554433 chem_streams_table( idomain, P_isopr )%stream(2) = 2097216 F_isopr = .TRUE. IF ( chem_index_table( PARAM_mvk , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvk = chem_num_table(idomain) chem_index_table( PARAM_mvk , idomain ) = P_mvk ELSE P_mvk = chem_index_table( PARAM_mvk , idomain ) END IF chem_boundary_table( idomain, P_mvk ) = .TRUE. chem_dname_table( idomain, P_mvk ) = 'mvk' chem_desc_table( idomain, P_mvk ) = ' ' chem_units_table( idomain, P_mvk ) = '' chem_streams_table( idomain, P_mvk )%stream(1) = 33554433 chem_streams_table( idomain, P_mvk )%stream(2) = 2097216 F_mvk = .TRUE. IF ( chem_index_table( PARAM_iso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso2 = chem_num_table(idomain) chem_index_table( PARAM_iso2 , idomain ) = P_iso2 ELSE P_iso2 = chem_index_table( PARAM_iso2 , idomain ) END IF chem_boundary_table( idomain, P_iso2 ) = .TRUE. chem_dname_table( idomain, P_iso2 ) = 'iso2' chem_desc_table( idomain, P_iso2 ) = '' chem_units_table( idomain, P_iso2 ) = '' chem_streams_table( idomain, P_iso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_iso2 )%stream(2) = 2097216 F_iso2 = .TRUE. IF ( chem_index_table( PARAM_isooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isooh = chem_num_table(idomain) chem_index_table( PARAM_isooh , idomain ) = P_isooh ELSE P_isooh = chem_index_table( PARAM_isooh , idomain ) END IF chem_boundary_table( idomain, P_isooh ) = .TRUE. chem_dname_table( idomain, P_isooh ) = 'isooh' chem_desc_table( idomain, P_isooh ) = '' chem_units_table( idomain, P_isooh ) = '' chem_streams_table( idomain, P_isooh )%stream(1) = 33554433 chem_streams_table( idomain, P_isooh )%stream(2) = 2097216 F_isooh = .TRUE. IF ( chem_index_table( PARAM_mvko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvko2 = chem_num_table(idomain) chem_index_table( PARAM_mvko2 , idomain ) = P_mvko2 ELSE P_mvko2 = chem_index_table( PARAM_mvko2 , idomain ) END IF chem_boundary_table( idomain, P_mvko2 ) = .TRUE. chem_dname_table( idomain, P_mvko2 ) = 'mvko2' chem_desc_table( idomain, P_mvko2 ) = '' chem_units_table( idomain, P_mvko2 ) = '' chem_streams_table( idomain, P_mvko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_mvko2 )%stream(2) = 2097216 F_mvko2 = .TRUE. IF ( chem_index_table( PARAM_mvkooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mvkooh = chem_num_table(idomain) chem_index_table( PARAM_mvkooh , idomain ) = P_mvkooh ELSE P_mvkooh = chem_index_table( PARAM_mvkooh , idomain ) END IF chem_boundary_table( idomain, P_mvkooh ) = .TRUE. chem_dname_table( idomain, P_mvkooh ) = 'mvkooh' chem_desc_table( idomain, P_mvkooh ) = '' chem_units_table( idomain, P_mvkooh ) = '' chem_streams_table( idomain, P_mvkooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mvkooh )%stream(2) = 2097216 F_mvkooh = .TRUE. IF ( chem_index_table( PARAM_ison , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ison = chem_num_table(idomain) chem_index_table( PARAM_ison , idomain ) = P_ison ELSE P_ison = chem_index_table( PARAM_ison , idomain ) END IF chem_boundary_table( idomain, P_ison ) = .TRUE. chem_dname_table( idomain, P_ison ) = 'ison' chem_desc_table( idomain, P_ison ) = 'ISON concentration' chem_units_table( idomain, P_ison ) = 'ppm' chem_streams_table( idomain, P_ison )%stream(1) = 33554433 chem_streams_table( idomain, P_ison )%stream(2) = 2097216 F_ison = .TRUE. IF ( chem_index_table( PARAM_aca , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aca = chem_num_table(idomain) chem_index_table( PARAM_aca , idomain ) = P_aca ELSE P_aca = chem_index_table( PARAM_aca , idomain ) END IF chem_boundary_table( idomain, P_aca ) = .TRUE. chem_dname_table( idomain, P_aca ) = 'aca' chem_desc_table( idomain, P_aca ) = '' chem_units_table( idomain, P_aca ) = '' chem_streams_table( idomain, P_aca )%stream(1) = 33554433 chem_streams_table( idomain, P_aca )%stream(2) = 2097216 F_aca = .TRUE. IF ( chem_index_table( PARAM_acol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acol = chem_num_table(idomain) chem_index_table( PARAM_acol , idomain ) = P_acol ELSE P_acol = chem_index_table( PARAM_acol , idomain ) END IF chem_boundary_table( idomain, P_acol ) = .TRUE. chem_dname_table( idomain, P_acol ) = 'acol' chem_desc_table( idomain, P_acol ) = '' chem_units_table( idomain, P_acol ) = '' chem_streams_table( idomain, P_acol )%stream(1) = 33554433 chem_streams_table( idomain, P_acol )%stream(2) = 2097216 F_acol = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_naca , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_naca = chem_num_table(idomain) chem_index_table( PARAM_naca , idomain ) = P_naca ELSE P_naca = chem_index_table( PARAM_naca , idomain ) END IF chem_boundary_table( idomain, P_naca ) = .TRUE. chem_dname_table( idomain, P_naca ) = 'naca' chem_desc_table( idomain, P_naca ) = '' chem_units_table( idomain, P_naca ) = '' chem_streams_table( idomain, P_naca )%stream(1) = 33554433 chem_streams_table( idomain, P_naca )%stream(2) = 2097216 F_naca = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_pa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pa = chem_num_table(idomain) chem_index_table( PARAM_pa , idomain ) = P_pa ELSE P_pa = chem_index_table( PARAM_pa , idomain ) END IF chem_boundary_table( idomain, P_pa ) = .TRUE. chem_dname_table( idomain, P_pa ) = 'pa' chem_desc_table( idomain, P_pa ) = '' chem_units_table( idomain, P_pa ) = '' chem_streams_table( idomain, P_pa )%stream(1) = 33554433 chem_streams_table( idomain, P_pa )%stream(2) = 2097216 F_pa = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_mglo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mglo = chem_num_table(idomain) chem_index_table( PARAM_mglo , idomain ) = P_mglo ELSE P_mglo = chem_index_table( PARAM_mglo , idomain ) END IF chem_boundary_table( idomain, P_mglo ) = .TRUE. chem_dname_table( idomain, P_mglo ) = 'mglo' chem_desc_table( idomain, P_mglo ) = '' chem_units_table( idomain, P_mglo ) = '' chem_streams_table( idomain, P_mglo )%stream(1) = 33554433 chem_streams_table( idomain, P_mglo )%stream(2) = 2097216 F_mglo = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_etooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_etooh = chem_num_table(idomain) chem_index_table( PARAM_etooh , idomain ) = P_etooh ELSE P_etooh = chem_index_table( PARAM_etooh , idomain ) END IF chem_boundary_table( idomain, P_etooh ) = .TRUE. chem_dname_table( idomain, P_etooh ) = 'etooh' chem_desc_table( idomain, P_etooh ) = '' chem_units_table( idomain, P_etooh ) = '' chem_streams_table( idomain, P_etooh )%stream(1) = 33554433 chem_streams_table( idomain, P_etooh )%stream(2) = 2097216 F_etooh = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 F_prooh = .TRUE. IF ( chem_index_table( PARAM_acet , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acet = chem_num_table(idomain) chem_index_table( PARAM_acet , idomain ) = P_acet ELSE P_acet = chem_index_table( PARAM_acet , idomain ) END IF chem_boundary_table( idomain, P_acet ) = .TRUE. chem_dname_table( idomain, P_acet ) = 'acet' chem_desc_table( idomain, P_acet ) = '' chem_units_table( idomain, P_acet ) = '' chem_streams_table( idomain, P_acet )%stream(1) = 33554433 chem_streams_table( idomain, P_acet )%stream(2) = 2097216 F_acet = .TRUE. IF ( chem_index_table( PARAM_acooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acooh = chem_num_table(idomain) chem_index_table( PARAM_acooh , idomain ) = P_acooh ELSE P_acooh = chem_index_table( PARAM_acooh , idomain ) END IF chem_boundary_table( idomain, P_acooh ) = .TRUE. chem_dname_table( idomain, P_acooh ) = 'acooh' chem_desc_table( idomain, P_acooh ) = '' chem_units_table( idomain, P_acooh ) = '' chem_streams_table( idomain, P_acooh )%stream(1) = 33554433 chem_streams_table( idomain, P_acooh )%stream(2) = 2097216 F_acooh = .TRUE. IF ( chem_index_table( PARAM_eto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eto2 = chem_num_table(idomain) chem_index_table( PARAM_eto2 , idomain ) = P_eto2 ELSE P_eto2 = chem_index_table( PARAM_eto2 , idomain ) END IF chem_boundary_table( idomain, P_eto2 ) = .TRUE. chem_dname_table( idomain, P_eto2 ) = 'eto2' chem_desc_table( idomain, P_eto2 ) = '' chem_units_table( idomain, P_eto2 ) = '' chem_streams_table( idomain, P_eto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_eto2 )%stream(2) = 2097216 F_eto2 = .TRUE. IF ( chem_index_table( PARAM_pro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pro2 = chem_num_table(idomain) chem_index_table( PARAM_pro2 , idomain ) = P_pro2 ELSE P_pro2 = chem_index_table( PARAM_pro2 , idomain ) END IF chem_boundary_table( idomain, P_pro2 ) = .TRUE. chem_dname_table( idomain, P_pro2 ) = 'pro2' chem_desc_table( idomain, P_pro2 ) = '' chem_units_table( idomain, P_pro2 ) = '' chem_streams_table( idomain, P_pro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_pro2 )%stream(2) = 2097216 F_pro2 = .TRUE. IF ( chem_index_table( PARAM_aco2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco2 = chem_num_table(idomain) chem_index_table( PARAM_aco2 , idomain ) = P_aco2 ELSE P_aco2 = chem_index_table( PARAM_aco2 , idomain ) END IF chem_boundary_table( idomain, P_aco2 ) = .TRUE. chem_dname_table( idomain, P_aco2 ) = 'aco2' chem_desc_table( idomain, P_aco2 ) = '' chem_units_table( idomain, P_aco2 ) = '' chem_streams_table( idomain, P_aco2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco2 )%stream(2) = 2097216 F_aco2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_c3h6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6ooh = chem_num_table(idomain) chem_index_table( PARAM_c3h6ooh , idomain ) = P_c3h6ooh ELSE P_c3h6ooh = chem_index_table( PARAM_c3h6ooh , idomain ) END IF chem_boundary_table( idomain, P_c3h6ooh ) = .TRUE. chem_dname_table( idomain, P_c3h6ooh ) = 'c3h6ooh' chem_desc_table( idomain, P_c3h6ooh ) = '' chem_units_table( idomain, P_c3h6ooh ) = '' chem_streams_table( idomain, P_c3h6ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6ooh )%stream(2) = 2097216 F_c3h6ooh = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_c4h10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c4h10 = chem_num_table(idomain) chem_index_table( PARAM_c4h10 , idomain ) = P_c4h10 ELSE P_c4h10 = chem_index_table( PARAM_c4h10 , idomain ) END IF chem_boundary_table( idomain, P_c4h10 ) = .TRUE. chem_dname_table( idomain, P_c4h10 ) = 'c4h10' chem_desc_table( idomain, P_c4h10 ) = '' chem_units_table( idomain, P_c4h10 ) = '' chem_streams_table( idomain, P_c4h10 )%stream(1) = 33554433 chem_streams_table( idomain, P_c4h10 )%stream(2) = 2097216 F_c4h10 = .TRUE. IF ( chem_index_table( PARAM_buooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_buooh = chem_num_table(idomain) chem_index_table( PARAM_buooh , idomain ) = P_buooh ELSE P_buooh = chem_index_table( PARAM_buooh , idomain ) END IF chem_boundary_table( idomain, P_buooh ) = .TRUE. chem_dname_table( idomain, P_buooh ) = 'c4h9ooh' chem_desc_table( idomain, P_buooh ) = '' chem_units_table( idomain, P_buooh ) = '' chem_streams_table( idomain, P_buooh )%stream(1) = 33554433 chem_streams_table( idomain, P_buooh )%stream(2) = 2097216 F_buooh = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_mekooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mekooh = chem_num_table(idomain) chem_index_table( PARAM_mekooh , idomain ) = P_mekooh ELSE P_mekooh = chem_index_table( PARAM_mekooh , idomain ) END IF chem_boundary_table( idomain, P_mekooh ) = .TRUE. chem_dname_table( idomain, P_mekooh ) = 'mekooh' chem_desc_table( idomain, P_mekooh ) = '' chem_units_table( idomain, P_mekooh ) = '' chem_streams_table( idomain, P_mekooh )%stream(1) = 33554433 chem_streams_table( idomain, P_mekooh )%stream(2) = 2097216 F_mekooh = .TRUE. IF ( chem_index_table( PARAM_mecoco , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mecoco = chem_num_table(idomain) chem_index_table( PARAM_mecoco , idomain ) = P_mecoco ELSE P_mecoco = chem_index_table( PARAM_mecoco , idomain ) END IF chem_boundary_table( idomain, P_mecoco ) = .TRUE. chem_dname_table( idomain, P_mecoco ) = 'mecoco' chem_desc_table( idomain, P_mecoco ) = '' chem_units_table( idomain, P_mecoco ) = '' chem_streams_table( idomain, P_mecoco )%stream(1) = 33554433 chem_streams_table( idomain, P_mecoco )%stream(2) = 2097216 F_mecoco = .TRUE. IF ( chem_index_table( PARAM_c3h6o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6o2 = chem_num_table(idomain) chem_index_table( PARAM_c3h6o2 , idomain ) = P_c3h6o2 ELSE P_c3h6o2 = chem_index_table( PARAM_c3h6o2 , idomain ) END IF chem_boundary_table( idomain, P_c3h6o2 ) = .TRUE. chem_dname_table( idomain, P_c3h6o2 ) = 'c3h6o2' chem_desc_table( idomain, P_c3h6o2 ) = '' chem_units_table( idomain, P_c3h6o2 ) = '' chem_streams_table( idomain, P_c3h6o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6o2 )%stream(2) = 2097216 F_c3h6o2 = .TRUE. IF ( chem_index_table( PARAM_c4h9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c4h9o2 = chem_num_table(idomain) chem_index_table( PARAM_c4h9o2 , idomain ) = P_c4h9o2 ELSE P_c4h9o2 = chem_index_table( PARAM_c4h9o2 , idomain ) END IF chem_boundary_table( idomain, P_c4h9o2 ) = .TRUE. chem_dname_table( idomain, P_c4h9o2 ) = 'c4h9o2' chem_desc_table( idomain, P_c4h9o2 ) = '' chem_units_table( idomain, P_c4h9o2 ) = '' chem_streams_table( idomain, P_c4h9o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c4h9o2 )%stream(2) = 2097216 F_c4h9o2 = .TRUE. IF ( chem_index_table( PARAM_meko2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meko2 = chem_num_table(idomain) chem_index_table( PARAM_meko2 , idomain ) = P_meko2 ELSE P_meko2 = chem_index_table( PARAM_meko2 , idomain ) END IF chem_boundary_table( idomain, P_meko2 ) = .TRUE. chem_dname_table( idomain, P_meko2 ) = 'meko2' chem_desc_table( idomain, P_meko2 ) = '' chem_units_table( idomain, P_meko2 ) = '' chem_streams_table( idomain, P_meko2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meko2 )%stream(2) = 2097216 F_meko2 = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_prono2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prono2 = chem_num_table(idomain) chem_index_table( PARAM_prono2 , idomain ) = P_prono2 ELSE P_prono2 = chem_index_table( PARAM_prono2 , idomain ) END IF chem_boundary_table( idomain, P_prono2 ) = .TRUE. chem_dname_table( idomain, P_prono2 ) = 'prono2' chem_desc_table( idomain, P_prono2 ) = '' chem_units_table( idomain, P_prono2 ) = '' chem_streams_table( idomain, P_prono2 )%stream(1) = 33554433 chem_streams_table( idomain, P_prono2 )%stream(2) = 2097216 F_prono2 = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_acetol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetol = chem_num_table(idomain) chem_index_table( PARAM_acetol , idomain ) = P_acetol ELSE P_acetol = chem_index_table( PARAM_acetol , idomain ) END IF chem_boundary_table( idomain, P_acetol ) = .TRUE. chem_dname_table( idomain, P_acetol ) = 'acetol' chem_desc_table( idomain, P_acetol ) = '' chem_units_table( idomain, P_acetol ) = '' chem_streams_table( idomain, P_acetol )%stream(1) = 33554433 chem_streams_table( idomain, P_acetol )%stream(2) = 2097216 F_acetol = .TRUE. IF ( chem_index_table( PARAM_acetp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_acetp = chem_num_table(idomain) chem_index_table( PARAM_acetp , idomain ) = P_acetp ELSE P_acetp = chem_index_table( PARAM_acetp , idomain ) END IF chem_boundary_table( idomain, P_acetp ) = .TRUE. chem_dname_table( idomain, P_acetp ) = 'acetp' chem_desc_table( idomain, P_acetp ) = '' chem_units_table( idomain, P_acetp ) = '' chem_streams_table( idomain, P_acetp )%stream(1) = 33554433 chem_streams_table( idomain, P_acetp )%stream(2) = 2097216 F_acetp = .TRUE. IF ( chem_index_table( PARAM_aceto2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aceto2 = chem_num_table(idomain) chem_index_table( PARAM_aceto2 , idomain ) = P_aceto2 ELSE P_aceto2 = chem_index_table( PARAM_aceto2 , idomain ) END IF chem_boundary_table( idomain, P_aceto2 ) = .TRUE. chem_dname_table( idomain, P_aceto2 ) = 'aceto2' chem_desc_table( idomain, P_aceto2 ) = '' chem_units_table( idomain, P_aceto2 ) = '' chem_streams_table( idomain, P_aceto2 )%stream(1) = 33554433 chem_streams_table( idomain, P_aceto2 )%stream(2) = 2097216 F_aceto2 = .TRUE. IF ( chem_index_table( PARAM_ch3cooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cooh = chem_num_table(idomain) chem_index_table( PARAM_ch3cooh , idomain ) = P_ch3cooh ELSE P_ch3cooh = chem_index_table( PARAM_ch3cooh , idomain ) END IF chem_boundary_table( idomain, P_ch3cooh ) = .TRUE. chem_dname_table( idomain, P_ch3cooh ) = 'ch3cooh' chem_desc_table( idomain, P_ch3cooh ) = '' chem_units_table( idomain, P_ch3cooh ) = '' chem_streams_table( idomain, P_ch3cooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cooh )%stream(2) = 2097216 F_ch3cooh = .TRUE. IF ( chem_index_table( PARAM_c4h9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c4h9ooh = chem_num_table(idomain) chem_index_table( PARAM_c4h9ooh , idomain ) = P_c4h9ooh ELSE P_c4h9ooh = chem_index_table( PARAM_c4h9ooh , idomain ) END IF chem_boundary_table( idomain, P_c4h9ooh ) = .TRUE. chem_dname_table( idomain, P_c4h9ooh ) = 'c4h9ooh' chem_desc_table( idomain, P_c4h9ooh ) = '' chem_units_table( idomain, P_c4h9ooh ) = '' chem_streams_table( idomain, P_c4h9ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c4h9ooh )%stream(2) = 2097216 F_c4h9ooh = .TRUE. IF ( chem_index_table( PARAM_meoh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meoh = chem_num_table(idomain) chem_index_table( PARAM_meoh , idomain ) = P_meoh ELSE P_meoh = chem_index_table( PARAM_meoh , idomain ) END IF chem_boundary_table( idomain, P_meoh ) = .TRUE. chem_dname_table( idomain, P_meoh ) = 'meoh' chem_desc_table( idomain, P_meoh ) = '' chem_units_table( idomain, P_meoh ) = '' chem_streams_table( idomain, P_meoh )%stream(1) = 33554433 chem_streams_table( idomain, P_meoh )%stream(2) = 2097216 F_meoh = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_meo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meo2 = chem_num_table(idomain) chem_index_table( PARAM_meo2 , idomain ) = P_meo2 ELSE P_meo2 = chem_index_table( PARAM_meo2 , idomain ) END IF chem_boundary_table( idomain, P_meo2 ) = .TRUE. chem_dname_table( idomain, P_meo2 ) = 'meo2' chem_desc_table( idomain, P_meo2 ) = '' chem_units_table( idomain, P_meo2 ) = '' chem_streams_table( idomain, P_meo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meo2 )%stream(2) = 2097216 F_meo2 = .TRUE. IF ( chem_index_table( PARAM_meo2no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_meo2no2 = chem_num_table(idomain) chem_index_table( PARAM_meo2no2 , idomain ) = P_meo2no2 ELSE P_meo2no2 = chem_index_table( PARAM_meo2no2 , idomain ) END IF chem_boundary_table( idomain, P_meo2no2 ) = .TRUE. chem_dname_table( idomain, P_meo2no2 ) = 'meo2no2' chem_desc_table( idomain, P_meo2no2 ) = '' chem_units_table( idomain, P_meo2no2 ) = '' chem_streams_table( idomain, P_meo2no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_meo2no2 )%stream(2) = 2097216 F_meo2no2 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==300)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_p25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25 = chem_num_table(idomain) chem_index_table( PARAM_p25 , idomain ) = P_p25 ELSE P_p25 = chem_index_table( PARAM_p25 , idomain ) END IF chem_boundary_table( idomain, P_p25 ) = .TRUE. chem_dname_table( idomain, P_p25 ) = 'P25' chem_desc_table( idomain, P_p25 ) = 'other gocart primary pm25' chem_units_table( idomain, P_p25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25 )%stream(1) = 33554433 chem_streams_table( idomain, P_p25 )%stream(2) = 2097216 F_p25 = .TRUE. IF ( chem_index_table( PARAM_bc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc1 = chem_num_table(idomain) chem_index_table( PARAM_bc1 , idomain ) = P_bc1 ELSE P_bc1 = chem_index_table( PARAM_bc1 , idomain ) END IF chem_boundary_table( idomain, P_bc1 ) = .TRUE. chem_dname_table( idomain, P_bc1 ) = 'BC1' chem_desc_table( idomain, P_bc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_bc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc1 )%stream(2) = 2097216 F_bc1 = .TRUE. IF ( chem_index_table( PARAM_bc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc2 = chem_num_table(idomain) chem_index_table( PARAM_bc2 , idomain ) = P_bc2 ELSE P_bc2 = chem_index_table( PARAM_bc2 , idomain ) END IF chem_boundary_table( idomain, P_bc2 ) = .TRUE. chem_dname_table( idomain, P_bc2 ) = 'BC2' chem_desc_table( idomain, P_bc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_bc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc2 )%stream(2) = 2097216 F_bc2 = .TRUE. IF ( chem_index_table( PARAM_oc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc1 = chem_num_table(idomain) chem_index_table( PARAM_oc1 , idomain ) = P_oc1 ELSE P_oc1 = chem_index_table( PARAM_oc1 , idomain ) END IF chem_boundary_table( idomain, P_oc1 ) = .TRUE. chem_dname_table( idomain, P_oc1 ) = 'OC1' chem_desc_table( idomain, P_oc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_oc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc1 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc1 )%stream(2) = 2097216 F_oc1 = .TRUE. IF ( chem_index_table( PARAM_oc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc2 = chem_num_table(idomain) chem_index_table( PARAM_oc2 , idomain ) = P_oc2 ELSE P_oc2 = chem_index_table( PARAM_oc2 , idomain ) END IF chem_boundary_table( idomain, P_oc2 ) = .TRUE. chem_dname_table( idomain, P_oc2 ) = 'OC2' chem_desc_table( idomain, P_oc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_oc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc2 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc2 )%stream(2) = 2097216 F_oc2 = .TRUE. IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 F_dust_5 = .TRUE. IF ( chem_index_table( PARAM_seas_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_1 = chem_num_table(idomain) chem_index_table( PARAM_seas_1 , idomain ) = P_seas_1 ELSE P_seas_1 = chem_index_table( PARAM_seas_1 , idomain ) END IF chem_boundary_table( idomain, P_seas_1 ) = .TRUE. chem_dname_table( idomain, P_seas_1 ) = 'SEAS_1' chem_desc_table( idomain, P_seas_1 ) = 'sea-salt size bin 1: 0.3um effective radius' chem_units_table( idomain, P_seas_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_1 )%stream(2) = 2097216 F_seas_1 = .TRUE. IF ( chem_index_table( PARAM_seas_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_2 = chem_num_table(idomain) chem_index_table( PARAM_seas_2 , idomain ) = P_seas_2 ELSE P_seas_2 = chem_index_table( PARAM_seas_2 , idomain ) END IF chem_boundary_table( idomain, P_seas_2 ) = .TRUE. chem_dname_table( idomain, P_seas_2 ) = 'SEAS_2' chem_desc_table( idomain, P_seas_2 ) = 'sea-salt size bin 2: 1.0um effective radius' chem_units_table( idomain, P_seas_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_2 )%stream(2) = 2097216 F_seas_2 = .TRUE. IF ( chem_index_table( PARAM_seas_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_3 = chem_num_table(idomain) chem_index_table( PARAM_seas_3 , idomain ) = P_seas_3 ELSE P_seas_3 = chem_index_table( PARAM_seas_3 , idomain ) END IF chem_boundary_table( idomain, P_seas_3 ) = .TRUE. chem_dname_table( idomain, P_seas_3 ) = 'SEAS_3' chem_desc_table( idomain, P_seas_3 ) = 'sea-salt size bin 3: 3.2um effective radius' chem_units_table( idomain, P_seas_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_3 )%stream(2) = 2097216 F_seas_3 = .TRUE. IF ( chem_index_table( PARAM_seas_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_4 = chem_num_table(idomain) chem_index_table( PARAM_seas_4 , idomain ) = P_seas_4 ELSE P_seas_4 = chem_index_table( PARAM_seas_4 , idomain ) END IF chem_boundary_table( idomain, P_seas_4 ) = .TRUE. chem_dname_table( idomain, P_seas_4 ) = 'SEAS_4' chem_desc_table( idomain, P_seas_4 ) = 'sea-salt size bin 4: 7.5um effective radius' chem_units_table( idomain, P_seas_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_4 )%stream(2) = 2097216 F_seas_4 = .TRUE. IF ( chem_index_table( PARAM_p10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p10 = chem_num_table(idomain) chem_index_table( PARAM_p10 , idomain ) = P_p10 ELSE P_p10 = chem_index_table( PARAM_p10 , idomain ) END IF chem_boundary_table( idomain, P_p10 ) = .TRUE. chem_dname_table( idomain, P_p10 ) = 'P10' chem_desc_table( idomain, P_p10 ) = 'other gocart primary pm10' chem_units_table( idomain, P_p10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p10 )%stream(1) = 33554433 chem_streams_table( idomain, P_p10 )%stream(2) = 2097216 F_p10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==301)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ete , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ete = chem_num_table(idomain) chem_index_table( PARAM_ete , idomain ) = P_ete ELSE P_ete = chem_index_table( PARAM_ete , idomain ) END IF chem_boundary_table( idomain, P_ete ) = .TRUE. chem_dname_table( idomain, P_ete ) = 'ete' chem_desc_table( idomain, P_ete ) = 'ETE mixing ratio' chem_units_table( idomain, P_ete ) = 'ppmv' chem_streams_table( idomain, P_ete )%stream(1) = 33554433 chem_streams_table( idomain, P_ete )%stream(2) = 2097216 F_ete = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co2 = chem_num_table(idomain) chem_index_table( PARAM_co2 , idomain ) = P_co2 ELSE P_co2 = chem_index_table( PARAM_co2 , idomain ) END IF chem_boundary_table( idomain, P_co2 ) = .TRUE. chem_dname_table( idomain, P_co2 ) = 'co2' chem_desc_table( idomain, P_co2 ) = 'CO2 mixing ratio' chem_units_table( idomain, P_co2 ) = 'ppmv' chem_streams_table( idomain, P_co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_co2 )%stream(2) = 2097216 F_co2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_udd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udd = chem_num_table(idomain) chem_index_table( PARAM_udd , idomain ) = P_udd ELSE P_udd = chem_index_table( PARAM_udd , idomain ) END IF chem_boundary_table( idomain, P_udd ) = .TRUE. chem_dname_table( idomain, P_udd ) = 'udd' chem_desc_table( idomain, P_udd ) = 'UDD mixing ratio' chem_units_table( idomain, P_udd ) = 'ppmv' chem_streams_table( idomain, P_udd )%stream(1) = 33554433 chem_streams_table( idomain, P_udd )%stream(2) = 2097216 F_udd = .TRUE. IF ( chem_index_table( PARAM_hket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hket = chem_num_table(idomain) chem_index_table( PARAM_hket , idomain ) = P_hket ELSE P_hket = chem_index_table( PARAM_hket , idomain ) END IF chem_boundary_table( idomain, P_hket ) = .TRUE. chem_dname_table( idomain, P_hket ) = 'hket' chem_desc_table( idomain, P_hket ) = 'HKET mixing ratio' chem_units_table( idomain, P_hket ) = 'ppmv' chem_streams_table( idomain, P_hket )%stream(1) = 33554433 chem_streams_table( idomain, P_hket )%stream(2) = 2097216 F_hket = .TRUE. IF ( chem_index_table( PARAM_api , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_api = chem_num_table(idomain) chem_index_table( PARAM_api , idomain ) = P_api ELSE P_api = chem_index_table( PARAM_api , idomain ) END IF chem_boundary_table( idomain, P_api ) = .TRUE. chem_dname_table( idomain, P_api ) = 'api' chem_desc_table( idomain, P_api ) = 'API mixing ratio' chem_units_table( idomain, P_api ) = 'ppmv' chem_streams_table( idomain, P_api )%stream(1) = 33554433 chem_streams_table( idomain, P_api )%stream(2) = 2097216 F_api = .TRUE. IF ( chem_index_table( PARAM_lim , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_lim = chem_num_table(idomain) chem_index_table( PARAM_lim , idomain ) = P_lim ELSE P_lim = chem_index_table( PARAM_lim , idomain ) END IF chem_boundary_table( idomain, P_lim ) = .TRUE. chem_dname_table( idomain, P_lim ) = 'lim' chem_desc_table( idomain, P_lim ) = 'LIM mixing ratio' chem_units_table( idomain, P_lim ) = 'ppmv' chem_streams_table( idomain, P_lim )%stream(1) = 33554433 chem_streams_table( idomain, P_lim )%stream(2) = 2097216 F_lim = .TRUE. IF ( chem_index_table( PARAM_dien , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dien = chem_num_table(idomain) chem_index_table( PARAM_dien , idomain ) = P_dien ELSE P_dien = chem_index_table( PARAM_dien , idomain ) END IF chem_boundary_table( idomain, P_dien ) = .TRUE. chem_dname_table( idomain, P_dien ) = 'dien' chem_desc_table( idomain, P_dien ) = 'DIEN mixing ratio' chem_units_table( idomain, P_dien ) = 'ppmv' chem_streams_table( idomain, P_dien )%stream(1) = 33554433 chem_streams_table( idomain, P_dien )%stream(2) = 2097216 F_dien = .TRUE. IF ( chem_index_table( PARAM_macr , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_macr = chem_num_table(idomain) chem_index_table( PARAM_macr , idomain ) = P_macr ELSE P_macr = chem_index_table( PARAM_macr , idomain ) END IF chem_boundary_table( idomain, P_macr ) = .TRUE. chem_dname_table( idomain, P_macr ) = 'macr' chem_desc_table( idomain, P_macr ) = 'MACR mixing ratio' chem_units_table( idomain, P_macr ) = 'ppmv' chem_streams_table( idomain, P_macr )%stream(1) = 33554433 chem_streams_table( idomain, P_macr )%stream(2) = 2097216 F_macr = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_p25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25 = chem_num_table(idomain) chem_index_table( PARAM_p25 , idomain ) = P_p25 ELSE P_p25 = chem_index_table( PARAM_p25 , idomain ) END IF chem_boundary_table( idomain, P_p25 ) = .TRUE. chem_dname_table( idomain, P_p25 ) = 'P25' chem_desc_table( idomain, P_p25 ) = 'other gocart primary pm25' chem_units_table( idomain, P_p25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25 )%stream(1) = 33554433 chem_streams_table( idomain, P_p25 )%stream(2) = 2097216 F_p25 = .TRUE. IF ( chem_index_table( PARAM_bc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc1 = chem_num_table(idomain) chem_index_table( PARAM_bc1 , idomain ) = P_bc1 ELSE P_bc1 = chem_index_table( PARAM_bc1 , idomain ) END IF chem_boundary_table( idomain, P_bc1 ) = .TRUE. chem_dname_table( idomain, P_bc1 ) = 'BC1' chem_desc_table( idomain, P_bc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_bc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc1 )%stream(2) = 2097216 F_bc1 = .TRUE. IF ( chem_index_table( PARAM_bc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc2 = chem_num_table(idomain) chem_index_table( PARAM_bc2 , idomain ) = P_bc2 ELSE P_bc2 = chem_index_table( PARAM_bc2 , idomain ) END IF chem_boundary_table( idomain, P_bc2 ) = .TRUE. chem_dname_table( idomain, P_bc2 ) = 'BC2' chem_desc_table( idomain, P_bc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_bc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc2 )%stream(2) = 2097216 F_bc2 = .TRUE. IF ( chem_index_table( PARAM_oc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc1 = chem_num_table(idomain) chem_index_table( PARAM_oc1 , idomain ) = P_oc1 ELSE P_oc1 = chem_index_table( PARAM_oc1 , idomain ) END IF chem_boundary_table( idomain, P_oc1 ) = .TRUE. chem_dname_table( idomain, P_oc1 ) = 'OC1' chem_desc_table( idomain, P_oc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_oc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc1 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc1 )%stream(2) = 2097216 F_oc1 = .TRUE. IF ( chem_index_table( PARAM_oc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc2 = chem_num_table(idomain) chem_index_table( PARAM_oc2 , idomain ) = P_oc2 ELSE P_oc2 = chem_index_table( PARAM_oc2 , idomain ) END IF chem_boundary_table( idomain, P_oc2 ) = .TRUE. chem_dname_table( idomain, P_oc2 ) = 'OC2' chem_desc_table( idomain, P_oc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_oc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc2 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc2 )%stream(2) = 2097216 F_oc2 = .TRUE. IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 F_dust_5 = .TRUE. IF ( chem_index_table( PARAM_seas_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_1 = chem_num_table(idomain) chem_index_table( PARAM_seas_1 , idomain ) = P_seas_1 ELSE P_seas_1 = chem_index_table( PARAM_seas_1 , idomain ) END IF chem_boundary_table( idomain, P_seas_1 ) = .TRUE. chem_dname_table( idomain, P_seas_1 ) = 'SEAS_1' chem_desc_table( idomain, P_seas_1 ) = 'sea-salt size bin 1: 0.3um effective radius' chem_units_table( idomain, P_seas_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_1 )%stream(2) = 2097216 F_seas_1 = .TRUE. IF ( chem_index_table( PARAM_seas_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_2 = chem_num_table(idomain) chem_index_table( PARAM_seas_2 , idomain ) = P_seas_2 ELSE P_seas_2 = chem_index_table( PARAM_seas_2 , idomain ) END IF chem_boundary_table( idomain, P_seas_2 ) = .TRUE. chem_dname_table( idomain, P_seas_2 ) = 'SEAS_2' chem_desc_table( idomain, P_seas_2 ) = 'sea-salt size bin 2: 1.0um effective radius' chem_units_table( idomain, P_seas_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_2 )%stream(2) = 2097216 F_seas_2 = .TRUE. IF ( chem_index_table( PARAM_seas_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_3 = chem_num_table(idomain) chem_index_table( PARAM_seas_3 , idomain ) = P_seas_3 ELSE P_seas_3 = chem_index_table( PARAM_seas_3 , idomain ) END IF chem_boundary_table( idomain, P_seas_3 ) = .TRUE. chem_dname_table( idomain, P_seas_3 ) = 'SEAS_3' chem_desc_table( idomain, P_seas_3 ) = 'sea-salt size bin 3: 3.2um effective radius' chem_units_table( idomain, P_seas_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_3 )%stream(2) = 2097216 F_seas_3 = .TRUE. IF ( chem_index_table( PARAM_seas_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_4 = chem_num_table(idomain) chem_index_table( PARAM_seas_4 , idomain ) = P_seas_4 ELSE P_seas_4 = chem_index_table( PARAM_seas_4 , idomain ) END IF chem_boundary_table( idomain, P_seas_4 ) = .TRUE. chem_dname_table( idomain, P_seas_4 ) = 'SEAS_4' chem_desc_table( idomain, P_seas_4 ) = 'sea-salt size bin 4: 7.5um effective radius' chem_units_table( idomain, P_seas_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_4 )%stream(2) = 2097216 F_seas_4 = .TRUE. IF ( chem_index_table( PARAM_p10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p10 = chem_num_table(idomain) chem_index_table( PARAM_p10 , idomain ) = P_p10 ELSE P_p10 = chem_index_table( PARAM_p10 , idomain ) END IF chem_boundary_table( idomain, P_p10 ) = .TRUE. chem_dname_table( idomain, P_p10 ) = 'P10' chem_desc_table( idomain, P_p10 ) = 'other gocart primary pm10' chem_units_table( idomain, P_p10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p10 )%stream(1) = 33554433 chem_streams_table( idomain, P_p10 )%stream(2) = 2097216 F_p10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==303)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_hc3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc3 = chem_num_table(idomain) chem_index_table( PARAM_hc3 , idomain ) = P_hc3 ELSE P_hc3 = chem_index_table( PARAM_hc3 , idomain ) END IF chem_boundary_table( idomain, P_hc3 ) = .TRUE. chem_dname_table( idomain, P_hc3 ) = 'hc3' chem_desc_table( idomain, P_hc3 ) = 'HC3 mixing ratio' chem_units_table( idomain, P_hc3 ) = 'ppmv' chem_streams_table( idomain, P_hc3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc3 )%stream(2) = 2097216 F_hc3 = .TRUE. IF ( chem_index_table( PARAM_hc5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc5 = chem_num_table(idomain) chem_index_table( PARAM_hc5 , idomain ) = P_hc5 ELSE P_hc5 = chem_index_table( PARAM_hc5 , idomain ) END IF chem_boundary_table( idomain, P_hc5 ) = .TRUE. chem_dname_table( idomain, P_hc5 ) = 'hc5' chem_desc_table( idomain, P_hc5 ) = 'HC5 mixing ratio' chem_units_table( idomain, P_hc5 ) = 'ppmv' chem_streams_table( idomain, P_hc5 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc5 )%stream(2) = 2097216 F_hc5 = .TRUE. IF ( chem_index_table( PARAM_hc8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hc8 = chem_num_table(idomain) chem_index_table( PARAM_hc8 , idomain ) = P_hc8 ELSE P_hc8 = chem_index_table( PARAM_hc8 , idomain ) END IF chem_boundary_table( idomain, P_hc8 ) = .TRUE. chem_dname_table( idomain, P_hc8 ) = 'hc8' chem_desc_table( idomain, P_hc8 ) = 'HC8 mixing ratio' chem_units_table( idomain, P_hc8 ) = 'ppmv' chem_streams_table( idomain, P_hc8 )%stream(1) = 33554433 chem_streams_table( idomain, P_hc8 )%stream(2) = 2097216 F_hc8 = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_tpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tpan = chem_num_table(idomain) chem_index_table( PARAM_tpan , idomain ) = P_tpan ELSE P_tpan = chem_index_table( PARAM_tpan , idomain ) END IF chem_boundary_table( idomain, P_tpan ) = .TRUE. chem_dname_table( idomain, P_tpan ) = 'tpan' chem_desc_table( idomain, P_tpan ) = 'TPAN mixing ratio' chem_units_table( idomain, P_tpan ) = 'ppmv' chem_streams_table( idomain, P_tpan )%stream(1) = 33554433 chem_streams_table( idomain, P_tpan )%stream(2) = 2097216 F_tpan = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_gly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_gly = chem_num_table(idomain) chem_index_table( PARAM_gly , idomain ) = P_gly ELSE P_gly = chem_index_table( PARAM_gly , idomain ) END IF chem_boundary_table( idomain, P_gly ) = .TRUE. chem_dname_table( idomain, P_gly ) = 'gly' chem_desc_table( idomain, P_gly ) = 'GLY mixing ratio' chem_units_table( idomain, P_gly ) = 'ppmv' chem_streams_table( idomain, P_gly )%stream(1) = 33554433 chem_streams_table( idomain, P_gly )%stream(2) = 2097216 F_gly = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_dcb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dcb = chem_num_table(idomain) chem_index_table( PARAM_dcb , idomain ) = P_dcb ELSE P_dcb = chem_index_table( PARAM_dcb , idomain ) END IF chem_boundary_table( idomain, P_dcb ) = .TRUE. chem_dname_table( idomain, P_dcb ) = 'dcb' chem_desc_table( idomain, P_dcb ) = 'DCB mixing ratio' chem_units_table( idomain, P_dcb ) = 'ppmv' chem_streams_table( idomain, P_dcb )%stream(1) = 33554433 chem_streams_table( idomain, P_dcb )%stream(2) = 2097216 F_dcb = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_p25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p25 = chem_num_table(idomain) chem_index_table( PARAM_p25 , idomain ) = P_p25 ELSE P_p25 = chem_index_table( PARAM_p25 , idomain ) END IF chem_boundary_table( idomain, P_p25 ) = .TRUE. chem_dname_table( idomain, P_p25 ) = 'P25' chem_desc_table( idomain, P_p25 ) = 'other gocart primary pm25' chem_units_table( idomain, P_p25 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p25 )%stream(1) = 33554433 chem_streams_table( idomain, P_p25 )%stream(2) = 2097216 F_p25 = .TRUE. IF ( chem_index_table( PARAM_bc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc1 = chem_num_table(idomain) chem_index_table( PARAM_bc1 , idomain ) = P_bc1 ELSE P_bc1 = chem_index_table( PARAM_bc1 , idomain ) END IF chem_boundary_table( idomain, P_bc1 ) = .TRUE. chem_dname_table( idomain, P_bc1 ) = 'BC1' chem_desc_table( idomain, P_bc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_bc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc1 )%stream(2) = 2097216 F_bc1 = .TRUE. IF ( chem_index_table( PARAM_bc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc2 = chem_num_table(idomain) chem_index_table( PARAM_bc2 , idomain ) = P_bc2 ELSE P_bc2 = chem_index_table( PARAM_bc2 , idomain ) END IF chem_boundary_table( idomain, P_bc2 ) = .TRUE. chem_dname_table( idomain, P_bc2 ) = 'BC2' chem_desc_table( idomain, P_bc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_bc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc2 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc2 )%stream(2) = 2097216 F_bc2 = .TRUE. IF ( chem_index_table( PARAM_oc1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc1 = chem_num_table(idomain) chem_index_table( PARAM_oc1 , idomain ) = P_oc1 ELSE P_oc1 = chem_index_table( PARAM_oc1 , idomain ) END IF chem_boundary_table( idomain, P_oc1 ) = .TRUE. chem_dname_table( idomain, P_oc1 ) = 'OC1' chem_desc_table( idomain, P_oc1 ) = 'Hydrophobic Black Carbon' chem_units_table( idomain, P_oc1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc1 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc1 )%stream(2) = 2097216 F_oc1 = .TRUE. IF ( chem_index_table( PARAM_oc2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc2 = chem_num_table(idomain) chem_index_table( PARAM_oc2 , idomain ) = P_oc2 ELSE P_oc2 = chem_index_table( PARAM_oc2 , idomain ) END IF chem_boundary_table( idomain, P_oc2 ) = .TRUE. chem_dname_table( idomain, P_oc2 ) = 'OC2' chem_desc_table( idomain, P_oc2 ) = 'Hydrophilic Black Carbon' chem_units_table( idomain, P_oc2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc2 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc2 )%stream(2) = 2097216 F_oc2 = .TRUE. IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 F_dust_5 = .TRUE. IF ( chem_index_table( PARAM_seas_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_1 = chem_num_table(idomain) chem_index_table( PARAM_seas_1 , idomain ) = P_seas_1 ELSE P_seas_1 = chem_index_table( PARAM_seas_1 , idomain ) END IF chem_boundary_table( idomain, P_seas_1 ) = .TRUE. chem_dname_table( idomain, P_seas_1 ) = 'SEAS_1' chem_desc_table( idomain, P_seas_1 ) = 'sea-salt size bin 1: 0.3um effective radius' chem_units_table( idomain, P_seas_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_1 )%stream(2) = 2097216 F_seas_1 = .TRUE. IF ( chem_index_table( PARAM_seas_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_2 = chem_num_table(idomain) chem_index_table( PARAM_seas_2 , idomain ) = P_seas_2 ELSE P_seas_2 = chem_index_table( PARAM_seas_2 , idomain ) END IF chem_boundary_table( idomain, P_seas_2 ) = .TRUE. chem_dname_table( idomain, P_seas_2 ) = 'SEAS_2' chem_desc_table( idomain, P_seas_2 ) = 'sea-salt size bin 2: 1.0um effective radius' chem_units_table( idomain, P_seas_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_2 )%stream(2) = 2097216 F_seas_2 = .TRUE. IF ( chem_index_table( PARAM_seas_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_3 = chem_num_table(idomain) chem_index_table( PARAM_seas_3 , idomain ) = P_seas_3 ELSE P_seas_3 = chem_index_table( PARAM_seas_3 , idomain ) END IF chem_boundary_table( idomain, P_seas_3 ) = .TRUE. chem_dname_table( idomain, P_seas_3 ) = 'SEAS_3' chem_desc_table( idomain, P_seas_3 ) = 'sea-salt size bin 3: 3.2um effective radius' chem_units_table( idomain, P_seas_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_3 )%stream(2) = 2097216 F_seas_3 = .TRUE. IF ( chem_index_table( PARAM_seas_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_seas_4 = chem_num_table(idomain) chem_index_table( PARAM_seas_4 , idomain ) = P_seas_4 ELSE P_seas_4 = chem_index_table( PARAM_seas_4 , idomain ) END IF chem_boundary_table( idomain, P_seas_4 ) = .TRUE. chem_dname_table( idomain, P_seas_4 ) = 'SEAS_4' chem_desc_table( idomain, P_seas_4 ) = 'sea-salt size bin 4: 7.5um effective radius' chem_units_table( idomain, P_seas_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_seas_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_seas_4 )%stream(2) = 2097216 F_seas_4 = .TRUE. IF ( chem_index_table( PARAM_p10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_p10 = chem_num_table(idomain) chem_index_table( PARAM_p10 , idomain ) = P_p10 ELSE P_p10 = chem_index_table( PARAM_p10 , idomain ) END IF chem_boundary_table( idomain, P_p10 ) = .TRUE. chem_dname_table( idomain, P_p10 ) = 'P10' chem_desc_table( idomain, P_p10 ) = 'other gocart primary pm10' chem_units_table( idomain, P_p10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_p10 )%stream(1) = 33554433 chem_streams_table( idomain, P_p10 )%stream(2) = 2097216 F_p10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==400)THEN IF ( chem_index_table( PARAM_vash_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_1 = chem_num_table(idomain) chem_index_table( PARAM_vash_1 , idomain ) = P_vash_1 ELSE P_vash_1 = chem_index_table( PARAM_vash_1 , idomain ) END IF chem_boundary_table( idomain, P_vash_1 ) = .TRUE. chem_dname_table( idomain, P_vash_1 ) = 'vash_1' chem_desc_table( idomain, P_vash_1 ) = 'vash1 mixing ratio' chem_units_table( idomain, P_vash_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_1 )%stream(2) = 2097216 F_vash_1 = .TRUE. IF ( chem_index_table( PARAM_vash_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_2 = chem_num_table(idomain) chem_index_table( PARAM_vash_2 , idomain ) = P_vash_2 ELSE P_vash_2 = chem_index_table( PARAM_vash_2 , idomain ) END IF chem_boundary_table( idomain, P_vash_2 ) = .TRUE. chem_dname_table( idomain, P_vash_2 ) = 'vash_2' chem_desc_table( idomain, P_vash_2 ) = 'vash2 mixing ratio' chem_units_table( idomain, P_vash_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_2 )%stream(2) = 2097216 F_vash_2 = .TRUE. IF ( chem_index_table( PARAM_vash_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_3 = chem_num_table(idomain) chem_index_table( PARAM_vash_3 , idomain ) = P_vash_3 ELSE P_vash_3 = chem_index_table( PARAM_vash_3 , idomain ) END IF chem_boundary_table( idomain, P_vash_3 ) = .TRUE. chem_dname_table( idomain, P_vash_3 ) = 'vash_3' chem_desc_table( idomain, P_vash_3 ) = 'vash3 mixing ratio' chem_units_table( idomain, P_vash_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_3 )%stream(2) = 2097216 F_vash_3 = .TRUE. IF ( chem_index_table( PARAM_vash_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_4 = chem_num_table(idomain) chem_index_table( PARAM_vash_4 , idomain ) = P_vash_4 ELSE P_vash_4 = chem_index_table( PARAM_vash_4 , idomain ) END IF chem_boundary_table( idomain, P_vash_4 ) = .TRUE. chem_dname_table( idomain, P_vash_4 ) = 'vash_4' chem_desc_table( idomain, P_vash_4 ) = 'vash4 mixing ratio' chem_units_table( idomain, P_vash_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_4 )%stream(2) = 2097216 F_vash_4 = .TRUE. IF ( chem_index_table( PARAM_vash_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_5 = chem_num_table(idomain) chem_index_table( PARAM_vash_5 , idomain ) = P_vash_5 ELSE P_vash_5 = chem_index_table( PARAM_vash_5 , idomain ) END IF chem_boundary_table( idomain, P_vash_5 ) = .TRUE. chem_dname_table( idomain, P_vash_5 ) = 'vash_5' chem_desc_table( idomain, P_vash_5 ) = 'vash5 mixing ratio' chem_units_table( idomain, P_vash_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_5 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_5 )%stream(2) = 2097216 F_vash_5 = .TRUE. IF ( chem_index_table( PARAM_vash_6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_6 = chem_num_table(idomain) chem_index_table( PARAM_vash_6 , idomain ) = P_vash_6 ELSE P_vash_6 = chem_index_table( PARAM_vash_6 , idomain ) END IF chem_boundary_table( idomain, P_vash_6 ) = .TRUE. chem_dname_table( idomain, P_vash_6 ) = 'vash_6' chem_desc_table( idomain, P_vash_6 ) = 'vash6 mixing ratio' chem_units_table( idomain, P_vash_6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_6 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_6 )%stream(2) = 2097216 F_vash_6 = .TRUE. IF ( chem_index_table( PARAM_vash_7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_7 = chem_num_table(idomain) chem_index_table( PARAM_vash_7 , idomain ) = P_vash_7 ELSE P_vash_7 = chem_index_table( PARAM_vash_7 , idomain ) END IF chem_boundary_table( idomain, P_vash_7 ) = .TRUE. chem_dname_table( idomain, P_vash_7 ) = 'vash_7' chem_desc_table( idomain, P_vash_7 ) = 'vash7 mixing ratio' chem_units_table( idomain, P_vash_7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_7 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_7 )%stream(2) = 2097216 F_vash_7 = .TRUE. IF ( chem_index_table( PARAM_vash_8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_8 = chem_num_table(idomain) chem_index_table( PARAM_vash_8 , idomain ) = P_vash_8 ELSE P_vash_8 = chem_index_table( PARAM_vash_8 , idomain ) END IF chem_boundary_table( idomain, P_vash_8 ) = .TRUE. chem_dname_table( idomain, P_vash_8 ) = 'vash_8' chem_desc_table( idomain, P_vash_8 ) = 'vash8 mixing ratio' chem_units_table( idomain, P_vash_8 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_8 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_8 )%stream(2) = 2097216 F_vash_8 = .TRUE. IF ( chem_index_table( PARAM_vash_9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_9 = chem_num_table(idomain) chem_index_table( PARAM_vash_9 , idomain ) = P_vash_9 ELSE P_vash_9 = chem_index_table( PARAM_vash_9 , idomain ) END IF chem_boundary_table( idomain, P_vash_9 ) = .TRUE. chem_dname_table( idomain, P_vash_9 ) = 'vash_9' chem_desc_table( idomain, P_vash_9 ) = 'vash9 mixing ratio' chem_units_table( idomain, P_vash_9 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_9 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_9 )%stream(2) = 2097216 F_vash_9 = .TRUE. IF ( chem_index_table( PARAM_vash_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_10 = chem_num_table(idomain) chem_index_table( PARAM_vash_10 , idomain ) = P_vash_10 ELSE P_vash_10 = chem_index_table( PARAM_vash_10 , idomain ) END IF chem_boundary_table( idomain, P_vash_10 ) = .TRUE. chem_dname_table( idomain, P_vash_10 ) = 'vash_10' chem_desc_table( idomain, P_vash_10 ) = 'vash10 mixing ratio' chem_units_table( idomain, P_vash_10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_10 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_10 )%stream(2) = 2097216 F_vash_10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==401)THEN IF ( chem_index_table( PARAM_dust_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_1 = chem_num_table(idomain) chem_index_table( PARAM_dust_1 , idomain ) = P_dust_1 ELSE P_dust_1 = chem_index_table( PARAM_dust_1 , idomain ) END IF chem_boundary_table( idomain, P_dust_1 ) = .TRUE. chem_dname_table( idomain, P_dust_1 ) = 'DUST_1' chem_desc_table( idomain, P_dust_1 ) = 'dust size bin 1: 0.5um effective radius' chem_units_table( idomain, P_dust_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_1 )%stream(2) = 2097216 F_dust_1 = .TRUE. IF ( chem_index_table( PARAM_dust_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_2 = chem_num_table(idomain) chem_index_table( PARAM_dust_2 , idomain ) = P_dust_2 ELSE P_dust_2 = chem_index_table( PARAM_dust_2 , idomain ) END IF chem_boundary_table( idomain, P_dust_2 ) = .TRUE. chem_dname_table( idomain, P_dust_2 ) = 'DUST_2' chem_desc_table( idomain, P_dust_2 ) = 'dust size bin 2: 1.4um effective radius' chem_units_table( idomain, P_dust_2 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_2 )%stream(2) = 2097216 F_dust_2 = .TRUE. IF ( chem_index_table( PARAM_dust_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_3 = chem_num_table(idomain) chem_index_table( PARAM_dust_3 , idomain ) = P_dust_3 ELSE P_dust_3 = chem_index_table( PARAM_dust_3 , idomain ) END IF chem_boundary_table( idomain, P_dust_3 ) = .TRUE. chem_dname_table( idomain, P_dust_3 ) = 'DUST_3' chem_desc_table( idomain, P_dust_3 ) = 'dust size bin 3: 2.4um effective radius' chem_units_table( idomain, P_dust_3 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_3 )%stream(2) = 2097216 F_dust_3 = .TRUE. IF ( chem_index_table( PARAM_dust_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_4 = chem_num_table(idomain) chem_index_table( PARAM_dust_4 , idomain ) = P_dust_4 ELSE P_dust_4 = chem_index_table( PARAM_dust_4 , idomain ) END IF chem_boundary_table( idomain, P_dust_4 ) = .TRUE. chem_dname_table( idomain, P_dust_4 ) = 'DUST_4' chem_desc_table( idomain, P_dust_4 ) = 'dust size bin 4: 4.5um effective radius' chem_units_table( idomain, P_dust_4 ) = 'ug/kg-dryair ' chem_streams_table( idomain, P_dust_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_4 )%stream(2) = 2097216 F_dust_4 = .TRUE. IF ( chem_index_table( PARAM_dust_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dust_5 = chem_num_table(idomain) chem_index_table( PARAM_dust_5 , idomain ) = P_dust_5 ELSE P_dust_5 = chem_index_table( PARAM_dust_5 , idomain ) END IF chem_boundary_table( idomain, P_dust_5 ) = .TRUE. chem_dname_table( idomain, P_dust_5 ) = 'DUST_5' chem_desc_table( idomain, P_dust_5 ) = 'dust size bin 5: 8.0um effective radius' chem_units_table( idomain, P_dust_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dust_5 )%stream(1) = 33554433 chem_streams_table( idomain, P_dust_5 )%stream(2) = 2097216 F_dust_5 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==402)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_vash_1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_1 = chem_num_table(idomain) chem_index_table( PARAM_vash_1 , idomain ) = P_vash_1 ELSE P_vash_1 = chem_index_table( PARAM_vash_1 , idomain ) END IF chem_boundary_table( idomain, P_vash_1 ) = .TRUE. chem_dname_table( idomain, P_vash_1 ) = 'vash_1' chem_desc_table( idomain, P_vash_1 ) = 'vash1 mixing ratio' chem_units_table( idomain, P_vash_1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_1 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_1 )%stream(2) = 2097216 F_vash_1 = .TRUE. IF ( chem_index_table( PARAM_vash_2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_2 = chem_num_table(idomain) chem_index_table( PARAM_vash_2 , idomain ) = P_vash_2 ELSE P_vash_2 = chem_index_table( PARAM_vash_2 , idomain ) END IF chem_boundary_table( idomain, P_vash_2 ) = .TRUE. chem_dname_table( idomain, P_vash_2 ) = 'vash_2' chem_desc_table( idomain, P_vash_2 ) = 'vash2 mixing ratio' chem_units_table( idomain, P_vash_2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_2 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_2 )%stream(2) = 2097216 F_vash_2 = .TRUE. IF ( chem_index_table( PARAM_vash_3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_3 = chem_num_table(idomain) chem_index_table( PARAM_vash_3 , idomain ) = P_vash_3 ELSE P_vash_3 = chem_index_table( PARAM_vash_3 , idomain ) END IF chem_boundary_table( idomain, P_vash_3 ) = .TRUE. chem_dname_table( idomain, P_vash_3 ) = 'vash_3' chem_desc_table( idomain, P_vash_3 ) = 'vash3 mixing ratio' chem_units_table( idomain, P_vash_3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_3 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_3 )%stream(2) = 2097216 F_vash_3 = .TRUE. IF ( chem_index_table( PARAM_vash_4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_4 = chem_num_table(idomain) chem_index_table( PARAM_vash_4 , idomain ) = P_vash_4 ELSE P_vash_4 = chem_index_table( PARAM_vash_4 , idomain ) END IF chem_boundary_table( idomain, P_vash_4 ) = .TRUE. chem_dname_table( idomain, P_vash_4 ) = 'vash_4' chem_desc_table( idomain, P_vash_4 ) = 'vash4 mixing ratio' chem_units_table( idomain, P_vash_4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_4 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_4 )%stream(2) = 2097216 F_vash_4 = .TRUE. IF ( chem_index_table( PARAM_vash_5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_5 = chem_num_table(idomain) chem_index_table( PARAM_vash_5 , idomain ) = P_vash_5 ELSE P_vash_5 = chem_index_table( PARAM_vash_5 , idomain ) END IF chem_boundary_table( idomain, P_vash_5 ) = .TRUE. chem_dname_table( idomain, P_vash_5 ) = 'vash_5' chem_desc_table( idomain, P_vash_5 ) = 'vash5 mixing ratio' chem_units_table( idomain, P_vash_5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_5 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_5 )%stream(2) = 2097216 F_vash_5 = .TRUE. IF ( chem_index_table( PARAM_vash_6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_6 = chem_num_table(idomain) chem_index_table( PARAM_vash_6 , idomain ) = P_vash_6 ELSE P_vash_6 = chem_index_table( PARAM_vash_6 , idomain ) END IF chem_boundary_table( idomain, P_vash_6 ) = .TRUE. chem_dname_table( idomain, P_vash_6 ) = 'vash_6' chem_desc_table( idomain, P_vash_6 ) = 'vash6 mixing ratio' chem_units_table( idomain, P_vash_6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_6 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_6 )%stream(2) = 2097216 F_vash_6 = .TRUE. IF ( chem_index_table( PARAM_vash_7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_7 = chem_num_table(idomain) chem_index_table( PARAM_vash_7 , idomain ) = P_vash_7 ELSE P_vash_7 = chem_index_table( PARAM_vash_7 , idomain ) END IF chem_boundary_table( idomain, P_vash_7 ) = .TRUE. chem_dname_table( idomain, P_vash_7 ) = 'vash_7' chem_desc_table( idomain, P_vash_7 ) = 'vash7 mixing ratio' chem_units_table( idomain, P_vash_7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_7 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_7 )%stream(2) = 2097216 F_vash_7 = .TRUE. IF ( chem_index_table( PARAM_vash_8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_8 = chem_num_table(idomain) chem_index_table( PARAM_vash_8 , idomain ) = P_vash_8 ELSE P_vash_8 = chem_index_table( PARAM_vash_8 , idomain ) END IF chem_boundary_table( idomain, P_vash_8 ) = .TRUE. chem_dname_table( idomain, P_vash_8 ) = 'vash_8' chem_desc_table( idomain, P_vash_8 ) = 'vash8 mixing ratio' chem_units_table( idomain, P_vash_8 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_8 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_8 )%stream(2) = 2097216 F_vash_8 = .TRUE. IF ( chem_index_table( PARAM_vash_9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_9 = chem_num_table(idomain) chem_index_table( PARAM_vash_9 , idomain ) = P_vash_9 ELSE P_vash_9 = chem_index_table( PARAM_vash_9 , idomain ) END IF chem_boundary_table( idomain, P_vash_9 ) = .TRUE. chem_dname_table( idomain, P_vash_9 ) = 'vash_9' chem_desc_table( idomain, P_vash_9 ) = 'vash9 mixing ratio' chem_units_table( idomain, P_vash_9 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_9 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_9 )%stream(2) = 2097216 F_vash_9 = .TRUE. IF ( chem_index_table( PARAM_vash_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_10 = chem_num_table(idomain) chem_index_table( PARAM_vash_10 , idomain ) = P_vash_10 ELSE P_vash_10 = chem_index_table( PARAM_vash_10 , idomain ) END IF chem_boundary_table( idomain, P_vash_10 ) = .TRUE. chem_dname_table( idomain, P_vash_10 ) = 'vash_10' chem_desc_table( idomain, P_vash_10 ) = 'vash10 mixing ratio' chem_units_table( idomain, P_vash_10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_10 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_10 )%stream(2) = 2097216 F_vash_10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==403)THEN IF ( chem_index_table( PARAM_vash_7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_7 = chem_num_table(idomain) chem_index_table( PARAM_vash_7 , idomain ) = P_vash_7 ELSE P_vash_7 = chem_index_table( PARAM_vash_7 , idomain ) END IF chem_boundary_table( idomain, P_vash_7 ) = .TRUE. chem_dname_table( idomain, P_vash_7 ) = 'vash_7' chem_desc_table( idomain, P_vash_7 ) = 'vash7 mixing ratio' chem_units_table( idomain, P_vash_7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_7 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_7 )%stream(2) = 2097216 F_vash_7 = .TRUE. IF ( chem_index_table( PARAM_vash_8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_8 = chem_num_table(idomain) chem_index_table( PARAM_vash_8 , idomain ) = P_vash_8 ELSE P_vash_8 = chem_index_table( PARAM_vash_8 , idomain ) END IF chem_boundary_table( idomain, P_vash_8 ) = .TRUE. chem_dname_table( idomain, P_vash_8 ) = 'vash_8' chem_desc_table( idomain, P_vash_8 ) = 'vash8 mixing ratio' chem_units_table( idomain, P_vash_8 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_8 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_8 )%stream(2) = 2097216 F_vash_8 = .TRUE. IF ( chem_index_table( PARAM_vash_9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_9 = chem_num_table(idomain) chem_index_table( PARAM_vash_9 , idomain ) = P_vash_9 ELSE P_vash_9 = chem_index_table( PARAM_vash_9 , idomain ) END IF chem_boundary_table( idomain, P_vash_9 ) = .TRUE. chem_dname_table( idomain, P_vash_9 ) = 'vash_9' chem_desc_table( idomain, P_vash_9 ) = 'vash9 mixing ratio' chem_units_table( idomain, P_vash_9 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_9 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_9 )%stream(2) = 2097216 F_vash_9 = .TRUE. IF ( chem_index_table( PARAM_vash_10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_vash_10 = chem_num_table(idomain) chem_index_table( PARAM_vash_10 , idomain ) = P_vash_10 ELSE P_vash_10 = chem_index_table( PARAM_vash_10 , idomain ) END IF chem_boundary_table( idomain, P_vash_10 ) = .TRUE. chem_dname_table( idomain, P_vash_10 ) = 'vash_10' chem_desc_table( idomain, P_vash_10 ) = 'vash10 mixing ratio' chem_units_table( idomain, P_vash_10 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_vash_10 )%stream(1) = 33554433 chem_streams_table( idomain, P_vash_10 )%stream(2) = 2097216 F_vash_10 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==501)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_soag , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soag = chem_num_table(idomain) chem_index_table( PARAM_soag , idomain ) = P_soag ELSE P_soag = chem_index_table( PARAM_soag , idomain ) END IF chem_boundary_table( idomain, P_soag ) = .TRUE. chem_dname_table( idomain, P_soag ) = 'soag' chem_desc_table( idomain, P_soag ) = 'Gas-phase SOA' chem_units_table( idomain, P_soag ) = 'ppmv' chem_streams_table( idomain, P_soag )%stream(1) = 33554433 chem_streams_table( idomain, P_soag )%stream(2) = 2097152 F_soag = .TRUE. IF ( chem_index_table( PARAM_so4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a1 = chem_num_table(idomain) chem_index_table( PARAM_so4_a1 , idomain ) = P_so4_a1 ELSE P_so4_a1 = chem_index_table( PARAM_so4_a1 , idomain ) END IF chem_boundary_table( idomain, P_so4_a1 ) = .TRUE. chem_dname_table( idomain, P_so4_a1 ) = 'so4_a1' chem_desc_table( idomain, P_so4_a1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a1 )%stream(2) = 2097152 F_so4_a1 = .TRUE. IF ( chem_index_table( PARAM_pom_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a1 = chem_num_table(idomain) chem_index_table( PARAM_pom_a1 , idomain ) = P_pom_a1 ELSE P_pom_a1 = chem_index_table( PARAM_pom_a1 , idomain ) END IF chem_boundary_table( idomain, P_pom_a1 ) = .TRUE. chem_dname_table( idomain, P_pom_a1 ) = 'pom_a1' chem_desc_table( idomain, P_pom_a1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_a1 )%stream(2) = 2097152 F_pom_a1 = .TRUE. IF ( chem_index_table( PARAM_soa_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a1 = chem_num_table(idomain) chem_index_table( PARAM_soa_a1 , idomain ) = P_soa_a1 ELSE P_soa_a1 = chem_index_table( PARAM_soa_a1 , idomain ) END IF chem_boundary_table( idomain, P_soa_a1 ) = .TRUE. chem_dname_table( idomain, P_soa_a1 ) = 'soa_a1' chem_desc_table( idomain, P_soa_a1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_a1 )%stream(2) = 2097152 F_soa_a1 = .TRUE. IF ( chem_index_table( PARAM_bc_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a1 = chem_num_table(idomain) chem_index_table( PARAM_bc_a1 , idomain ) = P_bc_a1 ELSE P_bc_a1 = chem_index_table( PARAM_bc_a1 , idomain ) END IF chem_boundary_table( idomain, P_bc_a1 ) = .TRUE. chem_dname_table( idomain, P_bc_a1 ) = 'bc_a1' chem_desc_table( idomain, P_bc_a1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a1 )%stream(2) = 2097152 F_bc_a1 = .TRUE. IF ( chem_index_table( PARAM_dst_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a1 = chem_num_table(idomain) chem_index_table( PARAM_dst_a1 , idomain ) = P_dst_a1 ELSE P_dst_a1 = chem_index_table( PARAM_dst_a1 , idomain ) END IF chem_boundary_table( idomain, P_dst_a1 ) = .TRUE. chem_dname_table( idomain, P_dst_a1 ) = 'dst_a1' chem_desc_table( idomain, P_dst_a1 ) = 'Dust aerosol, mode 1' chem_units_table( idomain, P_dst_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_a1 )%stream(2) = 2097152 F_dst_a1 = .TRUE. IF ( chem_index_table( PARAM_ncl_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a1 , idomain ) = P_ncl_a1 ELSE P_ncl_a1 = chem_index_table( PARAM_ncl_a1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a1 ) = .TRUE. chem_dname_table( idomain, P_ncl_a1 ) = 'ncl_a1' chem_desc_table( idomain, P_ncl_a1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a1 )%stream(2) = 2097152 F_ncl_a1 = .TRUE. IF ( chem_index_table( PARAM_wtr_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a1 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a1 , idomain ) = P_wtr_a1 ELSE P_wtr_a1 = chem_index_table( PARAM_wtr_a1 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a1 ) = .TRUE. chem_dname_table( idomain, P_wtr_a1 ) = 'wtr_a1' chem_desc_table( idomain, P_wtr_a1 ) = 'Aerosol water, mode 1' chem_units_table( idomain, P_wtr_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a1 )%stream(2) = 2097152 F_wtr_a1 = .TRUE. IF ( chem_index_table( PARAM_num_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a1 = chem_num_table(idomain) chem_index_table( PARAM_num_a1 , idomain ) = P_num_a1 ELSE P_num_a1 = chem_index_table( PARAM_num_a1 , idomain ) END IF chem_boundary_table( idomain, P_num_a1 ) = .TRUE. chem_dname_table( idomain, P_num_a1 ) = 'num_a1' chem_desc_table( idomain, P_num_a1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_a1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a1 )%stream(2) = 2097152 F_num_a1 = .TRUE. IF ( chem_index_table( PARAM_so4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a2 = chem_num_table(idomain) chem_index_table( PARAM_so4_a2 , idomain ) = P_so4_a2 ELSE P_so4_a2 = chem_index_table( PARAM_so4_a2 , idomain ) END IF chem_boundary_table( idomain, P_so4_a2 ) = .TRUE. chem_dname_table( idomain, P_so4_a2 ) = 'so4_a2' chem_desc_table( idomain, P_so4_a2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a2 )%stream(2) = 2097152 F_so4_a2 = .TRUE. IF ( chem_index_table( PARAM_soa_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a2 = chem_num_table(idomain) chem_index_table( PARAM_soa_a2 , idomain ) = P_soa_a2 ELSE P_soa_a2 = chem_index_table( PARAM_soa_a2 , idomain ) END IF chem_boundary_table( idomain, P_soa_a2 ) = .TRUE. chem_dname_table( idomain, P_soa_a2 ) = 'soa_a2' chem_desc_table( idomain, P_soa_a2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_a2 )%stream(2) = 2097152 F_soa_a2 = .TRUE. IF ( chem_index_table( PARAM_ncl_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a2 , idomain ) = P_ncl_a2 ELSE P_ncl_a2 = chem_index_table( PARAM_ncl_a2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a2 ) = .TRUE. chem_dname_table( idomain, P_ncl_a2 ) = 'ncl_a2' chem_desc_table( idomain, P_ncl_a2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a2 )%stream(2) = 2097152 F_ncl_a2 = .TRUE. IF ( chem_index_table( PARAM_wtr_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a2 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a2 , idomain ) = P_wtr_a2 ELSE P_wtr_a2 = chem_index_table( PARAM_wtr_a2 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a2 ) = .TRUE. chem_dname_table( idomain, P_wtr_a2 ) = 'wtr_a2' chem_desc_table( idomain, P_wtr_a2 ) = 'Aerosol water, mode 2' chem_units_table( idomain, P_wtr_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a2 )%stream(2) = 2097152 F_wtr_a2 = .TRUE. IF ( chem_index_table( PARAM_num_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a2 = chem_num_table(idomain) chem_index_table( PARAM_num_a2 , idomain ) = P_num_a2 ELSE P_num_a2 = chem_index_table( PARAM_num_a2 , idomain ) END IF chem_boundary_table( idomain, P_num_a2 ) = .TRUE. chem_dname_table( idomain, P_num_a2 ) = 'num_a2' chem_desc_table( idomain, P_num_a2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_a2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a2 )%stream(2) = 2097152 F_num_a2 = .TRUE. IF ( chem_index_table( PARAM_dst_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a3 = chem_num_table(idomain) chem_index_table( PARAM_dst_a3 , idomain ) = P_dst_a3 ELSE P_dst_a3 = chem_index_table( PARAM_dst_a3 , idomain ) END IF chem_boundary_table( idomain, P_dst_a3 ) = .TRUE. chem_dname_table( idomain, P_dst_a3 ) = 'dst_a3' chem_desc_table( idomain, P_dst_a3 ) = 'Dust aerosol, mode 3' chem_units_table( idomain, P_dst_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_a3 )%stream(2) = 2097152 F_dst_a3 = .TRUE. IF ( chem_index_table( PARAM_ncl_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a3 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a3 , idomain ) = P_ncl_a3 ELSE P_ncl_a3 = chem_index_table( PARAM_ncl_a3 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a3 ) = .TRUE. chem_dname_table( idomain, P_ncl_a3 ) = 'ncl_a3' chem_desc_table( idomain, P_ncl_a3 ) = 'Sea salt aerosol, mode 3' chem_units_table( idomain, P_ncl_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a3 )%stream(2) = 2097152 F_ncl_a3 = .TRUE. IF ( chem_index_table( PARAM_so4_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a3 = chem_num_table(idomain) chem_index_table( PARAM_so4_a3 , idomain ) = P_so4_a3 ELSE P_so4_a3 = chem_index_table( PARAM_so4_a3 , idomain ) END IF chem_boundary_table( idomain, P_so4_a3 ) = .TRUE. chem_dname_table( idomain, P_so4_a3 ) = 'so4_a3' chem_desc_table( idomain, P_so4_a3 ) = 'Sulfate aerosol, mode 3' chem_units_table( idomain, P_so4_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a3 )%stream(2) = 2097152 F_so4_a3 = .TRUE. IF ( chem_index_table( PARAM_wtr_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a3 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a3 , idomain ) = P_wtr_a3 ELSE P_wtr_a3 = chem_index_table( PARAM_wtr_a3 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a3 ) = .TRUE. chem_dname_table( idomain, P_wtr_a3 ) = 'wtr_a3' chem_desc_table( idomain, P_wtr_a3 ) = 'Aerosol water, mode 3' chem_units_table( idomain, P_wtr_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a3 )%stream(2) = 2097152 F_wtr_a3 = .TRUE. IF ( chem_index_table( PARAM_num_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a3 = chem_num_table(idomain) chem_index_table( PARAM_num_a3 , idomain ) = P_num_a3 ELSE P_num_a3 = chem_index_table( PARAM_num_a3 , idomain ) END IF chem_boundary_table( idomain, P_num_a3 ) = .TRUE. chem_dname_table( idomain, P_num_a3 ) = 'num_a3' chem_desc_table( idomain, P_num_a3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_a3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a3 )%stream(2) = 2097152 F_num_a3 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==502)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_soag , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soag = chem_num_table(idomain) chem_index_table( PARAM_soag , idomain ) = P_soag ELSE P_soag = chem_index_table( PARAM_soag , idomain ) END IF chem_boundary_table( idomain, P_soag ) = .TRUE. chem_dname_table( idomain, P_soag ) = 'soag' chem_desc_table( idomain, P_soag ) = 'Gas-phase SOA' chem_units_table( idomain, P_soag ) = 'ppmv' chem_streams_table( idomain, P_soag )%stream(1) = 33554433 chem_streams_table( idomain, P_soag )%stream(2) = 2097152 F_soag = .TRUE. IF ( chem_index_table( PARAM_so4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a1 = chem_num_table(idomain) chem_index_table( PARAM_so4_a1 , idomain ) = P_so4_a1 ELSE P_so4_a1 = chem_index_table( PARAM_so4_a1 , idomain ) END IF chem_boundary_table( idomain, P_so4_a1 ) = .TRUE. chem_dname_table( idomain, P_so4_a1 ) = 'so4_a1' chem_desc_table( idomain, P_so4_a1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a1 )%stream(2) = 2097152 F_so4_a1 = .TRUE. IF ( chem_index_table( PARAM_nh4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a1 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a1 , idomain ) = P_nh4_a1 ELSE P_nh4_a1 = chem_index_table( PARAM_nh4_a1 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a1 ) = .TRUE. chem_dname_table( idomain, P_nh4_a1 ) = 'nh4_a1' chem_desc_table( idomain, P_nh4_a1 ) = 'Ammonium aerosol, mode 1' chem_units_table( idomain, P_nh4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a1 )%stream(2) = 2097152 F_nh4_a1 = .TRUE. IF ( chem_index_table( PARAM_pom_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a1 = chem_num_table(idomain) chem_index_table( PARAM_pom_a1 , idomain ) = P_pom_a1 ELSE P_pom_a1 = chem_index_table( PARAM_pom_a1 , idomain ) END IF chem_boundary_table( idomain, P_pom_a1 ) = .TRUE. chem_dname_table( idomain, P_pom_a1 ) = 'pom_a1' chem_desc_table( idomain, P_pom_a1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_a1 )%stream(2) = 2097152 F_pom_a1 = .TRUE. IF ( chem_index_table( PARAM_soa_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a1 = chem_num_table(idomain) chem_index_table( PARAM_soa_a1 , idomain ) = P_soa_a1 ELSE P_soa_a1 = chem_index_table( PARAM_soa_a1 , idomain ) END IF chem_boundary_table( idomain, P_soa_a1 ) = .TRUE. chem_dname_table( idomain, P_soa_a1 ) = 'soa_a1' chem_desc_table( idomain, P_soa_a1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_a1 )%stream(2) = 2097152 F_soa_a1 = .TRUE. IF ( chem_index_table( PARAM_bc_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a1 = chem_num_table(idomain) chem_index_table( PARAM_bc_a1 , idomain ) = P_bc_a1 ELSE P_bc_a1 = chem_index_table( PARAM_bc_a1 , idomain ) END IF chem_boundary_table( idomain, P_bc_a1 ) = .TRUE. chem_dname_table( idomain, P_bc_a1 ) = 'bc_a1' chem_desc_table( idomain, P_bc_a1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a1 )%stream(2) = 2097152 F_bc_a1 = .TRUE. IF ( chem_index_table( PARAM_ncl_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a1 , idomain ) = P_ncl_a1 ELSE P_ncl_a1 = chem_index_table( PARAM_ncl_a1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a1 ) = .TRUE. chem_dname_table( idomain, P_ncl_a1 ) = 'ncl_a1' chem_desc_table( idomain, P_ncl_a1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a1 )%stream(2) = 2097152 F_ncl_a1 = .TRUE. IF ( chem_index_table( PARAM_wtr_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a1 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a1 , idomain ) = P_wtr_a1 ELSE P_wtr_a1 = chem_index_table( PARAM_wtr_a1 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a1 ) = .TRUE. chem_dname_table( idomain, P_wtr_a1 ) = 'wtr_a1' chem_desc_table( idomain, P_wtr_a1 ) = 'Aerosol water, mode 1' chem_units_table( idomain, P_wtr_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a1 )%stream(2) = 2097152 F_wtr_a1 = .TRUE. IF ( chem_index_table( PARAM_num_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a1 = chem_num_table(idomain) chem_index_table( PARAM_num_a1 , idomain ) = P_num_a1 ELSE P_num_a1 = chem_index_table( PARAM_num_a1 , idomain ) END IF chem_boundary_table( idomain, P_num_a1 ) = .TRUE. chem_dname_table( idomain, P_num_a1 ) = 'num_a1' chem_desc_table( idomain, P_num_a1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_a1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a1 )%stream(2) = 2097152 F_num_a1 = .TRUE. IF ( chem_index_table( PARAM_so4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a2 = chem_num_table(idomain) chem_index_table( PARAM_so4_a2 , idomain ) = P_so4_a2 ELSE P_so4_a2 = chem_index_table( PARAM_so4_a2 , idomain ) END IF chem_boundary_table( idomain, P_so4_a2 ) = .TRUE. chem_dname_table( idomain, P_so4_a2 ) = 'so4_a2' chem_desc_table( idomain, P_so4_a2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a2 )%stream(2) = 2097152 F_so4_a2 = .TRUE. IF ( chem_index_table( PARAM_nh4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a2 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a2 , idomain ) = P_nh4_a2 ELSE P_nh4_a2 = chem_index_table( PARAM_nh4_a2 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a2 ) = .TRUE. chem_dname_table( idomain, P_nh4_a2 ) = 'nh4_a2' chem_desc_table( idomain, P_nh4_a2 ) = 'Ammonium aerosol, mode 2' chem_units_table( idomain, P_nh4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a2 )%stream(2) = 2097152 F_nh4_a2 = .TRUE. IF ( chem_index_table( PARAM_soa_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a2 = chem_num_table(idomain) chem_index_table( PARAM_soa_a2 , idomain ) = P_soa_a2 ELSE P_soa_a2 = chem_index_table( PARAM_soa_a2 , idomain ) END IF chem_boundary_table( idomain, P_soa_a2 ) = .TRUE. chem_dname_table( idomain, P_soa_a2 ) = 'soa_a2' chem_desc_table( idomain, P_soa_a2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_a2 )%stream(2) = 2097152 F_soa_a2 = .TRUE. IF ( chem_index_table( PARAM_ncl_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a2 , idomain ) = P_ncl_a2 ELSE P_ncl_a2 = chem_index_table( PARAM_ncl_a2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a2 ) = .TRUE. chem_dname_table( idomain, P_ncl_a2 ) = 'ncl_a2' chem_desc_table( idomain, P_ncl_a2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a2 )%stream(2) = 2097152 F_ncl_a2 = .TRUE. IF ( chem_index_table( PARAM_wtr_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a2 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a2 , idomain ) = P_wtr_a2 ELSE P_wtr_a2 = chem_index_table( PARAM_wtr_a2 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a2 ) = .TRUE. chem_dname_table( idomain, P_wtr_a2 ) = 'wtr_a2' chem_desc_table( idomain, P_wtr_a2 ) = 'Aerosol water, mode 2' chem_units_table( idomain, P_wtr_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a2 )%stream(2) = 2097152 F_wtr_a2 = .TRUE. IF ( chem_index_table( PARAM_num_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a2 = chem_num_table(idomain) chem_index_table( PARAM_num_a2 , idomain ) = P_num_a2 ELSE P_num_a2 = chem_index_table( PARAM_num_a2 , idomain ) END IF chem_boundary_table( idomain, P_num_a2 ) = .TRUE. chem_dname_table( idomain, P_num_a2 ) = 'num_a2' chem_desc_table( idomain, P_num_a2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_a2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a2 )%stream(2) = 2097152 F_num_a2 = .TRUE. IF ( chem_index_table( PARAM_pom_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a3 = chem_num_table(idomain) chem_index_table( PARAM_pom_a3 , idomain ) = P_pom_a3 ELSE P_pom_a3 = chem_index_table( PARAM_pom_a3 , idomain ) END IF chem_boundary_table( idomain, P_pom_a3 ) = .TRUE. chem_dname_table( idomain, P_pom_a3 ) = 'pom_a3' chem_desc_table( idomain, P_pom_a3 ) = 'Primary organic aerosol, mode 3' chem_units_table( idomain, P_pom_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_a3 )%stream(2) = 2097152 F_pom_a3 = .TRUE. IF ( chem_index_table( PARAM_bc_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a3 = chem_num_table(idomain) chem_index_table( PARAM_bc_a3 , idomain ) = P_bc_a3 ELSE P_bc_a3 = chem_index_table( PARAM_bc_a3 , idomain ) END IF chem_boundary_table( idomain, P_bc_a3 ) = .TRUE. chem_dname_table( idomain, P_bc_a3 ) = 'bc_a3' chem_desc_table( idomain, P_bc_a3 ) = 'Black carbon aerosol, mode 3' chem_units_table( idomain, P_bc_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a3 )%stream(2) = 2097152 F_bc_a3 = .TRUE. IF ( chem_index_table( PARAM_wtr_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a3 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a3 , idomain ) = P_wtr_a3 ELSE P_wtr_a3 = chem_index_table( PARAM_wtr_a3 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a3 ) = .TRUE. chem_dname_table( idomain, P_wtr_a3 ) = 'wtr_a3' chem_desc_table( idomain, P_wtr_a3 ) = 'Aerosol water, mode 3' chem_units_table( idomain, P_wtr_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a3 )%stream(2) = 2097152 F_wtr_a3 = .TRUE. IF ( chem_index_table( PARAM_num_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a3 = chem_num_table(idomain) chem_index_table( PARAM_num_a3 , idomain ) = P_num_a3 ELSE P_num_a3 = chem_index_table( PARAM_num_a3 , idomain ) END IF chem_boundary_table( idomain, P_num_a3 ) = .TRUE. chem_dname_table( idomain, P_num_a3 ) = 'num_a3' chem_desc_table( idomain, P_num_a3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_a3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a3 )%stream(2) = 2097152 F_num_a3 = .TRUE. IF ( chem_index_table( PARAM_ncl_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a4 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a4 , idomain ) = P_ncl_a4 ELSE P_ncl_a4 = chem_index_table( PARAM_ncl_a4 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a4 ) = .TRUE. chem_dname_table( idomain, P_ncl_a4 ) = 'ncl_a4' chem_desc_table( idomain, P_ncl_a4 ) = 'Sea salt aerosol, mode 4' chem_units_table( idomain, P_ncl_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a4 )%stream(2) = 2097152 F_ncl_a4 = .TRUE. IF ( chem_index_table( PARAM_so4_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a4 = chem_num_table(idomain) chem_index_table( PARAM_so4_a4 , idomain ) = P_so4_a4 ELSE P_so4_a4 = chem_index_table( PARAM_so4_a4 , idomain ) END IF chem_boundary_table( idomain, P_so4_a4 ) = .TRUE. chem_dname_table( idomain, P_so4_a4 ) = 'so4_a4' chem_desc_table( idomain, P_so4_a4 ) = 'Sulfate aerosol, mode 4' chem_units_table( idomain, P_so4_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a4 )%stream(2) = 2097152 F_so4_a4 = .TRUE. IF ( chem_index_table( PARAM_nh4_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a4 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a4 , idomain ) = P_nh4_a4 ELSE P_nh4_a4 = chem_index_table( PARAM_nh4_a4 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a4 ) = .TRUE. chem_dname_table( idomain, P_nh4_a4 ) = 'nh4_a4' chem_desc_table( idomain, P_nh4_a4 ) = 'Ammonium aerosol, mode 4' chem_units_table( idomain, P_nh4_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a4 )%stream(2) = 2097152 F_nh4_a4 = .TRUE. IF ( chem_index_table( PARAM_wtr_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a4 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a4 , idomain ) = P_wtr_a4 ELSE P_wtr_a4 = chem_index_table( PARAM_wtr_a4 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a4 ) = .TRUE. chem_dname_table( idomain, P_wtr_a4 ) = 'wtr_a4' chem_desc_table( idomain, P_wtr_a4 ) = 'Aerosol water, mode 4' chem_units_table( idomain, P_wtr_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a4 )%stream(2) = 2097152 F_wtr_a4 = .TRUE. IF ( chem_index_table( PARAM_num_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a4 = chem_num_table(idomain) chem_index_table( PARAM_num_a4 , idomain ) = P_num_a4 ELSE P_num_a4 = chem_index_table( PARAM_num_a4 , idomain ) END IF chem_boundary_table( idomain, P_num_a4 ) = .TRUE. chem_dname_table( idomain, P_num_a4 ) = 'num_a4' chem_desc_table( idomain, P_num_a4 ) = 'Aerosol number, mode 4' chem_units_table( idomain, P_num_a4 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a4 )%stream(2) = 2097152 F_num_a4 = .TRUE. IF ( chem_index_table( PARAM_dst_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a5 = chem_num_table(idomain) chem_index_table( PARAM_dst_a5 , idomain ) = P_dst_a5 ELSE P_dst_a5 = chem_index_table( PARAM_dst_a5 , idomain ) END IF chem_boundary_table( idomain, P_dst_a5 ) = .TRUE. chem_dname_table( idomain, P_dst_a5 ) = 'dst_a5' chem_desc_table( idomain, P_dst_a5 ) = 'Dust aerosol, mode 5' chem_units_table( idomain, P_dst_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_a5 )%stream(2) = 2097152 F_dst_a5 = .TRUE. IF ( chem_index_table( PARAM_so4_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a5 = chem_num_table(idomain) chem_index_table( PARAM_so4_a5 , idomain ) = P_so4_a5 ELSE P_so4_a5 = chem_index_table( PARAM_so4_a5 , idomain ) END IF chem_boundary_table( idomain, P_so4_a5 ) = .TRUE. chem_dname_table( idomain, P_so4_a5 ) = 'so4_a5' chem_desc_table( idomain, P_so4_a5 ) = 'Sulfate aerosol, mode 5' chem_units_table( idomain, P_so4_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a5 )%stream(2) = 2097152 F_so4_a5 = .TRUE. IF ( chem_index_table( PARAM_nh4_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a5 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a5 , idomain ) = P_nh4_a5 ELSE P_nh4_a5 = chem_index_table( PARAM_nh4_a5 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a5 ) = .TRUE. chem_dname_table( idomain, P_nh4_a5 ) = 'nh4_a5' chem_desc_table( idomain, P_nh4_a5 ) = 'Ammonium aerosol, mode 5' chem_units_table( idomain, P_nh4_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a5 )%stream(2) = 2097152 F_nh4_a5 = .TRUE. IF ( chem_index_table( PARAM_wtr_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a5 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a5 , idomain ) = P_wtr_a5 ELSE P_wtr_a5 = chem_index_table( PARAM_wtr_a5 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a5 ) = .TRUE. chem_dname_table( idomain, P_wtr_a5 ) = 'wtr_a5' chem_desc_table( idomain, P_wtr_a5 ) = 'Aerosol water, mode 5' chem_units_table( idomain, P_wtr_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a5 )%stream(2) = 2097152 F_wtr_a5 = .TRUE. IF ( chem_index_table( PARAM_num_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a5 = chem_num_table(idomain) chem_index_table( PARAM_num_a5 , idomain ) = P_num_a5 ELSE P_num_a5 = chem_index_table( PARAM_num_a5 , idomain ) END IF chem_boundary_table( idomain, P_num_a5 ) = .TRUE. chem_dname_table( idomain, P_num_a5 ) = 'num_a5' chem_desc_table( idomain, P_num_a5 ) = 'Aerosol number, mode 5' chem_units_table( idomain, P_num_a5 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a5 )%stream(2) = 2097152 F_num_a5 = .TRUE. IF ( chem_index_table( PARAM_ncl_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a6 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a6 , idomain ) = P_ncl_a6 ELSE P_ncl_a6 = chem_index_table( PARAM_ncl_a6 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a6 ) = .TRUE. chem_dname_table( idomain, P_ncl_a6 ) = 'ncl_a6' chem_desc_table( idomain, P_ncl_a6 ) = 'Sea salt aerosol, mode 6' chem_units_table( idomain, P_ncl_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a6 )%stream(2) = 2097152 F_ncl_a6 = .TRUE. IF ( chem_index_table( PARAM_so4_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a6 = chem_num_table(idomain) chem_index_table( PARAM_so4_a6 , idomain ) = P_so4_a6 ELSE P_so4_a6 = chem_index_table( PARAM_so4_a6 , idomain ) END IF chem_boundary_table( idomain, P_so4_a6 ) = .TRUE. chem_dname_table( idomain, P_so4_a6 ) = 'so4_a6' chem_desc_table( idomain, P_so4_a6 ) = 'Sulfate aerosol, mode 6' chem_units_table( idomain, P_so4_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a6 )%stream(2) = 2097152 F_so4_a6 = .TRUE. IF ( chem_index_table( PARAM_nh4_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a6 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a6 , idomain ) = P_nh4_a6 ELSE P_nh4_a6 = chem_index_table( PARAM_nh4_a6 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a6 ) = .TRUE. chem_dname_table( idomain, P_nh4_a6 ) = 'nh4_a6' chem_desc_table( idomain, P_nh4_a6 ) = 'Ammonium aerosol, mode 6' chem_units_table( idomain, P_nh4_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a6 )%stream(2) = 2097152 F_nh4_a6 = .TRUE. IF ( chem_index_table( PARAM_wtr_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a6 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a6 , idomain ) = P_wtr_a6 ELSE P_wtr_a6 = chem_index_table( PARAM_wtr_a6 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a6 ) = .TRUE. chem_dname_table( idomain, P_wtr_a6 ) = 'wtr_a6' chem_desc_table( idomain, P_wtr_a6 ) = 'Aerosol water, mode 6' chem_units_table( idomain, P_wtr_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a6 )%stream(2) = 2097152 F_wtr_a6 = .TRUE. IF ( chem_index_table( PARAM_num_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a6 = chem_num_table(idomain) chem_index_table( PARAM_num_a6 , idomain ) = P_num_a6 ELSE P_num_a6 = chem_index_table( PARAM_num_a6 , idomain ) END IF chem_boundary_table( idomain, P_num_a6 ) = .TRUE. chem_dname_table( idomain, P_num_a6 ) = 'num_a6' chem_desc_table( idomain, P_num_a6 ) = 'Aerosol number, mode 6' chem_units_table( idomain, P_num_a6 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a6 )%stream(2) = 2097152 F_num_a6 = .TRUE. IF ( chem_index_table( PARAM_dst_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a7 = chem_num_table(idomain) chem_index_table( PARAM_dst_a7 , idomain ) = P_dst_a7 ELSE P_dst_a7 = chem_index_table( PARAM_dst_a7 , idomain ) END IF chem_boundary_table( idomain, P_dst_a7 ) = .TRUE. chem_dname_table( idomain, P_dst_a7 ) = 'dst_a7' chem_desc_table( idomain, P_dst_a7 ) = 'Dust aerosol, mode 7' chem_units_table( idomain, P_dst_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_a7 )%stream(2) = 2097152 F_dst_a7 = .TRUE. IF ( chem_index_table( PARAM_so4_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a7 = chem_num_table(idomain) chem_index_table( PARAM_so4_a7 , idomain ) = P_so4_a7 ELSE P_so4_a7 = chem_index_table( PARAM_so4_a7 , idomain ) END IF chem_boundary_table( idomain, P_so4_a7 ) = .TRUE. chem_dname_table( idomain, P_so4_a7 ) = 'so4_a7' chem_desc_table( idomain, P_so4_a7 ) = 'Sulfate aerosol, mode 7' chem_units_table( idomain, P_so4_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a7 )%stream(2) = 2097152 F_so4_a7 = .TRUE. IF ( chem_index_table( PARAM_nh4_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a7 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a7 , idomain ) = P_nh4_a7 ELSE P_nh4_a7 = chem_index_table( PARAM_nh4_a7 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a7 ) = .TRUE. chem_dname_table( idomain, P_nh4_a7 ) = 'nh4_a7' chem_desc_table( idomain, P_nh4_a7 ) = 'Ammonium aerosol, mode 7' chem_units_table( idomain, P_nh4_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a7 )%stream(2) = 2097152 F_nh4_a7 = .TRUE. IF ( chem_index_table( PARAM_wtr_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a7 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a7 , idomain ) = P_wtr_a7 ELSE P_wtr_a7 = chem_index_table( PARAM_wtr_a7 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a7 ) = .TRUE. chem_dname_table( idomain, P_wtr_a7 ) = 'wtr_a7' chem_desc_table( idomain, P_wtr_a7 ) = 'Aerosol water, mode 7' chem_units_table( idomain, P_wtr_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a7 )%stream(2) = 2097152 F_wtr_a7 = .TRUE. IF ( chem_index_table( PARAM_num_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a7 = chem_num_table(idomain) chem_index_table( PARAM_num_a7 , idomain ) = P_num_a7 ELSE P_num_a7 = chem_index_table( PARAM_num_a7 , idomain ) END IF chem_boundary_table( idomain, P_num_a7 ) = .TRUE. chem_dname_table( idomain, P_num_a7 ) = 'num_a7' chem_desc_table( idomain, P_num_a7 ) = 'Aerosol number, mode 7' chem_units_table( idomain, P_num_a7 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a7 )%stream(2) = 2097152 F_num_a7 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==503)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3so2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2h = chem_num_table(idomain) chem_index_table( PARAM_ch3so2h , idomain ) = P_ch3so2h ELSE P_ch3so2h = chem_index_table( PARAM_ch3so2h , idomain ) END IF chem_boundary_table( idomain, P_ch3so2h ) = .TRUE. chem_dname_table( idomain, P_ch3so2h ) = 'ch3so2h' chem_desc_table( idomain, P_ch3so2h ) = 'CH3SO2H mixing ratio' chem_units_table( idomain, P_ch3so2h ) = 'ppmv' chem_streams_table( idomain, P_ch3so2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2h )%stream(2) = 2097216 F_ch3so2h = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_ch3so2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2oo , idomain ) = P_ch3so2oo ELSE P_ch3so2oo = chem_index_table( PARAM_ch3so2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2oo ) = 'ch3so2oo' chem_desc_table( idomain, P_ch3so2oo ) = 'CH3SO2OO mixing ratio' chem_units_table( idomain, P_ch3so2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2oo )%stream(2) = 2097216 F_ch3so2oo = .TRUE. IF ( chem_index_table( PARAM_ch3so2ch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2ch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3so2ch2oo , idomain ) = P_ch3so2ch2oo ELSE P_ch3so2ch2oo = chem_index_table( PARAM_ch3so2ch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3so2ch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3so2ch2oo ) = 'ch3so2ch2oo' chem_desc_table( idomain, P_ch3so2ch2oo ) = 'CH3SO2CH2OO mixing ratio' chem_units_table( idomain, P_ch3so2ch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3so2ch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2ch2oo )%stream(2) = 2097216 F_ch3so2ch2oo = .TRUE. IF ( chem_index_table( PARAM_mtf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mtf = chem_num_table(idomain) chem_index_table( PARAM_mtf , idomain ) = P_mtf ELSE P_mtf = chem_index_table( PARAM_mtf , idomain ) END IF chem_boundary_table( idomain, P_mtf ) = .TRUE. chem_dname_table( idomain, P_mtf ) = 'mtf' chem_desc_table( idomain, P_mtf ) = 'MTF mixing ratio' chem_units_table( idomain, P_mtf ) = 'ppmv' chem_streams_table( idomain, P_mtf )%stream(1) = 33554433 chem_streams_table( idomain, P_mtf )%stream(2) = 2097216 F_mtf = .TRUE. IF ( chem_index_table( PARAM_soag , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soag = chem_num_table(idomain) chem_index_table( PARAM_soag , idomain ) = P_soag ELSE P_soag = chem_index_table( PARAM_soag , idomain ) END IF chem_boundary_table( idomain, P_soag ) = .TRUE. chem_dname_table( idomain, P_soag ) = 'soag' chem_desc_table( idomain, P_soag ) = 'Gas-phase SOA' chem_units_table( idomain, P_soag ) = 'ppmv' chem_streams_table( idomain, P_soag )%stream(1) = 33554433 chem_streams_table( idomain, P_soag )%stream(2) = 2097152 F_soag = .TRUE. IF ( chem_index_table( PARAM_so4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a1 = chem_num_table(idomain) chem_index_table( PARAM_so4_a1 , idomain ) = P_so4_a1 ELSE P_so4_a1 = chem_index_table( PARAM_so4_a1 , idomain ) END IF chem_boundary_table( idomain, P_so4_a1 ) = .TRUE. chem_dname_table( idomain, P_so4_a1 ) = 'so4_a1' chem_desc_table( idomain, P_so4_a1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a1 )%stream(2) = 2097152 F_so4_a1 = .TRUE. IF ( chem_index_table( PARAM_pom_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a1 = chem_num_table(idomain) chem_index_table( PARAM_pom_a1 , idomain ) = P_pom_a1 ELSE P_pom_a1 = chem_index_table( PARAM_pom_a1 , idomain ) END IF chem_boundary_table( idomain, P_pom_a1 ) = .TRUE. chem_dname_table( idomain, P_pom_a1 ) = 'pom_a1' chem_desc_table( idomain, P_pom_a1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_a1 )%stream(2) = 2097152 F_pom_a1 = .TRUE. IF ( chem_index_table( PARAM_soa_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a1 = chem_num_table(idomain) chem_index_table( PARAM_soa_a1 , idomain ) = P_soa_a1 ELSE P_soa_a1 = chem_index_table( PARAM_soa_a1 , idomain ) END IF chem_boundary_table( idomain, P_soa_a1 ) = .TRUE. chem_dname_table( idomain, P_soa_a1 ) = 'soa_a1' chem_desc_table( idomain, P_soa_a1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_a1 )%stream(2) = 2097152 F_soa_a1 = .TRUE. IF ( chem_index_table( PARAM_bc_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a1 = chem_num_table(idomain) chem_index_table( PARAM_bc_a1 , idomain ) = P_bc_a1 ELSE P_bc_a1 = chem_index_table( PARAM_bc_a1 , idomain ) END IF chem_boundary_table( idomain, P_bc_a1 ) = .TRUE. chem_dname_table( idomain, P_bc_a1 ) = 'bc_a1' chem_desc_table( idomain, P_bc_a1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a1 )%stream(2) = 2097152 F_bc_a1 = .TRUE. IF ( chem_index_table( PARAM_dst_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a1 = chem_num_table(idomain) chem_index_table( PARAM_dst_a1 , idomain ) = P_dst_a1 ELSE P_dst_a1 = chem_index_table( PARAM_dst_a1 , idomain ) END IF chem_boundary_table( idomain, P_dst_a1 ) = .TRUE. chem_dname_table( idomain, P_dst_a1 ) = 'dst_a1' chem_desc_table( idomain, P_dst_a1 ) = 'Dust aerosol, mode 1' chem_units_table( idomain, P_dst_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_a1 )%stream(2) = 2097152 F_dst_a1 = .TRUE. IF ( chem_index_table( PARAM_ncl_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a1 , idomain ) = P_ncl_a1 ELSE P_ncl_a1 = chem_index_table( PARAM_ncl_a1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a1 ) = .TRUE. chem_dname_table( idomain, P_ncl_a1 ) = 'ncl_a1' chem_desc_table( idomain, P_ncl_a1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a1 )%stream(2) = 2097152 F_ncl_a1 = .TRUE. IF ( chem_index_table( PARAM_wtr_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a1 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a1 , idomain ) = P_wtr_a1 ELSE P_wtr_a1 = chem_index_table( PARAM_wtr_a1 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a1 ) = .TRUE. chem_dname_table( idomain, P_wtr_a1 ) = 'wtr_a1' chem_desc_table( idomain, P_wtr_a1 ) = 'Aerosol water, mode 1' chem_units_table( idomain, P_wtr_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a1 )%stream(2) = 2097152 F_wtr_a1 = .TRUE. IF ( chem_index_table( PARAM_num_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a1 = chem_num_table(idomain) chem_index_table( PARAM_num_a1 , idomain ) = P_num_a1 ELSE P_num_a1 = chem_index_table( PARAM_num_a1 , idomain ) END IF chem_boundary_table( idomain, P_num_a1 ) = .TRUE. chem_dname_table( idomain, P_num_a1 ) = 'num_a1' chem_desc_table( idomain, P_num_a1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_a1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a1 )%stream(2) = 2097152 F_num_a1 = .TRUE. IF ( chem_index_table( PARAM_so4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a2 = chem_num_table(idomain) chem_index_table( PARAM_so4_a2 , idomain ) = P_so4_a2 ELSE P_so4_a2 = chem_index_table( PARAM_so4_a2 , idomain ) END IF chem_boundary_table( idomain, P_so4_a2 ) = .TRUE. chem_dname_table( idomain, P_so4_a2 ) = 'so4_a2' chem_desc_table( idomain, P_so4_a2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a2 )%stream(2) = 2097152 F_so4_a2 = .TRUE. IF ( chem_index_table( PARAM_soa_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a2 = chem_num_table(idomain) chem_index_table( PARAM_soa_a2 , idomain ) = P_soa_a2 ELSE P_soa_a2 = chem_index_table( PARAM_soa_a2 , idomain ) END IF chem_boundary_table( idomain, P_soa_a2 ) = .TRUE. chem_dname_table( idomain, P_soa_a2 ) = 'soa_a2' chem_desc_table( idomain, P_soa_a2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_a2 )%stream(2) = 2097152 F_soa_a2 = .TRUE. IF ( chem_index_table( PARAM_ncl_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a2 , idomain ) = P_ncl_a2 ELSE P_ncl_a2 = chem_index_table( PARAM_ncl_a2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a2 ) = .TRUE. chem_dname_table( idomain, P_ncl_a2 ) = 'ncl_a2' chem_desc_table( idomain, P_ncl_a2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a2 )%stream(2) = 2097152 F_ncl_a2 = .TRUE. IF ( chem_index_table( PARAM_wtr_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a2 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a2 , idomain ) = P_wtr_a2 ELSE P_wtr_a2 = chem_index_table( PARAM_wtr_a2 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a2 ) = .TRUE. chem_dname_table( idomain, P_wtr_a2 ) = 'wtr_a2' chem_desc_table( idomain, P_wtr_a2 ) = 'Aerosol water, mode 2' chem_units_table( idomain, P_wtr_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a2 )%stream(2) = 2097152 F_wtr_a2 = .TRUE. IF ( chem_index_table( PARAM_num_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a2 = chem_num_table(idomain) chem_index_table( PARAM_num_a2 , idomain ) = P_num_a2 ELSE P_num_a2 = chem_index_table( PARAM_num_a2 , idomain ) END IF chem_boundary_table( idomain, P_num_a2 ) = .TRUE. chem_dname_table( idomain, P_num_a2 ) = 'num_a2' chem_desc_table( idomain, P_num_a2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_a2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a2 )%stream(2) = 2097152 F_num_a2 = .TRUE. IF ( chem_index_table( PARAM_dst_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a3 = chem_num_table(idomain) chem_index_table( PARAM_dst_a3 , idomain ) = P_dst_a3 ELSE P_dst_a3 = chem_index_table( PARAM_dst_a3 , idomain ) END IF chem_boundary_table( idomain, P_dst_a3 ) = .TRUE. chem_dname_table( idomain, P_dst_a3 ) = 'dst_a3' chem_desc_table( idomain, P_dst_a3 ) = 'Dust aerosol, mode 3' chem_units_table( idomain, P_dst_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_a3 )%stream(2) = 2097152 F_dst_a3 = .TRUE. IF ( chem_index_table( PARAM_ncl_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a3 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a3 , idomain ) = P_ncl_a3 ELSE P_ncl_a3 = chem_index_table( PARAM_ncl_a3 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a3 ) = .TRUE. chem_dname_table( idomain, P_ncl_a3 ) = 'ncl_a3' chem_desc_table( idomain, P_ncl_a3 ) = 'Sea salt aerosol, mode 3' chem_units_table( idomain, P_ncl_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a3 )%stream(2) = 2097152 F_ncl_a3 = .TRUE. IF ( chem_index_table( PARAM_so4_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a3 = chem_num_table(idomain) chem_index_table( PARAM_so4_a3 , idomain ) = P_so4_a3 ELSE P_so4_a3 = chem_index_table( PARAM_so4_a3 , idomain ) END IF chem_boundary_table( idomain, P_so4_a3 ) = .TRUE. chem_dname_table( idomain, P_so4_a3 ) = 'so4_a3' chem_desc_table( idomain, P_so4_a3 ) = 'Sulfate aerosol, mode 3' chem_units_table( idomain, P_so4_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a3 )%stream(2) = 2097152 F_so4_a3 = .TRUE. IF ( chem_index_table( PARAM_wtr_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a3 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a3 , idomain ) = P_wtr_a3 ELSE P_wtr_a3 = chem_index_table( PARAM_wtr_a3 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a3 ) = .TRUE. chem_dname_table( idomain, P_wtr_a3 ) = 'wtr_a3' chem_desc_table( idomain, P_wtr_a3 ) = 'Aerosol water, mode 3' chem_units_table( idomain, P_wtr_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a3 )%stream(2) = 2097152 F_wtr_a3 = .TRUE. IF ( chem_index_table( PARAM_num_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a3 = chem_num_table(idomain) chem_index_table( PARAM_num_a3 , idomain ) = P_num_a3 ELSE P_num_a3 = chem_index_table( PARAM_num_a3 , idomain ) END IF chem_boundary_table( idomain, P_num_a3 ) = .TRUE. chem_dname_table( idomain, P_num_a3 ) = 'num_a3' chem_desc_table( idomain, P_num_a3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_a3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a3 )%stream(2) = 2097152 F_num_a3 = .TRUE. IF ( chem_index_table( PARAM_so4_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c1 = chem_num_table(idomain) chem_index_table( PARAM_so4_c1 , idomain ) = P_so4_c1 ELSE P_so4_c1 = chem_index_table( PARAM_so4_c1 , idomain ) END IF chem_boundary_table( idomain, P_so4_c1 ) = .TRUE. chem_dname_table( idomain, P_so4_c1 ) = 'so4_c1' chem_desc_table( idomain, P_so4_c1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c1 )%stream(2) = 2097152 F_so4_c1 = .TRUE. IF ( chem_index_table( PARAM_pom_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_c1 = chem_num_table(idomain) chem_index_table( PARAM_pom_c1 , idomain ) = P_pom_c1 ELSE P_pom_c1 = chem_index_table( PARAM_pom_c1 , idomain ) END IF chem_boundary_table( idomain, P_pom_c1 ) = .TRUE. chem_dname_table( idomain, P_pom_c1 ) = 'pom_c1' chem_desc_table( idomain, P_pom_c1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_c1 )%stream(2) = 2097152 F_pom_c1 = .TRUE. IF ( chem_index_table( PARAM_soa_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_c1 = chem_num_table(idomain) chem_index_table( PARAM_soa_c1 , idomain ) = P_soa_c1 ELSE P_soa_c1 = chem_index_table( PARAM_soa_c1 , idomain ) END IF chem_boundary_table( idomain, P_soa_c1 ) = .TRUE. chem_dname_table( idomain, P_soa_c1 ) = 'soa_c1' chem_desc_table( idomain, P_soa_c1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_c1 )%stream(2) = 2097152 F_soa_c1 = .TRUE. IF ( chem_index_table( PARAM_bc_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_c1 = chem_num_table(idomain) chem_index_table( PARAM_bc_c1 , idomain ) = P_bc_c1 ELSE P_bc_c1 = chem_index_table( PARAM_bc_c1 , idomain ) END IF chem_boundary_table( idomain, P_bc_c1 ) = .TRUE. chem_dname_table( idomain, P_bc_c1 ) = 'bc_c1' chem_desc_table( idomain, P_bc_c1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_c1 )%stream(2) = 2097152 F_bc_c1 = .TRUE. IF ( chem_index_table( PARAM_dst_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_c1 = chem_num_table(idomain) chem_index_table( PARAM_dst_c1 , idomain ) = P_dst_c1 ELSE P_dst_c1 = chem_index_table( PARAM_dst_c1 , idomain ) END IF chem_boundary_table( idomain, P_dst_c1 ) = .TRUE. chem_dname_table( idomain, P_dst_c1 ) = 'dst_c1' chem_desc_table( idomain, P_dst_c1 ) = 'Dust aerosol, mode 1' chem_units_table( idomain, P_dst_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_c1 )%stream(2) = 2097152 F_dst_c1 = .TRUE. IF ( chem_index_table( PARAM_ncl_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c1 , idomain ) = P_ncl_c1 ELSE P_ncl_c1 = chem_index_table( PARAM_ncl_c1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c1 ) = .TRUE. chem_dname_table( idomain, P_ncl_c1 ) = 'ncl_c1' chem_desc_table( idomain, P_ncl_c1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_c1 )%stream(2) = 2097152 F_ncl_c1 = .TRUE. IF ( chem_index_table( PARAM_num_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c1 = chem_num_table(idomain) chem_index_table( PARAM_num_c1 , idomain ) = P_num_c1 ELSE P_num_c1 = chem_index_table( PARAM_num_c1 , idomain ) END IF chem_boundary_table( idomain, P_num_c1 ) = .TRUE. chem_dname_table( idomain, P_num_c1 ) = 'num_c1' chem_desc_table( idomain, P_num_c1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_c1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c1 )%stream(2) = 2097152 F_num_c1 = .TRUE. IF ( chem_index_table( PARAM_so4_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c2 = chem_num_table(idomain) chem_index_table( PARAM_so4_c2 , idomain ) = P_so4_c2 ELSE P_so4_c2 = chem_index_table( PARAM_so4_c2 , idomain ) END IF chem_boundary_table( idomain, P_so4_c2 ) = .TRUE. chem_dname_table( idomain, P_so4_c2 ) = 'so4_c2' chem_desc_table( idomain, P_so4_c2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c2 )%stream(2) = 2097152 F_so4_c2 = .TRUE. IF ( chem_index_table( PARAM_soa_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_c2 = chem_num_table(idomain) chem_index_table( PARAM_soa_c2 , idomain ) = P_soa_c2 ELSE P_soa_c2 = chem_index_table( PARAM_soa_c2 , idomain ) END IF chem_boundary_table( idomain, P_soa_c2 ) = .TRUE. chem_dname_table( idomain, P_soa_c2 ) = 'soa_c2' chem_desc_table( idomain, P_soa_c2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_c2 )%stream(2) = 2097152 F_soa_c2 = .TRUE. IF ( chem_index_table( PARAM_ncl_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c2 , idomain ) = P_ncl_c2 ELSE P_ncl_c2 = chem_index_table( PARAM_ncl_c2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c2 ) = .TRUE. chem_dname_table( idomain, P_ncl_c2 ) = 'ncl_c2' chem_desc_table( idomain, P_ncl_c2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_c2 )%stream(2) = 2097152 F_ncl_c2 = .TRUE. IF ( chem_index_table( PARAM_num_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c2 = chem_num_table(idomain) chem_index_table( PARAM_num_c2 , idomain ) = P_num_c2 ELSE P_num_c2 = chem_index_table( PARAM_num_c2 , idomain ) END IF chem_boundary_table( idomain, P_num_c2 ) = .TRUE. chem_dname_table( idomain, P_num_c2 ) = 'num_c2' chem_desc_table( idomain, P_num_c2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_c2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c2 )%stream(2) = 2097152 F_num_c2 = .TRUE. IF ( chem_index_table( PARAM_dst_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_c3 = chem_num_table(idomain) chem_index_table( PARAM_dst_c3 , idomain ) = P_dst_c3 ELSE P_dst_c3 = chem_index_table( PARAM_dst_c3 , idomain ) END IF chem_boundary_table( idomain, P_dst_c3 ) = .TRUE. chem_dname_table( idomain, P_dst_c3 ) = 'dst_c3' chem_desc_table( idomain, P_dst_c3 ) = 'Dust aerosol, mode 3' chem_units_table( idomain, P_dst_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_c3 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_c3 )%stream(2) = 2097152 F_dst_c3 = .TRUE. IF ( chem_index_table( PARAM_ncl_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c3 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c3 , idomain ) = P_ncl_c3 ELSE P_ncl_c3 = chem_index_table( PARAM_ncl_c3 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c3 ) = .TRUE. chem_dname_table( idomain, P_ncl_c3 ) = 'ncl_c3' chem_desc_table( idomain, P_ncl_c3 ) = 'Sea salt aerosol, mode 3' chem_units_table( idomain, P_ncl_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_c3 )%stream(2) = 2097152 F_ncl_c3 = .TRUE. IF ( chem_index_table( PARAM_so4_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c3 = chem_num_table(idomain) chem_index_table( PARAM_so4_c3 , idomain ) = P_so4_c3 ELSE P_so4_c3 = chem_index_table( PARAM_so4_c3 , idomain ) END IF chem_boundary_table( idomain, P_so4_c3 ) = .TRUE. chem_dname_table( idomain, P_so4_c3 ) = 'so4_c3' chem_desc_table( idomain, P_so4_c3 ) = 'Sulfate aerosol, mode 3' chem_units_table( idomain, P_so4_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c3 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c3 )%stream(2) = 2097152 F_so4_c3 = .TRUE. IF ( chem_index_table( PARAM_num_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c3 = chem_num_table(idomain) chem_index_table( PARAM_num_c3 , idomain ) = P_num_c3 ELSE P_num_c3 = chem_index_table( PARAM_num_c3 , idomain ) END IF chem_boundary_table( idomain, P_num_c3 ) = .TRUE. chem_dname_table( idomain, P_num_c3 ) = 'num_c3' chem_desc_table( idomain, P_num_c3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_c3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c3 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c3 )%stream(2) = 2097152 F_num_c3 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==504)THEN IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ald , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ald = chem_num_table(idomain) chem_index_table( PARAM_ald , idomain ) = P_ald ELSE P_ald = chem_index_table( PARAM_ald , idomain ) END IF chem_boundary_table( idomain, P_ald ) = .TRUE. chem_dname_table( idomain, P_ald ) = 'ald' chem_desc_table( idomain, P_ald ) = 'ALD mixing ratio' chem_units_table( idomain, P_ald ) = 'ppmv' chem_streams_table( idomain, P_ald )%stream(1) = 33554433 chem_streams_table( idomain, P_ald )%stream(2) = 2097216 F_ald = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_op1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op1 = chem_num_table(idomain) chem_index_table( PARAM_op1 , idomain ) = P_op1 ELSE P_op1 = chem_index_table( PARAM_op1 , idomain ) END IF chem_boundary_table( idomain, P_op1 ) = .TRUE. chem_dname_table( idomain, P_op1 ) = 'op1' chem_desc_table( idomain, P_op1 ) = 'OP1 mixing ratio' chem_units_table( idomain, P_op1 ) = 'ppmv' chem_streams_table( idomain, P_op1 )%stream(1) = 33554433 chem_streams_table( idomain, P_op1 )%stream(2) = 2097216 F_op1 = .TRUE. IF ( chem_index_table( PARAM_op2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op2 = chem_num_table(idomain) chem_index_table( PARAM_op2 , idomain ) = P_op2 ELSE P_op2 = chem_index_table( PARAM_op2 , idomain ) END IF chem_boundary_table( idomain, P_op2 ) = .TRUE. chem_dname_table( idomain, P_op2 ) = 'op2' chem_desc_table( idomain, P_op2 ) = 'OP2 mixing ratio' chem_units_table( idomain, P_op2 ) = 'ppmv' chem_streams_table( idomain, P_op2 )%stream(1) = 33554433 chem_streams_table( idomain, P_op2 )%stream(2) = 2097216 F_op2 = .TRUE. IF ( chem_index_table( PARAM_ora1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora1 = chem_num_table(idomain) chem_index_table( PARAM_ora1 , idomain ) = P_ora1 ELSE P_ora1 = chem_index_table( PARAM_ora1 , idomain ) END IF chem_boundary_table( idomain, P_ora1 ) = .TRUE. chem_dname_table( idomain, P_ora1 ) = 'ora1' chem_desc_table( idomain, P_ora1 ) = 'ORA1 mixing ratio' chem_units_table( idomain, P_ora1 ) = 'ppmv' chem_streams_table( idomain, P_ora1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora1 )%stream(2) = 2097216 F_ora1 = .TRUE. IF ( chem_index_table( PARAM_ora2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ora2 = chem_num_table(idomain) chem_index_table( PARAM_ora2 , idomain ) = P_ora2 ELSE P_ora2 = chem_index_table( PARAM_ora2 , idomain ) END IF chem_boundary_table( idomain, P_ora2 ) = .TRUE. chem_dname_table( idomain, P_ora2 ) = 'ora2' chem_desc_table( idomain, P_ora2 ) = 'ORA2 mixing ratio' chem_units_table( idomain, P_ora2 ) = 'ppmv' chem_streams_table( idomain, P_ora2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ora2 )%stream(2) = 2097216 F_ora2 = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_eth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_eth = chem_num_table(idomain) chem_index_table( PARAM_eth , idomain ) = P_eth ELSE P_eth = chem_index_table( PARAM_eth , idomain ) END IF chem_boundary_table( idomain, P_eth ) = .TRUE. chem_dname_table( idomain, P_eth ) = 'eth' chem_desc_table( idomain, P_eth ) = 'ETH mixing ratio' chem_units_table( idomain, P_eth ) = 'ppmv' chem_streams_table( idomain, P_eth )%stream(1) = 33554433 chem_streams_table( idomain, P_eth )%stream(2) = 2097216 F_eth = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_ol2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ol2 = chem_num_table(idomain) chem_index_table( PARAM_ol2 , idomain ) = P_ol2 ELSE P_ol2 = chem_index_table( PARAM_ol2 , idomain ) END IF chem_boundary_table( idomain, P_ol2 ) = .TRUE. chem_dname_table( idomain, P_ol2 ) = 'ol2' chem_desc_table( idomain, P_ol2 ) = 'OL2 mixing ratio' chem_units_table( idomain, P_ol2 ) = 'ppmv' chem_streams_table( idomain, P_ol2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ol2 )%stream(2) = 2097216 F_ol2 = .TRUE. IF ( chem_index_table( PARAM_olt , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_olt = chem_num_table(idomain) chem_index_table( PARAM_olt , idomain ) = P_olt ELSE P_olt = chem_index_table( PARAM_olt , idomain ) END IF chem_boundary_table( idomain, P_olt ) = .TRUE. chem_dname_table( idomain, P_olt ) = 'olt' chem_desc_table( idomain, P_olt ) = 'OLT mixing ratio' chem_units_table( idomain, P_olt ) = 'ppmv' chem_streams_table( idomain, P_olt )%stream(1) = 33554433 chem_streams_table( idomain, P_olt )%stream(2) = 2097216 F_olt = .TRUE. IF ( chem_index_table( PARAM_oli , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oli = chem_num_table(idomain) chem_index_table( PARAM_oli , idomain ) = P_oli ELSE P_oli = chem_index_table( PARAM_oli , idomain ) END IF chem_boundary_table( idomain, P_oli ) = .TRUE. chem_dname_table( idomain, P_oli ) = 'oli' chem_desc_table( idomain, P_oli ) = 'OLI mixing ratio' chem_units_table( idomain, P_oli ) = 'ppmv' chem_streams_table( idomain, P_oli )%stream(1) = 33554433 chem_streams_table( idomain, P_oli )%stream(2) = 2097216 F_oli = .TRUE. IF ( chem_index_table( PARAM_tol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tol = chem_num_table(idomain) chem_index_table( PARAM_tol , idomain ) = P_tol ELSE P_tol = chem_index_table( PARAM_tol , idomain ) END IF chem_boundary_table( idomain, P_tol ) = .TRUE. chem_dname_table( idomain, P_tol ) = 'tol' chem_desc_table( idomain, P_tol ) = 'TOL mixing ratio' chem_units_table( idomain, P_tol ) = 'ppmv' chem_streams_table( idomain, P_tol )%stream(1) = 33554433 chem_streams_table( idomain, P_tol )%stream(2) = 2097216 F_tol = .TRUE. IF ( chem_index_table( PARAM_xyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xyl = chem_num_table(idomain) chem_index_table( PARAM_xyl , idomain ) = P_xyl ELSE P_xyl = chem_index_table( PARAM_xyl , idomain ) END IF chem_boundary_table( idomain, P_xyl ) = .TRUE. chem_dname_table( idomain, P_xyl ) = 'xyl' chem_desc_table( idomain, P_xyl ) = 'XYL mixing ratio' chem_units_table( idomain, P_xyl ) = 'ppmv' chem_streams_table( idomain, P_xyl )%stream(1) = 33554433 chem_streams_table( idomain, P_xyl )%stream(2) = 2097216 F_xyl = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_mgly , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mgly = chem_num_table(idomain) chem_index_table( PARAM_mgly , idomain ) = P_mgly ELSE P_mgly = chem_index_table( PARAM_mgly , idomain ) END IF chem_boundary_table( idomain, P_mgly ) = .TRUE. chem_dname_table( idomain, P_mgly ) = 'mgly' chem_desc_table( idomain, P_mgly ) = 'MGLY mixing ratio' chem_units_table( idomain, P_mgly ) = 'ppmv' chem_streams_table( idomain, P_mgly )%stream(1) = 33554433 chem_streams_table( idomain, P_mgly )%stream(2) = 2097216 F_mgly = .TRUE. IF ( chem_index_table( PARAM_onit , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_onit = chem_num_table(idomain) chem_index_table( PARAM_onit , idomain ) = P_onit ELSE P_onit = chem_index_table( PARAM_onit , idomain ) END IF chem_boundary_table( idomain, P_onit ) = .TRUE. chem_dname_table( idomain, P_onit ) = 'onit' chem_desc_table( idomain, P_onit ) = 'ONIT mixing ratio' chem_units_table( idomain, P_onit ) = 'ppmv' chem_streams_table( idomain, P_onit )%stream(1) = 33554433 chem_streams_table( idomain, P_onit )%stream(2) = 2097216 F_onit = .TRUE. IF ( chem_index_table( PARAM_csl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_csl = chem_num_table(idomain) chem_index_table( PARAM_csl , idomain ) = P_csl ELSE P_csl = chem_index_table( PARAM_csl , idomain ) END IF chem_boundary_table( idomain, P_csl ) = .TRUE. chem_dname_table( idomain, P_csl ) = 'csl' chem_desc_table( idomain, P_csl ) = 'CSL mixing ratio' chem_units_table( idomain, P_csl ) = 'ppmv' chem_streams_table( idomain, P_csl )%stream(1) = 33554433 chem_streams_table( idomain, P_csl )%stream(2) = 2097216 F_csl = .TRUE. IF ( chem_index_table( PARAM_iso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_iso = chem_num_table(idomain) chem_index_table( PARAM_iso , idomain ) = P_iso ELSE P_iso = chem_index_table( PARAM_iso , idomain ) END IF chem_boundary_table( idomain, P_iso ) = .TRUE. chem_dname_table( idomain, P_iso ) = 'iso' chem_desc_table( idomain, P_iso ) = 'ISO mixing ratio' chem_units_table( idomain, P_iso ) = 'ppmv' chem_streams_table( idomain, P_iso )%stream(1) = 33554433 chem_streams_table( idomain, P_iso )%stream(2) = 2097216 F_iso = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_ch3o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2 , idomain ) = P_ch3o2 ELSE P_ch3o2 = chem_index_table( PARAM_ch3o2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2 ) = 'ch3o2' chem_desc_table( idomain, P_ch3o2 ) = 'CH3O2 mixing ratio' chem_units_table( idomain, P_ch3o2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2 )%stream(2) = 2097216 F_ch3o2 = .TRUE. IF ( chem_index_table( PARAM_ethp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ethp = chem_num_table(idomain) chem_index_table( PARAM_ethp , idomain ) = P_ethp ELSE P_ethp = chem_index_table( PARAM_ethp , idomain ) END IF chem_boundary_table( idomain, P_ethp ) = .TRUE. chem_dname_table( idomain, P_ethp ) = 'ethp' chem_desc_table( idomain, P_ethp ) = 'ETHP mixing ratio' chem_units_table( idomain, P_ethp ) = 'ppmv' chem_streams_table( idomain, P_ethp )%stream(1) = 33554433 chem_streams_table( idomain, P_ethp )%stream(2) = 2097216 F_ethp = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_par , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_par = chem_num_table(idomain) chem_index_table( PARAM_par , idomain ) = P_par ELSE P_par = chem_index_table( PARAM_par , idomain ) END IF chem_boundary_table( idomain, P_par ) = .TRUE. chem_dname_table( idomain, P_par ) = 'par' chem_desc_table( idomain, P_par ) = 'PAR mixing ratio' chem_units_table( idomain, P_par ) = 'ppmv' chem_streams_table( idomain, P_par )%stream(1) = 33554433 chem_streams_table( idomain, P_par )%stream(2) = 2097216 F_par = .TRUE. IF ( chem_index_table( PARAM_to2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_to2 = chem_num_table(idomain) chem_index_table( PARAM_to2 , idomain ) = P_to2 ELSE P_to2 = chem_index_table( PARAM_to2 , idomain ) END IF chem_boundary_table( idomain, P_to2 ) = .TRUE. chem_dname_table( idomain, P_to2 ) = 'to2' chem_desc_table( idomain, P_to2 ) = 'TO2 mixing ratio' chem_units_table( idomain, P_to2 ) = 'ppmv' chem_streams_table( idomain, P_to2 )%stream(1) = 33554433 chem_streams_table( idomain, P_to2 )%stream(2) = 2097216 F_to2 = .TRUE. IF ( chem_index_table( PARAM_cro , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cro = chem_num_table(idomain) chem_index_table( PARAM_cro , idomain ) = P_cro ELSE P_cro = chem_index_table( PARAM_cro , idomain ) END IF chem_boundary_table( idomain, P_cro ) = .TRUE. chem_dname_table( idomain, P_cro ) = 'cro' chem_desc_table( idomain, P_cro ) = 'CRO mixing ratio' chem_units_table( idomain, P_cro ) = 'ppmv' chem_streams_table( idomain, P_cro )%stream(1) = 33554433 chem_streams_table( idomain, P_cro )%stream(2) = 2097216 F_cro = .TRUE. IF ( chem_index_table( PARAM_open , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_open = chem_num_table(idomain) chem_index_table( PARAM_open , idomain ) = P_open ELSE P_open = chem_index_table( PARAM_open , idomain ) END IF chem_boundary_table( idomain, P_open ) = .TRUE. chem_dname_table( idomain, P_open ) = 'open' chem_desc_table( idomain, P_open ) = 'OPEN mixing ratio' chem_units_table( idomain, P_open ) = 'ppmv' chem_streams_table( idomain, P_open )%stream(1) = 33554433 chem_streams_table( idomain, P_open )%stream(2) = 2097216 F_open = .TRUE. IF ( chem_index_table( PARAM_op3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_op3 = chem_num_table(idomain) chem_index_table( PARAM_op3 , idomain ) = P_op3 ELSE P_op3 = chem_index_table( PARAM_op3 , idomain ) END IF chem_boundary_table( idomain, P_op3 ) = .TRUE. chem_dname_table( idomain, P_op3 ) = 'op3' chem_desc_table( idomain, P_op3 ) = 'OP3 mixing ratio' chem_units_table( idomain, P_op3 ) = 'ppmv' chem_streams_table( idomain, P_op3 )%stream(1) = 33554433 chem_streams_table( idomain, P_op3 )%stream(2) = 2097216 F_op3 = .TRUE. IF ( chem_index_table( PARAM_c2o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2o3 = chem_num_table(idomain) chem_index_table( PARAM_c2o3 , idomain ) = P_c2o3 ELSE P_c2o3 = chem_index_table( PARAM_c2o3 , idomain ) END IF chem_boundary_table( idomain, P_c2o3 ) = .TRUE. chem_dname_table( idomain, P_c2o3 ) = 'c2o3' chem_desc_table( idomain, P_c2o3 ) = 'C2O3 mixing ratio' chem_units_table( idomain, P_c2o3 ) = 'ppmv' chem_streams_table( idomain, P_c2o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2o3 )%stream(2) = 2097216 F_c2o3 = .TRUE. IF ( chem_index_table( PARAM_ro2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ro2 = chem_num_table(idomain) chem_index_table( PARAM_ro2 , idomain ) = P_ro2 ELSE P_ro2 = chem_index_table( PARAM_ro2 , idomain ) END IF chem_boundary_table( idomain, P_ro2 ) = .TRUE. chem_dname_table( idomain, P_ro2 ) = 'ro2' chem_desc_table( idomain, P_ro2 ) = 'RO2 mixing ratio' chem_units_table( idomain, P_ro2 ) = 'ppmv' chem_streams_table( idomain, P_ro2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ro2 )%stream(2) = 2097216 F_ro2 = .TRUE. IF ( chem_index_table( PARAM_ano2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ano2 = chem_num_table(idomain) chem_index_table( PARAM_ano2 , idomain ) = P_ano2 ELSE P_ano2 = chem_index_table( PARAM_ano2 , idomain ) END IF chem_boundary_table( idomain, P_ano2 ) = .TRUE. chem_dname_table( idomain, P_ano2 ) = 'ano2' chem_desc_table( idomain, P_ano2 ) = 'ANO2 mixing ratio' chem_units_table( idomain, P_ano2 ) = 'ppmv' chem_streams_table( idomain, P_ano2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ano2 )%stream(2) = 2097216 F_ano2 = .TRUE. IF ( chem_index_table( PARAM_nap , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nap = chem_num_table(idomain) chem_index_table( PARAM_nap , idomain ) = P_nap ELSE P_nap = chem_index_table( PARAM_nap , idomain ) END IF chem_boundary_table( idomain, P_nap ) = .TRUE. chem_dname_table( idomain, P_nap ) = 'nap' chem_desc_table( idomain, P_nap ) = 'NAP mixing ratio' chem_units_table( idomain, P_nap ) = 'ppmv' chem_streams_table( idomain, P_nap )%stream(1) = 33554433 chem_streams_table( idomain, P_nap )%stream(2) = 2097216 F_nap = .TRUE. IF ( chem_index_table( PARAM_xo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xo2 = chem_num_table(idomain) chem_index_table( PARAM_xo2 , idomain ) = P_xo2 ELSE P_xo2 = chem_index_table( PARAM_xo2 , idomain ) END IF chem_boundary_table( idomain, P_xo2 ) = .TRUE. chem_dname_table( idomain, P_xo2 ) = 'xo2' chem_desc_table( idomain, P_xo2 ) = 'XO2 mixing ratio' chem_units_table( idomain, P_xo2 ) = 'ppmv' chem_streams_table( idomain, P_xo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_xo2 )%stream(2) = 2097216 F_xo2 = .TRUE. IF ( chem_index_table( PARAM_xpar , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_xpar = chem_num_table(idomain) chem_index_table( PARAM_xpar , idomain ) = P_xpar ELSE P_xpar = chem_index_table( PARAM_xpar , idomain ) END IF chem_boundary_table( idomain, P_xpar ) = .TRUE. chem_dname_table( idomain, P_xpar ) = 'xpar' chem_desc_table( idomain, P_xpar ) = 'XPAR mixing ratio' chem_units_table( idomain, P_xpar ) = 'ppmv' chem_streams_table( idomain, P_xpar )%stream(1) = 33554433 chem_streams_table( idomain, P_xpar )%stream(2) = 2097216 F_xpar = .TRUE. IF ( chem_index_table( PARAM_isoprd , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isoprd = chem_num_table(idomain) chem_index_table( PARAM_isoprd , idomain ) = P_isoprd ELSE P_isoprd = chem_index_table( PARAM_isoprd , idomain ) END IF chem_boundary_table( idomain, P_isoprd ) = .TRUE. chem_dname_table( idomain, P_isoprd ) = 'isoprd' chem_desc_table( idomain, P_isoprd ) = 'ISOPRD mixing ratio' chem_units_table( idomain, P_isoprd ) = 'ppmv' chem_streams_table( idomain, P_isoprd )%stream(1) = 33554433 chem_streams_table( idomain, P_isoprd )%stream(2) = 2097216 F_isoprd = .TRUE. IF ( chem_index_table( PARAM_isopp , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopp = chem_num_table(idomain) chem_index_table( PARAM_isopp , idomain ) = P_isopp ELSE P_isopp = chem_index_table( PARAM_isopp , idomain ) END IF chem_boundary_table( idomain, P_isopp ) = .TRUE. chem_dname_table( idomain, P_isopp ) = 'isopp' chem_desc_table( idomain, P_isopp ) = 'ISOPP mixing ratio' chem_units_table( idomain, P_isopp ) = 'ppmv' chem_streams_table( idomain, P_isopp )%stream(1) = 33554433 chem_streams_table( idomain, P_isopp )%stream(2) = 2097216 F_isopp = .TRUE. IF ( chem_index_table( PARAM_isopn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopn = chem_num_table(idomain) chem_index_table( PARAM_isopn , idomain ) = P_isopn ELSE P_isopn = chem_index_table( PARAM_isopn , idomain ) END IF chem_boundary_table( idomain, P_isopn ) = .TRUE. chem_dname_table( idomain, P_isopn ) = 'isopn' chem_desc_table( idomain, P_isopn ) = 'ISOPN mixing ratio' chem_units_table( idomain, P_isopn ) = 'ppmv' chem_streams_table( idomain, P_isopn )%stream(1) = 33554433 chem_streams_table( idomain, P_isopn )%stream(2) = 2097216 F_isopn = .TRUE. IF ( chem_index_table( PARAM_isopo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_isopo2 = chem_num_table(idomain) chem_index_table( PARAM_isopo2 , idomain ) = P_isopo2 ELSE P_isopo2 = chem_index_table( PARAM_isopo2 , idomain ) END IF chem_boundary_table( idomain, P_isopo2 ) = .TRUE. chem_dname_table( idomain, P_isopo2 ) = 'isopo2' chem_desc_table( idomain, P_isopo2 ) = 'ISOPO2 mixing ratio' chem_units_table( idomain, P_isopo2 ) = 'ppmv' chem_streams_table( idomain, P_isopo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_isopo2 )%stream(2) = 2097216 F_isopo2 = .TRUE. IF ( chem_index_table( PARAM_soag , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soag = chem_num_table(idomain) chem_index_table( PARAM_soag , idomain ) = P_soag ELSE P_soag = chem_index_table( PARAM_soag , idomain ) END IF chem_boundary_table( idomain, P_soag ) = .TRUE. chem_dname_table( idomain, P_soag ) = 'soag' chem_desc_table( idomain, P_soag ) = 'Gas-phase SOA' chem_units_table( idomain, P_soag ) = 'ppmv' chem_streams_table( idomain, P_soag )%stream(1) = 33554433 chem_streams_table( idomain, P_soag )%stream(2) = 2097152 F_soag = .TRUE. IF ( chem_index_table( PARAM_so4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a1 = chem_num_table(idomain) chem_index_table( PARAM_so4_a1 , idomain ) = P_so4_a1 ELSE P_so4_a1 = chem_index_table( PARAM_so4_a1 , idomain ) END IF chem_boundary_table( idomain, P_so4_a1 ) = .TRUE. chem_dname_table( idomain, P_so4_a1 ) = 'so4_a1' chem_desc_table( idomain, P_so4_a1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a1 )%stream(2) = 2097152 F_so4_a1 = .TRUE. IF ( chem_index_table( PARAM_nh4_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a1 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a1 , idomain ) = P_nh4_a1 ELSE P_nh4_a1 = chem_index_table( PARAM_nh4_a1 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a1 ) = .TRUE. chem_dname_table( idomain, P_nh4_a1 ) = 'nh4_a1' chem_desc_table( idomain, P_nh4_a1 ) = 'Ammonium aerosol, mode 1' chem_units_table( idomain, P_nh4_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a1 )%stream(2) = 2097152 F_nh4_a1 = .TRUE. IF ( chem_index_table( PARAM_pom_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a1 = chem_num_table(idomain) chem_index_table( PARAM_pom_a1 , idomain ) = P_pom_a1 ELSE P_pom_a1 = chem_index_table( PARAM_pom_a1 , idomain ) END IF chem_boundary_table( idomain, P_pom_a1 ) = .TRUE. chem_dname_table( idomain, P_pom_a1 ) = 'pom_a1' chem_desc_table( idomain, P_pom_a1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_a1 )%stream(2) = 2097152 F_pom_a1 = .TRUE. IF ( chem_index_table( PARAM_soa_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a1 = chem_num_table(idomain) chem_index_table( PARAM_soa_a1 , idomain ) = P_soa_a1 ELSE P_soa_a1 = chem_index_table( PARAM_soa_a1 , idomain ) END IF chem_boundary_table( idomain, P_soa_a1 ) = .TRUE. chem_dname_table( idomain, P_soa_a1 ) = 'soa_a1' chem_desc_table( idomain, P_soa_a1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_a1 )%stream(2) = 2097152 F_soa_a1 = .TRUE. IF ( chem_index_table( PARAM_bc_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a1 = chem_num_table(idomain) chem_index_table( PARAM_bc_a1 , idomain ) = P_bc_a1 ELSE P_bc_a1 = chem_index_table( PARAM_bc_a1 , idomain ) END IF chem_boundary_table( idomain, P_bc_a1 ) = .TRUE. chem_dname_table( idomain, P_bc_a1 ) = 'bc_a1' chem_desc_table( idomain, P_bc_a1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a1 )%stream(2) = 2097152 F_bc_a1 = .TRUE. IF ( chem_index_table( PARAM_ncl_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a1 , idomain ) = P_ncl_a1 ELSE P_ncl_a1 = chem_index_table( PARAM_ncl_a1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a1 ) = .TRUE. chem_dname_table( idomain, P_ncl_a1 ) = 'ncl_a1' chem_desc_table( idomain, P_ncl_a1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a1 )%stream(2) = 2097152 F_ncl_a1 = .TRUE. IF ( chem_index_table( PARAM_wtr_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a1 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a1 , idomain ) = P_wtr_a1 ELSE P_wtr_a1 = chem_index_table( PARAM_wtr_a1 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a1 ) = .TRUE. chem_dname_table( idomain, P_wtr_a1 ) = 'wtr_a1' chem_desc_table( idomain, P_wtr_a1 ) = 'Aerosol water, mode 1' chem_units_table( idomain, P_wtr_a1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a1 )%stream(2) = 2097152 F_wtr_a1 = .TRUE. IF ( chem_index_table( PARAM_num_a1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a1 = chem_num_table(idomain) chem_index_table( PARAM_num_a1 , idomain ) = P_num_a1 ELSE P_num_a1 = chem_index_table( PARAM_num_a1 , idomain ) END IF chem_boundary_table( idomain, P_num_a1 ) = .TRUE. chem_dname_table( idomain, P_num_a1 ) = 'num_a1' chem_desc_table( idomain, P_num_a1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_a1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a1 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a1 )%stream(2) = 2097152 F_num_a1 = .TRUE. IF ( chem_index_table( PARAM_so4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a2 = chem_num_table(idomain) chem_index_table( PARAM_so4_a2 , idomain ) = P_so4_a2 ELSE P_so4_a2 = chem_index_table( PARAM_so4_a2 , idomain ) END IF chem_boundary_table( idomain, P_so4_a2 ) = .TRUE. chem_dname_table( idomain, P_so4_a2 ) = 'so4_a2' chem_desc_table( idomain, P_so4_a2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a2 )%stream(2) = 2097152 F_so4_a2 = .TRUE. IF ( chem_index_table( PARAM_nh4_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a2 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a2 , idomain ) = P_nh4_a2 ELSE P_nh4_a2 = chem_index_table( PARAM_nh4_a2 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a2 ) = .TRUE. chem_dname_table( idomain, P_nh4_a2 ) = 'nh4_a2' chem_desc_table( idomain, P_nh4_a2 ) = 'Ammonium aerosol, mode 2' chem_units_table( idomain, P_nh4_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a2 )%stream(2) = 2097152 F_nh4_a2 = .TRUE. IF ( chem_index_table( PARAM_soa_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_a2 = chem_num_table(idomain) chem_index_table( PARAM_soa_a2 , idomain ) = P_soa_a2 ELSE P_soa_a2 = chem_index_table( PARAM_soa_a2 , idomain ) END IF chem_boundary_table( idomain, P_soa_a2 ) = .TRUE. chem_dname_table( idomain, P_soa_a2 ) = 'soa_a2' chem_desc_table( idomain, P_soa_a2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_a2 )%stream(2) = 2097152 F_soa_a2 = .TRUE. IF ( chem_index_table( PARAM_ncl_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a2 , idomain ) = P_ncl_a2 ELSE P_ncl_a2 = chem_index_table( PARAM_ncl_a2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a2 ) = .TRUE. chem_dname_table( idomain, P_ncl_a2 ) = 'ncl_a2' chem_desc_table( idomain, P_ncl_a2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a2 )%stream(2) = 2097152 F_ncl_a2 = .TRUE. IF ( chem_index_table( PARAM_wtr_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a2 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a2 , idomain ) = P_wtr_a2 ELSE P_wtr_a2 = chem_index_table( PARAM_wtr_a2 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a2 ) = .TRUE. chem_dname_table( idomain, P_wtr_a2 ) = 'wtr_a2' chem_desc_table( idomain, P_wtr_a2 ) = 'Aerosol water, mode 2' chem_units_table( idomain, P_wtr_a2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a2 )%stream(2) = 2097152 F_wtr_a2 = .TRUE. IF ( chem_index_table( PARAM_num_a2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a2 = chem_num_table(idomain) chem_index_table( PARAM_num_a2 , idomain ) = P_num_a2 ELSE P_num_a2 = chem_index_table( PARAM_num_a2 , idomain ) END IF chem_boundary_table( idomain, P_num_a2 ) = .TRUE. chem_dname_table( idomain, P_num_a2 ) = 'num_a2' chem_desc_table( idomain, P_num_a2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_a2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a2 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a2 )%stream(2) = 2097152 F_num_a2 = .TRUE. IF ( chem_index_table( PARAM_pom_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_a3 = chem_num_table(idomain) chem_index_table( PARAM_pom_a3 , idomain ) = P_pom_a3 ELSE P_pom_a3 = chem_index_table( PARAM_pom_a3 , idomain ) END IF chem_boundary_table( idomain, P_pom_a3 ) = .TRUE. chem_dname_table( idomain, P_pom_a3 ) = 'pom_a3' chem_desc_table( idomain, P_pom_a3 ) = 'Primary organic aerosol, mode 3' chem_units_table( idomain, P_pom_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_a3 )%stream(2) = 2097152 F_pom_a3 = .TRUE. IF ( chem_index_table( PARAM_bc_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a3 = chem_num_table(idomain) chem_index_table( PARAM_bc_a3 , idomain ) = P_bc_a3 ELSE P_bc_a3 = chem_index_table( PARAM_bc_a3 , idomain ) END IF chem_boundary_table( idomain, P_bc_a3 ) = .TRUE. chem_dname_table( idomain, P_bc_a3 ) = 'bc_a3' chem_desc_table( idomain, P_bc_a3 ) = 'Black carbon aerosol, mode 3' chem_units_table( idomain, P_bc_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a3 )%stream(2) = 2097152 F_bc_a3 = .TRUE. IF ( chem_index_table( PARAM_wtr_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a3 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a3 , idomain ) = P_wtr_a3 ELSE P_wtr_a3 = chem_index_table( PARAM_wtr_a3 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a3 ) = .TRUE. chem_dname_table( idomain, P_wtr_a3 ) = 'wtr_a3' chem_desc_table( idomain, P_wtr_a3 ) = 'Aerosol water, mode 3' chem_units_table( idomain, P_wtr_a3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a3 )%stream(2) = 2097152 F_wtr_a3 = .TRUE. IF ( chem_index_table( PARAM_num_a3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a3 = chem_num_table(idomain) chem_index_table( PARAM_num_a3 , idomain ) = P_num_a3 ELSE P_num_a3 = chem_index_table( PARAM_num_a3 , idomain ) END IF chem_boundary_table( idomain, P_num_a3 ) = .TRUE. chem_dname_table( idomain, P_num_a3 ) = 'num_a3' chem_desc_table( idomain, P_num_a3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_a3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a3 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a3 )%stream(2) = 2097152 F_num_a3 = .TRUE. IF ( chem_index_table( PARAM_ncl_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a4 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a4 , idomain ) = P_ncl_a4 ELSE P_ncl_a4 = chem_index_table( PARAM_ncl_a4 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a4 ) = .TRUE. chem_dname_table( idomain, P_ncl_a4 ) = 'ncl_a4' chem_desc_table( idomain, P_ncl_a4 ) = 'Sea salt aerosol, mode 4' chem_units_table( idomain, P_ncl_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a4 )%stream(2) = 2097152 F_ncl_a4 = .TRUE. IF ( chem_index_table( PARAM_so4_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a4 = chem_num_table(idomain) chem_index_table( PARAM_so4_a4 , idomain ) = P_so4_a4 ELSE P_so4_a4 = chem_index_table( PARAM_so4_a4 , idomain ) END IF chem_boundary_table( idomain, P_so4_a4 ) = .TRUE. chem_dname_table( idomain, P_so4_a4 ) = 'so4_a4' chem_desc_table( idomain, P_so4_a4 ) = 'Sulfate aerosol, mode 4' chem_units_table( idomain, P_so4_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a4 )%stream(2) = 2097152 F_so4_a4 = .TRUE. IF ( chem_index_table( PARAM_nh4_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a4 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a4 , idomain ) = P_nh4_a4 ELSE P_nh4_a4 = chem_index_table( PARAM_nh4_a4 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a4 ) = .TRUE. chem_dname_table( idomain, P_nh4_a4 ) = 'nh4_a4' chem_desc_table( idomain, P_nh4_a4 ) = 'Ammonium aerosol, mode 4' chem_units_table( idomain, P_nh4_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a4 )%stream(2) = 2097152 F_nh4_a4 = .TRUE. IF ( chem_index_table( PARAM_wtr_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a4 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a4 , idomain ) = P_wtr_a4 ELSE P_wtr_a4 = chem_index_table( PARAM_wtr_a4 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a4 ) = .TRUE. chem_dname_table( idomain, P_wtr_a4 ) = 'wtr_a4' chem_desc_table( idomain, P_wtr_a4 ) = 'Aerosol water, mode 4' chem_units_table( idomain, P_wtr_a4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a4 )%stream(2) = 2097152 F_wtr_a4 = .TRUE. IF ( chem_index_table( PARAM_num_a4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a4 = chem_num_table(idomain) chem_index_table( PARAM_num_a4 , idomain ) = P_num_a4 ELSE P_num_a4 = chem_index_table( PARAM_num_a4 , idomain ) END IF chem_boundary_table( idomain, P_num_a4 ) = .TRUE. chem_dname_table( idomain, P_num_a4 ) = 'num_a4' chem_desc_table( idomain, P_num_a4 ) = 'Aerosol number, mode 4' chem_units_table( idomain, P_num_a4 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a4 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a4 )%stream(2) = 2097152 F_num_a4 = .TRUE. IF ( chem_index_table( PARAM_dst_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a5 = chem_num_table(idomain) chem_index_table( PARAM_dst_a5 , idomain ) = P_dst_a5 ELSE P_dst_a5 = chem_index_table( PARAM_dst_a5 , idomain ) END IF chem_boundary_table( idomain, P_dst_a5 ) = .TRUE. chem_dname_table( idomain, P_dst_a5 ) = 'dst_a5' chem_desc_table( idomain, P_dst_a5 ) = 'Dust aerosol, mode 5' chem_units_table( idomain, P_dst_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_a5 )%stream(2) = 2097152 F_dst_a5 = .TRUE. IF ( chem_index_table( PARAM_so4_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a5 = chem_num_table(idomain) chem_index_table( PARAM_so4_a5 , idomain ) = P_so4_a5 ELSE P_so4_a5 = chem_index_table( PARAM_so4_a5 , idomain ) END IF chem_boundary_table( idomain, P_so4_a5 ) = .TRUE. chem_dname_table( idomain, P_so4_a5 ) = 'so4_a5' chem_desc_table( idomain, P_so4_a5 ) = 'Sulfate aerosol, mode 5' chem_units_table( idomain, P_so4_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a5 )%stream(2) = 2097152 F_so4_a5 = .TRUE. IF ( chem_index_table( PARAM_nh4_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a5 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a5 , idomain ) = P_nh4_a5 ELSE P_nh4_a5 = chem_index_table( PARAM_nh4_a5 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a5 ) = .TRUE. chem_dname_table( idomain, P_nh4_a5 ) = 'nh4_a5' chem_desc_table( idomain, P_nh4_a5 ) = 'Ammonium aerosol, mode 5' chem_units_table( idomain, P_nh4_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a5 )%stream(2) = 2097152 F_nh4_a5 = .TRUE. IF ( chem_index_table( PARAM_wtr_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a5 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a5 , idomain ) = P_wtr_a5 ELSE P_wtr_a5 = chem_index_table( PARAM_wtr_a5 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a5 ) = .TRUE. chem_dname_table( idomain, P_wtr_a5 ) = 'wtr_a5' chem_desc_table( idomain, P_wtr_a5 ) = 'Aerosol water, mode 5' chem_units_table( idomain, P_wtr_a5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a5 )%stream(2) = 2097152 F_wtr_a5 = .TRUE. IF ( chem_index_table( PARAM_num_a5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a5 = chem_num_table(idomain) chem_index_table( PARAM_num_a5 , idomain ) = P_num_a5 ELSE P_num_a5 = chem_index_table( PARAM_num_a5 , idomain ) END IF chem_boundary_table( idomain, P_num_a5 ) = .TRUE. chem_dname_table( idomain, P_num_a5 ) = 'num_a5' chem_desc_table( idomain, P_num_a5 ) = 'Aerosol number, mode 5' chem_units_table( idomain, P_num_a5 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a5 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a5 )%stream(2) = 2097152 F_num_a5 = .TRUE. IF ( chem_index_table( PARAM_ncl_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_a6 = chem_num_table(idomain) chem_index_table( PARAM_ncl_a6 , idomain ) = P_ncl_a6 ELSE P_ncl_a6 = chem_index_table( PARAM_ncl_a6 , idomain ) END IF chem_boundary_table( idomain, P_ncl_a6 ) = .TRUE. chem_dname_table( idomain, P_ncl_a6 ) = 'ncl_a6' chem_desc_table( idomain, P_ncl_a6 ) = 'Sea salt aerosol, mode 6' chem_units_table( idomain, P_ncl_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_a6 )%stream(2) = 2097152 F_ncl_a6 = .TRUE. IF ( chem_index_table( PARAM_so4_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a6 = chem_num_table(idomain) chem_index_table( PARAM_so4_a6 , idomain ) = P_so4_a6 ELSE P_so4_a6 = chem_index_table( PARAM_so4_a6 , idomain ) END IF chem_boundary_table( idomain, P_so4_a6 ) = .TRUE. chem_dname_table( idomain, P_so4_a6 ) = 'so4_a6' chem_desc_table( idomain, P_so4_a6 ) = 'Sulfate aerosol, mode 6' chem_units_table( idomain, P_so4_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a6 )%stream(2) = 2097152 F_so4_a6 = .TRUE. IF ( chem_index_table( PARAM_nh4_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a6 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a6 , idomain ) = P_nh4_a6 ELSE P_nh4_a6 = chem_index_table( PARAM_nh4_a6 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a6 ) = .TRUE. chem_dname_table( idomain, P_nh4_a6 ) = 'nh4_a6' chem_desc_table( idomain, P_nh4_a6 ) = 'Ammonium aerosol, mode 6' chem_units_table( idomain, P_nh4_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a6 )%stream(2) = 2097152 F_nh4_a6 = .TRUE. IF ( chem_index_table( PARAM_wtr_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a6 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a6 , idomain ) = P_wtr_a6 ELSE P_wtr_a6 = chem_index_table( PARAM_wtr_a6 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a6 ) = .TRUE. chem_dname_table( idomain, P_wtr_a6 ) = 'wtr_a6' chem_desc_table( idomain, P_wtr_a6 ) = 'Aerosol water, mode 6' chem_units_table( idomain, P_wtr_a6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a6 )%stream(2) = 2097152 F_wtr_a6 = .TRUE. IF ( chem_index_table( PARAM_num_a6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a6 = chem_num_table(idomain) chem_index_table( PARAM_num_a6 , idomain ) = P_num_a6 ELSE P_num_a6 = chem_index_table( PARAM_num_a6 , idomain ) END IF chem_boundary_table( idomain, P_num_a6 ) = .TRUE. chem_dname_table( idomain, P_num_a6 ) = 'num_a6' chem_desc_table( idomain, P_num_a6 ) = 'Aerosol number, mode 6' chem_units_table( idomain, P_num_a6 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a6 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a6 )%stream(2) = 2097152 F_num_a6 = .TRUE. IF ( chem_index_table( PARAM_dst_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_a7 = chem_num_table(idomain) chem_index_table( PARAM_dst_a7 , idomain ) = P_dst_a7 ELSE P_dst_a7 = chem_index_table( PARAM_dst_a7 , idomain ) END IF chem_boundary_table( idomain, P_dst_a7 ) = .TRUE. chem_dname_table( idomain, P_dst_a7 ) = 'dst_a7' chem_desc_table( idomain, P_dst_a7 ) = 'Dust aerosol, mode 7' chem_units_table( idomain, P_dst_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_a7 )%stream(2) = 2097152 F_dst_a7 = .TRUE. IF ( chem_index_table( PARAM_so4_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a7 = chem_num_table(idomain) chem_index_table( PARAM_so4_a7 , idomain ) = P_so4_a7 ELSE P_so4_a7 = chem_index_table( PARAM_so4_a7 , idomain ) END IF chem_boundary_table( idomain, P_so4_a7 ) = .TRUE. chem_dname_table( idomain, P_so4_a7 ) = 'so4_a7' chem_desc_table( idomain, P_so4_a7 ) = 'Sulfate aerosol, mode 7' chem_units_table( idomain, P_so4_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a7 )%stream(2) = 2097152 F_so4_a7 = .TRUE. IF ( chem_index_table( PARAM_nh4_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a7 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a7 , idomain ) = P_nh4_a7 ELSE P_nh4_a7 = chem_index_table( PARAM_nh4_a7 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a7 ) = .TRUE. chem_dname_table( idomain, P_nh4_a7 ) = 'nh4_a7' chem_desc_table( idomain, P_nh4_a7 ) = 'Ammonium aerosol, mode 7' chem_units_table( idomain, P_nh4_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a7 )%stream(2) = 2097152 F_nh4_a7 = .TRUE. IF ( chem_index_table( PARAM_wtr_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_wtr_a7 = chem_num_table(idomain) chem_index_table( PARAM_wtr_a7 , idomain ) = P_wtr_a7 ELSE P_wtr_a7 = chem_index_table( PARAM_wtr_a7 , idomain ) END IF chem_boundary_table( idomain, P_wtr_a7 ) = .TRUE. chem_dname_table( idomain, P_wtr_a7 ) = 'wtr_a7' chem_desc_table( idomain, P_wtr_a7 ) = 'Aerosol water, mode 7' chem_units_table( idomain, P_wtr_a7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_wtr_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_wtr_a7 )%stream(2) = 2097152 F_wtr_a7 = .TRUE. IF ( chem_index_table( PARAM_num_a7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a7 = chem_num_table(idomain) chem_index_table( PARAM_num_a7 , idomain ) = P_num_a7 ELSE P_num_a7 = chem_index_table( PARAM_num_a7 , idomain ) END IF chem_boundary_table( idomain, P_num_a7 ) = .TRUE. chem_dname_table( idomain, P_num_a7 ) = 'num_a7' chem_desc_table( idomain, P_num_a7 ) = 'Aerosol number, mode 7' chem_units_table( idomain, P_num_a7 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a7 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a7 )%stream(2) = 2097152 F_num_a7 = .TRUE. IF ( chem_index_table( PARAM_so4_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c1 = chem_num_table(idomain) chem_index_table( PARAM_so4_c1 , idomain ) = P_so4_c1 ELSE P_so4_c1 = chem_index_table( PARAM_so4_c1 , idomain ) END IF chem_boundary_table( idomain, P_so4_c1 ) = .TRUE. chem_dname_table( idomain, P_so4_c1 ) = 'so4_c1' chem_desc_table( idomain, P_so4_c1 ) = 'Sulfate aerosol, mode 1' chem_units_table( idomain, P_so4_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c1 )%stream(2) = 2097152 F_so4_c1 = .TRUE. IF ( chem_index_table( PARAM_nh4_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c1 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c1 , idomain ) = P_nh4_c1 ELSE P_nh4_c1 = chem_index_table( PARAM_nh4_c1 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c1 ) = .TRUE. chem_dname_table( idomain, P_nh4_c1 ) = 'nh4_c1' chem_desc_table( idomain, P_nh4_c1 ) = 'Ammonium aerosol, mode 1' chem_units_table( idomain, P_nh4_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_c1 )%stream(2) = 2097152 F_nh4_c1 = .TRUE. IF ( chem_index_table( PARAM_pom_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_c1 = chem_num_table(idomain) chem_index_table( PARAM_pom_c1 , idomain ) = P_pom_c1 ELSE P_pom_c1 = chem_index_table( PARAM_pom_c1 , idomain ) END IF chem_boundary_table( idomain, P_pom_c1 ) = .TRUE. chem_dname_table( idomain, P_pom_c1 ) = 'pom_c1' chem_desc_table( idomain, P_pom_c1 ) = 'Primary organic aerosol, mode 1' chem_units_table( idomain, P_pom_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_c1 )%stream(2) = 2097152 F_pom_c1 = .TRUE. IF ( chem_index_table( PARAM_soa_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_c1 = chem_num_table(idomain) chem_index_table( PARAM_soa_c1 , idomain ) = P_soa_c1 ELSE P_soa_c1 = chem_index_table( PARAM_soa_c1 , idomain ) END IF chem_boundary_table( idomain, P_soa_c1 ) = .TRUE. chem_dname_table( idomain, P_soa_c1 ) = 'soa_c1' chem_desc_table( idomain, P_soa_c1 ) = 'Secondary organic aerosol, mode 1' chem_units_table( idomain, P_soa_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_c1 )%stream(2) = 2097152 F_soa_c1 = .TRUE. IF ( chem_index_table( PARAM_bc_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_c1 = chem_num_table(idomain) chem_index_table( PARAM_bc_c1 , idomain ) = P_bc_c1 ELSE P_bc_c1 = chem_index_table( PARAM_bc_c1 , idomain ) END IF chem_boundary_table( idomain, P_bc_c1 ) = .TRUE. chem_dname_table( idomain, P_bc_c1 ) = 'bc_c1' chem_desc_table( idomain, P_bc_c1 ) = 'Black carbon aerosol, mode 1' chem_units_table( idomain, P_bc_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_c1 )%stream(2) = 2097152 F_bc_c1 = .TRUE. IF ( chem_index_table( PARAM_ncl_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c1 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c1 , idomain ) = P_ncl_c1 ELSE P_ncl_c1 = chem_index_table( PARAM_ncl_c1 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c1 ) = .TRUE. chem_dname_table( idomain, P_ncl_c1 ) = 'ncl_c1' chem_desc_table( idomain, P_ncl_c1 ) = 'Sea salt aerosol, mode 1' chem_units_table( idomain, P_ncl_c1 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_c1 )%stream(2) = 2097152 F_ncl_c1 = .TRUE. IF ( chem_index_table( PARAM_num_c1 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c1 = chem_num_table(idomain) chem_index_table( PARAM_num_c1 , idomain ) = P_num_c1 ELSE P_num_c1 = chem_index_table( PARAM_num_c1 , idomain ) END IF chem_boundary_table( idomain, P_num_c1 ) = .TRUE. chem_dname_table( idomain, P_num_c1 ) = 'num_c1' chem_desc_table( idomain, P_num_c1 ) = 'Aerosol number, mode 1' chem_units_table( idomain, P_num_c1 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c1 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c1 )%stream(2) = 2097152 F_num_c1 = .TRUE. IF ( chem_index_table( PARAM_so4_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c2 = chem_num_table(idomain) chem_index_table( PARAM_so4_c2 , idomain ) = P_so4_c2 ELSE P_so4_c2 = chem_index_table( PARAM_so4_c2 , idomain ) END IF chem_boundary_table( idomain, P_so4_c2 ) = .TRUE. chem_dname_table( idomain, P_so4_c2 ) = 'so4_c2' chem_desc_table( idomain, P_so4_c2 ) = 'Sulfate aerosol, mode 2' chem_units_table( idomain, P_so4_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c2 )%stream(2) = 2097152 F_so4_c2 = .TRUE. IF ( chem_index_table( PARAM_nh4_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c2 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c2 , idomain ) = P_nh4_c2 ELSE P_nh4_c2 = chem_index_table( PARAM_nh4_c2 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c2 ) = .TRUE. chem_dname_table( idomain, P_nh4_c2 ) = 'nh4_c2' chem_desc_table( idomain, P_nh4_c2 ) = 'Ammonium aerosol, mode 2' chem_units_table( idomain, P_nh4_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_c2 )%stream(2) = 2097152 F_nh4_c2 = .TRUE. IF ( chem_index_table( PARAM_soa_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_soa_c2 = chem_num_table(idomain) chem_index_table( PARAM_soa_c2 , idomain ) = P_soa_c2 ELSE P_soa_c2 = chem_index_table( PARAM_soa_c2 , idomain ) END IF chem_boundary_table( idomain, P_soa_c2 ) = .TRUE. chem_dname_table( idomain, P_soa_c2 ) = 'soa_c2' chem_desc_table( idomain, P_soa_c2 ) = 'Secondary organic aerosol, mode 2' chem_units_table( idomain, P_soa_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_soa_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_soa_c2 )%stream(2) = 2097152 F_soa_c2 = .TRUE. IF ( chem_index_table( PARAM_ncl_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c2 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c2 , idomain ) = P_ncl_c2 ELSE P_ncl_c2 = chem_index_table( PARAM_ncl_c2 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c2 ) = .TRUE. chem_dname_table( idomain, P_ncl_c2 ) = 'ncl_c2' chem_desc_table( idomain, P_ncl_c2 ) = 'Sea salt aerosol, mode 2' chem_units_table( idomain, P_ncl_c2 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_c2 )%stream(2) = 2097152 F_ncl_c2 = .TRUE. IF ( chem_index_table( PARAM_num_c2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c2 = chem_num_table(idomain) chem_index_table( PARAM_num_c2 , idomain ) = P_num_c2 ELSE P_num_c2 = chem_index_table( PARAM_num_c2 , idomain ) END IF chem_boundary_table( idomain, P_num_c2 ) = .TRUE. chem_dname_table( idomain, P_num_c2 ) = 'num_c2' chem_desc_table( idomain, P_num_c2 ) = 'Aerosol number, mode 2' chem_units_table( idomain, P_num_c2 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c2 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c2 )%stream(2) = 2097152 F_num_c2 = .TRUE. IF ( chem_index_table( PARAM_pom_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pom_c3 = chem_num_table(idomain) chem_index_table( PARAM_pom_c3 , idomain ) = P_pom_c3 ELSE P_pom_c3 = chem_index_table( PARAM_pom_c3 , idomain ) END IF chem_boundary_table( idomain, P_pom_c3 ) = .TRUE. chem_dname_table( idomain, P_pom_c3 ) = 'pom_c3' chem_desc_table( idomain, P_pom_c3 ) = 'Primary organic aerosol, mode 3' chem_units_table( idomain, P_pom_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_pom_c3 )%stream(1) = 33554433 chem_streams_table( idomain, P_pom_c3 )%stream(2) = 2097152 F_pom_c3 = .TRUE. IF ( chem_index_table( PARAM_bc_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_c3 = chem_num_table(idomain) chem_index_table( PARAM_bc_c3 , idomain ) = P_bc_c3 ELSE P_bc_c3 = chem_index_table( PARAM_bc_c3 , idomain ) END IF chem_boundary_table( idomain, P_bc_c3 ) = .TRUE. chem_dname_table( idomain, P_bc_c3 ) = 'bc_c3' chem_desc_table( idomain, P_bc_c3 ) = 'Black carbon aerosol, mode 3' chem_units_table( idomain, P_bc_c3 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_c3 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_c3 )%stream(2) = 2097152 F_bc_c3 = .TRUE. IF ( chem_index_table( PARAM_num_c3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c3 = chem_num_table(idomain) chem_index_table( PARAM_num_c3 , idomain ) = P_num_c3 ELSE P_num_c3 = chem_index_table( PARAM_num_c3 , idomain ) END IF chem_boundary_table( idomain, P_num_c3 ) = .TRUE. chem_dname_table( idomain, P_num_c3 ) = 'num_c3' chem_desc_table( idomain, P_num_c3 ) = 'Aerosol number, mode 3' chem_units_table( idomain, P_num_c3 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c3 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c3 )%stream(2) = 2097152 F_num_c3 = .TRUE. IF ( chem_index_table( PARAM_ncl_c4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c4 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c4 , idomain ) = P_ncl_c4 ELSE P_ncl_c4 = chem_index_table( PARAM_ncl_c4 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c4 ) = .TRUE. chem_dname_table( idomain, P_ncl_c4 ) = 'ncl_c4' chem_desc_table( idomain, P_ncl_c4 ) = 'Sea salt aerosol, mode 4' chem_units_table( idomain, P_ncl_c4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_c4 )%stream(2) = 2097152 F_ncl_c4 = .TRUE. IF ( chem_index_table( PARAM_so4_c4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c4 = chem_num_table(idomain) chem_index_table( PARAM_so4_c4 , idomain ) = P_so4_c4 ELSE P_so4_c4 = chem_index_table( PARAM_so4_c4 , idomain ) END IF chem_boundary_table( idomain, P_so4_c4 ) = .TRUE. chem_dname_table( idomain, P_so4_c4 ) = 'so4_c4' chem_desc_table( idomain, P_so4_c4 ) = 'Sulfate aerosol, mode 4' chem_units_table( idomain, P_so4_c4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c4 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c4 )%stream(2) = 2097152 F_so4_c4 = .TRUE. IF ( chem_index_table( PARAM_nh4_c4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c4 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c4 , idomain ) = P_nh4_c4 ELSE P_nh4_c4 = chem_index_table( PARAM_nh4_c4 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c4 ) = .TRUE. chem_dname_table( idomain, P_nh4_c4 ) = 'nh4_c4' chem_desc_table( idomain, P_nh4_c4 ) = 'Ammonium aerosol, mode 4' chem_units_table( idomain, P_nh4_c4 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c4 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_c4 )%stream(2) = 2097152 F_nh4_c4 = .TRUE. IF ( chem_index_table( PARAM_num_c4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c4 = chem_num_table(idomain) chem_index_table( PARAM_num_c4 , idomain ) = P_num_c4 ELSE P_num_c4 = chem_index_table( PARAM_num_c4 , idomain ) END IF chem_boundary_table( idomain, P_num_c4 ) = .TRUE. chem_dname_table( idomain, P_num_c4 ) = 'num_c4' chem_desc_table( idomain, P_num_c4 ) = 'Aerosol number, mode 4' chem_units_table( idomain, P_num_c4 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c4 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c4 )%stream(2) = 2097152 F_num_c4 = .TRUE. IF ( chem_index_table( PARAM_dst_c5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_c5 = chem_num_table(idomain) chem_index_table( PARAM_dst_c5 , idomain ) = P_dst_c5 ELSE P_dst_c5 = chem_index_table( PARAM_dst_c5 , idomain ) END IF chem_boundary_table( idomain, P_dst_c5 ) = .TRUE. chem_dname_table( idomain, P_dst_c5 ) = 'dst_c5' chem_desc_table( idomain, P_dst_c5 ) = 'Dust aerosol, mode 5' chem_units_table( idomain, P_dst_c5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_c5 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_c5 )%stream(2) = 2097152 F_dst_c5 = .TRUE. IF ( chem_index_table( PARAM_so4_c5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c5 = chem_num_table(idomain) chem_index_table( PARAM_so4_c5 , idomain ) = P_so4_c5 ELSE P_so4_c5 = chem_index_table( PARAM_so4_c5 , idomain ) END IF chem_boundary_table( idomain, P_so4_c5 ) = .TRUE. chem_dname_table( idomain, P_so4_c5 ) = 'so4_c5' chem_desc_table( idomain, P_so4_c5 ) = 'Sulfate aerosol, mode 5' chem_units_table( idomain, P_so4_c5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c5 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c5 )%stream(2) = 2097152 F_so4_c5 = .TRUE. IF ( chem_index_table( PARAM_nh4_c5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c5 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c5 , idomain ) = P_nh4_c5 ELSE P_nh4_c5 = chem_index_table( PARAM_nh4_c5 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c5 ) = .TRUE. chem_dname_table( idomain, P_nh4_c5 ) = 'nh4_c5' chem_desc_table( idomain, P_nh4_c5 ) = 'Ammonium aerosol, mode 5' chem_units_table( idomain, P_nh4_c5 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c5 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_c5 )%stream(2) = 2097152 F_nh4_c5 = .TRUE. IF ( chem_index_table( PARAM_num_c5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c5 = chem_num_table(idomain) chem_index_table( PARAM_num_c5 , idomain ) = P_num_c5 ELSE P_num_c5 = chem_index_table( PARAM_num_c5 , idomain ) END IF chem_boundary_table( idomain, P_num_c5 ) = .TRUE. chem_dname_table( idomain, P_num_c5 ) = 'num_c5' chem_desc_table( idomain, P_num_c5 ) = 'Aerosol number, mode 5' chem_units_table( idomain, P_num_c5 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c5 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c5 )%stream(2) = 2097152 F_num_c5 = .TRUE. IF ( chem_index_table( PARAM_ncl_c6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ncl_c6 = chem_num_table(idomain) chem_index_table( PARAM_ncl_c6 , idomain ) = P_ncl_c6 ELSE P_ncl_c6 = chem_index_table( PARAM_ncl_c6 , idomain ) END IF chem_boundary_table( idomain, P_ncl_c6 ) = .TRUE. chem_dname_table( idomain, P_ncl_c6 ) = 'ncl_c6' chem_desc_table( idomain, P_ncl_c6 ) = 'Sea salt aerosol, mode 6' chem_units_table( idomain, P_ncl_c6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_ncl_c6 )%stream(1) = 33554433 chem_streams_table( idomain, P_ncl_c6 )%stream(2) = 2097152 F_ncl_c6 = .TRUE. IF ( chem_index_table( PARAM_so4_c6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c6 = chem_num_table(idomain) chem_index_table( PARAM_so4_c6 , idomain ) = P_so4_c6 ELSE P_so4_c6 = chem_index_table( PARAM_so4_c6 , idomain ) END IF chem_boundary_table( idomain, P_so4_c6 ) = .TRUE. chem_dname_table( idomain, P_so4_c6 ) = 'so4_c6' chem_desc_table( idomain, P_so4_c6 ) = 'Sulfate aerosol, mode 6' chem_units_table( idomain, P_so4_c6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c6 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c6 )%stream(2) = 2097152 F_so4_c6 = .TRUE. IF ( chem_index_table( PARAM_nh4_c6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c6 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c6 , idomain ) = P_nh4_c6 ELSE P_nh4_c6 = chem_index_table( PARAM_nh4_c6 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c6 ) = .TRUE. chem_dname_table( idomain, P_nh4_c6 ) = 'nh4_c6' chem_desc_table( idomain, P_nh4_c6 ) = 'Ammonium aerosol, mode 6' chem_units_table( idomain, P_nh4_c6 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c6 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_c6 )%stream(2) = 2097152 F_nh4_c6 = .TRUE. IF ( chem_index_table( PARAM_num_c6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c6 = chem_num_table(idomain) chem_index_table( PARAM_num_c6 , idomain ) = P_num_c6 ELSE P_num_c6 = chem_index_table( PARAM_num_c6 , idomain ) END IF chem_boundary_table( idomain, P_num_c6 ) = .TRUE. chem_dname_table( idomain, P_num_c6 ) = 'num_c6' chem_desc_table( idomain, P_num_c6 ) = 'Aerosol number, mode 6' chem_units_table( idomain, P_num_c6 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c6 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c6 )%stream(2) = 2097152 F_num_c6 = .TRUE. IF ( chem_index_table( PARAM_dst_c7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dst_c7 = chem_num_table(idomain) chem_index_table( PARAM_dst_c7 , idomain ) = P_dst_c7 ELSE P_dst_c7 = chem_index_table( PARAM_dst_c7 , idomain ) END IF chem_boundary_table( idomain, P_dst_c7 ) = .TRUE. chem_dname_table( idomain, P_dst_c7 ) = 'dst_c7' chem_desc_table( idomain, P_dst_c7 ) = 'Dust aerosol, mode 7' chem_units_table( idomain, P_dst_c7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_dst_c7 )%stream(1) = 33554433 chem_streams_table( idomain, P_dst_c7 )%stream(2) = 2097152 F_dst_c7 = .TRUE. IF ( chem_index_table( PARAM_so4_c7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_c7 = chem_num_table(idomain) chem_index_table( PARAM_so4_c7 , idomain ) = P_so4_c7 ELSE P_so4_c7 = chem_index_table( PARAM_so4_c7 , idomain ) END IF chem_boundary_table( idomain, P_so4_c7 ) = .TRUE. chem_dname_table( idomain, P_so4_c7 ) = 'so4_c7' chem_desc_table( idomain, P_so4_c7 ) = 'Sulfate aerosol, mode 7' chem_units_table( idomain, P_so4_c7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_c7 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_c7 )%stream(2) = 2097152 F_so4_c7 = .TRUE. IF ( chem_index_table( PARAM_nh4_c7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_c7 = chem_num_table(idomain) chem_index_table( PARAM_nh4_c7 , idomain ) = P_nh4_c7 ELSE P_nh4_c7 = chem_index_table( PARAM_nh4_c7 , idomain ) END IF chem_boundary_table( idomain, P_nh4_c7 ) = .TRUE. chem_dname_table( idomain, P_nh4_c7 ) = 'nh4_c7' chem_desc_table( idomain, P_nh4_c7 ) = 'Ammonium aerosol, mode 7' chem_units_table( idomain, P_nh4_c7 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_c7 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_c7 )%stream(2) = 2097152 F_nh4_c7 = .TRUE. IF ( chem_index_table( PARAM_num_c7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_c7 = chem_num_table(idomain) chem_index_table( PARAM_num_c7 , idomain ) = P_num_c7 ELSE P_num_c7 = chem_index_table( PARAM_num_c7 , idomain ) END IF chem_boundary_table( idomain, P_num_c7 ) = .TRUE. chem_dname_table( idomain, P_num_c7 ) = 'num_c7' chem_desc_table( idomain, P_num_c7 ) = 'Aerosol number, mode 7' chem_units_table( idomain, P_num_c7 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_c7 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_c7 )%stream(2) = 2097152 F_num_c7 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==600)THEN IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3s , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3s = chem_num_table(idomain) chem_index_table( PARAM_ch3s , idomain ) = P_ch3s ELSE P_ch3s = chem_index_table( PARAM_ch3s , idomain ) END IF chem_boundary_table( idomain, P_ch3s ) = .TRUE. chem_dname_table( idomain, P_ch3s ) = 'ch3s' chem_desc_table( idomain, P_ch3s ) = 'CH3S concentration' chem_units_table( idomain, P_ch3s ) = 'ppmv' chem_streams_table( idomain, P_ch3s )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3s )%stream(2) = 2097216 F_ch3s = .TRUE. IF ( chem_index_table( PARAM_ch3so , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so = chem_num_table(idomain) chem_index_table( PARAM_ch3so , idomain ) = P_ch3so ELSE P_ch3so = chem_index_table( PARAM_ch3so , idomain ) END IF chem_boundary_table( idomain, P_ch3so ) = .TRUE. chem_dname_table( idomain, P_ch3so ) = 'ch3so' chem_desc_table( idomain, P_ch3so ) = 'CH3SO concentration' chem_units_table( idomain, P_ch3so ) = 'ppmv' chem_streams_table( idomain, P_ch3so )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so )%stream(2) = 2097216 F_ch3so = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_msia , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msia = chem_num_table(idomain) chem_index_table( PARAM_msia , idomain ) = P_msia ELSE P_msia = chem_index_table( PARAM_msia , idomain ) END IF chem_boundary_table( idomain, P_msia ) = .TRUE. chem_dname_table( idomain, P_msia ) = 'msia' chem_desc_table( idomain, P_msia ) = 'MSIA concentration' chem_units_table( idomain, P_msia ) = 'ppmv' chem_streams_table( idomain, P_msia )%stream(1) = 33554433 chem_streams_table( idomain, P_msia )%stream(2) = 2097216 F_msia = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_hso3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hso3 = chem_num_table(idomain) chem_index_table( PARAM_hso3 , idomain ) = P_hso3 ELSE P_hso3 = chem_index_table( PARAM_hso3 , idomain ) END IF chem_boundary_table( idomain, P_hso3 ) = .TRUE. chem_dname_table( idomain, P_hso3 ) = 'hso3' chem_desc_table( idomain, P_hso3 ) = 'HSO3 concentration' chem_units_table( idomain, P_hso3 ) = 'ppmv' chem_streams_table( idomain, P_hso3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hso3 )%stream(2) = 2097216 F_hso3 = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ch3cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cho = chem_num_table(idomain) chem_index_table( PARAM_ch3cho , idomain ) = P_ch3cho ELSE P_ch3cho = chem_index_table( PARAM_ch3cho , idomain ) END IF chem_boundary_table( idomain, P_ch3cho ) = .TRUE. chem_dname_table( idomain, P_ch3cho ) = 'ch3cho' chem_desc_table( idomain, P_ch3cho ) = 'CH3CHO concentration' chem_units_table( idomain, P_ch3cho ) = 'ppmv' chem_streams_table( idomain, P_ch3cho )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cho )%stream(2) = 2097216 F_ch3cho = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_c2h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c2h5ooh , idomain ) = P_c2h5ooh ELSE P_c2h5ooh = chem_index_table( PARAM_c2h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c2h5ooh ) = .TRUE. chem_dname_table( idomain, P_c2h5ooh ) = 'c2h5ooh' chem_desc_table( idomain, P_c2h5ooh ) = 'C2H5OOH concentration' chem_units_table( idomain, P_c2h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c2h5ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5ooh )%stream(2) = 2097216 F_c2h5ooh = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_nc4h10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nc4h10 = chem_num_table(idomain) chem_index_table( PARAM_nc4h10 , idomain ) = P_nc4h10 ELSE P_nc4h10 = chem_index_table( PARAM_nc4h10 , idomain ) END IF chem_boundary_table( idomain, P_nc4h10 ) = .TRUE. chem_dname_table( idomain, P_nc4h10 ) = 'nc4h10' chem_desc_table( idomain, P_nc4h10 ) = 'NC4H10 concentration' chem_units_table( idomain, P_nc4h10 ) = 'ppmv' chem_streams_table( idomain, P_nc4h10 )%stream(1) = 33554433 chem_streams_table( idomain, P_nc4h10 )%stream(2) = 2097216 F_nc4h10 = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_toluene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_toluene = chem_num_table(idomain) chem_index_table( PARAM_toluene , idomain ) = P_toluene ELSE P_toluene = chem_index_table( PARAM_toluene , idomain ) END IF chem_boundary_table( idomain, P_toluene ) = .TRUE. chem_dname_table( idomain, P_toluene ) = 'toluene' chem_desc_table( idomain, P_toluene ) = 'TOLUENE concentration' chem_units_table( idomain, P_toluene ) = 'ppmv' chem_streams_table( idomain, P_toluene )%stream(1) = 33554433 chem_streams_table( idomain, P_toluene )%stream(2) = 2097216 F_toluene = .TRUE. IF ( chem_index_table( PARAM_oxyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oxyl = chem_num_table(idomain) chem_index_table( PARAM_oxyl , idomain ) = P_oxyl ELSE P_oxyl = chem_index_table( PARAM_oxyl , idomain ) END IF chem_boundary_table( idomain, P_oxyl ) = .TRUE. chem_dname_table( idomain, P_oxyl ) = 'oxyl' chem_desc_table( idomain, P_oxyl ) = 'OXYL concentration' chem_units_table( idomain, P_oxyl ) = 'ppmv' chem_streams_table( idomain, P_oxyl )%stream(1) = 33554433 chem_streams_table( idomain, P_oxyl )%stream(2) = 2097216 F_oxyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_c5h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c5h8 = chem_num_table(idomain) chem_index_table( PARAM_c5h8 , idomain ) = P_c5h8 ELSE P_c5h8 = chem_index_table( PARAM_c5h8 , idomain ) END IF chem_boundary_table( idomain, P_c5h8 ) = .TRUE. chem_dname_table( idomain, P_c5h8 ) = 'c5h8' chem_desc_table( idomain, P_c5h8 ) = 'C5H8 concentration' chem_units_table( idomain, P_c5h8 ) = 'ppmv' chem_streams_table( idomain, P_c5h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c5h8 )%stream(2) = 2097216 F_c5h8 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so3 = chem_num_table(idomain) chem_index_table( PARAM_so3 , idomain ) = P_so3 ELSE P_so3 = chem_index_table( PARAM_so3 , idomain ) END IF chem_boundary_table( idomain, P_so3 ) = .TRUE. chem_dname_table( idomain, P_so3 ) = 'so3' chem_desc_table( idomain, P_so3 ) = 'SO3 concentration' chem_units_table( idomain, P_so3 ) = 'ppmv' chem_streams_table( idomain, P_so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_so3 )%stream(2) = 2097216 F_so3 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 F_benzene = .TRUE. IF ( chem_index_table( PARAM_npropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_npropol = chem_num_table(idomain) chem_index_table( PARAM_npropol , idomain ) = P_npropol ELSE P_npropol = chem_index_table( PARAM_npropol , idomain ) END IF chem_boundary_table( idomain, P_npropol ) = .TRUE. chem_dname_table( idomain, P_npropol ) = 'npropol' chem_desc_table( idomain, P_npropol ) = 'NPROPOL concentration' chem_units_table( idomain, P_npropol ) = 'ppmv' chem_streams_table( idomain, P_npropol )%stream(1) = 33554433 chem_streams_table( idomain, P_npropol )%stream(2) = 2097216 F_npropol = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_tbut2ene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tbut2ene = chem_num_table(idomain) chem_index_table( PARAM_tbut2ene , idomain ) = P_tbut2ene ELSE P_tbut2ene = chem_index_table( PARAM_tbut2ene , idomain ) END IF chem_boundary_table( idomain, P_tbut2ene ) = .TRUE. chem_dname_table( idomain, P_tbut2ene ) = 'tbut2ene' chem_desc_table( idomain, P_tbut2ene ) = 'TBUT2ENE concentration' chem_units_table( idomain, P_tbut2ene ) = 'ppmv' chem_streams_table( idomain, P_tbut2ene )%stream(1) = 33554433 chem_streams_table( idomain, P_tbut2ene )%stream(2) = 2097216 F_tbut2ene = .TRUE. IF ( chem_index_table( PARAM_c2h5cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5cho = chem_num_table(idomain) chem_index_table( PARAM_c2h5cho , idomain ) = P_c2h5cho ELSE P_c2h5cho = chem_index_table( PARAM_c2h5cho , idomain ) END IF chem_boundary_table( idomain, P_c2h5cho ) = .TRUE. chem_dname_table( idomain, P_c2h5cho ) = 'c2h5cho' chem_desc_table( idomain, P_c2h5cho ) = 'C2H5CHO concentration' chem_units_table( idomain, P_c2h5cho ) = 'ppmv' chem_streams_table( idomain, P_c2h5cho )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5cho )%stream(2) = 2097216 F_c2h5cho = .TRUE. IF ( chem_index_table( PARAM_ch3co2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3co2h = chem_num_table(idomain) chem_index_table( PARAM_ch3co2h , idomain ) = P_ch3co2h ELSE P_ch3co2h = chem_index_table( PARAM_ch3co2h , idomain ) END IF chem_boundary_table( idomain, P_ch3co2h ) = .TRUE. chem_dname_table( idomain, P_ch3co2h ) = 'ch3co2h' chem_desc_table( idomain, P_ch3co2h ) = 'CH3CO2H concentration' chem_units_table( idomain, P_ch3co2h ) = 'ppmv' chem_streams_table( idomain, P_ch3co2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3co2h )%stream(2) = 2097216 F_ch3co2h = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_ipropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ipropol = chem_num_table(idomain) chem_index_table( PARAM_ipropol , idomain ) = P_ipropol ELSE P_ipropol = chem_index_table( PARAM_ipropol , idomain ) END IF chem_boundary_table( idomain, P_ipropol ) = .TRUE. chem_dname_table( idomain, P_ipropol ) = 'ipropol' chem_desc_table( idomain, P_ipropol ) = 'IPROPOL concentration' chem_units_table( idomain, P_ipropol ) = 'ppmv' chem_streams_table( idomain, P_ipropol )%stream(1) = 33554433 chem_streams_table( idomain, P_ipropol )%stream(2) = 2097216 F_ipropol = .TRUE. IF ( chem_index_table( PARAM_ch3no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3no3 = chem_num_table(idomain) chem_index_table( PARAM_ch3no3 , idomain ) = P_ch3no3 ELSE P_ch3no3 = chem_index_table( PARAM_ch3no3 , idomain ) END IF chem_boundary_table( idomain, P_ch3no3 ) = .TRUE. chem_dname_table( idomain, P_ch3no3 ) = 'ch3no3' chem_desc_table( idomain, P_ch3no3 ) = 'CH3NO3 concentration' chem_units_table( idomain, P_ch3no3 ) = 'ppmv' chem_streams_table( idomain, P_ch3no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3no3 )%stream(2) = 2097216 F_ch3no3 = .TRUE. IF ( chem_index_table( PARAM_c2h5no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5no3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5no3 , idomain ) = P_c2h5no3 ELSE P_c2h5no3 = chem_index_table( PARAM_c2h5no3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5no3 ) = .TRUE. chem_dname_table( idomain, P_c2h5no3 ) = 'c2h5no3' chem_desc_table( idomain, P_c2h5no3 ) = 'C2H5NO3 concentration' chem_units_table( idomain, P_c2h5no3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5no3 )%stream(2) = 2097216 F_c2h5no3 = .TRUE. IF ( chem_index_table( PARAM_hoc2h4no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4no3 = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4no3 , idomain ) = P_hoc2h4no3 ELSE P_hoc2h4no3 = chem_index_table( PARAM_hoc2h4no3 , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4no3 ) = .TRUE. chem_dname_table( idomain, P_hoc2h4no3 ) = 'hoc2h4no3' chem_desc_table( idomain, P_hoc2h4no3 ) = 'HOC2H4NO3 concentration' chem_units_table( idomain, P_hoc2h4no3 ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoc2h4no3 )%stream(2) = 2097216 F_hoc2h4no3 = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 F_prooh = .TRUE. IF ( chem_index_table( PARAM_hoc2h4ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4ooh = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4ooh , idomain ) = P_hoc2h4ooh ELSE P_hoc2h4ooh = chem_index_table( PARAM_hoc2h4ooh , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4ooh ) = .TRUE. chem_dname_table( idomain, P_hoc2h4ooh ) = 'hoc2h4ooh' chem_desc_table( idomain, P_hoc2h4ooh ) = 'HOC2H4OOH concentration' chem_units_table( idomain, P_hoc2h4ooh ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hoc2h4ooh )%stream(2) = 2097216 F_hoc2h4ooh = .TRUE. IF ( chem_index_table( PARAM_carb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb14 = chem_num_table(idomain) chem_index_table( PARAM_carb14 , idomain ) = P_carb14 ELSE P_carb14 = chem_index_table( PARAM_carb14 , idomain ) END IF chem_boundary_table( idomain, P_carb14 ) = .TRUE. chem_dname_table( idomain, P_carb14 ) = 'carb14' chem_desc_table( idomain, P_carb14 ) = 'CARB14 concentration' chem_units_table( idomain, P_carb14 ) = 'ppmv' chem_streams_table( idomain, P_carb14 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb14 )%stream(2) = 2097216 F_carb14 = .TRUE. IF ( chem_index_table( PARAM_carb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb17 = chem_num_table(idomain) chem_index_table( PARAM_carb17 , idomain ) = P_carb17 ELSE P_carb17 = chem_index_table( PARAM_carb17 , idomain ) END IF chem_boundary_table( idomain, P_carb17 ) = .TRUE. chem_dname_table( idomain, P_carb17 ) = 'carb17' chem_desc_table( idomain, P_carb17 ) = 'CARB17 concentration' chem_units_table( idomain, P_carb17 ) = 'ppmv' chem_streams_table( idomain, P_carb17 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb17 )%stream(2) = 2097216 F_carb17 = .TRUE. IF ( chem_index_table( PARAM_rn10no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10no3 = chem_num_table(idomain) chem_index_table( PARAM_rn10no3 , idomain ) = P_rn10no3 ELSE P_rn10no3 = chem_index_table( PARAM_rn10no3 , idomain ) END IF chem_boundary_table( idomain, P_rn10no3 ) = .TRUE. chem_dname_table( idomain, P_rn10no3 ) = 'rn10no3' chem_desc_table( idomain, P_rn10no3 ) = 'RN10NO3 concentration' chem_units_table( idomain, P_rn10no3 ) = 'ppmv' chem_streams_table( idomain, P_rn10no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10no3 )%stream(2) = 2097216 F_rn10no3 = .TRUE. IF ( chem_index_table( PARAM_rn13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13no3 = chem_num_table(idomain) chem_index_table( PARAM_rn13no3 , idomain ) = P_rn13no3 ELSE P_rn13no3 = chem_index_table( PARAM_rn13no3 , idomain ) END IF chem_boundary_table( idomain, P_rn13no3 ) = .TRUE. chem_dname_table( idomain, P_rn13no3 ) = 'rn13no3' chem_desc_table( idomain, P_rn13no3 ) = 'RN13NO3 concentration' chem_units_table( idomain, P_rn13no3 ) = 'ppmv' chem_streams_table( idomain, P_rn13no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13no3 )%stream(2) = 2097216 F_rn13no3 = .TRUE. IF ( chem_index_table( PARAM_rn19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19no3 = chem_num_table(idomain) chem_index_table( PARAM_rn19no3 , idomain ) = P_rn19no3 ELSE P_rn19no3 = chem_index_table( PARAM_rn19no3 , idomain ) END IF chem_boundary_table( idomain, P_rn19no3 ) = .TRUE. chem_dname_table( idomain, P_rn19no3 ) = 'rn19no3' chem_desc_table( idomain, P_rn19no3 ) = 'RN19NO3 concentration' chem_units_table( idomain, P_rn19no3 ) = 'ppmv' chem_streams_table( idomain, P_rn19no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19no3 )%stream(2) = 2097216 F_rn19no3 = .TRUE. IF ( chem_index_table( PARAM_rn9no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9no3 = chem_num_table(idomain) chem_index_table( PARAM_rn9no3 , idomain ) = P_rn9no3 ELSE P_rn9no3 = chem_index_table( PARAM_rn9no3 , idomain ) END IF chem_boundary_table( idomain, P_rn9no3 ) = .TRUE. chem_dname_table( idomain, P_rn9no3 ) = 'rn9no3' chem_desc_table( idomain, P_rn9no3 ) = 'RN9NO3 concentration' chem_units_table( idomain, P_rn9no3 ) = 'ppmv' chem_streams_table( idomain, P_rn9no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9no3 )%stream(2) = 2097216 F_rn9no3 = .TRUE. IF ( chem_index_table( PARAM_rn12no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12no3 = chem_num_table(idomain) chem_index_table( PARAM_rn12no3 , idomain ) = P_rn12no3 ELSE P_rn12no3 = chem_index_table( PARAM_rn12no3 , idomain ) END IF chem_boundary_table( idomain, P_rn12no3 ) = .TRUE. chem_dname_table( idomain, P_rn12no3 ) = 'rn12no3' chem_desc_table( idomain, P_rn12no3 ) = 'RN12NO3 concentration' chem_units_table( idomain, P_rn12no3 ) = 'ppmv' chem_streams_table( idomain, P_rn12no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12no3 )%stream(2) = 2097216 F_rn12no3 = .TRUE. IF ( chem_index_table( PARAM_rn15no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15no3 = chem_num_table(idomain) chem_index_table( PARAM_rn15no3 , idomain ) = P_rn15no3 ELSE P_rn15no3 = chem_index_table( PARAM_rn15no3 , idomain ) END IF chem_boundary_table( idomain, P_rn15no3 ) = .TRUE. chem_dname_table( idomain, P_rn15no3 ) = 'rn15no3' chem_desc_table( idomain, P_rn15no3 ) = 'RN15NO3 concentration' chem_units_table( idomain, P_rn15no3 ) = 'ppmv' chem_streams_table( idomain, P_rn15no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15no3 )%stream(2) = 2097216 F_rn15no3 = .TRUE. IF ( chem_index_table( PARAM_rn18no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18no3 = chem_num_table(idomain) chem_index_table( PARAM_rn18no3 , idomain ) = P_rn18no3 ELSE P_rn18no3 = chem_index_table( PARAM_rn18no3 , idomain ) END IF chem_boundary_table( idomain, P_rn18no3 ) = .TRUE. chem_dname_table( idomain, P_rn18no3 ) = 'rn18no3' chem_desc_table( idomain, P_rn18no3 ) = 'RN18NO3 concentration' chem_units_table( idomain, P_rn18no3 ) = 'ppmv' chem_streams_table( idomain, P_rn18no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18no3 )%stream(2) = 2097216 F_rn18no3 = .TRUE. IF ( chem_index_table( PARAM_rn16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16no3 = chem_num_table(idomain) chem_index_table( PARAM_rn16no3 , idomain ) = P_rn16no3 ELSE P_rn16no3 = chem_index_table( PARAM_rn16no3 , idomain ) END IF chem_boundary_table( idomain, P_rn16no3 ) = .TRUE. chem_dname_table( idomain, P_rn16no3 ) = 'rn16no3' chem_desc_table( idomain, P_rn16no3 ) = 'RN16NO3 concentration' chem_units_table( idomain, P_rn16no3 ) = 'ppmv' chem_streams_table( idomain, P_rn16no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16no3 )%stream(2) = 2097216 F_rn16no3 = .TRUE. IF ( chem_index_table( PARAM_rn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rn10ooh , idomain ) = P_rn10ooh ELSE P_rn10ooh = chem_index_table( PARAM_rn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rn10ooh ) = .TRUE. chem_dname_table( idomain, P_rn10ooh ) = 'rn10ooh' chem_desc_table( idomain, P_rn10ooh ) = 'RN10OOH concentration' chem_units_table( idomain, P_rn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rn10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10ooh )%stream(2) = 2097216 F_rn10ooh = .TRUE. IF ( chem_index_table( PARAM_rn13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ooh = chem_num_table(idomain) chem_index_table( PARAM_rn13ooh , idomain ) = P_rn13ooh ELSE P_rn13ooh = chem_index_table( PARAM_rn13ooh , idomain ) END IF chem_boundary_table( idomain, P_rn13ooh ) = .TRUE. chem_dname_table( idomain, P_rn13ooh ) = 'rn13ooh' chem_desc_table( idomain, P_rn13ooh ) = 'RN13OOH concentration' chem_units_table( idomain, P_rn13ooh ) = 'ppmv' chem_streams_table( idomain, P_rn13ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13ooh )%stream(2) = 2097216 F_rn13ooh = .TRUE. IF ( chem_index_table( PARAM_rn16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ooh = chem_num_table(idomain) chem_index_table( PARAM_rn16ooh , idomain ) = P_rn16ooh ELSE P_rn16ooh = chem_index_table( PARAM_rn16ooh , idomain ) END IF chem_boundary_table( idomain, P_rn16ooh ) = .TRUE. chem_dname_table( idomain, P_rn16ooh ) = 'rn16ooh' chem_desc_table( idomain, P_rn16ooh ) = 'RN16OOH concentration' chem_units_table( idomain, P_rn16ooh ) = 'ppmv' chem_streams_table( idomain, P_rn16ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16ooh )%stream(2) = 2097216 F_rn16ooh = .TRUE. IF ( chem_index_table( PARAM_rn19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19ooh = chem_num_table(idomain) chem_index_table( PARAM_rn19ooh , idomain ) = P_rn19ooh ELSE P_rn19ooh = chem_index_table( PARAM_rn19ooh , idomain ) END IF chem_boundary_table( idomain, P_rn19ooh ) = .TRUE. chem_dname_table( idomain, P_rn19ooh ) = 'rn19ooh' chem_desc_table( idomain, P_rn19ooh ) = 'RN19OOH concentration' chem_units_table( idomain, P_rn19ooh ) = 'ppmv' chem_streams_table( idomain, P_rn19ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19ooh )%stream(2) = 2097216 F_rn19ooh = .TRUE. IF ( chem_index_table( PARAM_rn8ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8ooh = chem_num_table(idomain) chem_index_table( PARAM_rn8ooh , idomain ) = P_rn8ooh ELSE P_rn8ooh = chem_index_table( PARAM_rn8ooh , idomain ) END IF chem_boundary_table( idomain, P_rn8ooh ) = .TRUE. chem_dname_table( idomain, P_rn8ooh ) = 'rn8ooh' chem_desc_table( idomain, P_rn8ooh ) = 'RN8OOH concentration' chem_units_table( idomain, P_rn8ooh ) = 'ppmv' chem_streams_table( idomain, P_rn8ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn8ooh )%stream(2) = 2097216 F_rn8ooh = .TRUE. IF ( chem_index_table( PARAM_rn11ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11ooh = chem_num_table(idomain) chem_index_table( PARAM_rn11ooh , idomain ) = P_rn11ooh ELSE P_rn11ooh = chem_index_table( PARAM_rn11ooh , idomain ) END IF chem_boundary_table( idomain, P_rn11ooh ) = .TRUE. chem_dname_table( idomain, P_rn11ooh ) = 'rn11ooh' chem_desc_table( idomain, P_rn11ooh ) = 'RN11OOH concentration' chem_units_table( idomain, P_rn11ooh ) = 'ppmv' chem_streams_table( idomain, P_rn11ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn11ooh )%stream(2) = 2097216 F_rn11ooh = .TRUE. IF ( chem_index_table( PARAM_rn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rn14ooh , idomain ) = P_rn14ooh ELSE P_rn14ooh = chem_index_table( PARAM_rn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rn14ooh ) = .TRUE. chem_dname_table( idomain, P_rn14ooh ) = 'rn14ooh' chem_desc_table( idomain, P_rn14ooh ) = 'RN14OOH concentration' chem_units_table( idomain, P_rn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rn14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn14ooh )%stream(2) = 2097216 F_rn14ooh = .TRUE. IF ( chem_index_table( PARAM_rn17ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17ooh = chem_num_table(idomain) chem_index_table( PARAM_rn17ooh , idomain ) = P_rn17ooh ELSE P_rn17ooh = chem_index_table( PARAM_rn17ooh , idomain ) END IF chem_boundary_table( idomain, P_rn17ooh ) = .TRUE. chem_dname_table( idomain, P_rn17ooh ) = 'rn17ooh' chem_desc_table( idomain, P_rn17ooh ) = 'RN17OOH concentration' chem_units_table( idomain, P_rn17ooh ) = 'ppmv' chem_streams_table( idomain, P_rn17ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn17ooh )%stream(2) = 2097216 F_rn17ooh = .TRUE. IF ( chem_index_table( PARAM_rn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9ooh = chem_num_table(idomain) chem_index_table( PARAM_rn9ooh , idomain ) = P_rn9ooh ELSE P_rn9ooh = chem_index_table( PARAM_rn9ooh , idomain ) END IF chem_boundary_table( idomain, P_rn9ooh ) = .TRUE. chem_dname_table( idomain, P_rn9ooh ) = 'rn9ooh' chem_desc_table( idomain, P_rn9ooh ) = 'RN9OOH concentration' chem_units_table( idomain, P_rn9ooh ) = 'ppmv' chem_streams_table( idomain, P_rn9ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9ooh )%stream(2) = 2097216 F_rn9ooh = .TRUE. IF ( chem_index_table( PARAM_rn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12ooh = chem_num_table(idomain) chem_index_table( PARAM_rn12ooh , idomain ) = P_rn12ooh ELSE P_rn12ooh = chem_index_table( PARAM_rn12ooh , idomain ) END IF chem_boundary_table( idomain, P_rn12ooh ) = .TRUE. chem_dname_table( idomain, P_rn12ooh ) = 'rn12ooh' chem_desc_table( idomain, P_rn12ooh ) = 'RN12OOH concentration' chem_units_table( idomain, P_rn12ooh ) = 'ppmv' chem_streams_table( idomain, P_rn12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12ooh )%stream(2) = 2097216 F_rn12ooh = .TRUE. IF ( chem_index_table( PARAM_rn15ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ooh = chem_num_table(idomain) chem_index_table( PARAM_rn15ooh , idomain ) = P_rn15ooh ELSE P_rn15ooh = chem_index_table( PARAM_rn15ooh , idomain ) END IF chem_boundary_table( idomain, P_rn15ooh ) = .TRUE. chem_dname_table( idomain, P_rn15ooh ) = 'rn15ooh' chem_desc_table( idomain, P_rn15ooh ) = 'RN15OOH concentration' chem_units_table( idomain, P_rn15ooh ) = 'ppmv' chem_streams_table( idomain, P_rn15ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15ooh )%stream(2) = 2097216 F_rn15ooh = .TRUE. IF ( chem_index_table( PARAM_rn18ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ooh = chem_num_table(idomain) chem_index_table( PARAM_rn18ooh , idomain ) = P_rn18ooh ELSE P_rn18ooh = chem_index_table( PARAM_rn18ooh , idomain ) END IF chem_boundary_table( idomain, P_rn18ooh ) = .TRUE. chem_dname_table( idomain, P_rn18ooh ) = 'rn18ooh' chem_desc_table( idomain, P_rn18ooh ) = 'RN18OOH concentration' chem_units_table( idomain, P_rn18ooh ) = 'ppmv' chem_streams_table( idomain, P_rn18ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18ooh )%stream(2) = 2097216 F_rn18ooh = .TRUE. IF ( chem_index_table( PARAM_nrn6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn6ooh , idomain ) = P_nrn6ooh ELSE P_nrn6ooh = chem_index_table( PARAM_nrn6ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn6ooh ) = .TRUE. chem_dname_table( idomain, P_nrn6ooh ) = 'nrn6ooh' chem_desc_table( idomain, P_nrn6ooh ) = 'NRN6OOH concentration' chem_units_table( idomain, P_nrn6ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn6ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn6ooh )%stream(2) = 2097216 F_nrn6ooh = .TRUE. IF ( chem_index_table( PARAM_nrn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn9ooh , idomain ) = P_nrn9ooh ELSE P_nrn9ooh = chem_index_table( PARAM_nrn9ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn9ooh ) = .TRUE. chem_dname_table( idomain, P_nrn9ooh ) = 'nrn9ooh' chem_desc_table( idomain, P_nrn9ooh ) = 'NRN9OOH concentration' chem_units_table( idomain, P_nrn9ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn9ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn9ooh )%stream(2) = 2097216 F_nrn9ooh = .TRUE. IF ( chem_index_table( PARAM_nrn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn12ooh , idomain ) = P_nrn12ooh ELSE P_nrn12ooh = chem_index_table( PARAM_nrn12ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn12ooh ) = .TRUE. chem_dname_table( idomain, P_nrn12ooh ) = 'nrn12ooh' chem_desc_table( idomain, P_nrn12ooh ) = 'NRN12OOH concentration' chem_units_table( idomain, P_nrn12ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn12ooh )%stream(2) = 2097216 F_nrn12ooh = .TRUE. IF ( chem_index_table( PARAM_apinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinene = chem_num_table(idomain) chem_index_table( PARAM_apinene , idomain ) = P_apinene ELSE P_apinene = chem_index_table( PARAM_apinene , idomain ) END IF chem_boundary_table( idomain, P_apinene ) = .TRUE. chem_dname_table( idomain, P_apinene ) = 'apinene' chem_desc_table( idomain, P_apinene ) = 'APINENE concentration' chem_units_table( idomain, P_apinene ) = 'ppmv' chem_streams_table( idomain, P_apinene )%stream(1) = 33554433 chem_streams_table( idomain, P_apinene )%stream(2) = 2097216 F_apinene = .TRUE. IF ( chem_index_table( PARAM_bpinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinene = chem_num_table(idomain) chem_index_table( PARAM_bpinene , idomain ) = P_bpinene ELSE P_bpinene = chem_index_table( PARAM_bpinene , idomain ) END IF chem_boundary_table( idomain, P_bpinene ) = .TRUE. chem_dname_table( idomain, P_bpinene ) = 'bpinene' chem_desc_table( idomain, P_bpinene ) = 'BPINENE concentration' chem_units_table( idomain, P_bpinene ) = 'ppmv' chem_streams_table( idomain, P_bpinene )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinene )%stream(2) = 2097216 F_bpinene = .TRUE. IF ( chem_index_table( PARAM_carb7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb7 = chem_num_table(idomain) chem_index_table( PARAM_carb7 , idomain ) = P_carb7 ELSE P_carb7 = chem_index_table( PARAM_carb7 , idomain ) END IF chem_boundary_table( idomain, P_carb7 ) = .TRUE. chem_dname_table( idomain, P_carb7 ) = 'carb7' chem_desc_table( idomain, P_carb7 ) = 'CARB7 concentration' chem_units_table( idomain, P_carb7 ) = 'ppmv' chem_streams_table( idomain, P_carb7 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb7 )%stream(2) = 2097216 F_carb7 = .TRUE. IF ( chem_index_table( PARAM_carb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb10 = chem_num_table(idomain) chem_index_table( PARAM_carb10 , idomain ) = P_carb10 ELSE P_carb10 = chem_index_table( PARAM_carb10 , idomain ) END IF chem_boundary_table( idomain, P_carb10 ) = .TRUE. chem_dname_table( idomain, P_carb10 ) = 'carb10' chem_desc_table( idomain, P_carb10 ) = 'CARB10 concentration' chem_units_table( idomain, P_carb10 ) = 'ppmv' chem_streams_table( idomain, P_carb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb10 )%stream(2) = 2097216 F_carb10 = .TRUE. IF ( chem_index_table( PARAM_carb13 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb13 = chem_num_table(idomain) chem_index_table( PARAM_carb13 , idomain ) = P_carb13 ELSE P_carb13 = chem_index_table( PARAM_carb13 , idomain ) END IF chem_boundary_table( idomain, P_carb13 ) = .TRUE. chem_dname_table( idomain, P_carb13 ) = 'carb13' chem_desc_table( idomain, P_carb13 ) = 'CARB13 concentration' chem_units_table( idomain, P_carb13 ) = 'ppmv' chem_streams_table( idomain, P_carb13 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb13 )%stream(2) = 2097216 F_carb13 = .TRUE. IF ( chem_index_table( PARAM_carb16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb16 = chem_num_table(idomain) chem_index_table( PARAM_carb16 , idomain ) = P_carb16 ELSE P_carb16 = chem_index_table( PARAM_carb16 , idomain ) END IF chem_boundary_table( idomain, P_carb16 ) = .TRUE. chem_dname_table( idomain, P_carb16 ) = 'carb16' chem_desc_table( idomain, P_carb16 ) = 'CARB16 concentration' chem_units_table( idomain, P_carb16 ) = 'ppmv' chem_streams_table( idomain, P_carb16 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb16 )%stream(2) = 2097216 F_carb16 = .TRUE. IF ( chem_index_table( PARAM_carb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb3 = chem_num_table(idomain) chem_index_table( PARAM_carb3 , idomain ) = P_carb3 ELSE P_carb3 = chem_index_table( PARAM_carb3 , idomain ) END IF chem_boundary_table( idomain, P_carb3 ) = .TRUE. chem_dname_table( idomain, P_carb3 ) = 'carb3' chem_desc_table( idomain, P_carb3 ) = 'CARB3 concentration' chem_units_table( idomain, P_carb3 ) = 'ppmv' chem_streams_table( idomain, P_carb3 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb3 )%stream(2) = 2097216 F_carb3 = .TRUE. IF ( chem_index_table( PARAM_carb6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb6 = chem_num_table(idomain) chem_index_table( PARAM_carb6 , idomain ) = P_carb6 ELSE P_carb6 = chem_index_table( PARAM_carb6 , idomain ) END IF chem_boundary_table( idomain, P_carb6 ) = .TRUE. chem_dname_table( idomain, P_carb6 ) = 'carb6' chem_desc_table( idomain, P_carb6 ) = 'CARB6 concentration' chem_units_table( idomain, P_carb6 ) = 'ppmv' chem_streams_table( idomain, P_carb6 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb6 )%stream(2) = 2097216 F_carb6 = .TRUE. IF ( chem_index_table( PARAM_carb9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb9 = chem_num_table(idomain) chem_index_table( PARAM_carb9 , idomain ) = P_carb9 ELSE P_carb9 = chem_index_table( PARAM_carb9 , idomain ) END IF chem_boundary_table( idomain, P_carb9 ) = .TRUE. chem_dname_table( idomain, P_carb9 ) = 'carb9' chem_desc_table( idomain, P_carb9 ) = 'CARB9 concentration' chem_units_table( idomain, P_carb9 ) = 'ppmv' chem_streams_table( idomain, P_carb9 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb9 )%stream(2) = 2097216 F_carb9 = .TRUE. IF ( chem_index_table( PARAM_carb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb12 = chem_num_table(idomain) chem_index_table( PARAM_carb12 , idomain ) = P_carb12 ELSE P_carb12 = chem_index_table( PARAM_carb12 , idomain ) END IF chem_boundary_table( idomain, P_carb12 ) = .TRUE. chem_dname_table( idomain, P_carb12 ) = 'carb12' chem_desc_table( idomain, P_carb12 ) = 'CARB12 concentration' chem_units_table( idomain, P_carb12 ) = 'ppmv' chem_streams_table( idomain, P_carb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb12 )%stream(2) = 2097216 F_carb12 = .TRUE. IF ( chem_index_table( PARAM_carb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb15 = chem_num_table(idomain) chem_index_table( PARAM_carb15 , idomain ) = P_carb15 ELSE P_carb15 = chem_index_table( PARAM_carb15 , idomain ) END IF chem_boundary_table( idomain, P_carb15 ) = .TRUE. chem_dname_table( idomain, P_carb15 ) = 'carb15' chem_desc_table( idomain, P_carb15 ) = 'CARB15 concentration' chem_units_table( idomain, P_carb15 ) = 'ppmv' chem_streams_table( idomain, P_carb15 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb15 )%stream(2) = 2097216 F_carb15 = .TRUE. IF ( chem_index_table( PARAM_c2h5co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3h = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3h , idomain ) = P_c2h5co3h ELSE P_c2h5co3h = chem_index_table( PARAM_c2h5co3h , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3h ) = .TRUE. chem_dname_table( idomain, P_c2h5co3h ) = 'c2h5co3h' chem_desc_table( idomain, P_c2h5co3h ) = 'C2H5CO3H concentration' chem_units_table( idomain, P_c2h5co3h ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3h )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5co3h )%stream(2) = 2097216 F_c2h5co3h = .TRUE. IF ( chem_index_table( PARAM_c2h5co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3 , idomain ) = P_c2h5co3 ELSE P_c2h5co3 = chem_index_table( PARAM_c2h5co3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3 ) = .TRUE. chem_dname_table( idomain, P_c2h5co3 ) = 'c2h5co3' chem_desc_table( idomain, P_c2h5co3 ) = 'C2H5CO3 concentration' chem_units_table( idomain, P_c2h5co3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5co3 )%stream(2) = 2097216 F_c2h5co3 = .TRUE. IF ( chem_index_table( PARAM_ppn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ppn = chem_num_table(idomain) chem_index_table( PARAM_ppn , idomain ) = P_ppn ELSE P_ppn = chem_index_table( PARAM_ppn , idomain ) END IF chem_boundary_table( idomain, P_ppn ) = .TRUE. chem_dname_table( idomain, P_ppn ) = 'ppn' chem_desc_table( idomain, P_ppn ) = 'PPN concentration' chem_units_table( idomain, P_ppn ) = 'ppmv' chem_streams_table( idomain, P_ppn )%stream(1) = 33554433 chem_streams_table( idomain, P_ppn )%stream(2) = 2097216 F_ppn = .TRUE. IF ( chem_index_table( PARAM_hoch2cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2cho = chem_num_table(idomain) chem_index_table( PARAM_hoch2cho , idomain ) = P_hoch2cho ELSE P_hoch2cho = chem_index_table( PARAM_hoch2cho , idomain ) END IF chem_boundary_table( idomain, P_hoch2cho ) = .TRUE. chem_dname_table( idomain, P_hoch2cho ) = 'hoch2cho' chem_desc_table( idomain, P_hoch2cho ) = 'HOCH2CHO concentration' chem_units_table( idomain, P_hoch2cho ) = 'ppmv' chem_streams_table( idomain, P_hoch2cho )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2cho )%stream(2) = 2097216 F_hoch2cho = .TRUE. IF ( chem_index_table( PARAM_hoch2co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3 = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3 , idomain ) = P_hoch2co3 ELSE P_hoch2co3 = chem_index_table( PARAM_hoch2co3 , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3 ) = .TRUE. chem_dname_table( idomain, P_hoch2co3 ) = 'hoch2co3' chem_desc_table( idomain, P_hoch2co3 ) = 'HOCH2CO3 concentration' chem_units_table( idomain, P_hoch2co3 ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2co3 )%stream(2) = 2097216 F_hoch2co3 = .TRUE. IF ( chem_index_table( PARAM_hoch2co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3h = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3h , idomain ) = P_hoch2co3h ELSE P_hoch2co3h = chem_index_table( PARAM_hoch2co3h , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3h ) = .TRUE. chem_dname_table( idomain, P_hoch2co3h ) = 'hoch2co3h' chem_desc_table( idomain, P_hoch2co3h ) = 'HOCH2CO3H concentration' chem_units_table( idomain, P_hoch2co3h ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3h )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2co3h )%stream(2) = 2097216 F_hoch2co3h = .TRUE. IF ( chem_index_table( PARAM_phan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phan = chem_num_table(idomain) chem_index_table( PARAM_phan , idomain ) = P_phan ELSE P_phan = chem_index_table( PARAM_phan , idomain ) END IF chem_boundary_table( idomain, P_phan ) = .TRUE. chem_dname_table( idomain, P_phan ) = 'phan' chem_desc_table( idomain, P_phan ) = 'PHAN concentration' chem_units_table( idomain, P_phan ) = 'ppmv' chem_streams_table( idomain, P_phan )%stream(1) = 33554433 chem_streams_table( idomain, P_phan )%stream(2) = 2097216 F_phan = .TRUE. IF ( chem_index_table( PARAM_ccarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccarb12 = chem_num_table(idomain) chem_index_table( PARAM_ccarb12 , idomain ) = P_ccarb12 ELSE P_ccarb12 = chem_index_table( PARAM_ccarb12 , idomain ) END IF chem_boundary_table( idomain, P_ccarb12 ) = .TRUE. chem_dname_table( idomain, P_ccarb12 ) = 'ccarb12' chem_desc_table( idomain, P_ccarb12 ) = 'CCARB12 concentration' chem_units_table( idomain, P_ccarb12 ) = 'ppmv' chem_streams_table( idomain, P_ccarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_ccarb12 )%stream(2) = 2097216 F_ccarb12 = .TRUE. IF ( chem_index_table( PARAM_ch3cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cl = chem_num_table(idomain) chem_index_table( PARAM_ch3cl , idomain ) = P_ch3cl ELSE P_ch3cl = chem_index_table( PARAM_ch3cl , idomain ) END IF chem_boundary_table( idomain, P_ch3cl ) = .TRUE. chem_dname_table( idomain, P_ch3cl ) = 'ch3cl' chem_desc_table( idomain, P_ch3cl ) = 'CH3CL concentration' chem_units_table( idomain, P_ch3cl ) = 'ppmv' chem_streams_table( idomain, P_ch3cl )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cl )%stream(2) = 2097216 F_ch3cl = .TRUE. IF ( chem_index_table( PARAM_ch2cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch2cl2 = chem_num_table(idomain) chem_index_table( PARAM_ch2cl2 , idomain ) = P_ch2cl2 ELSE P_ch2cl2 = chem_index_table( PARAM_ch2cl2 , idomain ) END IF chem_boundary_table( idomain, P_ch2cl2 ) = .TRUE. chem_dname_table( idomain, P_ch2cl2 ) = 'ch2cl2' chem_desc_table( idomain, P_ch2cl2 ) = 'CH2CL2 concentration' chem_units_table( idomain, P_ch2cl2 ) = 'ppmv' chem_streams_table( idomain, P_ch2cl2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch2cl2 )%stream(2) = 2097216 F_ch2cl2 = .TRUE. IF ( chem_index_table( PARAM_chcl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_chcl3 = chem_num_table(idomain) chem_index_table( PARAM_chcl3 , idomain ) = P_chcl3 ELSE P_chcl3 = chem_index_table( PARAM_chcl3 , idomain ) END IF chem_boundary_table( idomain, P_chcl3 ) = .TRUE. chem_dname_table( idomain, P_chcl3 ) = 'chcl3' chem_desc_table( idomain, P_chcl3 ) = 'CHCL3 concentration' chem_units_table( idomain, P_chcl3 ) = 'ppmv' chem_streams_table( idomain, P_chcl3 )%stream(1) = 33554433 chem_streams_table( idomain, P_chcl3 )%stream(2) = 2097216 F_chcl3 = .TRUE. IF ( chem_index_table( PARAM_ch3ccl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ccl3 = chem_num_table(idomain) chem_index_table( PARAM_ch3ccl3 , idomain ) = P_ch3ccl3 ELSE P_ch3ccl3 = chem_index_table( PARAM_ch3ccl3 , idomain ) END IF chem_boundary_table( idomain, P_ch3ccl3 ) = .TRUE. chem_dname_table( idomain, P_ch3ccl3 ) = 'ch3ccl3' chem_desc_table( idomain, P_ch3ccl3 ) = 'CH3CCL3 concentration' chem_units_table( idomain, P_ch3ccl3 ) = 'ppmv' chem_streams_table( idomain, P_ch3ccl3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ccl3 )%stream(2) = 2097216 F_ch3ccl3 = .TRUE. IF ( chem_index_table( PARAM_cdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cdicleth = chem_num_table(idomain) chem_index_table( PARAM_cdicleth , idomain ) = P_cdicleth ELSE P_cdicleth = chem_index_table( PARAM_cdicleth , idomain ) END IF chem_boundary_table( idomain, P_cdicleth ) = .TRUE. chem_dname_table( idomain, P_cdicleth ) = 'cdicleth' chem_desc_table( idomain, P_cdicleth ) = 'CDICLETH concentration' chem_units_table( idomain, P_cdicleth ) = 'ppmv' chem_streams_table( idomain, P_cdicleth )%stream(1) = 33554433 chem_streams_table( idomain, P_cdicleth )%stream(2) = 2097216 F_cdicleth = .TRUE. IF ( chem_index_table( PARAM_tdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tdicleth = chem_num_table(idomain) chem_index_table( PARAM_tdicleth , idomain ) = P_tdicleth ELSE P_tdicleth = chem_index_table( PARAM_tdicleth , idomain ) END IF chem_boundary_table( idomain, P_tdicleth ) = .TRUE. chem_dname_table( idomain, P_tdicleth ) = 'tdicleth' chem_desc_table( idomain, P_tdicleth ) = 'TDICLETH concentration' chem_units_table( idomain, P_tdicleth ) = 'ppmv' chem_streams_table( idomain, P_tdicleth )%stream(1) = 33554433 chem_streams_table( idomain, P_tdicleth )%stream(2) = 2097216 F_tdicleth = .TRUE. IF ( chem_index_table( PARAM_tricleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tricleth = chem_num_table(idomain) chem_index_table( PARAM_tricleth , idomain ) = P_tricleth ELSE P_tricleth = chem_index_table( PARAM_tricleth , idomain ) END IF chem_boundary_table( idomain, P_tricleth ) = .TRUE. chem_dname_table( idomain, P_tricleth ) = 'tricleth' chem_desc_table( idomain, P_tricleth ) = 'TRICLETH concentration' chem_units_table( idomain, P_tricleth ) = 'ppmv' chem_streams_table( idomain, P_tricleth )%stream(1) = 33554433 chem_streams_table( idomain, P_tricleth )%stream(2) = 2097216 F_tricleth = .TRUE. IF ( chem_index_table( PARAM_tce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tce = chem_num_table(idomain) chem_index_table( PARAM_tce , idomain ) = P_tce ELSE P_tce = chem_index_table( PARAM_tce , idomain ) END IF chem_boundary_table( idomain, P_tce ) = .TRUE. chem_dname_table( idomain, P_tce ) = 'tce' chem_desc_table( idomain, P_tce ) = 'TCE concentration' chem_units_table( idomain, P_tce ) = 'ppmv' chem_streams_table( idomain, P_tce )%stream(1) = 33554433 chem_streams_table( idomain, P_tce )%stream(2) = 2097216 F_tce = .TRUE. IF ( chem_index_table( PARAM_ucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb12 = chem_num_table(idomain) chem_index_table( PARAM_ucarb12 , idomain ) = P_ucarb12 ELSE P_ucarb12 = chem_index_table( PARAM_ucarb12 , idomain ) END IF chem_boundary_table( idomain, P_ucarb12 ) = .TRUE. chem_dname_table( idomain, P_ucarb12 ) = 'ucarb12' chem_desc_table( idomain, P_ucarb12 ) = 'UCARB12 concentration' chem_units_table( idomain, P_ucarb12 ) = 'ppmv' chem_streams_table( idomain, P_ucarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_ucarb12 )%stream(2) = 2097216 F_ucarb12 = .TRUE. IF ( chem_index_table( PARAM_ucarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb10 = chem_num_table(idomain) chem_index_table( PARAM_ucarb10 , idomain ) = P_ucarb10 ELSE P_ucarb10 = chem_index_table( PARAM_ucarb10 , idomain ) END IF chem_boundary_table( idomain, P_ucarb10 ) = .TRUE. chem_dname_table( idomain, P_ucarb10 ) = 'ucarb10' chem_desc_table( idomain, P_ucarb10 ) = 'UCARB10 concentration' chem_units_table( idomain, P_ucarb10 ) = 'ppmv' chem_streams_table( idomain, P_ucarb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_ucarb10 )%stream(2) = 2097216 F_ucarb10 = .TRUE. IF ( chem_index_table( PARAM_ru14no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14no3 = chem_num_table(idomain) chem_index_table( PARAM_ru14no3 , idomain ) = P_ru14no3 ELSE P_ru14no3 = chem_index_table( PARAM_ru14no3 , idomain ) END IF chem_boundary_table( idomain, P_ru14no3 ) = .TRUE. chem_dname_table( idomain, P_ru14no3 ) = 'ru14no3' chem_desc_table( idomain, P_ru14no3 ) = 'RU14NO3 concentration' chem_units_table( idomain, P_ru14no3 ) = 'ppmv' chem_streams_table( idomain, P_ru14no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14no3 )%stream(2) = 2097216 F_ru14no3 = .TRUE. IF ( chem_index_table( PARAM_ru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14ooh = chem_num_table(idomain) chem_index_table( PARAM_ru14ooh , idomain ) = P_ru14ooh ELSE P_ru14ooh = chem_index_table( PARAM_ru14ooh , idomain ) END IF chem_boundary_table( idomain, P_ru14ooh ) = .TRUE. chem_dname_table( idomain, P_ru14ooh ) = 'ru14ooh' chem_desc_table( idomain, P_ru14ooh ) = 'RU14OOH concentration' chem_units_table( idomain, P_ru14ooh ) = 'ppmv' chem_streams_table( idomain, P_ru14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14ooh )%stream(2) = 2097216 F_ru14ooh = .TRUE. IF ( chem_index_table( PARAM_ru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12ooh = chem_num_table(idomain) chem_index_table( PARAM_ru12ooh , idomain ) = P_ru12ooh ELSE P_ru12ooh = chem_index_table( PARAM_ru12ooh , idomain ) END IF chem_boundary_table( idomain, P_ru12ooh ) = .TRUE. chem_dname_table( idomain, P_ru12ooh ) = 'ru12ooh' chem_desc_table( idomain, P_ru12ooh ) = 'RU12OOH concentration' chem_units_table( idomain, P_ru12ooh ) = 'ppmv' chem_streams_table( idomain, P_ru12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12ooh )%stream(2) = 2097216 F_ru12ooh = .TRUE. IF ( chem_index_table( PARAM_ru10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10ooh = chem_num_table(idomain) chem_index_table( PARAM_ru10ooh , idomain ) = P_ru10ooh ELSE P_ru10ooh = chem_index_table( PARAM_ru10ooh , idomain ) END IF chem_boundary_table( idomain, P_ru10ooh ) = .TRUE. chem_dname_table( idomain, P_ru10ooh ) = 'ru10ooh' chem_desc_table( idomain, P_ru10ooh ) = 'RU10OOH concentration' chem_units_table( idomain, P_ru10ooh ) = 'ppmv' chem_streams_table( idomain, P_ru10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru10ooh )%stream(2) = 2097216 F_ru10ooh = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_ru12pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12pan = chem_num_table(idomain) chem_index_table( PARAM_ru12pan , idomain ) = P_ru12pan ELSE P_ru12pan = chem_index_table( PARAM_ru12pan , idomain ) END IF chem_boundary_table( idomain, P_ru12pan ) = .TRUE. chem_dname_table( idomain, P_ru12pan ) = 'ru12pan' chem_desc_table( idomain, P_ru12pan ) = 'RU12PAN concentration' chem_units_table( idomain, P_ru12pan ) = 'ppmv' chem_streams_table( idomain, P_ru12pan )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12pan )%stream(2) = 2097216 F_ru12pan = .TRUE. IF ( chem_index_table( PARAM_nucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nucarb12 = chem_num_table(idomain) chem_index_table( PARAM_nucarb12 , idomain ) = P_nucarb12 ELSE P_nucarb12 = chem_index_table( PARAM_nucarb12 , idomain ) END IF chem_boundary_table( idomain, P_nucarb12 ) = .TRUE. chem_dname_table( idomain, P_nucarb12 ) = 'nucarb12' chem_desc_table( idomain, P_nucarb12 ) = 'NUCARB12 concentration' chem_units_table( idomain, P_nucarb12 ) = 'ppmv' chem_streams_table( idomain, P_nucarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_nucarb12 )%stream(2) = 2097216 F_nucarb12 = .TRUE. IF ( chem_index_table( PARAM_nru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14ooh = chem_num_table(idomain) chem_index_table( PARAM_nru14ooh , idomain ) = P_nru14ooh ELSE P_nru14ooh = chem_index_table( PARAM_nru14ooh , idomain ) END IF chem_boundary_table( idomain, P_nru14ooh ) = .TRUE. chem_dname_table( idomain, P_nru14ooh ) = 'nru14ooh' chem_desc_table( idomain, P_nru14ooh ) = 'NRU14OOH concentration' chem_units_table( idomain, P_nru14ooh ) = 'ppmv' chem_streams_table( idomain, P_nru14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nru14ooh )%stream(2) = 2097216 F_nru14ooh = .TRUE. IF ( chem_index_table( PARAM_nru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12ooh = chem_num_table(idomain) chem_index_table( PARAM_nru12ooh , idomain ) = P_nru12ooh ELSE P_nru12ooh = chem_index_table( PARAM_nru12ooh , idomain ) END IF chem_boundary_table( idomain, P_nru12ooh ) = .TRUE. chem_dname_table( idomain, P_nru12ooh ) = 'nru12ooh' chem_desc_table( idomain, P_nru12ooh ) = 'NRU12OOH concentration' chem_units_table( idomain, P_nru12ooh ) = 'ppmv' chem_streams_table( idomain, P_nru12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nru12ooh )%stream(2) = 2097216 F_nru12ooh = .TRUE. IF ( chem_index_table( PARAM_noa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_noa = chem_num_table(idomain) chem_index_table( PARAM_noa , idomain ) = P_noa ELSE P_noa = chem_index_table( PARAM_noa , idomain ) END IF chem_boundary_table( idomain, P_noa ) = .TRUE. chem_dname_table( idomain, P_noa ) = 'noa' chem_desc_table( idomain, P_noa ) = 'NOA concentration' chem_units_table( idomain, P_noa ) = 'ppmv' chem_streams_table( idomain, P_noa )%stream(1) = 33554433 chem_streams_table( idomain, P_noa )%stream(2) = 2097216 F_noa = .TRUE. IF ( chem_index_table( PARAM_ra13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13no3 = chem_num_table(idomain) chem_index_table( PARAM_ra13no3 , idomain ) = P_ra13no3 ELSE P_ra13no3 = chem_index_table( PARAM_ra13no3 , idomain ) END IF chem_boundary_table( idomain, P_ra13no3 ) = .TRUE. chem_dname_table( idomain, P_ra13no3 ) = 'ra13no3' chem_desc_table( idomain, P_ra13no3 ) = 'RA13NO3 concentration' chem_units_table( idomain, P_ra13no3 ) = 'ppmv' chem_streams_table( idomain, P_ra13no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13no3 )%stream(2) = 2097216 F_ra13no3 = .TRUE. IF ( chem_index_table( PARAM_ra13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13ooh = chem_num_table(idomain) chem_index_table( PARAM_ra13ooh , idomain ) = P_ra13ooh ELSE P_ra13ooh = chem_index_table( PARAM_ra13ooh , idomain ) END IF chem_boundary_table( idomain, P_ra13ooh ) = .TRUE. chem_dname_table( idomain, P_ra13ooh ) = 'ra13ooh' chem_desc_table( idomain, P_ra13ooh ) = 'RA13OOH concentration' chem_units_table( idomain, P_ra13ooh ) = 'ppmv' chem_streams_table( idomain, P_ra13ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13ooh )%stream(2) = 2097216 F_ra13ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb8 = chem_num_table(idomain) chem_index_table( PARAM_udcarb8 , idomain ) = P_udcarb8 ELSE P_udcarb8 = chem_index_table( PARAM_udcarb8 , idomain ) END IF chem_boundary_table( idomain, P_udcarb8 ) = .TRUE. chem_dname_table( idomain, P_udcarb8 ) = 'udcarb8' chem_desc_table( idomain, P_udcarb8 ) = 'UDCARB8 concentration' chem_units_table( idomain, P_udcarb8 ) = 'ppmv' chem_streams_table( idomain, P_udcarb8 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb8 )%stream(2) = 2097216 F_udcarb8 = .TRUE. IF ( chem_index_table( PARAM_aroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh14 = chem_num_table(idomain) chem_index_table( PARAM_aroh14 , idomain ) = P_aroh14 ELSE P_aroh14 = chem_index_table( PARAM_aroh14 , idomain ) END IF chem_boundary_table( idomain, P_aroh14 ) = .TRUE. chem_dname_table( idomain, P_aroh14 ) = 'aroh14' chem_desc_table( idomain, P_aroh14 ) = 'AROH14 concentration' chem_units_table( idomain, P_aroh14 ) = 'ppmv' chem_streams_table( idomain, P_aroh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_aroh14 )%stream(2) = 2097216 F_aroh14 = .TRUE. IF ( chem_index_table( PARAM_raroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh14 = chem_num_table(idomain) chem_index_table( PARAM_raroh14 , idomain ) = P_raroh14 ELSE P_raroh14 = chem_index_table( PARAM_raroh14 , idomain ) END IF chem_boundary_table( idomain, P_raroh14 ) = .TRUE. chem_dname_table( idomain, P_raroh14 ) = 'raroh14' chem_desc_table( idomain, P_raroh14 ) = 'RAROH14 concentration' chem_units_table( idomain, P_raroh14 ) = 'ppmv' chem_streams_table( idomain, P_raroh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_raroh14 )%stream(2) = 2097216 F_raroh14 = .TRUE. IF ( chem_index_table( PARAM_arnoh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh14 = chem_num_table(idomain) chem_index_table( PARAM_arnoh14 , idomain ) = P_arnoh14 ELSE P_arnoh14 = chem_index_table( PARAM_arnoh14 , idomain ) END IF chem_boundary_table( idomain, P_arnoh14 ) = .TRUE. chem_dname_table( idomain, P_arnoh14 ) = 'arnoh14' chem_desc_table( idomain, P_arnoh14 ) = 'ARNOH14 concentration' chem_units_table( idomain, P_arnoh14 ) = 'ppmv' chem_streams_table( idomain, P_arnoh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_arnoh14 )%stream(2) = 2097216 F_arnoh14 = .TRUE. IF ( chem_index_table( PARAM_ra16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16no3 = chem_num_table(idomain) chem_index_table( PARAM_ra16no3 , idomain ) = P_ra16no3 ELSE P_ra16no3 = chem_index_table( PARAM_ra16no3 , idomain ) END IF chem_boundary_table( idomain, P_ra16no3 ) = .TRUE. chem_dname_table( idomain, P_ra16no3 ) = 'ra16no3' chem_desc_table( idomain, P_ra16no3 ) = 'RA16NO3 concentration' chem_units_table( idomain, P_ra16no3 ) = 'ppmv' chem_streams_table( idomain, P_ra16no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16no3 )%stream(2) = 2097216 F_ra16no3 = .TRUE. IF ( chem_index_table( PARAM_ra16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16ooh = chem_num_table(idomain) chem_index_table( PARAM_ra16ooh , idomain ) = P_ra16ooh ELSE P_ra16ooh = chem_index_table( PARAM_ra16ooh , idomain ) END IF chem_boundary_table( idomain, P_ra16ooh ) = .TRUE. chem_dname_table( idomain, P_ra16ooh ) = 'ra16ooh' chem_desc_table( idomain, P_ra16ooh ) = 'RA16OOH concentration' chem_units_table( idomain, P_ra16ooh ) = 'ppmv' chem_streams_table( idomain, P_ra16ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16ooh )%stream(2) = 2097216 F_ra16ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb11 = chem_num_table(idomain) chem_index_table( PARAM_udcarb11 , idomain ) = P_udcarb11 ELSE P_udcarb11 = chem_index_table( PARAM_udcarb11 , idomain ) END IF chem_boundary_table( idomain, P_udcarb11 ) = .TRUE. chem_dname_table( idomain, P_udcarb11 ) = 'udcarb11' chem_desc_table( idomain, P_udcarb11 ) = 'UDCARB11 concentration' chem_units_table( idomain, P_udcarb11 ) = 'ppmv' chem_streams_table( idomain, P_udcarb11 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb11 )%stream(2) = 2097216 F_udcarb11 = .TRUE. IF ( chem_index_table( PARAM_aroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh17 = chem_num_table(idomain) chem_index_table( PARAM_aroh17 , idomain ) = P_aroh17 ELSE P_aroh17 = chem_index_table( PARAM_aroh17 , idomain ) END IF chem_boundary_table( idomain, P_aroh17 ) = .TRUE. chem_dname_table( idomain, P_aroh17 ) = 'aroh17' chem_desc_table( idomain, P_aroh17 ) = 'AROH17 concentration' chem_units_table( idomain, P_aroh17 ) = 'ppmv' chem_streams_table( idomain, P_aroh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_aroh17 )%stream(2) = 2097216 F_aroh17 = .TRUE. IF ( chem_index_table( PARAM_raroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh17 = chem_num_table(idomain) chem_index_table( PARAM_raroh17 , idomain ) = P_raroh17 ELSE P_raroh17 = chem_index_table( PARAM_raroh17 , idomain ) END IF chem_boundary_table( idomain, P_raroh17 ) = .TRUE. chem_dname_table( idomain, P_raroh17 ) = 'raroh17' chem_desc_table( idomain, P_raroh17 ) = 'RAROH17 concentration' chem_units_table( idomain, P_raroh17 ) = 'ppmv' chem_streams_table( idomain, P_raroh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_raroh17 )%stream(2) = 2097216 F_raroh17 = .TRUE. IF ( chem_index_table( PARAM_arnoh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh17 = chem_num_table(idomain) chem_index_table( PARAM_arnoh17 , idomain ) = P_arnoh17 ELSE P_arnoh17 = chem_index_table( PARAM_arnoh17 , idomain ) END IF chem_boundary_table( idomain, P_arnoh17 ) = .TRUE. chem_dname_table( idomain, P_arnoh17 ) = 'arnoh17' chem_desc_table( idomain, P_arnoh17 ) = 'ARNOH17 concentration' chem_units_table( idomain, P_arnoh17 ) = 'ppmv' chem_streams_table( idomain, P_arnoh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_arnoh17 )%stream(2) = 2097216 F_arnoh17 = .TRUE. IF ( chem_index_table( PARAM_udcarb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb14 = chem_num_table(idomain) chem_index_table( PARAM_udcarb14 , idomain ) = P_udcarb14 ELSE P_udcarb14 = chem_index_table( PARAM_udcarb14 , idomain ) END IF chem_boundary_table( idomain, P_udcarb14 ) = .TRUE. chem_dname_table( idomain, P_udcarb14 ) = 'udcarb14' chem_desc_table( idomain, P_udcarb14 ) = 'UDCARB14 concentration' chem_units_table( idomain, P_udcarb14 ) = 'ppmv' chem_streams_table( idomain, P_udcarb14 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb14 )%stream(2) = 2097216 F_udcarb14 = .TRUE. IF ( chem_index_table( PARAM_ra19co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19co2 = chem_num_table(idomain) chem_index_table( PARAM_ra19co2 , idomain ) = P_ra19co2 ELSE P_ra19co2 = chem_index_table( PARAM_ra19co2 , idomain ) END IF chem_boundary_table( idomain, P_ra19co2 ) = .TRUE. chem_dname_table( idomain, P_ra19co2 ) = 'ra19co2' chem_desc_table( idomain, P_ra19co2 ) = 'RA19CO2 concentration' chem_units_table( idomain, P_ra19co2 ) = 'ppmv' chem_streams_table( idomain, P_ra19co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19co2 )%stream(2) = 2097216 F_ra19co2 = .TRUE. IF ( chem_index_table( PARAM_ra19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19no3 = chem_num_table(idomain) chem_index_table( PARAM_ra19no3 , idomain ) = P_ra19no3 ELSE P_ra19no3 = chem_index_table( PARAM_ra19no3 , idomain ) END IF chem_boundary_table( idomain, P_ra19no3 ) = .TRUE. chem_dname_table( idomain, P_ra19no3 ) = 'ra19no3' chem_desc_table( idomain, P_ra19no3 ) = 'RA19NO3 concentration' chem_units_table( idomain, P_ra19no3 ) = 'ppmv' chem_streams_table( idomain, P_ra19no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19no3 )%stream(2) = 2097216 F_ra19no3 = .TRUE. IF ( chem_index_table( PARAM_ra19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ooh = chem_num_table(idomain) chem_index_table( PARAM_ra19ooh , idomain ) = P_ra19ooh ELSE P_ra19ooh = chem_index_table( PARAM_ra19ooh , idomain ) END IF chem_boundary_table( idomain, P_ra19ooh ) = .TRUE. chem_dname_table( idomain, P_ra19ooh ) = 'ra19ooh' chem_desc_table( idomain, P_ra19ooh ) = 'RA19OOH concentration' chem_units_table( idomain, P_ra19ooh ) = 'ppmv' chem_streams_table( idomain, P_ra19ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19ooh )%stream(2) = 2097216 F_ra19ooh = .TRUE. IF ( chem_index_table( PARAM_rtn28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn28no3 , idomain ) = P_rtn28no3 ELSE P_rtn28no3 = chem_index_table( PARAM_rtn28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn28no3 ) = .TRUE. chem_dname_table( idomain, P_rtn28no3 ) = 'rtn28no3' chem_desc_table( idomain, P_rtn28no3 ) = 'RTN28NO3 concentration' chem_units_table( idomain, P_rtn28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn28no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28no3 )%stream(2) = 2097216 F_rtn28no3 = .TRUE. IF ( chem_index_table( PARAM_rtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn28ooh , idomain ) = P_rtn28ooh ELSE P_rtn28ooh = chem_index_table( PARAM_rtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn28ooh ) = .TRUE. chem_dname_table( idomain, P_rtn28ooh ) = 'rtn28ooh' chem_desc_table( idomain, P_rtn28ooh ) = 'RTN28OOH concentration' chem_units_table( idomain, P_rtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28ooh )%stream(2) = 2097216 F_rtn28ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb26 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb26 = chem_num_table(idomain) chem_index_table( PARAM_tncarb26 , idomain ) = P_tncarb26 ELSE P_tncarb26 = chem_index_table( PARAM_tncarb26 , idomain ) END IF chem_boundary_table( idomain, P_tncarb26 ) = .TRUE. chem_dname_table( idomain, P_tncarb26 ) = 'tncarb26' chem_desc_table( idomain, P_tncarb26 ) = 'TNCARB26 concentration' chem_units_table( idomain, P_tncarb26 ) = 'ppmv' chem_streams_table( idomain, P_tncarb26 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb26 )%stream(2) = 2097216 F_tncarb26 = .TRUE. IF ( chem_index_table( PARAM_rtn26ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn26ooh , idomain ) = P_rtn26ooh ELSE P_rtn26ooh = chem_index_table( PARAM_rtn26ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn26ooh ) = .TRUE. chem_dname_table( idomain, P_rtn26ooh ) = 'rtn26ooh' chem_desc_table( idomain, P_rtn26ooh ) = 'RTN26OOH concentration' chem_units_table( idomain, P_rtn26ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn26ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26ooh )%stream(2) = 2097216 F_rtn26ooh = .TRUE. IF ( chem_index_table( PARAM_nrtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtn28ooh , idomain ) = P_nrtn28ooh ELSE P_nrtn28ooh = chem_index_table( PARAM_nrtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtn28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtn28ooh ) = 'nrtn28ooh' chem_desc_table( idomain, P_nrtn28ooh ) = 'NRTN28OOH concentration' chem_units_table( idomain, P_nrtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtn28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtn28ooh )%stream(2) = 2097216 F_nrtn28ooh = .TRUE. IF ( chem_index_table( PARAM_rtn26pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26pan = chem_num_table(idomain) chem_index_table( PARAM_rtn26pan , idomain ) = P_rtn26pan ELSE P_rtn26pan = chem_index_table( PARAM_rtn26pan , idomain ) END IF chem_boundary_table( idomain, P_rtn26pan ) = .TRUE. chem_dname_table( idomain, P_rtn26pan ) = 'rtn26pan' chem_desc_table( idomain, P_rtn26pan ) = 'RTN26PAN concentration' chem_units_table( idomain, P_rtn26pan ) = 'ppmv' chem_streams_table( idomain, P_rtn26pan )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26pan )%stream(2) = 2097216 F_rtn26pan = .TRUE. IF ( chem_index_table( PARAM_rtn25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn25ooh , idomain ) = P_rtn25ooh ELSE P_rtn25ooh = chem_index_table( PARAM_rtn25ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn25ooh ) = .TRUE. chem_dname_table( idomain, P_rtn25ooh ) = 'rtn25ooh' chem_desc_table( idomain, P_rtn25ooh ) = 'RTN25OOH concentration' chem_units_table( idomain, P_rtn25ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn25ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25ooh )%stream(2) = 2097216 F_rtn25ooh = .TRUE. IF ( chem_index_table( PARAM_rtn24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn24ooh , idomain ) = P_rtn24ooh ELSE P_rtn24ooh = chem_index_table( PARAM_rtn24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn24ooh ) = .TRUE. chem_dname_table( idomain, P_rtn24ooh ) = 'rtn24ooh' chem_desc_table( idomain, P_rtn24ooh ) = 'RTN24OOH concentration' chem_units_table( idomain, P_rtn24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn24ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn24ooh )%stream(2) = 2097216 F_rtn24ooh = .TRUE. IF ( chem_index_table( PARAM_rtn23ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn23ooh , idomain ) = P_rtn23ooh ELSE P_rtn23ooh = chem_index_table( PARAM_rtn23ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn23ooh ) = .TRUE. chem_dname_table( idomain, P_rtn23ooh ) = 'rtn23ooh' chem_desc_table( idomain, P_rtn23ooh ) = 'RTN23OOH concentration' chem_units_table( idomain, P_rtn23ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn23ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23ooh )%stream(2) = 2097216 F_rtn23ooh = .TRUE. IF ( chem_index_table( PARAM_rtn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn14ooh , idomain ) = P_rtn14ooh ELSE P_rtn14ooh = chem_index_table( PARAM_rtn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn14ooh ) = .TRUE. chem_dname_table( idomain, P_rtn14ooh ) = 'rtn14ooh' chem_desc_table( idomain, P_rtn14ooh ) = 'RTN14OOH concentration' chem_units_table( idomain, P_rtn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn14ooh )%stream(2) = 2097216 F_rtn14ooh = .TRUE. IF ( chem_index_table( PARAM_rtn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn10ooh , idomain ) = P_rtn10ooh ELSE P_rtn10ooh = chem_index_table( PARAM_rtn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn10ooh ) = .TRUE. chem_dname_table( idomain, P_rtn10ooh ) = 'rtn10ooh' chem_desc_table( idomain, P_rtn10ooh ) = 'RTN10OOH concentration' chem_units_table( idomain, P_rtn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn10ooh )%stream(2) = 2097216 F_rtn10ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb10 = chem_num_table(idomain) chem_index_table( PARAM_tncarb10 , idomain ) = P_tncarb10 ELSE P_tncarb10 = chem_index_table( PARAM_tncarb10 , idomain ) END IF chem_boundary_table( idomain, P_tncarb10 ) = .TRUE. chem_dname_table( idomain, P_tncarb10 ) = 'tncarb10' chem_desc_table( idomain, P_tncarb10 ) = 'TNCARB10 concentration' chem_units_table( idomain, P_tncarb10 ) = 'ppmv' chem_streams_table( idomain, P_tncarb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb10 )%stream(2) = 2097216 F_tncarb10 = .TRUE. IF ( chem_index_table( PARAM_rtn25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn25no3 , idomain ) = P_rtn25no3 ELSE P_rtn25no3 = chem_index_table( PARAM_rtn25no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn25no3 ) = .TRUE. chem_dname_table( idomain, P_rtn25no3 ) = 'rtn25no3' chem_desc_table( idomain, P_rtn25no3 ) = 'RTN25NO3 concentration' chem_units_table( idomain, P_rtn25no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn25no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25no3 )%stream(2) = 2097216 F_rtn25no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb15 = chem_num_table(idomain) chem_index_table( PARAM_tncarb15 , idomain ) = P_tncarb15 ELSE P_tncarb15 = chem_index_table( PARAM_tncarb15 , idomain ) END IF chem_boundary_table( idomain, P_tncarb15 ) = .TRUE. chem_dname_table( idomain, P_tncarb15 ) = 'tncarb15' chem_desc_table( idomain, P_tncarb15 ) = 'TNCARB15 concentration' chem_units_table( idomain, P_tncarb15 ) = 'ppmv' chem_streams_table( idomain, P_tncarb15 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb15 )%stream(2) = 2097216 F_tncarb15 = .TRUE. IF ( chem_index_table( PARAM_rcooh25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcooh25 = chem_num_table(idomain) chem_index_table( PARAM_rcooh25 , idomain ) = P_rcooh25 ELSE P_rcooh25 = chem_index_table( PARAM_rcooh25 , idomain ) END IF chem_boundary_table( idomain, P_rcooh25 ) = .TRUE. chem_dname_table( idomain, P_rcooh25 ) = 'rcooh25' chem_desc_table( idomain, P_rcooh25 ) = 'RCOOH25 concentration' chem_units_table( idomain, P_rcooh25 ) = 'ppmv' chem_streams_table( idomain, P_rcooh25 )%stream(1) = 33554433 chem_streams_table( idomain, P_rcooh25 )%stream(2) = 2097216 F_rcooh25 = .TRUE. IF ( chem_index_table( PARAM_rtx28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx28no3 , idomain ) = P_rtx28no3 ELSE P_rtx28no3 = chem_index_table( PARAM_rtx28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx28no3 ) = .TRUE. chem_dname_table( idomain, P_rtx28no3 ) = 'rtx28no3' chem_desc_table( idomain, P_rtx28no3 ) = 'RTX28NO3 concentration' chem_units_table( idomain, P_rtx28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx28no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28no3 )%stream(2) = 2097216 F_rtx28no3 = .TRUE. IF ( chem_index_table( PARAM_rtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx28ooh , idomain ) = P_rtx28ooh ELSE P_rtx28ooh = chem_index_table( PARAM_rtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx28ooh ) = .TRUE. chem_dname_table( idomain, P_rtx28ooh ) = 'rtx28ooh' chem_desc_table( idomain, P_rtx28ooh ) = 'RTX28OOH concentration' chem_units_table( idomain, P_rtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28ooh )%stream(2) = 2097216 F_rtx28ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb24 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb24 = chem_num_table(idomain) chem_index_table( PARAM_txcarb24 , idomain ) = P_txcarb24 ELSE P_txcarb24 = chem_index_table( PARAM_txcarb24 , idomain ) END IF chem_boundary_table( idomain, P_txcarb24 ) = .TRUE. chem_dname_table( idomain, P_txcarb24 ) = 'txcarb24' chem_desc_table( idomain, P_txcarb24 ) = 'TXCARB24 concentration' chem_units_table( idomain, P_txcarb24 ) = 'ppmv' chem_streams_table( idomain, P_txcarb24 )%stream(1) = 33554433 chem_streams_table( idomain, P_txcarb24 )%stream(2) = 2097216 F_txcarb24 = .TRUE. IF ( chem_index_table( PARAM_rtx24no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx24no3 , idomain ) = P_rtx24no3 ELSE P_rtx24no3 = chem_index_table( PARAM_rtx24no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx24no3 ) = .TRUE. chem_dname_table( idomain, P_rtx24no3 ) = 'rtx24no3' chem_desc_table( idomain, P_rtx24no3 ) = 'RTX24NO3 concentration' chem_units_table( idomain, P_rtx24no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx24no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24no3 )%stream(2) = 2097216 F_rtx24no3 = .TRUE. IF ( chem_index_table( PARAM_rtx24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx24ooh , idomain ) = P_rtx24ooh ELSE P_rtx24ooh = chem_index_table( PARAM_rtx24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx24ooh ) = .TRUE. chem_dname_table( idomain, P_rtx24ooh ) = 'rtx24ooh' chem_desc_table( idomain, P_rtx24ooh ) = 'RTX24OOH concentration' chem_units_table( idomain, P_rtx24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx24ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24ooh )%stream(2) = 2097216 F_rtx24ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb22 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb22 = chem_num_table(idomain) chem_index_table( PARAM_txcarb22 , idomain ) = P_txcarb22 ELSE P_txcarb22 = chem_index_table( PARAM_txcarb22 , idomain ) END IF chem_boundary_table( idomain, P_txcarb22 ) = .TRUE. chem_dname_table( idomain, P_txcarb22 ) = 'txcarb22' chem_desc_table( idomain, P_txcarb22 ) = 'TXCARB22 concentration' chem_units_table( idomain, P_txcarb22 ) = 'ppmv' chem_streams_table( idomain, P_txcarb22 )%stream(1) = 33554433 chem_streams_table( idomain, P_txcarb22 )%stream(2) = 2097216 F_txcarb22 = .TRUE. IF ( chem_index_table( PARAM_rtx22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx22no3 , idomain ) = P_rtx22no3 ELSE P_rtx22no3 = chem_index_table( PARAM_rtx22no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx22no3 ) = .TRUE. chem_dname_table( idomain, P_rtx22no3 ) = 'rtx22no3' chem_desc_table( idomain, P_rtx22no3 ) = 'RTX22NO3 concentration' chem_units_table( idomain, P_rtx22no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx22no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22no3 )%stream(2) = 2097216 F_rtx22no3 = .TRUE. IF ( chem_index_table( PARAM_rtx22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx22ooh , idomain ) = P_rtx22ooh ELSE P_rtx22ooh = chem_index_table( PARAM_rtx22ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx22ooh ) = .TRUE. chem_dname_table( idomain, P_rtx22ooh ) = 'rtx22ooh' chem_desc_table( idomain, P_rtx22ooh ) = 'RTX22OOH concentration' chem_units_table( idomain, P_rtx22ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx22ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22ooh )%stream(2) = 2097216 F_rtx22ooh = .TRUE. IF ( chem_index_table( PARAM_nrtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtx28ooh , idomain ) = P_nrtx28ooh ELSE P_nrtx28ooh = chem_index_table( PARAM_nrtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtx28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtx28ooh ) = 'nrtx28ooh' chem_desc_table( idomain, P_nrtx28ooh ) = 'NRTX28OOH concentration' chem_units_table( idomain, P_nrtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtx28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtx28ooh )%stream(2) = 2097216 F_nrtx28ooh = .TRUE. IF ( chem_index_table( PARAM_carb11a , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb11a = chem_num_table(idomain) chem_index_table( PARAM_carb11a , idomain ) = P_carb11a ELSE P_carb11a = chem_index_table( PARAM_carb11a , idomain ) END IF chem_boundary_table( idomain, P_carb11a ) = .TRUE. chem_dname_table( idomain, P_carb11a ) = 'carb11a' chem_desc_table( idomain, P_carb11a ) = 'CARB11A concentration' chem_units_table( idomain, P_carb11a ) = 'ppmv' chem_streams_table( idomain, P_carb11a )%stream(1) = 33554433 chem_streams_table( idomain, P_carb11a )%stream(2) = 2097216 F_carb11a = .TRUE. IF ( chem_index_table( PARAM_anhy , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anhy = chem_num_table(idomain) chem_index_table( PARAM_anhy , idomain ) = P_anhy ELSE P_anhy = chem_index_table( PARAM_anhy , idomain ) END IF chem_boundary_table( idomain, P_anhy ) = .TRUE. chem_dname_table( idomain, P_anhy ) = 'anhy' chem_desc_table( idomain, P_anhy ) = 'ANHY concentration' chem_units_table( idomain, P_anhy ) = 'ppmv' chem_streams_table( idomain, P_anhy )%stream(1) = 33554433 chem_streams_table( idomain, P_anhy )%stream(2) = 2097216 F_anhy = .TRUE. IF ( chem_index_table( PARAM_ch3o2no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2no2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2no2 , idomain ) = P_ch3o2no2 ELSE P_ch3o2no2 = chem_index_table( PARAM_ch3o2no2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2no2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2no2 ) = 'ch3o2no2' chem_desc_table( idomain, P_ch3o2no2 ) = 'CH3O2NO2 concentration' chem_units_table( idomain, P_ch3o2no2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2no2 )%stream(2) = 2097216 F_ch3o2no2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_rtn23no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn23no3 , idomain ) = P_rtn23no3 ELSE P_rtn23no3 = chem_index_table( PARAM_rtn23no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn23no3 ) = .TRUE. chem_dname_table( idomain, P_rtn23no3 ) = 'rtn23no3' chem_desc_table( idomain, P_rtn23no3 ) = 'rtn23no3 concentration' chem_units_table( idomain, P_rtn23no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn23no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23no3 )%stream(2) = 2097216 F_rtn23no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb12 = chem_num_table(idomain) chem_index_table( PARAM_tncarb12 , idomain ) = P_tncarb12 ELSE P_tncarb12 = chem_index_table( PARAM_tncarb12 , idomain ) END IF chem_boundary_table( idomain, P_tncarb12 ) = .TRUE. chem_dname_table( idomain, P_tncarb12 ) = 'tncarb12' chem_desc_table( idomain, P_tncarb12 ) = 'tncarb12 concentration' chem_units_table( idomain, P_tncarb12 ) = 'ppmv' chem_streams_table( idomain, P_tncarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb12 )%stream(2) = 2097216 F_tncarb12 = .TRUE. IF ( chem_index_table( PARAM_tncarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb11 = chem_num_table(idomain) chem_index_table( PARAM_tncarb11 , idomain ) = P_tncarb11 ELSE P_tncarb11 = chem_index_table( PARAM_tncarb11 , idomain ) END IF chem_boundary_table( idomain, P_tncarb11 ) = .TRUE. chem_dname_table( idomain, P_tncarb11 ) = 'tncarb11' chem_desc_table( idomain, P_tncarb11 ) = 'tncarb11 concentration' chem_units_table( idomain, P_tncarb11 ) = 'ppmv' chem_streams_table( idomain, P_tncarb11 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb11 )%stream(2) = 2097216 F_tncarb11 = .TRUE. IF ( chem_index_table( PARAM_tm123b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm123b = chem_num_table(idomain) chem_index_table( PARAM_tm123b , idomain ) = P_tm123b ELSE P_tm123b = chem_index_table( PARAM_tm123b , idomain ) END IF chem_boundary_table( idomain, P_tm123b ) = .TRUE. chem_dname_table( idomain, P_tm123b ) = 'tm123b' chem_desc_table( idomain, P_tm123b ) = 'tm123b concentration' chem_units_table( idomain, P_tm123b ) = 'ppmv' chem_streams_table( idomain, P_tm123b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm123b )%stream(2) = 2097216 F_tm123b = .TRUE. IF ( chem_index_table( PARAM_tm124b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm124b = chem_num_table(idomain) chem_index_table( PARAM_tm124b , idomain ) = P_tm124b ELSE P_tm124b = chem_index_table( PARAM_tm124b , idomain ) END IF chem_boundary_table( idomain, P_tm124b ) = .TRUE. chem_dname_table( idomain, P_tm124b ) = 'tm124b' chem_desc_table( idomain, P_tm124b ) = 'tm124b concentration' chem_units_table( idomain, P_tm124b ) = 'ppmv' chem_streams_table( idomain, P_tm124b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm124b )%stream(2) = 2097216 F_tm124b = .TRUE. IF ( chem_index_table( PARAM_tm135b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm135b = chem_num_table(idomain) chem_index_table( PARAM_tm135b , idomain ) = P_tm135b ELSE P_tm135b = chem_index_table( PARAM_tm135b , idomain ) END IF chem_boundary_table( idomain, P_tm135b ) = .TRUE. chem_dname_table( idomain, P_tm135b ) = 'tm135b' chem_desc_table( idomain, P_tm135b ) = 'tm135b concentration' chem_units_table( idomain, P_tm135b ) = 'ppmv' chem_streams_table( idomain, P_tm135b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm135b )%stream(2) = 2097216 F_tm135b = .TRUE. IF ( chem_index_table( PARAM_oethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oethtol = chem_num_table(idomain) chem_index_table( PARAM_oethtol , idomain ) = P_oethtol ELSE P_oethtol = chem_index_table( PARAM_oethtol , idomain ) END IF chem_boundary_table( idomain, P_oethtol ) = .TRUE. chem_dname_table( idomain, P_oethtol ) = 'oethtol' chem_desc_table( idomain, P_oethtol ) = 'oethtol concentration' chem_units_table( idomain, P_oethtol ) = 'ppmv' chem_streams_table( idomain, P_oethtol )%stream(1) = 33554433 chem_streams_table( idomain, P_oethtol )%stream(2) = 2097216 F_oethtol = .TRUE. IF ( chem_index_table( PARAM_methtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methtol = chem_num_table(idomain) chem_index_table( PARAM_methtol , idomain ) = P_methtol ELSE P_methtol = chem_index_table( PARAM_methtol , idomain ) END IF chem_boundary_table( idomain, P_methtol ) = .TRUE. chem_dname_table( idomain, P_methtol ) = 'methtol' chem_desc_table( idomain, P_methtol ) = 'methtol concentration' chem_units_table( idomain, P_methtol ) = 'ppmv' chem_streams_table( idomain, P_methtol )%stream(1) = 33554433 chem_streams_table( idomain, P_methtol )%stream(2) = 2097216 F_methtol = .TRUE. IF ( chem_index_table( PARAM_pethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pethtol = chem_num_table(idomain) chem_index_table( PARAM_pethtol , idomain ) = P_pethtol ELSE P_pethtol = chem_index_table( PARAM_pethtol , idomain ) END IF chem_boundary_table( idomain, P_pethtol ) = .TRUE. chem_dname_table( idomain, P_pethtol ) = 'pethtol' chem_desc_table( idomain, P_pethtol ) = 'pethtol concentration' chem_units_table( idomain, P_pethtol ) = 'ppmv' chem_streams_table( idomain, P_pethtol )%stream(1) = 33554433 chem_streams_table( idomain, P_pethtol )%stream(2) = 2097216 F_pethtol = .TRUE. IF ( chem_index_table( PARAM_ra22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22no3 = chem_num_table(idomain) chem_index_table( PARAM_ra22no3 , idomain ) = P_ra22no3 ELSE P_ra22no3 = chem_index_table( PARAM_ra22no3 , idomain ) END IF chem_boundary_table( idomain, P_ra22no3 ) = .TRUE. chem_dname_table( idomain, P_ra22no3 ) = 'ra22no3' chem_desc_table( idomain, P_ra22no3 ) = 'ra22no3 concentration' chem_units_table( idomain, P_ra22no3 ) = 'ppmv' chem_streams_table( idomain, P_ra22no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22no3 )%stream(2) = 2097216 F_ra22no3 = .TRUE. IF ( chem_index_table( PARAM_ra22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ooh = chem_num_table(idomain) chem_index_table( PARAM_ra22ooh , idomain ) = P_ra22ooh ELSE P_ra22ooh = chem_index_table( PARAM_ra22ooh , idomain ) END IF chem_boundary_table( idomain, P_ra22ooh ) = .TRUE. chem_dname_table( idomain, P_ra22ooh ) = 'ra22ooh' chem_desc_table( idomain, P_ra22ooh ) = 'ra22ooh concentration' chem_units_table( idomain, P_ra22ooh ) = 'ppmv' chem_streams_table( idomain, P_ra22ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22ooh )%stream(2) = 2097216 F_ra22ooh = .TRUE. IF ( chem_index_table( PARAM_dime35eb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dime35eb = chem_num_table(idomain) chem_index_table( PARAM_dime35eb , idomain ) = P_dime35eb ELSE P_dime35eb = chem_index_table( PARAM_dime35eb , idomain ) END IF chem_boundary_table( idomain, P_dime35eb ) = .TRUE. chem_dname_table( idomain, P_dime35eb ) = 'dime35eb' chem_desc_table( idomain, P_dime35eb ) = 'dime35eb concentration' chem_units_table( idomain, P_dime35eb ) = 'ppmv' chem_streams_table( idomain, P_dime35eb )%stream(1) = 33554433 chem_streams_table( idomain, P_dime35eb )%stream(2) = 2097216 F_dime35eb = .TRUE. IF ( chem_index_table( PARAM_ra25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25no3 = chem_num_table(idomain) chem_index_table( PARAM_ra25no3 , idomain ) = P_ra25no3 ELSE P_ra25no3 = chem_index_table( PARAM_ra25no3 , idomain ) END IF chem_boundary_table( idomain, P_ra25no3 ) = .TRUE. chem_dname_table( idomain, P_ra25no3 ) = 'ra25no3' chem_desc_table( idomain, P_ra25no3 ) = 'ra25no3 concentration' chem_units_table( idomain, P_ra25no3 ) = 'ppmv' chem_streams_table( idomain, P_ra25no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25no3 )%stream(2) = 2097216 F_ra25no3 = .TRUE. IF ( chem_index_table( PARAM_udcarb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb17 = chem_num_table(idomain) chem_index_table( PARAM_udcarb17 , idomain ) = P_udcarb17 ELSE P_udcarb17 = chem_index_table( PARAM_udcarb17 , idomain ) END IF chem_boundary_table( idomain, P_udcarb17 ) = .TRUE. chem_dname_table( idomain, P_udcarb17 ) = 'udcarb17' chem_desc_table( idomain, P_udcarb17 ) = 'udcarb17 concentration' chem_units_table( idomain, P_udcarb17 ) = 'ppmv' chem_streams_table( idomain, P_udcarb17 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb17 )%stream(2) = 2097216 F_udcarb17 = .TRUE. IF ( chem_index_table( PARAM_ra25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25ooh = chem_num_table(idomain) chem_index_table( PARAM_ra25ooh , idomain ) = P_ra25ooh ELSE P_ra25ooh = chem_index_table( PARAM_ra25ooh , idomain ) END IF chem_boundary_table( idomain, P_ra25ooh ) = .TRUE. chem_dname_table( idomain, P_ra25ooh ) = 'ra25ooh' chem_desc_table( idomain, P_ra25ooh ) = 'ra25ooh concentration' chem_units_table( idomain, P_ra25ooh ) = 'ppmv' chem_streams_table( idomain, P_ra25ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25ooh )%stream(2) = 2097216 F_ra25ooh = .TRUE. IF ( chem_index_table( PARAM_ch3oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oo = chem_num_table(idomain) chem_index_table( PARAM_ch3oo , idomain ) = P_ch3oo ELSE P_ch3oo = chem_index_table( PARAM_ch3oo , idomain ) END IF chem_boundary_table( idomain, P_ch3oo ) = .TRUE. chem_dname_table( idomain, P_ch3oo ) = 'ch3oo' chem_desc_table( idomain, P_ch3oo ) = 'CH3OO concentration' chem_units_table( idomain, P_ch3oo ) = 'ppmv' chem_streams_table( idomain, P_ch3oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oo )%stream(2) = 2097216 F_ch3oo = .TRUE. IF ( chem_index_table( PARAM_c2h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c2h5o2 , idomain ) = P_c2h5o2 ELSE P_c2h5o2 = chem_index_table( PARAM_c2h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c2h5o2 ) = .TRUE. chem_dname_table( idomain, P_c2h5o2 ) = 'c2h5o2' chem_desc_table( idomain, P_c2h5o2 ) = 'C2H5O2 concentration' chem_units_table( idomain, P_c2h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c2h5o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5o2 )%stream(2) = 2097216 F_c2h5o2 = .TRUE. IF ( chem_index_table( PARAM_hoch2ch2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2ch2o2 = chem_num_table(idomain) chem_index_table( PARAM_hoch2ch2o2 , idomain ) = P_hoch2ch2o2 ELSE P_hoch2ch2o2 = chem_index_table( PARAM_hoch2ch2o2 , idomain ) END IF chem_boundary_table( idomain, P_hoch2ch2o2 ) = .TRUE. chem_dname_table( idomain, P_hoch2ch2o2 ) = 'hoch2ch2o2' chem_desc_table( idomain, P_hoch2ch2o2 ) = 'HOCH2CH2O2 concentration' chem_units_table( idomain, P_hoch2ch2o2 ) = 'ppmv' chem_streams_table( idomain, P_hoch2ch2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2ch2o2 )%stream(2) = 2097216 F_hoch2ch2o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7o2 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7o2 , idomain ) = P_ic3h7o2 ELSE P_ic3h7o2 = chem_index_table( PARAM_ic3h7o2 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7o2 ) = .TRUE. chem_dname_table( idomain, P_ic3h7o2 ) = 'ic3h7o2' chem_desc_table( idomain, P_ic3h7o2 ) = 'IC3H7O2 concentration' chem_units_table( idomain, P_ic3h7o2 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ic3h7o2 )%stream(2) = 2097216 F_ic3h7o2 = .TRUE. IF ( chem_index_table( PARAM_rn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rn10o2 , idomain ) = P_rn10o2 ELSE P_rn10o2 = chem_index_table( PARAM_rn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rn10o2 ) = .TRUE. chem_dname_table( idomain, P_rn10o2 ) = 'rn10o2' chem_desc_table( idomain, P_rn10o2 ) = 'RN10O2 concentration' chem_units_table( idomain, P_rn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rn10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10o2 )%stream(2) = 2097216 F_rn10o2 = .TRUE. IF ( chem_index_table( PARAM_rn13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13o2 = chem_num_table(idomain) chem_index_table( PARAM_rn13o2 , idomain ) = P_rn13o2 ELSE P_rn13o2 = chem_index_table( PARAM_rn13o2 , idomain ) END IF chem_boundary_table( idomain, P_rn13o2 ) = .TRUE. chem_dname_table( idomain, P_rn13o2 ) = 'rn13o2' chem_desc_table( idomain, P_rn13o2 ) = 'RN13O2 concentration' chem_units_table( idomain, P_rn13o2 ) = 'ppmv' chem_streams_table( idomain, P_rn13o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13o2 )%stream(2) = 2097216 F_rn13o2 = .TRUE. IF ( chem_index_table( PARAM_rn16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16o2 = chem_num_table(idomain) chem_index_table( PARAM_rn16o2 , idomain ) = P_rn16o2 ELSE P_rn16o2 = chem_index_table( PARAM_rn16o2 , idomain ) END IF chem_boundary_table( idomain, P_rn16o2 ) = .TRUE. chem_dname_table( idomain, P_rn16o2 ) = 'rn16o2' chem_desc_table( idomain, P_rn16o2 ) = 'RN16O2 concentration' chem_units_table( idomain, P_rn16o2 ) = 'ppmv' chem_streams_table( idomain, P_rn16o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16o2 )%stream(2) = 2097216 F_rn16o2 = .TRUE. IF ( chem_index_table( PARAM_rn19o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19o2 = chem_num_table(idomain) chem_index_table( PARAM_rn19o2 , idomain ) = P_rn19o2 ELSE P_rn19o2 = chem_index_table( PARAM_rn19o2 , idomain ) END IF chem_boundary_table( idomain, P_rn19o2 ) = .TRUE. chem_dname_table( idomain, P_rn19o2 ) = 'rn19o2' chem_desc_table( idomain, P_rn19o2 ) = 'RN19O2 concentration' chem_units_table( idomain, P_rn19o2 ) = 'ppmv' chem_streams_table( idomain, P_rn19o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19o2 )%stream(2) = 2097216 F_rn19o2 = .TRUE. IF ( chem_index_table( PARAM_rn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9o2 = chem_num_table(idomain) chem_index_table( PARAM_rn9o2 , idomain ) = P_rn9o2 ELSE P_rn9o2 = chem_index_table( PARAM_rn9o2 , idomain ) END IF chem_boundary_table( idomain, P_rn9o2 ) = .TRUE. chem_dname_table( idomain, P_rn9o2 ) = 'rn9o2' chem_desc_table( idomain, P_rn9o2 ) = 'RN9O2 concentration' chem_units_table( idomain, P_rn9o2 ) = 'ppmv' chem_streams_table( idomain, P_rn9o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9o2 )%stream(2) = 2097216 F_rn9o2 = .TRUE. IF ( chem_index_table( PARAM_rn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12o2 = chem_num_table(idomain) chem_index_table( PARAM_rn12o2 , idomain ) = P_rn12o2 ELSE P_rn12o2 = chem_index_table( PARAM_rn12o2 , idomain ) END IF chem_boundary_table( idomain, P_rn12o2 ) = .TRUE. chem_dname_table( idomain, P_rn12o2 ) = 'rn12o2' chem_desc_table( idomain, P_rn12o2 ) = 'RN12O2 concentration' chem_units_table( idomain, P_rn12o2 ) = 'ppmv' chem_streams_table( idomain, P_rn12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12o2 )%stream(2) = 2097216 F_rn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn15o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15o2 = chem_num_table(idomain) chem_index_table( PARAM_rn15o2 , idomain ) = P_rn15o2 ELSE P_rn15o2 = chem_index_table( PARAM_rn15o2 , idomain ) END IF chem_boundary_table( idomain, P_rn15o2 ) = .TRUE. chem_dname_table( idomain, P_rn15o2 ) = 'rn15o2' chem_desc_table( idomain, P_rn15o2 ) = 'RN15O2 concentration' chem_units_table( idomain, P_rn15o2 ) = 'ppmv' chem_streams_table( idomain, P_rn15o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15o2 )%stream(2) = 2097216 F_rn15o2 = .TRUE. IF ( chem_index_table( PARAM_rn18o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18o2 = chem_num_table(idomain) chem_index_table( PARAM_rn18o2 , idomain ) = P_rn18o2 ELSE P_rn18o2 = chem_index_table( PARAM_rn18o2 , idomain ) END IF chem_boundary_table( idomain, P_rn18o2 ) = .TRUE. chem_dname_table( idomain, P_rn18o2 ) = 'rn18o2' chem_desc_table( idomain, P_rn18o2 ) = 'RN18O2 concentration' chem_units_table( idomain, P_rn18o2 ) = 'ppmv' chem_streams_table( idomain, P_rn18o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18o2 )%stream(2) = 2097216 F_rn18o2 = .TRUE. IF ( chem_index_table( PARAM_nrn6o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn6o2 , idomain ) = P_nrn6o2 ELSE P_nrn6o2 = chem_index_table( PARAM_nrn6o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn6o2 ) = .TRUE. chem_dname_table( idomain, P_nrn6o2 ) = 'nrn6o2' chem_desc_table( idomain, P_nrn6o2 ) = 'NRN6O2 concentration' chem_units_table( idomain, P_nrn6o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn6o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn6o2 )%stream(2) = 2097216 F_nrn6o2 = .TRUE. IF ( chem_index_table( PARAM_nrn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn9o2 , idomain ) = P_nrn9o2 ELSE P_nrn9o2 = chem_index_table( PARAM_nrn9o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn9o2 ) = .TRUE. chem_dname_table( idomain, P_nrn9o2 ) = 'nrn9o2' chem_desc_table( idomain, P_nrn9o2 ) = 'NRN9O2 concentration' chem_units_table( idomain, P_nrn9o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn9o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn9o2 )%stream(2) = 2097216 F_nrn9o2 = .TRUE. IF ( chem_index_table( PARAM_nrn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn12o2 , idomain ) = P_nrn12o2 ELSE P_nrn12o2 = chem_index_table( PARAM_nrn12o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn12o2 ) = .TRUE. chem_dname_table( idomain, P_nrn12o2 ) = 'nrn12o2' chem_desc_table( idomain, P_nrn12o2 ) = 'NRN12O2 concentration' chem_units_table( idomain, P_nrn12o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn12o2 )%stream(2) = 2097216 F_nrn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn11o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11o2 = chem_num_table(idomain) chem_index_table( PARAM_rn11o2 , idomain ) = P_rn11o2 ELSE P_rn11o2 = chem_index_table( PARAM_rn11o2 , idomain ) END IF chem_boundary_table( idomain, P_rn11o2 ) = .TRUE. chem_dname_table( idomain, P_rn11o2 ) = 'rn11o2' chem_desc_table( idomain, P_rn11o2 ) = 'RN11O2 concentration' chem_units_table( idomain, P_rn11o2 ) = 'ppmv' chem_streams_table( idomain, P_rn11o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn11o2 )%stream(2) = 2097216 F_rn11o2 = .TRUE. IF ( chem_index_table( PARAM_rn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rn14o2 , idomain ) = P_rn14o2 ELSE P_rn14o2 = chem_index_table( PARAM_rn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rn14o2 ) = .TRUE. chem_dname_table( idomain, P_rn14o2 ) = 'rn14o2' chem_desc_table( idomain, P_rn14o2 ) = 'RN14O2 concentration' chem_units_table( idomain, P_rn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rn14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn14o2 )%stream(2) = 2097216 F_rn14o2 = .TRUE. IF ( chem_index_table( PARAM_rn8o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8o2 = chem_num_table(idomain) chem_index_table( PARAM_rn8o2 , idomain ) = P_rn8o2 ELSE P_rn8o2 = chem_index_table( PARAM_rn8o2 , idomain ) END IF chem_boundary_table( idomain, P_rn8o2 ) = .TRUE. chem_dname_table( idomain, P_rn8o2 ) = 'rn8o2' chem_desc_table( idomain, P_rn8o2 ) = 'RN8O2 concentration' chem_units_table( idomain, P_rn8o2 ) = 'ppmv' chem_streams_table( idomain, P_rn8o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn8o2 )%stream(2) = 2097216 F_rn8o2 = .TRUE. IF ( chem_index_table( PARAM_rn17o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17o2 = chem_num_table(idomain) chem_index_table( PARAM_rn17o2 , idomain ) = P_rn17o2 ELSE P_rn17o2 = chem_index_table( PARAM_rn17o2 , idomain ) END IF chem_boundary_table( idomain, P_rn17o2 ) = .TRUE. chem_dname_table( idomain, P_rn17o2 ) = 'rn17o2' chem_desc_table( idomain, P_rn17o2 ) = 'RN17O2 concentration' chem_units_table( idomain, P_rn17o2 ) = 'ppmv' chem_streams_table( idomain, P_rn17o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn17o2 )%stream(2) = 2097216 F_rn17o2 = .TRUE. IF ( chem_index_table( PARAM_rn13ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn13ao2 , idomain ) = P_rn13ao2 ELSE P_rn13ao2 = chem_index_table( PARAM_rn13ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn13ao2 ) = .TRUE. chem_dname_table( idomain, P_rn13ao2 ) = 'rn13ao2' chem_desc_table( idomain, P_rn13ao2 ) = 'RN13AO2 concentration' chem_units_table( idomain, P_rn13ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn13ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13ao2 )%stream(2) = 2097216 F_rn13ao2 = .TRUE. IF ( chem_index_table( PARAM_rn16ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn16ao2 , idomain ) = P_rn16ao2 ELSE P_rn16ao2 = chem_index_table( PARAM_rn16ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn16ao2 ) = .TRUE. chem_dname_table( idomain, P_rn16ao2 ) = 'rn16ao2' chem_desc_table( idomain, P_rn16ao2 ) = 'RN16AO2 concentration' chem_units_table( idomain, P_rn16ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn16ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16ao2 )%stream(2) = 2097216 F_rn16ao2 = .TRUE. IF ( chem_index_table( PARAM_rn15ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn15ao2 , idomain ) = P_rn15ao2 ELSE P_rn15ao2 = chem_index_table( PARAM_rn15ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn15ao2 ) = .TRUE. chem_dname_table( idomain, P_rn15ao2 ) = 'rn15ao2' chem_desc_table( idomain, P_rn15ao2 ) = 'RN15AO2 concentration' chem_units_table( idomain, P_rn15ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn15ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15ao2 )%stream(2) = 2097216 F_rn15ao2 = .TRUE. IF ( chem_index_table( PARAM_rn18ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn18ao2 , idomain ) = P_rn18ao2 ELSE P_rn18ao2 = chem_index_table( PARAM_rn18ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn18ao2 ) = .TRUE. chem_dname_table( idomain, P_rn18ao2 ) = 'rn18ao2' chem_desc_table( idomain, P_rn18ao2 ) = 'RN18AO2 concentration' chem_units_table( idomain, P_rn18ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn18ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18ao2 )%stream(2) = 2097216 F_rn18ao2 = .TRUE. IF ( chem_index_table( PARAM_ru10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10o2 = chem_num_table(idomain) chem_index_table( PARAM_ru10o2 , idomain ) = P_ru10o2 ELSE P_ru10o2 = chem_index_table( PARAM_ru10o2 , idomain ) END IF chem_boundary_table( idomain, P_ru10o2 ) = .TRUE. chem_dname_table( idomain, P_ru10o2 ) = 'ru10o2' chem_desc_table( idomain, P_ru10o2 ) = 'RU10O2 concentration' chem_units_table( idomain, P_ru10o2 ) = 'ppmv' chem_streams_table( idomain, P_ru10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru10o2 )%stream(2) = 2097216 F_ru10o2 = .TRUE. IF ( chem_index_table( PARAM_nru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14o2 = chem_num_table(idomain) chem_index_table( PARAM_nru14o2 , idomain ) = P_nru14o2 ELSE P_nru14o2 = chem_index_table( PARAM_nru14o2 , idomain ) END IF chem_boundary_table( idomain, P_nru14o2 ) = .TRUE. chem_dname_table( idomain, P_nru14o2 ) = 'nru14o2' chem_desc_table( idomain, P_nru14o2 ) = 'NRU14O2 concentration' chem_units_table( idomain, P_nru14o2 ) = 'ppmv' chem_streams_table( idomain, P_nru14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nru14o2 )%stream(2) = 2097216 F_nru14o2 = .TRUE. IF ( chem_index_table( PARAM_nru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12o2 = chem_num_table(idomain) chem_index_table( PARAM_nru12o2 , idomain ) = P_nru12o2 ELSE P_nru12o2 = chem_index_table( PARAM_nru12o2 , idomain ) END IF chem_boundary_table( idomain, P_nru12o2 ) = .TRUE. chem_dname_table( idomain, P_nru12o2 ) = 'nru12o2' chem_desc_table( idomain, P_nru12o2 ) = 'NRU12O2 concentration' chem_units_table( idomain, P_nru12o2 ) = 'ppmv' chem_streams_table( idomain, P_nru12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nru12o2 )%stream(2) = 2097216 F_nru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13o2 = chem_num_table(idomain) chem_index_table( PARAM_ra13o2 , idomain ) = P_ra13o2 ELSE P_ra13o2 = chem_index_table( PARAM_ra13o2 , idomain ) END IF chem_boundary_table( idomain, P_ra13o2 ) = .TRUE. chem_dname_table( idomain, P_ra13o2 ) = 'ra13o2' chem_desc_table( idomain, P_ra13o2 ) = 'RA13O2 concentration' chem_units_table( idomain, P_ra13o2 ) = 'ppmv' chem_streams_table( idomain, P_ra13o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13o2 )%stream(2) = 2097216 F_ra13o2 = .TRUE. IF ( chem_index_table( PARAM_nrtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtx28o2 , idomain ) = P_nrtx28o2 ELSE P_nrtx28o2 = chem_index_table( PARAM_nrtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtx28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtx28o2 ) = 'nrtx28o2' chem_desc_table( idomain, P_nrtx28o2 ) = 'NRTX28O2 concentration' chem_units_table( idomain, P_nrtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtx28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtx28o2 )%stream(2) = 2097216 F_nrtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtx24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx24o2 , idomain ) = P_rtx24o2 ELSE P_rtx24o2 = chem_index_table( PARAM_rtx24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx24o2 ) = .TRUE. chem_dname_table( idomain, P_rtx24o2 ) = 'rtx24o2' chem_desc_table( idomain, P_rtx24o2 ) = 'RTX24O2 concentration' chem_units_table( idomain, P_rtx24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx24o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24o2 )%stream(2) = 2097216 F_rtx24o2 = .TRUE. IF ( chem_index_table( PARAM_rtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx28o2 , idomain ) = P_rtx28o2 ELSE P_rtx28o2 = chem_index_table( PARAM_rtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx28o2 ) = .TRUE. chem_dname_table( idomain, P_rtx28o2 ) = 'rtx28o2' chem_desc_table( idomain, P_rtx28o2 ) = 'RTX28O2 concentration' chem_units_table( idomain, P_rtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28o2 )%stream(2) = 2097216 F_rtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn25o2 , idomain ) = P_rtn25o2 ELSE P_rtn25o2 = chem_index_table( PARAM_rtn25o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn25o2 ) = .TRUE. chem_dname_table( idomain, P_rtn25o2 ) = 'rtn25o2' chem_desc_table( idomain, P_rtn25o2 ) = 'RTN25O2 concentration' chem_units_table( idomain, P_rtn25o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn25o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25o2 )%stream(2) = 2097216 F_rtn25o2 = .TRUE. IF ( chem_index_table( PARAM_rtn24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn24o2 , idomain ) = P_rtn24o2 ELSE P_rtn24o2 = chem_index_table( PARAM_rtn24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn24o2 ) = .TRUE. chem_dname_table( idomain, P_rtn24o2 ) = 'rtn24o2' chem_desc_table( idomain, P_rtn24o2 ) = 'RTN24O2 concentration' chem_units_table( idomain, P_rtn24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn24o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn24o2 )%stream(2) = 2097216 F_rtn24o2 = .TRUE. IF ( chem_index_table( PARAM_rtn23o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn23o2 , idomain ) = P_rtn23o2 ELSE P_rtn23o2 = chem_index_table( PARAM_rtn23o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn23o2 ) = .TRUE. chem_dname_table( idomain, P_rtn23o2 ) = 'rtn23o2' chem_desc_table( idomain, P_rtn23o2 ) = 'RTN23O2 concentration' chem_units_table( idomain, P_rtn23o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn23o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23o2 )%stream(2) = 2097216 F_rtn23o2 = .TRUE. IF ( chem_index_table( PARAM_rtn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn14o2 , idomain ) = P_rtn14o2 ELSE P_rtn14o2 = chem_index_table( PARAM_rtn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn14o2 ) = .TRUE. chem_dname_table( idomain, P_rtn14o2 ) = 'rtn14o2' chem_desc_table( idomain, P_rtn14o2 ) = 'RTN14O2 concentration' chem_units_table( idomain, P_rtn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn14o2 )%stream(2) = 2097216 F_rtn14o2 = .TRUE. IF ( chem_index_table( PARAM_rtn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn10o2 , idomain ) = P_rtn10o2 ELSE P_rtn10o2 = chem_index_table( PARAM_rtn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn10o2 ) = .TRUE. chem_dname_table( idomain, P_rtn10o2 ) = 'rtn10o2' chem_desc_table( idomain, P_rtn10o2 ) = 'RTN10O2 concentration' chem_units_table( idomain, P_rtn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn10o2 )%stream(2) = 2097216 F_rtn10o2 = .TRUE. IF ( chem_index_table( PARAM_nrtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtn28o2 , idomain ) = P_nrtn28o2 ELSE P_nrtn28o2 = chem_index_table( PARAM_nrtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtn28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtn28o2 ) = 'nrtn28o2' chem_desc_table( idomain, P_nrtn28o2 ) = 'NRTN28O2 concentration' chem_units_table( idomain, P_nrtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtn28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtn28o2 )%stream(2) = 2097216 F_nrtn28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn26o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn26o2 , idomain ) = P_rtn26o2 ELSE P_rtn26o2 = chem_index_table( PARAM_rtn26o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn26o2 ) = .TRUE. chem_dname_table( idomain, P_rtn26o2 ) = 'rtn26o2' chem_desc_table( idomain, P_rtn26o2 ) = 'RTN26O2 concentration' chem_units_table( idomain, P_rtn26o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn26o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26o2 )%stream(2) = 2097216 F_rtn26o2 = .TRUE. IF ( chem_index_table( PARAM_rtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn28o2 , idomain ) = P_rtn28o2 ELSE P_rtn28o2 = chem_index_table( PARAM_rtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn28o2 ) = .TRUE. chem_dname_table( idomain, P_rtn28o2 ) = 'rtn28o2' chem_desc_table( idomain, P_rtn28o2 ) = 'RTN28O2 concentration' chem_units_table( idomain, P_rtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28o2 )%stream(2) = 2097216 F_rtn28o2 = .TRUE. IF ( chem_index_table( PARAM_ra19ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra19ao2 , idomain ) = P_ra19ao2 ELSE P_ra19ao2 = chem_index_table( PARAM_ra19ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra19ao2 ) = .TRUE. chem_dname_table( idomain, P_ra19ao2 ) = 'ra19ao2' chem_desc_table( idomain, P_ra19ao2 ) = 'RA19AO2 concentration' chem_units_table( idomain, P_ra19ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra19ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19ao2 )%stream(2) = 2097216 F_ra19ao2 = .TRUE. IF ( chem_index_table( PARAM_ru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14o2 = chem_num_table(idomain) chem_index_table( PARAM_ru14o2 , idomain ) = P_ru14o2 ELSE P_ru14o2 = chem_index_table( PARAM_ru14o2 , idomain ) END IF chem_boundary_table( idomain, P_ru14o2 ) = .TRUE. chem_dname_table( idomain, P_ru14o2 ) = 'ru14o2' chem_desc_table( idomain, P_ru14o2 ) = 'RU14O2 concentration' chem_units_table( idomain, P_ru14o2 ) = 'ppmv' chem_streams_table( idomain, P_ru14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14o2 )%stream(2) = 2097216 F_ru14o2 = .TRUE. IF ( chem_index_table( PARAM_ru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12o2 = chem_num_table(idomain) chem_index_table( PARAM_ru12o2 , idomain ) = P_ru12o2 ELSE P_ru12o2 = chem_index_table( PARAM_ru12o2 , idomain ) END IF chem_boundary_table( idomain, P_ru12o2 ) = .TRUE. chem_dname_table( idomain, P_ru12o2 ) = 'ru12o2' chem_desc_table( idomain, P_ru12o2 ) = 'RU12O2 concentration' chem_units_table( idomain, P_ru12o2 ) = 'ppmv' chem_streams_table( idomain, P_ru12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12o2 )%stream(2) = 2097216 F_ru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16o2 = chem_num_table(idomain) chem_index_table( PARAM_ra16o2 , idomain ) = P_ra16o2 ELSE P_ra16o2 = chem_index_table( PARAM_ra16o2 , idomain ) END IF chem_boundary_table( idomain, P_ra16o2 ) = .TRUE. chem_dname_table( idomain, P_ra16o2 ) = 'ra16o2' chem_desc_table( idomain, P_ra16o2 ) = 'RA16O2 concentration' chem_units_table( idomain, P_ra16o2 ) = 'ppmv' chem_streams_table( idomain, P_ra16o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16o2 )%stream(2) = 2097216 F_ra16o2 = .TRUE. IF ( chem_index_table( PARAM_rtx22o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx22o2 , idomain ) = P_rtx22o2 ELSE P_rtx22o2 = chem_index_table( PARAM_rtx22o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx22o2 ) = .TRUE. chem_dname_table( idomain, P_rtx22o2 ) = 'rtx22o2' chem_desc_table( idomain, P_rtx22o2 ) = 'RTX22O2 concentration' chem_units_table( idomain, P_rtx22o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx22o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22o2 )%stream(2) = 2097216 F_rtx22o2 = .TRUE. IF ( chem_index_table( PARAM_ra22ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra22ao2 , idomain ) = P_ra22ao2 ELSE P_ra22ao2 = chem_index_table( PARAM_ra22ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra22ao2 ) = .TRUE. chem_dname_table( idomain, P_ra22ao2 ) = 'ra22ao2' chem_desc_table( idomain, P_ra22ao2 ) = 'RA22AO2 concentration' chem_units_table( idomain, P_ra22ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra22ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22ao2 )%stream(2) = 2097216 F_ra22ao2 = .TRUE. IF ( chem_index_table( PARAM_ra22bo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22bo2 = chem_num_table(idomain) chem_index_table( PARAM_ra22bo2 , idomain ) = P_ra22bo2 ELSE P_ra22bo2 = chem_index_table( PARAM_ra22bo2 , idomain ) END IF chem_boundary_table( idomain, P_ra22bo2 ) = .TRUE. chem_dname_table( idomain, P_ra22bo2 ) = 'ra22bo2' chem_desc_table( idomain, P_ra22bo2 ) = 'RA22BO2 concentration' chem_units_table( idomain, P_ra22bo2 ) = 'ppmv' chem_streams_table( idomain, P_ra22bo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22bo2 )%stream(2) = 2097216 F_ra22bo2 = .TRUE. IF ( chem_index_table( PARAM_ra25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25o2 = chem_num_table(idomain) chem_index_table( PARAM_ra25o2 , idomain ) = P_ra25o2 ELSE P_ra25o2 = chem_index_table( PARAM_ra25o2 , idomain ) END IF chem_boundary_table( idomain, P_ra25o2 ) = .TRUE. chem_dname_table( idomain, P_ra25o2 ) = 'ra25o2' chem_desc_table( idomain, P_ra25o2 ) = 'RA25O2 concentration' chem_units_table( idomain, P_ra25o2 ) = 'ppmv' chem_streams_table( idomain, P_ra25o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25o2 )%stream(2) = 2097216 F_ra25o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7no3 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7no3 , idomain ) = P_ic3h7no3 ELSE P_ic3h7no3 = chem_index_table( PARAM_ic3h7no3 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7no3 ) = .TRUE. chem_dname_table( idomain, P_ic3h7no3 ) = 'ic3h7no3' chem_desc_table( idomain, P_ic3h7no3 ) = 'IC3H7NO3 concentration' chem_units_table( idomain, P_ic3h7no3 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ic3h7no3 )%stream(2) = 2097216 F_ic3h7no3 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==601)THEN IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3s , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3s = chem_num_table(idomain) chem_index_table( PARAM_ch3s , idomain ) = P_ch3s ELSE P_ch3s = chem_index_table( PARAM_ch3s , idomain ) END IF chem_boundary_table( idomain, P_ch3s ) = .TRUE. chem_dname_table( idomain, P_ch3s ) = 'ch3s' chem_desc_table( idomain, P_ch3s ) = 'CH3S concentration' chem_units_table( idomain, P_ch3s ) = 'ppmv' chem_streams_table( idomain, P_ch3s )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3s )%stream(2) = 2097216 F_ch3s = .TRUE. IF ( chem_index_table( PARAM_ch3so , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so = chem_num_table(idomain) chem_index_table( PARAM_ch3so , idomain ) = P_ch3so ELSE P_ch3so = chem_index_table( PARAM_ch3so , idomain ) END IF chem_boundary_table( idomain, P_ch3so ) = .TRUE. chem_dname_table( idomain, P_ch3so ) = 'ch3so' chem_desc_table( idomain, P_ch3so ) = 'CH3SO concentration' chem_units_table( idomain, P_ch3so ) = 'ppmv' chem_streams_table( idomain, P_ch3so )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so )%stream(2) = 2097216 F_ch3so = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_msia , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msia = chem_num_table(idomain) chem_index_table( PARAM_msia , idomain ) = P_msia ELSE P_msia = chem_index_table( PARAM_msia , idomain ) END IF chem_boundary_table( idomain, P_msia ) = .TRUE. chem_dname_table( idomain, P_msia ) = 'msia' chem_desc_table( idomain, P_msia ) = 'MSIA concentration' chem_units_table( idomain, P_msia ) = 'ppmv' chem_streams_table( idomain, P_msia )%stream(1) = 33554433 chem_streams_table( idomain, P_msia )%stream(2) = 2097216 F_msia = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_hso3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hso3 = chem_num_table(idomain) chem_index_table( PARAM_hso3 , idomain ) = P_hso3 ELSE P_hso3 = chem_index_table( PARAM_hso3 , idomain ) END IF chem_boundary_table( idomain, P_hso3 ) = .TRUE. chem_dname_table( idomain, P_hso3 ) = 'hso3' chem_desc_table( idomain, P_hso3 ) = 'HSO3 concentration' chem_units_table( idomain, P_hso3 ) = 'ppmv' chem_streams_table( idomain, P_hso3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hso3 )%stream(2) = 2097216 F_hso3 = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ch3cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cho = chem_num_table(idomain) chem_index_table( PARAM_ch3cho , idomain ) = P_ch3cho ELSE P_ch3cho = chem_index_table( PARAM_ch3cho , idomain ) END IF chem_boundary_table( idomain, P_ch3cho ) = .TRUE. chem_dname_table( idomain, P_ch3cho ) = 'ch3cho' chem_desc_table( idomain, P_ch3cho ) = 'CH3CHO concentration' chem_units_table( idomain, P_ch3cho ) = 'ppmv' chem_streams_table( idomain, P_ch3cho )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cho )%stream(2) = 2097216 F_ch3cho = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_c2h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c2h5ooh , idomain ) = P_c2h5ooh ELSE P_c2h5ooh = chem_index_table( PARAM_c2h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c2h5ooh ) = .TRUE. chem_dname_table( idomain, P_c2h5ooh ) = 'c2h5ooh' chem_desc_table( idomain, P_c2h5ooh ) = 'C2H5OOH concentration' chem_units_table( idomain, P_c2h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c2h5ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5ooh )%stream(2) = 2097216 F_c2h5ooh = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_nc4h10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nc4h10 = chem_num_table(idomain) chem_index_table( PARAM_nc4h10 , idomain ) = P_nc4h10 ELSE P_nc4h10 = chem_index_table( PARAM_nc4h10 , idomain ) END IF chem_boundary_table( idomain, P_nc4h10 ) = .TRUE. chem_dname_table( idomain, P_nc4h10 ) = 'nc4h10' chem_desc_table( idomain, P_nc4h10 ) = 'NC4H10 concentration' chem_units_table( idomain, P_nc4h10 ) = 'ppmv' chem_streams_table( idomain, P_nc4h10 )%stream(1) = 33554433 chem_streams_table( idomain, P_nc4h10 )%stream(2) = 2097216 F_nc4h10 = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_toluene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_toluene = chem_num_table(idomain) chem_index_table( PARAM_toluene , idomain ) = P_toluene ELSE P_toluene = chem_index_table( PARAM_toluene , idomain ) END IF chem_boundary_table( idomain, P_toluene ) = .TRUE. chem_dname_table( idomain, P_toluene ) = 'toluene' chem_desc_table( idomain, P_toluene ) = 'TOLUENE concentration' chem_units_table( idomain, P_toluene ) = 'ppmv' chem_streams_table( idomain, P_toluene )%stream(1) = 33554433 chem_streams_table( idomain, P_toluene )%stream(2) = 2097216 F_toluene = .TRUE. IF ( chem_index_table( PARAM_oxyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oxyl = chem_num_table(idomain) chem_index_table( PARAM_oxyl , idomain ) = P_oxyl ELSE P_oxyl = chem_index_table( PARAM_oxyl , idomain ) END IF chem_boundary_table( idomain, P_oxyl ) = .TRUE. chem_dname_table( idomain, P_oxyl ) = 'oxyl' chem_desc_table( idomain, P_oxyl ) = 'OXYL concentration' chem_units_table( idomain, P_oxyl ) = 'ppmv' chem_streams_table( idomain, P_oxyl )%stream(1) = 33554433 chem_streams_table( idomain, P_oxyl )%stream(2) = 2097216 F_oxyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_c5h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c5h8 = chem_num_table(idomain) chem_index_table( PARAM_c5h8 , idomain ) = P_c5h8 ELSE P_c5h8 = chem_index_table( PARAM_c5h8 , idomain ) END IF chem_boundary_table( idomain, P_c5h8 ) = .TRUE. chem_dname_table( idomain, P_c5h8 ) = 'c5h8' chem_desc_table( idomain, P_c5h8 ) = 'C5H8 concentration' chem_units_table( idomain, P_c5h8 ) = 'ppmv' chem_streams_table( idomain, P_c5h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c5h8 )%stream(2) = 2097216 F_c5h8 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so3 = chem_num_table(idomain) chem_index_table( PARAM_so3 , idomain ) = P_so3 ELSE P_so3 = chem_index_table( PARAM_so3 , idomain ) END IF chem_boundary_table( idomain, P_so3 ) = .TRUE. chem_dname_table( idomain, P_so3 ) = 'so3' chem_desc_table( idomain, P_so3 ) = 'SO3 concentration' chem_units_table( idomain, P_so3 ) = 'ppmv' chem_streams_table( idomain, P_so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_so3 )%stream(2) = 2097216 F_so3 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 F_benzene = .TRUE. IF ( chem_index_table( PARAM_npropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_npropol = chem_num_table(idomain) chem_index_table( PARAM_npropol , idomain ) = P_npropol ELSE P_npropol = chem_index_table( PARAM_npropol , idomain ) END IF chem_boundary_table( idomain, P_npropol ) = .TRUE. chem_dname_table( idomain, P_npropol ) = 'npropol' chem_desc_table( idomain, P_npropol ) = 'NPROPOL concentration' chem_units_table( idomain, P_npropol ) = 'ppmv' chem_streams_table( idomain, P_npropol )%stream(1) = 33554433 chem_streams_table( idomain, P_npropol )%stream(2) = 2097216 F_npropol = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_tbut2ene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tbut2ene = chem_num_table(idomain) chem_index_table( PARAM_tbut2ene , idomain ) = P_tbut2ene ELSE P_tbut2ene = chem_index_table( PARAM_tbut2ene , idomain ) END IF chem_boundary_table( idomain, P_tbut2ene ) = .TRUE. chem_dname_table( idomain, P_tbut2ene ) = 'tbut2ene' chem_desc_table( idomain, P_tbut2ene ) = 'TBUT2ENE concentration' chem_units_table( idomain, P_tbut2ene ) = 'ppmv' chem_streams_table( idomain, P_tbut2ene )%stream(1) = 33554433 chem_streams_table( idomain, P_tbut2ene )%stream(2) = 2097216 F_tbut2ene = .TRUE. IF ( chem_index_table( PARAM_c2h5cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5cho = chem_num_table(idomain) chem_index_table( PARAM_c2h5cho , idomain ) = P_c2h5cho ELSE P_c2h5cho = chem_index_table( PARAM_c2h5cho , idomain ) END IF chem_boundary_table( idomain, P_c2h5cho ) = .TRUE. chem_dname_table( idomain, P_c2h5cho ) = 'c2h5cho' chem_desc_table( idomain, P_c2h5cho ) = 'C2H5CHO concentration' chem_units_table( idomain, P_c2h5cho ) = 'ppmv' chem_streams_table( idomain, P_c2h5cho )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5cho )%stream(2) = 2097216 F_c2h5cho = .TRUE. IF ( chem_index_table( PARAM_ch3co2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3co2h = chem_num_table(idomain) chem_index_table( PARAM_ch3co2h , idomain ) = P_ch3co2h ELSE P_ch3co2h = chem_index_table( PARAM_ch3co2h , idomain ) END IF chem_boundary_table( idomain, P_ch3co2h ) = .TRUE. chem_dname_table( idomain, P_ch3co2h ) = 'ch3co2h' chem_desc_table( idomain, P_ch3co2h ) = 'CH3CO2H concentration' chem_units_table( idomain, P_ch3co2h ) = 'ppmv' chem_streams_table( idomain, P_ch3co2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3co2h )%stream(2) = 2097216 F_ch3co2h = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_ipropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ipropol = chem_num_table(idomain) chem_index_table( PARAM_ipropol , idomain ) = P_ipropol ELSE P_ipropol = chem_index_table( PARAM_ipropol , idomain ) END IF chem_boundary_table( idomain, P_ipropol ) = .TRUE. chem_dname_table( idomain, P_ipropol ) = 'ipropol' chem_desc_table( idomain, P_ipropol ) = 'IPROPOL concentration' chem_units_table( idomain, P_ipropol ) = 'ppmv' chem_streams_table( idomain, P_ipropol )%stream(1) = 33554433 chem_streams_table( idomain, P_ipropol )%stream(2) = 2097216 F_ipropol = .TRUE. IF ( chem_index_table( PARAM_ch3no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3no3 = chem_num_table(idomain) chem_index_table( PARAM_ch3no3 , idomain ) = P_ch3no3 ELSE P_ch3no3 = chem_index_table( PARAM_ch3no3 , idomain ) END IF chem_boundary_table( idomain, P_ch3no3 ) = .TRUE. chem_dname_table( idomain, P_ch3no3 ) = 'ch3no3' chem_desc_table( idomain, P_ch3no3 ) = 'CH3NO3 concentration' chem_units_table( idomain, P_ch3no3 ) = 'ppmv' chem_streams_table( idomain, P_ch3no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3no3 )%stream(2) = 2097216 F_ch3no3 = .TRUE. IF ( chem_index_table( PARAM_c2h5no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5no3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5no3 , idomain ) = P_c2h5no3 ELSE P_c2h5no3 = chem_index_table( PARAM_c2h5no3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5no3 ) = .TRUE. chem_dname_table( idomain, P_c2h5no3 ) = 'c2h5no3' chem_desc_table( idomain, P_c2h5no3 ) = 'C2H5NO3 concentration' chem_units_table( idomain, P_c2h5no3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5no3 )%stream(2) = 2097216 F_c2h5no3 = .TRUE. IF ( chem_index_table( PARAM_hoc2h4no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4no3 = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4no3 , idomain ) = P_hoc2h4no3 ELSE P_hoc2h4no3 = chem_index_table( PARAM_hoc2h4no3 , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4no3 ) = .TRUE. chem_dname_table( idomain, P_hoc2h4no3 ) = 'hoc2h4no3' chem_desc_table( idomain, P_hoc2h4no3 ) = 'HOC2H4NO3 concentration' chem_units_table( idomain, P_hoc2h4no3 ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoc2h4no3 )%stream(2) = 2097216 F_hoc2h4no3 = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 F_prooh = .TRUE. IF ( chem_index_table( PARAM_hoc2h4ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4ooh = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4ooh , idomain ) = P_hoc2h4ooh ELSE P_hoc2h4ooh = chem_index_table( PARAM_hoc2h4ooh , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4ooh ) = .TRUE. chem_dname_table( idomain, P_hoc2h4ooh ) = 'hoc2h4ooh' chem_desc_table( idomain, P_hoc2h4ooh ) = 'HOC2H4OOH concentration' chem_units_table( idomain, P_hoc2h4ooh ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hoc2h4ooh )%stream(2) = 2097216 F_hoc2h4ooh = .TRUE. IF ( chem_index_table( PARAM_carb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb14 = chem_num_table(idomain) chem_index_table( PARAM_carb14 , idomain ) = P_carb14 ELSE P_carb14 = chem_index_table( PARAM_carb14 , idomain ) END IF chem_boundary_table( idomain, P_carb14 ) = .TRUE. chem_dname_table( idomain, P_carb14 ) = 'carb14' chem_desc_table( idomain, P_carb14 ) = 'CARB14 concentration' chem_units_table( idomain, P_carb14 ) = 'ppmv' chem_streams_table( idomain, P_carb14 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb14 )%stream(2) = 2097216 F_carb14 = .TRUE. IF ( chem_index_table( PARAM_carb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb17 = chem_num_table(idomain) chem_index_table( PARAM_carb17 , idomain ) = P_carb17 ELSE P_carb17 = chem_index_table( PARAM_carb17 , idomain ) END IF chem_boundary_table( idomain, P_carb17 ) = .TRUE. chem_dname_table( idomain, P_carb17 ) = 'carb17' chem_desc_table( idomain, P_carb17 ) = 'CARB17 concentration' chem_units_table( idomain, P_carb17 ) = 'ppmv' chem_streams_table( idomain, P_carb17 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb17 )%stream(2) = 2097216 F_carb17 = .TRUE. IF ( chem_index_table( PARAM_rn10no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10no3 = chem_num_table(idomain) chem_index_table( PARAM_rn10no3 , idomain ) = P_rn10no3 ELSE P_rn10no3 = chem_index_table( PARAM_rn10no3 , idomain ) END IF chem_boundary_table( idomain, P_rn10no3 ) = .TRUE. chem_dname_table( idomain, P_rn10no3 ) = 'rn10no3' chem_desc_table( idomain, P_rn10no3 ) = 'RN10NO3 concentration' chem_units_table( idomain, P_rn10no3 ) = 'ppmv' chem_streams_table( idomain, P_rn10no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10no3 )%stream(2) = 2097216 F_rn10no3 = .TRUE. IF ( chem_index_table( PARAM_rn13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13no3 = chem_num_table(idomain) chem_index_table( PARAM_rn13no3 , idomain ) = P_rn13no3 ELSE P_rn13no3 = chem_index_table( PARAM_rn13no3 , idomain ) END IF chem_boundary_table( idomain, P_rn13no3 ) = .TRUE. chem_dname_table( idomain, P_rn13no3 ) = 'rn13no3' chem_desc_table( idomain, P_rn13no3 ) = 'RN13NO3 concentration' chem_units_table( idomain, P_rn13no3 ) = 'ppmv' chem_streams_table( idomain, P_rn13no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13no3 )%stream(2) = 2097216 F_rn13no3 = .TRUE. IF ( chem_index_table( PARAM_rn19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19no3 = chem_num_table(idomain) chem_index_table( PARAM_rn19no3 , idomain ) = P_rn19no3 ELSE P_rn19no3 = chem_index_table( PARAM_rn19no3 , idomain ) END IF chem_boundary_table( idomain, P_rn19no3 ) = .TRUE. chem_dname_table( idomain, P_rn19no3 ) = 'rn19no3' chem_desc_table( idomain, P_rn19no3 ) = 'RN19NO3 concentration' chem_units_table( idomain, P_rn19no3 ) = 'ppmv' chem_streams_table( idomain, P_rn19no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19no3 )%stream(2) = 2097216 F_rn19no3 = .TRUE. IF ( chem_index_table( PARAM_rn9no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9no3 = chem_num_table(idomain) chem_index_table( PARAM_rn9no3 , idomain ) = P_rn9no3 ELSE P_rn9no3 = chem_index_table( PARAM_rn9no3 , idomain ) END IF chem_boundary_table( idomain, P_rn9no3 ) = .TRUE. chem_dname_table( idomain, P_rn9no3 ) = 'rn9no3' chem_desc_table( idomain, P_rn9no3 ) = 'RN9NO3 concentration' chem_units_table( idomain, P_rn9no3 ) = 'ppmv' chem_streams_table( idomain, P_rn9no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9no3 )%stream(2) = 2097216 F_rn9no3 = .TRUE. IF ( chem_index_table( PARAM_rn12no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12no3 = chem_num_table(idomain) chem_index_table( PARAM_rn12no3 , idomain ) = P_rn12no3 ELSE P_rn12no3 = chem_index_table( PARAM_rn12no3 , idomain ) END IF chem_boundary_table( idomain, P_rn12no3 ) = .TRUE. chem_dname_table( idomain, P_rn12no3 ) = 'rn12no3' chem_desc_table( idomain, P_rn12no3 ) = 'RN12NO3 concentration' chem_units_table( idomain, P_rn12no3 ) = 'ppmv' chem_streams_table( idomain, P_rn12no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12no3 )%stream(2) = 2097216 F_rn12no3 = .TRUE. IF ( chem_index_table( PARAM_rn15no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15no3 = chem_num_table(idomain) chem_index_table( PARAM_rn15no3 , idomain ) = P_rn15no3 ELSE P_rn15no3 = chem_index_table( PARAM_rn15no3 , idomain ) END IF chem_boundary_table( idomain, P_rn15no3 ) = .TRUE. chem_dname_table( idomain, P_rn15no3 ) = 'rn15no3' chem_desc_table( idomain, P_rn15no3 ) = 'RN15NO3 concentration' chem_units_table( idomain, P_rn15no3 ) = 'ppmv' chem_streams_table( idomain, P_rn15no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15no3 )%stream(2) = 2097216 F_rn15no3 = .TRUE. IF ( chem_index_table( PARAM_rn18no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18no3 = chem_num_table(idomain) chem_index_table( PARAM_rn18no3 , idomain ) = P_rn18no3 ELSE P_rn18no3 = chem_index_table( PARAM_rn18no3 , idomain ) END IF chem_boundary_table( idomain, P_rn18no3 ) = .TRUE. chem_dname_table( idomain, P_rn18no3 ) = 'rn18no3' chem_desc_table( idomain, P_rn18no3 ) = 'RN18NO3 concentration' chem_units_table( idomain, P_rn18no3 ) = 'ppmv' chem_streams_table( idomain, P_rn18no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18no3 )%stream(2) = 2097216 F_rn18no3 = .TRUE. IF ( chem_index_table( PARAM_rn16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16no3 = chem_num_table(idomain) chem_index_table( PARAM_rn16no3 , idomain ) = P_rn16no3 ELSE P_rn16no3 = chem_index_table( PARAM_rn16no3 , idomain ) END IF chem_boundary_table( idomain, P_rn16no3 ) = .TRUE. chem_dname_table( idomain, P_rn16no3 ) = 'rn16no3' chem_desc_table( idomain, P_rn16no3 ) = 'RN16NO3 concentration' chem_units_table( idomain, P_rn16no3 ) = 'ppmv' chem_streams_table( idomain, P_rn16no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16no3 )%stream(2) = 2097216 F_rn16no3 = .TRUE. IF ( chem_index_table( PARAM_rn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rn10ooh , idomain ) = P_rn10ooh ELSE P_rn10ooh = chem_index_table( PARAM_rn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rn10ooh ) = .TRUE. chem_dname_table( idomain, P_rn10ooh ) = 'rn10ooh' chem_desc_table( idomain, P_rn10ooh ) = 'RN10OOH concentration' chem_units_table( idomain, P_rn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rn10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10ooh )%stream(2) = 2097216 F_rn10ooh = .TRUE. IF ( chem_index_table( PARAM_rn13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ooh = chem_num_table(idomain) chem_index_table( PARAM_rn13ooh , idomain ) = P_rn13ooh ELSE P_rn13ooh = chem_index_table( PARAM_rn13ooh , idomain ) END IF chem_boundary_table( idomain, P_rn13ooh ) = .TRUE. chem_dname_table( idomain, P_rn13ooh ) = 'rn13ooh' chem_desc_table( idomain, P_rn13ooh ) = 'RN13OOH concentration' chem_units_table( idomain, P_rn13ooh ) = 'ppmv' chem_streams_table( idomain, P_rn13ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13ooh )%stream(2) = 2097216 F_rn13ooh = .TRUE. IF ( chem_index_table( PARAM_rn16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ooh = chem_num_table(idomain) chem_index_table( PARAM_rn16ooh , idomain ) = P_rn16ooh ELSE P_rn16ooh = chem_index_table( PARAM_rn16ooh , idomain ) END IF chem_boundary_table( idomain, P_rn16ooh ) = .TRUE. chem_dname_table( idomain, P_rn16ooh ) = 'rn16ooh' chem_desc_table( idomain, P_rn16ooh ) = 'RN16OOH concentration' chem_units_table( idomain, P_rn16ooh ) = 'ppmv' chem_streams_table( idomain, P_rn16ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16ooh )%stream(2) = 2097216 F_rn16ooh = .TRUE. IF ( chem_index_table( PARAM_rn19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19ooh = chem_num_table(idomain) chem_index_table( PARAM_rn19ooh , idomain ) = P_rn19ooh ELSE P_rn19ooh = chem_index_table( PARAM_rn19ooh , idomain ) END IF chem_boundary_table( idomain, P_rn19ooh ) = .TRUE. chem_dname_table( idomain, P_rn19ooh ) = 'rn19ooh' chem_desc_table( idomain, P_rn19ooh ) = 'RN19OOH concentration' chem_units_table( idomain, P_rn19ooh ) = 'ppmv' chem_streams_table( idomain, P_rn19ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19ooh )%stream(2) = 2097216 F_rn19ooh = .TRUE. IF ( chem_index_table( PARAM_rn8ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8ooh = chem_num_table(idomain) chem_index_table( PARAM_rn8ooh , idomain ) = P_rn8ooh ELSE P_rn8ooh = chem_index_table( PARAM_rn8ooh , idomain ) END IF chem_boundary_table( idomain, P_rn8ooh ) = .TRUE. chem_dname_table( idomain, P_rn8ooh ) = 'rn8ooh' chem_desc_table( idomain, P_rn8ooh ) = 'RN8OOH concentration' chem_units_table( idomain, P_rn8ooh ) = 'ppmv' chem_streams_table( idomain, P_rn8ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn8ooh )%stream(2) = 2097216 F_rn8ooh = .TRUE. IF ( chem_index_table( PARAM_rn11ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11ooh = chem_num_table(idomain) chem_index_table( PARAM_rn11ooh , idomain ) = P_rn11ooh ELSE P_rn11ooh = chem_index_table( PARAM_rn11ooh , idomain ) END IF chem_boundary_table( idomain, P_rn11ooh ) = .TRUE. chem_dname_table( idomain, P_rn11ooh ) = 'rn11ooh' chem_desc_table( idomain, P_rn11ooh ) = 'RN11OOH concentration' chem_units_table( idomain, P_rn11ooh ) = 'ppmv' chem_streams_table( idomain, P_rn11ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn11ooh )%stream(2) = 2097216 F_rn11ooh = .TRUE. IF ( chem_index_table( PARAM_rn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rn14ooh , idomain ) = P_rn14ooh ELSE P_rn14ooh = chem_index_table( PARAM_rn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rn14ooh ) = .TRUE. chem_dname_table( idomain, P_rn14ooh ) = 'rn14ooh' chem_desc_table( idomain, P_rn14ooh ) = 'RN14OOH concentration' chem_units_table( idomain, P_rn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rn14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn14ooh )%stream(2) = 2097216 F_rn14ooh = .TRUE. IF ( chem_index_table( PARAM_rn17ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17ooh = chem_num_table(idomain) chem_index_table( PARAM_rn17ooh , idomain ) = P_rn17ooh ELSE P_rn17ooh = chem_index_table( PARAM_rn17ooh , idomain ) END IF chem_boundary_table( idomain, P_rn17ooh ) = .TRUE. chem_dname_table( idomain, P_rn17ooh ) = 'rn17ooh' chem_desc_table( idomain, P_rn17ooh ) = 'RN17OOH concentration' chem_units_table( idomain, P_rn17ooh ) = 'ppmv' chem_streams_table( idomain, P_rn17ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn17ooh )%stream(2) = 2097216 F_rn17ooh = .TRUE. IF ( chem_index_table( PARAM_rn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9ooh = chem_num_table(idomain) chem_index_table( PARAM_rn9ooh , idomain ) = P_rn9ooh ELSE P_rn9ooh = chem_index_table( PARAM_rn9ooh , idomain ) END IF chem_boundary_table( idomain, P_rn9ooh ) = .TRUE. chem_dname_table( idomain, P_rn9ooh ) = 'rn9ooh' chem_desc_table( idomain, P_rn9ooh ) = 'RN9OOH concentration' chem_units_table( idomain, P_rn9ooh ) = 'ppmv' chem_streams_table( idomain, P_rn9ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9ooh )%stream(2) = 2097216 F_rn9ooh = .TRUE. IF ( chem_index_table( PARAM_rn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12ooh = chem_num_table(idomain) chem_index_table( PARAM_rn12ooh , idomain ) = P_rn12ooh ELSE P_rn12ooh = chem_index_table( PARAM_rn12ooh , idomain ) END IF chem_boundary_table( idomain, P_rn12ooh ) = .TRUE. chem_dname_table( idomain, P_rn12ooh ) = 'rn12ooh' chem_desc_table( idomain, P_rn12ooh ) = 'RN12OOH concentration' chem_units_table( idomain, P_rn12ooh ) = 'ppmv' chem_streams_table( idomain, P_rn12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12ooh )%stream(2) = 2097216 F_rn12ooh = .TRUE. IF ( chem_index_table( PARAM_rn15ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ooh = chem_num_table(idomain) chem_index_table( PARAM_rn15ooh , idomain ) = P_rn15ooh ELSE P_rn15ooh = chem_index_table( PARAM_rn15ooh , idomain ) END IF chem_boundary_table( idomain, P_rn15ooh ) = .TRUE. chem_dname_table( idomain, P_rn15ooh ) = 'rn15ooh' chem_desc_table( idomain, P_rn15ooh ) = 'RN15OOH concentration' chem_units_table( idomain, P_rn15ooh ) = 'ppmv' chem_streams_table( idomain, P_rn15ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15ooh )%stream(2) = 2097216 F_rn15ooh = .TRUE. IF ( chem_index_table( PARAM_rn18ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ooh = chem_num_table(idomain) chem_index_table( PARAM_rn18ooh , idomain ) = P_rn18ooh ELSE P_rn18ooh = chem_index_table( PARAM_rn18ooh , idomain ) END IF chem_boundary_table( idomain, P_rn18ooh ) = .TRUE. chem_dname_table( idomain, P_rn18ooh ) = 'rn18ooh' chem_desc_table( idomain, P_rn18ooh ) = 'RN18OOH concentration' chem_units_table( idomain, P_rn18ooh ) = 'ppmv' chem_streams_table( idomain, P_rn18ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18ooh )%stream(2) = 2097216 F_rn18ooh = .TRUE. IF ( chem_index_table( PARAM_nrn6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn6ooh , idomain ) = P_nrn6ooh ELSE P_nrn6ooh = chem_index_table( PARAM_nrn6ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn6ooh ) = .TRUE. chem_dname_table( idomain, P_nrn6ooh ) = 'nrn6ooh' chem_desc_table( idomain, P_nrn6ooh ) = 'NRN6OOH concentration' chem_units_table( idomain, P_nrn6ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn6ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn6ooh )%stream(2) = 2097216 F_nrn6ooh = .TRUE. IF ( chem_index_table( PARAM_nrn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn9ooh , idomain ) = P_nrn9ooh ELSE P_nrn9ooh = chem_index_table( PARAM_nrn9ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn9ooh ) = .TRUE. chem_dname_table( idomain, P_nrn9ooh ) = 'nrn9ooh' chem_desc_table( idomain, P_nrn9ooh ) = 'NRN9OOH concentration' chem_units_table( idomain, P_nrn9ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn9ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn9ooh )%stream(2) = 2097216 F_nrn9ooh = .TRUE. IF ( chem_index_table( PARAM_nrn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn12ooh , idomain ) = P_nrn12ooh ELSE P_nrn12ooh = chem_index_table( PARAM_nrn12ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn12ooh ) = .TRUE. chem_dname_table( idomain, P_nrn12ooh ) = 'nrn12ooh' chem_desc_table( idomain, P_nrn12ooh ) = 'NRN12OOH concentration' chem_units_table( idomain, P_nrn12ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn12ooh )%stream(2) = 2097216 F_nrn12ooh = .TRUE. IF ( chem_index_table( PARAM_apinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinene = chem_num_table(idomain) chem_index_table( PARAM_apinene , idomain ) = P_apinene ELSE P_apinene = chem_index_table( PARAM_apinene , idomain ) END IF chem_boundary_table( idomain, P_apinene ) = .TRUE. chem_dname_table( idomain, P_apinene ) = 'apinene' chem_desc_table( idomain, P_apinene ) = 'APINENE concentration' chem_units_table( idomain, P_apinene ) = 'ppmv' chem_streams_table( idomain, P_apinene )%stream(1) = 33554433 chem_streams_table( idomain, P_apinene )%stream(2) = 2097216 F_apinene = .TRUE. IF ( chem_index_table( PARAM_bpinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinene = chem_num_table(idomain) chem_index_table( PARAM_bpinene , idomain ) = P_bpinene ELSE P_bpinene = chem_index_table( PARAM_bpinene , idomain ) END IF chem_boundary_table( idomain, P_bpinene ) = .TRUE. chem_dname_table( idomain, P_bpinene ) = 'bpinene' chem_desc_table( idomain, P_bpinene ) = 'BPINENE concentration' chem_units_table( idomain, P_bpinene ) = 'ppmv' chem_streams_table( idomain, P_bpinene )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinene )%stream(2) = 2097216 F_bpinene = .TRUE. IF ( chem_index_table( PARAM_carb7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb7 = chem_num_table(idomain) chem_index_table( PARAM_carb7 , idomain ) = P_carb7 ELSE P_carb7 = chem_index_table( PARAM_carb7 , idomain ) END IF chem_boundary_table( idomain, P_carb7 ) = .TRUE. chem_dname_table( idomain, P_carb7 ) = 'carb7' chem_desc_table( idomain, P_carb7 ) = 'CARB7 concentration' chem_units_table( idomain, P_carb7 ) = 'ppmv' chem_streams_table( idomain, P_carb7 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb7 )%stream(2) = 2097216 F_carb7 = .TRUE. IF ( chem_index_table( PARAM_carb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb10 = chem_num_table(idomain) chem_index_table( PARAM_carb10 , idomain ) = P_carb10 ELSE P_carb10 = chem_index_table( PARAM_carb10 , idomain ) END IF chem_boundary_table( idomain, P_carb10 ) = .TRUE. chem_dname_table( idomain, P_carb10 ) = 'carb10' chem_desc_table( idomain, P_carb10 ) = 'CARB10 concentration' chem_units_table( idomain, P_carb10 ) = 'ppmv' chem_streams_table( idomain, P_carb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb10 )%stream(2) = 2097216 F_carb10 = .TRUE. IF ( chem_index_table( PARAM_carb13 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb13 = chem_num_table(idomain) chem_index_table( PARAM_carb13 , idomain ) = P_carb13 ELSE P_carb13 = chem_index_table( PARAM_carb13 , idomain ) END IF chem_boundary_table( idomain, P_carb13 ) = .TRUE. chem_dname_table( idomain, P_carb13 ) = 'carb13' chem_desc_table( idomain, P_carb13 ) = 'CARB13 concentration' chem_units_table( idomain, P_carb13 ) = 'ppmv' chem_streams_table( idomain, P_carb13 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb13 )%stream(2) = 2097216 F_carb13 = .TRUE. IF ( chem_index_table( PARAM_carb16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb16 = chem_num_table(idomain) chem_index_table( PARAM_carb16 , idomain ) = P_carb16 ELSE P_carb16 = chem_index_table( PARAM_carb16 , idomain ) END IF chem_boundary_table( idomain, P_carb16 ) = .TRUE. chem_dname_table( idomain, P_carb16 ) = 'carb16' chem_desc_table( idomain, P_carb16 ) = 'CARB16 concentration' chem_units_table( idomain, P_carb16 ) = 'ppmv' chem_streams_table( idomain, P_carb16 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb16 )%stream(2) = 2097216 F_carb16 = .TRUE. IF ( chem_index_table( PARAM_carb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb3 = chem_num_table(idomain) chem_index_table( PARAM_carb3 , idomain ) = P_carb3 ELSE P_carb3 = chem_index_table( PARAM_carb3 , idomain ) END IF chem_boundary_table( idomain, P_carb3 ) = .TRUE. chem_dname_table( idomain, P_carb3 ) = 'carb3' chem_desc_table( idomain, P_carb3 ) = 'CARB3 concentration' chem_units_table( idomain, P_carb3 ) = 'ppmv' chem_streams_table( idomain, P_carb3 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb3 )%stream(2) = 2097216 F_carb3 = .TRUE. IF ( chem_index_table( PARAM_carb6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb6 = chem_num_table(idomain) chem_index_table( PARAM_carb6 , idomain ) = P_carb6 ELSE P_carb6 = chem_index_table( PARAM_carb6 , idomain ) END IF chem_boundary_table( idomain, P_carb6 ) = .TRUE. chem_dname_table( idomain, P_carb6 ) = 'carb6' chem_desc_table( idomain, P_carb6 ) = 'CARB6 concentration' chem_units_table( idomain, P_carb6 ) = 'ppmv' chem_streams_table( idomain, P_carb6 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb6 )%stream(2) = 2097216 F_carb6 = .TRUE. IF ( chem_index_table( PARAM_carb9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb9 = chem_num_table(idomain) chem_index_table( PARAM_carb9 , idomain ) = P_carb9 ELSE P_carb9 = chem_index_table( PARAM_carb9 , idomain ) END IF chem_boundary_table( idomain, P_carb9 ) = .TRUE. chem_dname_table( idomain, P_carb9 ) = 'carb9' chem_desc_table( idomain, P_carb9 ) = 'CARB9 concentration' chem_units_table( idomain, P_carb9 ) = 'ppmv' chem_streams_table( idomain, P_carb9 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb9 )%stream(2) = 2097216 F_carb9 = .TRUE. IF ( chem_index_table( PARAM_carb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb12 = chem_num_table(idomain) chem_index_table( PARAM_carb12 , idomain ) = P_carb12 ELSE P_carb12 = chem_index_table( PARAM_carb12 , idomain ) END IF chem_boundary_table( idomain, P_carb12 ) = .TRUE. chem_dname_table( idomain, P_carb12 ) = 'carb12' chem_desc_table( idomain, P_carb12 ) = 'CARB12 concentration' chem_units_table( idomain, P_carb12 ) = 'ppmv' chem_streams_table( idomain, P_carb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb12 )%stream(2) = 2097216 F_carb12 = .TRUE. IF ( chem_index_table( PARAM_carb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb15 = chem_num_table(idomain) chem_index_table( PARAM_carb15 , idomain ) = P_carb15 ELSE P_carb15 = chem_index_table( PARAM_carb15 , idomain ) END IF chem_boundary_table( idomain, P_carb15 ) = .TRUE. chem_dname_table( idomain, P_carb15 ) = 'carb15' chem_desc_table( idomain, P_carb15 ) = 'CARB15 concentration' chem_units_table( idomain, P_carb15 ) = 'ppmv' chem_streams_table( idomain, P_carb15 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb15 )%stream(2) = 2097216 F_carb15 = .TRUE. IF ( chem_index_table( PARAM_c2h5co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3h = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3h , idomain ) = P_c2h5co3h ELSE P_c2h5co3h = chem_index_table( PARAM_c2h5co3h , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3h ) = .TRUE. chem_dname_table( idomain, P_c2h5co3h ) = 'c2h5co3h' chem_desc_table( idomain, P_c2h5co3h ) = 'C2H5CO3H concentration' chem_units_table( idomain, P_c2h5co3h ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3h )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5co3h )%stream(2) = 2097216 F_c2h5co3h = .TRUE. IF ( chem_index_table( PARAM_c2h5co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3 , idomain ) = P_c2h5co3 ELSE P_c2h5co3 = chem_index_table( PARAM_c2h5co3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3 ) = .TRUE. chem_dname_table( idomain, P_c2h5co3 ) = 'c2h5co3' chem_desc_table( idomain, P_c2h5co3 ) = 'C2H5CO3 concentration' chem_units_table( idomain, P_c2h5co3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5co3 )%stream(2) = 2097216 F_c2h5co3 = .TRUE. IF ( chem_index_table( PARAM_ppn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ppn = chem_num_table(idomain) chem_index_table( PARAM_ppn , idomain ) = P_ppn ELSE P_ppn = chem_index_table( PARAM_ppn , idomain ) END IF chem_boundary_table( idomain, P_ppn ) = .TRUE. chem_dname_table( idomain, P_ppn ) = 'ppn' chem_desc_table( idomain, P_ppn ) = 'PPN concentration' chem_units_table( idomain, P_ppn ) = 'ppmv' chem_streams_table( idomain, P_ppn )%stream(1) = 33554433 chem_streams_table( idomain, P_ppn )%stream(2) = 2097216 F_ppn = .TRUE. IF ( chem_index_table( PARAM_hoch2cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2cho = chem_num_table(idomain) chem_index_table( PARAM_hoch2cho , idomain ) = P_hoch2cho ELSE P_hoch2cho = chem_index_table( PARAM_hoch2cho , idomain ) END IF chem_boundary_table( idomain, P_hoch2cho ) = .TRUE. chem_dname_table( idomain, P_hoch2cho ) = 'hoch2cho' chem_desc_table( idomain, P_hoch2cho ) = 'HOCH2CHO concentration' chem_units_table( idomain, P_hoch2cho ) = 'ppmv' chem_streams_table( idomain, P_hoch2cho )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2cho )%stream(2) = 2097216 F_hoch2cho = .TRUE. IF ( chem_index_table( PARAM_hoch2co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3 = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3 , idomain ) = P_hoch2co3 ELSE P_hoch2co3 = chem_index_table( PARAM_hoch2co3 , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3 ) = .TRUE. chem_dname_table( idomain, P_hoch2co3 ) = 'hoch2co3' chem_desc_table( idomain, P_hoch2co3 ) = 'HOCH2CO3 concentration' chem_units_table( idomain, P_hoch2co3 ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2co3 )%stream(2) = 2097216 F_hoch2co3 = .TRUE. IF ( chem_index_table( PARAM_hoch2co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3h = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3h , idomain ) = P_hoch2co3h ELSE P_hoch2co3h = chem_index_table( PARAM_hoch2co3h , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3h ) = .TRUE. chem_dname_table( idomain, P_hoch2co3h ) = 'hoch2co3h' chem_desc_table( idomain, P_hoch2co3h ) = 'HOCH2CO3H concentration' chem_units_table( idomain, P_hoch2co3h ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3h )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2co3h )%stream(2) = 2097216 F_hoch2co3h = .TRUE. IF ( chem_index_table( PARAM_phan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phan = chem_num_table(idomain) chem_index_table( PARAM_phan , idomain ) = P_phan ELSE P_phan = chem_index_table( PARAM_phan , idomain ) END IF chem_boundary_table( idomain, P_phan ) = .TRUE. chem_dname_table( idomain, P_phan ) = 'phan' chem_desc_table( idomain, P_phan ) = 'PHAN concentration' chem_units_table( idomain, P_phan ) = 'ppmv' chem_streams_table( idomain, P_phan )%stream(1) = 33554433 chem_streams_table( idomain, P_phan )%stream(2) = 2097216 F_phan = .TRUE. IF ( chem_index_table( PARAM_ccarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccarb12 = chem_num_table(idomain) chem_index_table( PARAM_ccarb12 , idomain ) = P_ccarb12 ELSE P_ccarb12 = chem_index_table( PARAM_ccarb12 , idomain ) END IF chem_boundary_table( idomain, P_ccarb12 ) = .TRUE. chem_dname_table( idomain, P_ccarb12 ) = 'ccarb12' chem_desc_table( idomain, P_ccarb12 ) = 'CCARB12 concentration' chem_units_table( idomain, P_ccarb12 ) = 'ppmv' chem_streams_table( idomain, P_ccarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_ccarb12 )%stream(2) = 2097216 F_ccarb12 = .TRUE. IF ( chem_index_table( PARAM_ch3cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cl = chem_num_table(idomain) chem_index_table( PARAM_ch3cl , idomain ) = P_ch3cl ELSE P_ch3cl = chem_index_table( PARAM_ch3cl , idomain ) END IF chem_boundary_table( idomain, P_ch3cl ) = .TRUE. chem_dname_table( idomain, P_ch3cl ) = 'ch3cl' chem_desc_table( idomain, P_ch3cl ) = 'CH3CL concentration' chem_units_table( idomain, P_ch3cl ) = 'ppmv' chem_streams_table( idomain, P_ch3cl )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cl )%stream(2) = 2097216 F_ch3cl = .TRUE. IF ( chem_index_table( PARAM_ch2cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch2cl2 = chem_num_table(idomain) chem_index_table( PARAM_ch2cl2 , idomain ) = P_ch2cl2 ELSE P_ch2cl2 = chem_index_table( PARAM_ch2cl2 , idomain ) END IF chem_boundary_table( idomain, P_ch2cl2 ) = .TRUE. chem_dname_table( idomain, P_ch2cl2 ) = 'ch2cl2' chem_desc_table( idomain, P_ch2cl2 ) = 'CH2CL2 concentration' chem_units_table( idomain, P_ch2cl2 ) = 'ppmv' chem_streams_table( idomain, P_ch2cl2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch2cl2 )%stream(2) = 2097216 F_ch2cl2 = .TRUE. IF ( chem_index_table( PARAM_chcl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_chcl3 = chem_num_table(idomain) chem_index_table( PARAM_chcl3 , idomain ) = P_chcl3 ELSE P_chcl3 = chem_index_table( PARAM_chcl3 , idomain ) END IF chem_boundary_table( idomain, P_chcl3 ) = .TRUE. chem_dname_table( idomain, P_chcl3 ) = 'chcl3' chem_desc_table( idomain, P_chcl3 ) = 'CHCL3 concentration' chem_units_table( idomain, P_chcl3 ) = 'ppmv' chem_streams_table( idomain, P_chcl3 )%stream(1) = 33554433 chem_streams_table( idomain, P_chcl3 )%stream(2) = 2097216 F_chcl3 = .TRUE. IF ( chem_index_table( PARAM_ch3ccl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ccl3 = chem_num_table(idomain) chem_index_table( PARAM_ch3ccl3 , idomain ) = P_ch3ccl3 ELSE P_ch3ccl3 = chem_index_table( PARAM_ch3ccl3 , idomain ) END IF chem_boundary_table( idomain, P_ch3ccl3 ) = .TRUE. chem_dname_table( idomain, P_ch3ccl3 ) = 'ch3ccl3' chem_desc_table( idomain, P_ch3ccl3 ) = 'CH3CCL3 concentration' chem_units_table( idomain, P_ch3ccl3 ) = 'ppmv' chem_streams_table( idomain, P_ch3ccl3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ccl3 )%stream(2) = 2097216 F_ch3ccl3 = .TRUE. IF ( chem_index_table( PARAM_cdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cdicleth = chem_num_table(idomain) chem_index_table( PARAM_cdicleth , idomain ) = P_cdicleth ELSE P_cdicleth = chem_index_table( PARAM_cdicleth , idomain ) END IF chem_boundary_table( idomain, P_cdicleth ) = .TRUE. chem_dname_table( idomain, P_cdicleth ) = 'cdicleth' chem_desc_table( idomain, P_cdicleth ) = 'CDICLETH concentration' chem_units_table( idomain, P_cdicleth ) = 'ppmv' chem_streams_table( idomain, P_cdicleth )%stream(1) = 33554433 chem_streams_table( idomain, P_cdicleth )%stream(2) = 2097216 F_cdicleth = .TRUE. IF ( chem_index_table( PARAM_tdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tdicleth = chem_num_table(idomain) chem_index_table( PARAM_tdicleth , idomain ) = P_tdicleth ELSE P_tdicleth = chem_index_table( PARAM_tdicleth , idomain ) END IF chem_boundary_table( idomain, P_tdicleth ) = .TRUE. chem_dname_table( idomain, P_tdicleth ) = 'tdicleth' chem_desc_table( idomain, P_tdicleth ) = 'TDICLETH concentration' chem_units_table( idomain, P_tdicleth ) = 'ppmv' chem_streams_table( idomain, P_tdicleth )%stream(1) = 33554433 chem_streams_table( idomain, P_tdicleth )%stream(2) = 2097216 F_tdicleth = .TRUE. IF ( chem_index_table( PARAM_tricleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tricleth = chem_num_table(idomain) chem_index_table( PARAM_tricleth , idomain ) = P_tricleth ELSE P_tricleth = chem_index_table( PARAM_tricleth , idomain ) END IF chem_boundary_table( idomain, P_tricleth ) = .TRUE. chem_dname_table( idomain, P_tricleth ) = 'tricleth' chem_desc_table( idomain, P_tricleth ) = 'TRICLETH concentration' chem_units_table( idomain, P_tricleth ) = 'ppmv' chem_streams_table( idomain, P_tricleth )%stream(1) = 33554433 chem_streams_table( idomain, P_tricleth )%stream(2) = 2097216 F_tricleth = .TRUE. IF ( chem_index_table( PARAM_tce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tce = chem_num_table(idomain) chem_index_table( PARAM_tce , idomain ) = P_tce ELSE P_tce = chem_index_table( PARAM_tce , idomain ) END IF chem_boundary_table( idomain, P_tce ) = .TRUE. chem_dname_table( idomain, P_tce ) = 'tce' chem_desc_table( idomain, P_tce ) = 'TCE concentration' chem_units_table( idomain, P_tce ) = 'ppmv' chem_streams_table( idomain, P_tce )%stream(1) = 33554433 chem_streams_table( idomain, P_tce )%stream(2) = 2097216 F_tce = .TRUE. IF ( chem_index_table( PARAM_ucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb12 = chem_num_table(idomain) chem_index_table( PARAM_ucarb12 , idomain ) = P_ucarb12 ELSE P_ucarb12 = chem_index_table( PARAM_ucarb12 , idomain ) END IF chem_boundary_table( idomain, P_ucarb12 ) = .TRUE. chem_dname_table( idomain, P_ucarb12 ) = 'ucarb12' chem_desc_table( idomain, P_ucarb12 ) = 'UCARB12 concentration' chem_units_table( idomain, P_ucarb12 ) = 'ppmv' chem_streams_table( idomain, P_ucarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_ucarb12 )%stream(2) = 2097216 F_ucarb12 = .TRUE. IF ( chem_index_table( PARAM_ucarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb10 = chem_num_table(idomain) chem_index_table( PARAM_ucarb10 , idomain ) = P_ucarb10 ELSE P_ucarb10 = chem_index_table( PARAM_ucarb10 , idomain ) END IF chem_boundary_table( idomain, P_ucarb10 ) = .TRUE. chem_dname_table( idomain, P_ucarb10 ) = 'ucarb10' chem_desc_table( idomain, P_ucarb10 ) = 'UCARB10 concentration' chem_units_table( idomain, P_ucarb10 ) = 'ppmv' chem_streams_table( idomain, P_ucarb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_ucarb10 )%stream(2) = 2097216 F_ucarb10 = .TRUE. IF ( chem_index_table( PARAM_ru14no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14no3 = chem_num_table(idomain) chem_index_table( PARAM_ru14no3 , idomain ) = P_ru14no3 ELSE P_ru14no3 = chem_index_table( PARAM_ru14no3 , idomain ) END IF chem_boundary_table( idomain, P_ru14no3 ) = .TRUE. chem_dname_table( idomain, P_ru14no3 ) = 'ru14no3' chem_desc_table( idomain, P_ru14no3 ) = 'RU14NO3 concentration' chem_units_table( idomain, P_ru14no3 ) = 'ppmv' chem_streams_table( idomain, P_ru14no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14no3 )%stream(2) = 2097216 F_ru14no3 = .TRUE. IF ( chem_index_table( PARAM_ru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14ooh = chem_num_table(idomain) chem_index_table( PARAM_ru14ooh , idomain ) = P_ru14ooh ELSE P_ru14ooh = chem_index_table( PARAM_ru14ooh , idomain ) END IF chem_boundary_table( idomain, P_ru14ooh ) = .TRUE. chem_dname_table( idomain, P_ru14ooh ) = 'ru14ooh' chem_desc_table( idomain, P_ru14ooh ) = 'RU14OOH concentration' chem_units_table( idomain, P_ru14ooh ) = 'ppmv' chem_streams_table( idomain, P_ru14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14ooh )%stream(2) = 2097216 F_ru14ooh = .TRUE. IF ( chem_index_table( PARAM_ru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12ooh = chem_num_table(idomain) chem_index_table( PARAM_ru12ooh , idomain ) = P_ru12ooh ELSE P_ru12ooh = chem_index_table( PARAM_ru12ooh , idomain ) END IF chem_boundary_table( idomain, P_ru12ooh ) = .TRUE. chem_dname_table( idomain, P_ru12ooh ) = 'ru12ooh' chem_desc_table( idomain, P_ru12ooh ) = 'RU12OOH concentration' chem_units_table( idomain, P_ru12ooh ) = 'ppmv' chem_streams_table( idomain, P_ru12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12ooh )%stream(2) = 2097216 F_ru12ooh = .TRUE. IF ( chem_index_table( PARAM_ru10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10ooh = chem_num_table(idomain) chem_index_table( PARAM_ru10ooh , idomain ) = P_ru10ooh ELSE P_ru10ooh = chem_index_table( PARAM_ru10ooh , idomain ) END IF chem_boundary_table( idomain, P_ru10ooh ) = .TRUE. chem_dname_table( idomain, P_ru10ooh ) = 'ru10ooh' chem_desc_table( idomain, P_ru10ooh ) = 'RU10OOH concentration' chem_units_table( idomain, P_ru10ooh ) = 'ppmv' chem_streams_table( idomain, P_ru10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru10ooh )%stream(2) = 2097216 F_ru10ooh = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_ru12pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12pan = chem_num_table(idomain) chem_index_table( PARAM_ru12pan , idomain ) = P_ru12pan ELSE P_ru12pan = chem_index_table( PARAM_ru12pan , idomain ) END IF chem_boundary_table( idomain, P_ru12pan ) = .TRUE. chem_dname_table( idomain, P_ru12pan ) = 'ru12pan' chem_desc_table( idomain, P_ru12pan ) = 'RU12PAN concentration' chem_units_table( idomain, P_ru12pan ) = 'ppmv' chem_streams_table( idomain, P_ru12pan )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12pan )%stream(2) = 2097216 F_ru12pan = .TRUE. IF ( chem_index_table( PARAM_nucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nucarb12 = chem_num_table(idomain) chem_index_table( PARAM_nucarb12 , idomain ) = P_nucarb12 ELSE P_nucarb12 = chem_index_table( PARAM_nucarb12 , idomain ) END IF chem_boundary_table( idomain, P_nucarb12 ) = .TRUE. chem_dname_table( idomain, P_nucarb12 ) = 'nucarb12' chem_desc_table( idomain, P_nucarb12 ) = 'NUCARB12 concentration' chem_units_table( idomain, P_nucarb12 ) = 'ppmv' chem_streams_table( idomain, P_nucarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_nucarb12 )%stream(2) = 2097216 F_nucarb12 = .TRUE. IF ( chem_index_table( PARAM_nru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14ooh = chem_num_table(idomain) chem_index_table( PARAM_nru14ooh , idomain ) = P_nru14ooh ELSE P_nru14ooh = chem_index_table( PARAM_nru14ooh , idomain ) END IF chem_boundary_table( idomain, P_nru14ooh ) = .TRUE. chem_dname_table( idomain, P_nru14ooh ) = 'nru14ooh' chem_desc_table( idomain, P_nru14ooh ) = 'NRU14OOH concentration' chem_units_table( idomain, P_nru14ooh ) = 'ppmv' chem_streams_table( idomain, P_nru14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nru14ooh )%stream(2) = 2097216 F_nru14ooh = .TRUE. IF ( chem_index_table( PARAM_nru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12ooh = chem_num_table(idomain) chem_index_table( PARAM_nru12ooh , idomain ) = P_nru12ooh ELSE P_nru12ooh = chem_index_table( PARAM_nru12ooh , idomain ) END IF chem_boundary_table( idomain, P_nru12ooh ) = .TRUE. chem_dname_table( idomain, P_nru12ooh ) = 'nru12ooh' chem_desc_table( idomain, P_nru12ooh ) = 'NRU12OOH concentration' chem_units_table( idomain, P_nru12ooh ) = 'ppmv' chem_streams_table( idomain, P_nru12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nru12ooh )%stream(2) = 2097216 F_nru12ooh = .TRUE. IF ( chem_index_table( PARAM_noa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_noa = chem_num_table(idomain) chem_index_table( PARAM_noa , idomain ) = P_noa ELSE P_noa = chem_index_table( PARAM_noa , idomain ) END IF chem_boundary_table( idomain, P_noa ) = .TRUE. chem_dname_table( idomain, P_noa ) = 'noa' chem_desc_table( idomain, P_noa ) = 'NOA concentration' chem_units_table( idomain, P_noa ) = 'ppmv' chem_streams_table( idomain, P_noa )%stream(1) = 33554433 chem_streams_table( idomain, P_noa )%stream(2) = 2097216 F_noa = .TRUE. IF ( chem_index_table( PARAM_ra13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13no3 = chem_num_table(idomain) chem_index_table( PARAM_ra13no3 , idomain ) = P_ra13no3 ELSE P_ra13no3 = chem_index_table( PARAM_ra13no3 , idomain ) END IF chem_boundary_table( idomain, P_ra13no3 ) = .TRUE. chem_dname_table( idomain, P_ra13no3 ) = 'ra13no3' chem_desc_table( idomain, P_ra13no3 ) = 'RA13NO3 concentration' chem_units_table( idomain, P_ra13no3 ) = 'ppmv' chem_streams_table( idomain, P_ra13no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13no3 )%stream(2) = 2097216 F_ra13no3 = .TRUE. IF ( chem_index_table( PARAM_ra13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13ooh = chem_num_table(idomain) chem_index_table( PARAM_ra13ooh , idomain ) = P_ra13ooh ELSE P_ra13ooh = chem_index_table( PARAM_ra13ooh , idomain ) END IF chem_boundary_table( idomain, P_ra13ooh ) = .TRUE. chem_dname_table( idomain, P_ra13ooh ) = 'ra13ooh' chem_desc_table( idomain, P_ra13ooh ) = 'RA13OOH concentration' chem_units_table( idomain, P_ra13ooh ) = 'ppmv' chem_streams_table( idomain, P_ra13ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13ooh )%stream(2) = 2097216 F_ra13ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb8 = chem_num_table(idomain) chem_index_table( PARAM_udcarb8 , idomain ) = P_udcarb8 ELSE P_udcarb8 = chem_index_table( PARAM_udcarb8 , idomain ) END IF chem_boundary_table( idomain, P_udcarb8 ) = .TRUE. chem_dname_table( idomain, P_udcarb8 ) = 'udcarb8' chem_desc_table( idomain, P_udcarb8 ) = 'UDCARB8 concentration' chem_units_table( idomain, P_udcarb8 ) = 'ppmv' chem_streams_table( idomain, P_udcarb8 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb8 )%stream(2) = 2097216 F_udcarb8 = .TRUE. IF ( chem_index_table( PARAM_aroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh14 = chem_num_table(idomain) chem_index_table( PARAM_aroh14 , idomain ) = P_aroh14 ELSE P_aroh14 = chem_index_table( PARAM_aroh14 , idomain ) END IF chem_boundary_table( idomain, P_aroh14 ) = .TRUE. chem_dname_table( idomain, P_aroh14 ) = 'aroh14' chem_desc_table( idomain, P_aroh14 ) = 'AROH14 concentration' chem_units_table( idomain, P_aroh14 ) = 'ppmv' chem_streams_table( idomain, P_aroh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_aroh14 )%stream(2) = 2097216 F_aroh14 = .TRUE. IF ( chem_index_table( PARAM_raroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh14 = chem_num_table(idomain) chem_index_table( PARAM_raroh14 , idomain ) = P_raroh14 ELSE P_raroh14 = chem_index_table( PARAM_raroh14 , idomain ) END IF chem_boundary_table( idomain, P_raroh14 ) = .TRUE. chem_dname_table( idomain, P_raroh14 ) = 'raroh14' chem_desc_table( idomain, P_raroh14 ) = 'RAROH14 concentration' chem_units_table( idomain, P_raroh14 ) = 'ppmv' chem_streams_table( idomain, P_raroh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_raroh14 )%stream(2) = 2097216 F_raroh14 = .TRUE. IF ( chem_index_table( PARAM_arnoh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh14 = chem_num_table(idomain) chem_index_table( PARAM_arnoh14 , idomain ) = P_arnoh14 ELSE P_arnoh14 = chem_index_table( PARAM_arnoh14 , idomain ) END IF chem_boundary_table( idomain, P_arnoh14 ) = .TRUE. chem_dname_table( idomain, P_arnoh14 ) = 'arnoh14' chem_desc_table( idomain, P_arnoh14 ) = 'ARNOH14 concentration' chem_units_table( idomain, P_arnoh14 ) = 'ppmv' chem_streams_table( idomain, P_arnoh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_arnoh14 )%stream(2) = 2097216 F_arnoh14 = .TRUE. IF ( chem_index_table( PARAM_ra16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16no3 = chem_num_table(idomain) chem_index_table( PARAM_ra16no3 , idomain ) = P_ra16no3 ELSE P_ra16no3 = chem_index_table( PARAM_ra16no3 , idomain ) END IF chem_boundary_table( idomain, P_ra16no3 ) = .TRUE. chem_dname_table( idomain, P_ra16no3 ) = 'ra16no3' chem_desc_table( idomain, P_ra16no3 ) = 'RA16NO3 concentration' chem_units_table( idomain, P_ra16no3 ) = 'ppmv' chem_streams_table( idomain, P_ra16no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16no3 )%stream(2) = 2097216 F_ra16no3 = .TRUE. IF ( chem_index_table( PARAM_ra16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16ooh = chem_num_table(idomain) chem_index_table( PARAM_ra16ooh , idomain ) = P_ra16ooh ELSE P_ra16ooh = chem_index_table( PARAM_ra16ooh , idomain ) END IF chem_boundary_table( idomain, P_ra16ooh ) = .TRUE. chem_dname_table( idomain, P_ra16ooh ) = 'ra16ooh' chem_desc_table( idomain, P_ra16ooh ) = 'RA16OOH concentration' chem_units_table( idomain, P_ra16ooh ) = 'ppmv' chem_streams_table( idomain, P_ra16ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16ooh )%stream(2) = 2097216 F_ra16ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb11 = chem_num_table(idomain) chem_index_table( PARAM_udcarb11 , idomain ) = P_udcarb11 ELSE P_udcarb11 = chem_index_table( PARAM_udcarb11 , idomain ) END IF chem_boundary_table( idomain, P_udcarb11 ) = .TRUE. chem_dname_table( idomain, P_udcarb11 ) = 'udcarb11' chem_desc_table( idomain, P_udcarb11 ) = 'UDCARB11 concentration' chem_units_table( idomain, P_udcarb11 ) = 'ppmv' chem_streams_table( idomain, P_udcarb11 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb11 )%stream(2) = 2097216 F_udcarb11 = .TRUE. IF ( chem_index_table( PARAM_aroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh17 = chem_num_table(idomain) chem_index_table( PARAM_aroh17 , idomain ) = P_aroh17 ELSE P_aroh17 = chem_index_table( PARAM_aroh17 , idomain ) END IF chem_boundary_table( idomain, P_aroh17 ) = .TRUE. chem_dname_table( idomain, P_aroh17 ) = 'aroh17' chem_desc_table( idomain, P_aroh17 ) = 'AROH17 concentration' chem_units_table( idomain, P_aroh17 ) = 'ppmv' chem_streams_table( idomain, P_aroh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_aroh17 )%stream(2) = 2097216 F_aroh17 = .TRUE. IF ( chem_index_table( PARAM_raroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh17 = chem_num_table(idomain) chem_index_table( PARAM_raroh17 , idomain ) = P_raroh17 ELSE P_raroh17 = chem_index_table( PARAM_raroh17 , idomain ) END IF chem_boundary_table( idomain, P_raroh17 ) = .TRUE. chem_dname_table( idomain, P_raroh17 ) = 'raroh17' chem_desc_table( idomain, P_raroh17 ) = 'RAROH17 concentration' chem_units_table( idomain, P_raroh17 ) = 'ppmv' chem_streams_table( idomain, P_raroh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_raroh17 )%stream(2) = 2097216 F_raroh17 = .TRUE. IF ( chem_index_table( PARAM_arnoh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh17 = chem_num_table(idomain) chem_index_table( PARAM_arnoh17 , idomain ) = P_arnoh17 ELSE P_arnoh17 = chem_index_table( PARAM_arnoh17 , idomain ) END IF chem_boundary_table( idomain, P_arnoh17 ) = .TRUE. chem_dname_table( idomain, P_arnoh17 ) = 'arnoh17' chem_desc_table( idomain, P_arnoh17 ) = 'ARNOH17 concentration' chem_units_table( idomain, P_arnoh17 ) = 'ppmv' chem_streams_table( idomain, P_arnoh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_arnoh17 )%stream(2) = 2097216 F_arnoh17 = .TRUE. IF ( chem_index_table( PARAM_udcarb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb14 = chem_num_table(idomain) chem_index_table( PARAM_udcarb14 , idomain ) = P_udcarb14 ELSE P_udcarb14 = chem_index_table( PARAM_udcarb14 , idomain ) END IF chem_boundary_table( idomain, P_udcarb14 ) = .TRUE. chem_dname_table( idomain, P_udcarb14 ) = 'udcarb14' chem_desc_table( idomain, P_udcarb14 ) = 'UDCARB14 concentration' chem_units_table( idomain, P_udcarb14 ) = 'ppmv' chem_streams_table( idomain, P_udcarb14 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb14 )%stream(2) = 2097216 F_udcarb14 = .TRUE. IF ( chem_index_table( PARAM_ra19co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19co2 = chem_num_table(idomain) chem_index_table( PARAM_ra19co2 , idomain ) = P_ra19co2 ELSE P_ra19co2 = chem_index_table( PARAM_ra19co2 , idomain ) END IF chem_boundary_table( idomain, P_ra19co2 ) = .TRUE. chem_dname_table( idomain, P_ra19co2 ) = 'ra19co2' chem_desc_table( idomain, P_ra19co2 ) = 'RA19CO2 concentration' chem_units_table( idomain, P_ra19co2 ) = 'ppmv' chem_streams_table( idomain, P_ra19co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19co2 )%stream(2) = 2097216 F_ra19co2 = .TRUE. IF ( chem_index_table( PARAM_ra19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19no3 = chem_num_table(idomain) chem_index_table( PARAM_ra19no3 , idomain ) = P_ra19no3 ELSE P_ra19no3 = chem_index_table( PARAM_ra19no3 , idomain ) END IF chem_boundary_table( idomain, P_ra19no3 ) = .TRUE. chem_dname_table( idomain, P_ra19no3 ) = 'ra19no3' chem_desc_table( idomain, P_ra19no3 ) = 'RA19NO3 concentration' chem_units_table( idomain, P_ra19no3 ) = 'ppmv' chem_streams_table( idomain, P_ra19no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19no3 )%stream(2) = 2097216 F_ra19no3 = .TRUE. IF ( chem_index_table( PARAM_ra19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ooh = chem_num_table(idomain) chem_index_table( PARAM_ra19ooh , idomain ) = P_ra19ooh ELSE P_ra19ooh = chem_index_table( PARAM_ra19ooh , idomain ) END IF chem_boundary_table( idomain, P_ra19ooh ) = .TRUE. chem_dname_table( idomain, P_ra19ooh ) = 'ra19ooh' chem_desc_table( idomain, P_ra19ooh ) = 'RA19OOH concentration' chem_units_table( idomain, P_ra19ooh ) = 'ppmv' chem_streams_table( idomain, P_ra19ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19ooh )%stream(2) = 2097216 F_ra19ooh = .TRUE. IF ( chem_index_table( PARAM_rtn28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn28no3 , idomain ) = P_rtn28no3 ELSE P_rtn28no3 = chem_index_table( PARAM_rtn28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn28no3 ) = .TRUE. chem_dname_table( idomain, P_rtn28no3 ) = 'rtn28no3' chem_desc_table( idomain, P_rtn28no3 ) = 'RTN28NO3 concentration' chem_units_table( idomain, P_rtn28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn28no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28no3 )%stream(2) = 2097216 F_rtn28no3 = .TRUE. IF ( chem_index_table( PARAM_rtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn28ooh , idomain ) = P_rtn28ooh ELSE P_rtn28ooh = chem_index_table( PARAM_rtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn28ooh ) = .TRUE. chem_dname_table( idomain, P_rtn28ooh ) = 'rtn28ooh' chem_desc_table( idomain, P_rtn28ooh ) = 'RTN28OOH concentration' chem_units_table( idomain, P_rtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28ooh )%stream(2) = 2097216 F_rtn28ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb26 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb26 = chem_num_table(idomain) chem_index_table( PARAM_tncarb26 , idomain ) = P_tncarb26 ELSE P_tncarb26 = chem_index_table( PARAM_tncarb26 , idomain ) END IF chem_boundary_table( idomain, P_tncarb26 ) = .TRUE. chem_dname_table( idomain, P_tncarb26 ) = 'tncarb26' chem_desc_table( idomain, P_tncarb26 ) = 'TNCARB26 concentration' chem_units_table( idomain, P_tncarb26 ) = 'ppmv' chem_streams_table( idomain, P_tncarb26 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb26 )%stream(2) = 2097216 F_tncarb26 = .TRUE. IF ( chem_index_table( PARAM_rtn26ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn26ooh , idomain ) = P_rtn26ooh ELSE P_rtn26ooh = chem_index_table( PARAM_rtn26ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn26ooh ) = .TRUE. chem_dname_table( idomain, P_rtn26ooh ) = 'rtn26ooh' chem_desc_table( idomain, P_rtn26ooh ) = 'RTN26OOH concentration' chem_units_table( idomain, P_rtn26ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn26ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26ooh )%stream(2) = 2097216 F_rtn26ooh = .TRUE. IF ( chem_index_table( PARAM_nrtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtn28ooh , idomain ) = P_nrtn28ooh ELSE P_nrtn28ooh = chem_index_table( PARAM_nrtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtn28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtn28ooh ) = 'nrtn28ooh' chem_desc_table( idomain, P_nrtn28ooh ) = 'NRTN28OOH concentration' chem_units_table( idomain, P_nrtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtn28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtn28ooh )%stream(2) = 2097216 F_nrtn28ooh = .TRUE. IF ( chem_index_table( PARAM_rtn26pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26pan = chem_num_table(idomain) chem_index_table( PARAM_rtn26pan , idomain ) = P_rtn26pan ELSE P_rtn26pan = chem_index_table( PARAM_rtn26pan , idomain ) END IF chem_boundary_table( idomain, P_rtn26pan ) = .TRUE. chem_dname_table( idomain, P_rtn26pan ) = 'rtn26pan' chem_desc_table( idomain, P_rtn26pan ) = 'RTN26PAN concentration' chem_units_table( idomain, P_rtn26pan ) = 'ppmv' chem_streams_table( idomain, P_rtn26pan )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26pan )%stream(2) = 2097216 F_rtn26pan = .TRUE. IF ( chem_index_table( PARAM_rtn25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn25ooh , idomain ) = P_rtn25ooh ELSE P_rtn25ooh = chem_index_table( PARAM_rtn25ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn25ooh ) = .TRUE. chem_dname_table( idomain, P_rtn25ooh ) = 'rtn25ooh' chem_desc_table( idomain, P_rtn25ooh ) = 'RTN25OOH concentration' chem_units_table( idomain, P_rtn25ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn25ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25ooh )%stream(2) = 2097216 F_rtn25ooh = .TRUE. IF ( chem_index_table( PARAM_rtn24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn24ooh , idomain ) = P_rtn24ooh ELSE P_rtn24ooh = chem_index_table( PARAM_rtn24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn24ooh ) = .TRUE. chem_dname_table( idomain, P_rtn24ooh ) = 'rtn24ooh' chem_desc_table( idomain, P_rtn24ooh ) = 'RTN24OOH concentration' chem_units_table( idomain, P_rtn24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn24ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn24ooh )%stream(2) = 2097216 F_rtn24ooh = .TRUE. IF ( chem_index_table( PARAM_rtn23ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn23ooh , idomain ) = P_rtn23ooh ELSE P_rtn23ooh = chem_index_table( PARAM_rtn23ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn23ooh ) = .TRUE. chem_dname_table( idomain, P_rtn23ooh ) = 'rtn23ooh' chem_desc_table( idomain, P_rtn23ooh ) = 'RTN23OOH concentration' chem_units_table( idomain, P_rtn23ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn23ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23ooh )%stream(2) = 2097216 F_rtn23ooh = .TRUE. IF ( chem_index_table( PARAM_rtn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn14ooh , idomain ) = P_rtn14ooh ELSE P_rtn14ooh = chem_index_table( PARAM_rtn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn14ooh ) = .TRUE. chem_dname_table( idomain, P_rtn14ooh ) = 'rtn14ooh' chem_desc_table( idomain, P_rtn14ooh ) = 'RTN14OOH concentration' chem_units_table( idomain, P_rtn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn14ooh )%stream(2) = 2097216 F_rtn14ooh = .TRUE. IF ( chem_index_table( PARAM_rtn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn10ooh , idomain ) = P_rtn10ooh ELSE P_rtn10ooh = chem_index_table( PARAM_rtn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn10ooh ) = .TRUE. chem_dname_table( idomain, P_rtn10ooh ) = 'rtn10ooh' chem_desc_table( idomain, P_rtn10ooh ) = 'RTN10OOH concentration' chem_units_table( idomain, P_rtn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn10ooh )%stream(2) = 2097216 F_rtn10ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb10 = chem_num_table(idomain) chem_index_table( PARAM_tncarb10 , idomain ) = P_tncarb10 ELSE P_tncarb10 = chem_index_table( PARAM_tncarb10 , idomain ) END IF chem_boundary_table( idomain, P_tncarb10 ) = .TRUE. chem_dname_table( idomain, P_tncarb10 ) = 'tncarb10' chem_desc_table( idomain, P_tncarb10 ) = 'TNCARB10 concentration' chem_units_table( idomain, P_tncarb10 ) = 'ppmv' chem_streams_table( idomain, P_tncarb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb10 )%stream(2) = 2097216 F_tncarb10 = .TRUE. IF ( chem_index_table( PARAM_rtn25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn25no3 , idomain ) = P_rtn25no3 ELSE P_rtn25no3 = chem_index_table( PARAM_rtn25no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn25no3 ) = .TRUE. chem_dname_table( idomain, P_rtn25no3 ) = 'rtn25no3' chem_desc_table( idomain, P_rtn25no3 ) = 'RTN25NO3 concentration' chem_units_table( idomain, P_rtn25no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn25no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25no3 )%stream(2) = 2097216 F_rtn25no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb15 = chem_num_table(idomain) chem_index_table( PARAM_tncarb15 , idomain ) = P_tncarb15 ELSE P_tncarb15 = chem_index_table( PARAM_tncarb15 , idomain ) END IF chem_boundary_table( idomain, P_tncarb15 ) = .TRUE. chem_dname_table( idomain, P_tncarb15 ) = 'tncarb15' chem_desc_table( idomain, P_tncarb15 ) = 'TNCARB15 concentration' chem_units_table( idomain, P_tncarb15 ) = 'ppmv' chem_streams_table( idomain, P_tncarb15 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb15 )%stream(2) = 2097216 F_tncarb15 = .TRUE. IF ( chem_index_table( PARAM_rcooh25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcooh25 = chem_num_table(idomain) chem_index_table( PARAM_rcooh25 , idomain ) = P_rcooh25 ELSE P_rcooh25 = chem_index_table( PARAM_rcooh25 , idomain ) END IF chem_boundary_table( idomain, P_rcooh25 ) = .TRUE. chem_dname_table( idomain, P_rcooh25 ) = 'rcooh25' chem_desc_table( idomain, P_rcooh25 ) = 'RCOOH25 concentration' chem_units_table( idomain, P_rcooh25 ) = 'ppmv' chem_streams_table( idomain, P_rcooh25 )%stream(1) = 33554433 chem_streams_table( idomain, P_rcooh25 )%stream(2) = 2097216 F_rcooh25 = .TRUE. IF ( chem_index_table( PARAM_rtx28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx28no3 , idomain ) = P_rtx28no3 ELSE P_rtx28no3 = chem_index_table( PARAM_rtx28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx28no3 ) = .TRUE. chem_dname_table( idomain, P_rtx28no3 ) = 'rtx28no3' chem_desc_table( idomain, P_rtx28no3 ) = 'RTX28NO3 concentration' chem_units_table( idomain, P_rtx28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx28no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28no3 )%stream(2) = 2097216 F_rtx28no3 = .TRUE. IF ( chem_index_table( PARAM_rtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx28ooh , idomain ) = P_rtx28ooh ELSE P_rtx28ooh = chem_index_table( PARAM_rtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx28ooh ) = .TRUE. chem_dname_table( idomain, P_rtx28ooh ) = 'rtx28ooh' chem_desc_table( idomain, P_rtx28ooh ) = 'RTX28OOH concentration' chem_units_table( idomain, P_rtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28ooh )%stream(2) = 2097216 F_rtx28ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb24 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb24 = chem_num_table(idomain) chem_index_table( PARAM_txcarb24 , idomain ) = P_txcarb24 ELSE P_txcarb24 = chem_index_table( PARAM_txcarb24 , idomain ) END IF chem_boundary_table( idomain, P_txcarb24 ) = .TRUE. chem_dname_table( idomain, P_txcarb24 ) = 'txcarb24' chem_desc_table( idomain, P_txcarb24 ) = 'TXCARB24 concentration' chem_units_table( idomain, P_txcarb24 ) = 'ppmv' chem_streams_table( idomain, P_txcarb24 )%stream(1) = 33554433 chem_streams_table( idomain, P_txcarb24 )%stream(2) = 2097216 F_txcarb24 = .TRUE. IF ( chem_index_table( PARAM_rtx24no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx24no3 , idomain ) = P_rtx24no3 ELSE P_rtx24no3 = chem_index_table( PARAM_rtx24no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx24no3 ) = .TRUE. chem_dname_table( idomain, P_rtx24no3 ) = 'rtx24no3' chem_desc_table( idomain, P_rtx24no3 ) = 'RTX24NO3 concentration' chem_units_table( idomain, P_rtx24no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx24no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24no3 )%stream(2) = 2097216 F_rtx24no3 = .TRUE. IF ( chem_index_table( PARAM_rtx24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx24ooh , idomain ) = P_rtx24ooh ELSE P_rtx24ooh = chem_index_table( PARAM_rtx24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx24ooh ) = .TRUE. chem_dname_table( idomain, P_rtx24ooh ) = 'rtx24ooh' chem_desc_table( idomain, P_rtx24ooh ) = 'RTX24OOH concentration' chem_units_table( idomain, P_rtx24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx24ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24ooh )%stream(2) = 2097216 F_rtx24ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb22 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb22 = chem_num_table(idomain) chem_index_table( PARAM_txcarb22 , idomain ) = P_txcarb22 ELSE P_txcarb22 = chem_index_table( PARAM_txcarb22 , idomain ) END IF chem_boundary_table( idomain, P_txcarb22 ) = .TRUE. chem_dname_table( idomain, P_txcarb22 ) = 'txcarb22' chem_desc_table( idomain, P_txcarb22 ) = 'TXCARB22 concentration' chem_units_table( idomain, P_txcarb22 ) = 'ppmv' chem_streams_table( idomain, P_txcarb22 )%stream(1) = 33554433 chem_streams_table( idomain, P_txcarb22 )%stream(2) = 2097216 F_txcarb22 = .TRUE. IF ( chem_index_table( PARAM_rtx22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx22no3 , idomain ) = P_rtx22no3 ELSE P_rtx22no3 = chem_index_table( PARAM_rtx22no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx22no3 ) = .TRUE. chem_dname_table( idomain, P_rtx22no3 ) = 'rtx22no3' chem_desc_table( idomain, P_rtx22no3 ) = 'RTX22NO3 concentration' chem_units_table( idomain, P_rtx22no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx22no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22no3 )%stream(2) = 2097216 F_rtx22no3 = .TRUE. IF ( chem_index_table( PARAM_rtx22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx22ooh , idomain ) = P_rtx22ooh ELSE P_rtx22ooh = chem_index_table( PARAM_rtx22ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx22ooh ) = .TRUE. chem_dname_table( idomain, P_rtx22ooh ) = 'rtx22ooh' chem_desc_table( idomain, P_rtx22ooh ) = 'RTX22OOH concentration' chem_units_table( idomain, P_rtx22ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx22ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22ooh )%stream(2) = 2097216 F_rtx22ooh = .TRUE. IF ( chem_index_table( PARAM_nrtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtx28ooh , idomain ) = P_nrtx28ooh ELSE P_nrtx28ooh = chem_index_table( PARAM_nrtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtx28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtx28ooh ) = 'nrtx28ooh' chem_desc_table( idomain, P_nrtx28ooh ) = 'NRTX28OOH concentration' chem_units_table( idomain, P_nrtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtx28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtx28ooh )%stream(2) = 2097216 F_nrtx28ooh = .TRUE. IF ( chem_index_table( PARAM_carb11a , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb11a = chem_num_table(idomain) chem_index_table( PARAM_carb11a , idomain ) = P_carb11a ELSE P_carb11a = chem_index_table( PARAM_carb11a , idomain ) END IF chem_boundary_table( idomain, P_carb11a ) = .TRUE. chem_dname_table( idomain, P_carb11a ) = 'carb11a' chem_desc_table( idomain, P_carb11a ) = 'CARB11A concentration' chem_units_table( idomain, P_carb11a ) = 'ppmv' chem_streams_table( idomain, P_carb11a )%stream(1) = 33554433 chem_streams_table( idomain, P_carb11a )%stream(2) = 2097216 F_carb11a = .TRUE. IF ( chem_index_table( PARAM_anhy , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anhy = chem_num_table(idomain) chem_index_table( PARAM_anhy , idomain ) = P_anhy ELSE P_anhy = chem_index_table( PARAM_anhy , idomain ) END IF chem_boundary_table( idomain, P_anhy ) = .TRUE. chem_dname_table( idomain, P_anhy ) = 'anhy' chem_desc_table( idomain, P_anhy ) = 'ANHY concentration' chem_units_table( idomain, P_anhy ) = 'ppmv' chem_streams_table( idomain, P_anhy )%stream(1) = 33554433 chem_streams_table( idomain, P_anhy )%stream(2) = 2097216 F_anhy = .TRUE. IF ( chem_index_table( PARAM_ch3o2no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2no2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2no2 , idomain ) = P_ch3o2no2 ELSE P_ch3o2no2 = chem_index_table( PARAM_ch3o2no2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2no2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2no2 ) = 'ch3o2no2' chem_desc_table( idomain, P_ch3o2no2 ) = 'CH3O2NO2 concentration' chem_units_table( idomain, P_ch3o2no2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2no2 )%stream(2) = 2097216 F_ch3o2no2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_rtn23no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn23no3 , idomain ) = P_rtn23no3 ELSE P_rtn23no3 = chem_index_table( PARAM_rtn23no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn23no3 ) = .TRUE. chem_dname_table( idomain, P_rtn23no3 ) = 'rtn23no3' chem_desc_table( idomain, P_rtn23no3 ) = 'rtn23no3 concentration' chem_units_table( idomain, P_rtn23no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn23no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23no3 )%stream(2) = 2097216 F_rtn23no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb12 = chem_num_table(idomain) chem_index_table( PARAM_tncarb12 , idomain ) = P_tncarb12 ELSE P_tncarb12 = chem_index_table( PARAM_tncarb12 , idomain ) END IF chem_boundary_table( idomain, P_tncarb12 ) = .TRUE. chem_dname_table( idomain, P_tncarb12 ) = 'tncarb12' chem_desc_table( idomain, P_tncarb12 ) = 'tncarb12 concentration' chem_units_table( idomain, P_tncarb12 ) = 'ppmv' chem_streams_table( idomain, P_tncarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb12 )%stream(2) = 2097216 F_tncarb12 = .TRUE. IF ( chem_index_table( PARAM_tncarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb11 = chem_num_table(idomain) chem_index_table( PARAM_tncarb11 , idomain ) = P_tncarb11 ELSE P_tncarb11 = chem_index_table( PARAM_tncarb11 , idomain ) END IF chem_boundary_table( idomain, P_tncarb11 ) = .TRUE. chem_dname_table( idomain, P_tncarb11 ) = 'tncarb11' chem_desc_table( idomain, P_tncarb11 ) = 'tncarb11 concentration' chem_units_table( idomain, P_tncarb11 ) = 'ppmv' chem_streams_table( idomain, P_tncarb11 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb11 )%stream(2) = 2097216 F_tncarb11 = .TRUE. IF ( chem_index_table( PARAM_tm123b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm123b = chem_num_table(idomain) chem_index_table( PARAM_tm123b , idomain ) = P_tm123b ELSE P_tm123b = chem_index_table( PARAM_tm123b , idomain ) END IF chem_boundary_table( idomain, P_tm123b ) = .TRUE. chem_dname_table( idomain, P_tm123b ) = 'tm123b' chem_desc_table( idomain, P_tm123b ) = 'tm123b concentration' chem_units_table( idomain, P_tm123b ) = 'ppmv' chem_streams_table( idomain, P_tm123b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm123b )%stream(2) = 2097216 F_tm123b = .TRUE. IF ( chem_index_table( PARAM_tm124b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm124b = chem_num_table(idomain) chem_index_table( PARAM_tm124b , idomain ) = P_tm124b ELSE P_tm124b = chem_index_table( PARAM_tm124b , idomain ) END IF chem_boundary_table( idomain, P_tm124b ) = .TRUE. chem_dname_table( idomain, P_tm124b ) = 'tm124b' chem_desc_table( idomain, P_tm124b ) = 'tm124b concentration' chem_units_table( idomain, P_tm124b ) = 'ppmv' chem_streams_table( idomain, P_tm124b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm124b )%stream(2) = 2097216 F_tm124b = .TRUE. IF ( chem_index_table( PARAM_tm135b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm135b = chem_num_table(idomain) chem_index_table( PARAM_tm135b , idomain ) = P_tm135b ELSE P_tm135b = chem_index_table( PARAM_tm135b , idomain ) END IF chem_boundary_table( idomain, P_tm135b ) = .TRUE. chem_dname_table( idomain, P_tm135b ) = 'tm135b' chem_desc_table( idomain, P_tm135b ) = 'tm135b concentration' chem_units_table( idomain, P_tm135b ) = 'ppmv' chem_streams_table( idomain, P_tm135b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm135b )%stream(2) = 2097216 F_tm135b = .TRUE. IF ( chem_index_table( PARAM_oethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oethtol = chem_num_table(idomain) chem_index_table( PARAM_oethtol , idomain ) = P_oethtol ELSE P_oethtol = chem_index_table( PARAM_oethtol , idomain ) END IF chem_boundary_table( idomain, P_oethtol ) = .TRUE. chem_dname_table( idomain, P_oethtol ) = 'oethtol' chem_desc_table( idomain, P_oethtol ) = 'oethtol concentration' chem_units_table( idomain, P_oethtol ) = 'ppmv' chem_streams_table( idomain, P_oethtol )%stream(1) = 33554433 chem_streams_table( idomain, P_oethtol )%stream(2) = 2097216 F_oethtol = .TRUE. IF ( chem_index_table( PARAM_methtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methtol = chem_num_table(idomain) chem_index_table( PARAM_methtol , idomain ) = P_methtol ELSE P_methtol = chem_index_table( PARAM_methtol , idomain ) END IF chem_boundary_table( idomain, P_methtol ) = .TRUE. chem_dname_table( idomain, P_methtol ) = 'methtol' chem_desc_table( idomain, P_methtol ) = 'methtol concentration' chem_units_table( idomain, P_methtol ) = 'ppmv' chem_streams_table( idomain, P_methtol )%stream(1) = 33554433 chem_streams_table( idomain, P_methtol )%stream(2) = 2097216 F_methtol = .TRUE. IF ( chem_index_table( PARAM_pethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pethtol = chem_num_table(idomain) chem_index_table( PARAM_pethtol , idomain ) = P_pethtol ELSE P_pethtol = chem_index_table( PARAM_pethtol , idomain ) END IF chem_boundary_table( idomain, P_pethtol ) = .TRUE. chem_dname_table( idomain, P_pethtol ) = 'pethtol' chem_desc_table( idomain, P_pethtol ) = 'pethtol concentration' chem_units_table( idomain, P_pethtol ) = 'ppmv' chem_streams_table( idomain, P_pethtol )%stream(1) = 33554433 chem_streams_table( idomain, P_pethtol )%stream(2) = 2097216 F_pethtol = .TRUE. IF ( chem_index_table( PARAM_ra22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22no3 = chem_num_table(idomain) chem_index_table( PARAM_ra22no3 , idomain ) = P_ra22no3 ELSE P_ra22no3 = chem_index_table( PARAM_ra22no3 , idomain ) END IF chem_boundary_table( idomain, P_ra22no3 ) = .TRUE. chem_dname_table( idomain, P_ra22no3 ) = 'ra22no3' chem_desc_table( idomain, P_ra22no3 ) = 'ra22no3 concentration' chem_units_table( idomain, P_ra22no3 ) = 'ppmv' chem_streams_table( idomain, P_ra22no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22no3 )%stream(2) = 2097216 F_ra22no3 = .TRUE. IF ( chem_index_table( PARAM_ra22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ooh = chem_num_table(idomain) chem_index_table( PARAM_ra22ooh , idomain ) = P_ra22ooh ELSE P_ra22ooh = chem_index_table( PARAM_ra22ooh , idomain ) END IF chem_boundary_table( idomain, P_ra22ooh ) = .TRUE. chem_dname_table( idomain, P_ra22ooh ) = 'ra22ooh' chem_desc_table( idomain, P_ra22ooh ) = 'ra22ooh concentration' chem_units_table( idomain, P_ra22ooh ) = 'ppmv' chem_streams_table( idomain, P_ra22ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22ooh )%stream(2) = 2097216 F_ra22ooh = .TRUE. IF ( chem_index_table( PARAM_dime35eb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dime35eb = chem_num_table(idomain) chem_index_table( PARAM_dime35eb , idomain ) = P_dime35eb ELSE P_dime35eb = chem_index_table( PARAM_dime35eb , idomain ) END IF chem_boundary_table( idomain, P_dime35eb ) = .TRUE. chem_dname_table( idomain, P_dime35eb ) = 'dime35eb' chem_desc_table( idomain, P_dime35eb ) = 'dime35eb concentration' chem_units_table( idomain, P_dime35eb ) = 'ppmv' chem_streams_table( idomain, P_dime35eb )%stream(1) = 33554433 chem_streams_table( idomain, P_dime35eb )%stream(2) = 2097216 F_dime35eb = .TRUE. IF ( chem_index_table( PARAM_ra25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25no3 = chem_num_table(idomain) chem_index_table( PARAM_ra25no3 , idomain ) = P_ra25no3 ELSE P_ra25no3 = chem_index_table( PARAM_ra25no3 , idomain ) END IF chem_boundary_table( idomain, P_ra25no3 ) = .TRUE. chem_dname_table( idomain, P_ra25no3 ) = 'ra25no3' chem_desc_table( idomain, P_ra25no3 ) = 'ra25no3 concentration' chem_units_table( idomain, P_ra25no3 ) = 'ppmv' chem_streams_table( idomain, P_ra25no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25no3 )%stream(2) = 2097216 F_ra25no3 = .TRUE. IF ( chem_index_table( PARAM_udcarb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb17 = chem_num_table(idomain) chem_index_table( PARAM_udcarb17 , idomain ) = P_udcarb17 ELSE P_udcarb17 = chem_index_table( PARAM_udcarb17 , idomain ) END IF chem_boundary_table( idomain, P_udcarb17 ) = .TRUE. chem_dname_table( idomain, P_udcarb17 ) = 'udcarb17' chem_desc_table( idomain, P_udcarb17 ) = 'udcarb17 concentration' chem_units_table( idomain, P_udcarb17 ) = 'ppmv' chem_streams_table( idomain, P_udcarb17 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb17 )%stream(2) = 2097216 F_udcarb17 = .TRUE. IF ( chem_index_table( PARAM_ra25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25ooh = chem_num_table(idomain) chem_index_table( PARAM_ra25ooh , idomain ) = P_ra25ooh ELSE P_ra25ooh = chem_index_table( PARAM_ra25ooh , idomain ) END IF chem_boundary_table( idomain, P_ra25ooh ) = .TRUE. chem_dname_table( idomain, P_ra25ooh ) = 'ra25ooh' chem_desc_table( idomain, P_ra25ooh ) = 'ra25ooh concentration' chem_units_table( idomain, P_ra25ooh ) = 'ppmv' chem_streams_table( idomain, P_ra25ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25ooh )%stream(2) = 2097216 F_ra25ooh = .TRUE. IF ( chem_index_table( PARAM_clno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clno2 = chem_num_table(idomain) chem_index_table( PARAM_clno2 , idomain ) = P_clno2 ELSE P_clno2 = chem_index_table( PARAM_clno2 , idomain ) END IF chem_boundary_table( idomain, P_clno2 ) = .TRUE. chem_dname_table( idomain, P_clno2 ) = 'clno2' chem_desc_table( idomain, P_clno2 ) = 'ClNO2 concentration' chem_units_table( idomain, P_clno2 ) = 'ppmv' chem_streams_table( idomain, P_clno2 )%stream(1) = 33554433 chem_streams_table( idomain, P_clno2 )%stream(2) = 2097216 F_clno2 = .TRUE. IF ( chem_index_table( PARAM_ch3oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oo = chem_num_table(idomain) chem_index_table( PARAM_ch3oo , idomain ) = P_ch3oo ELSE P_ch3oo = chem_index_table( PARAM_ch3oo , idomain ) END IF chem_boundary_table( idomain, P_ch3oo ) = .TRUE. chem_dname_table( idomain, P_ch3oo ) = 'ch3oo' chem_desc_table( idomain, P_ch3oo ) = 'CH3OO concentration' chem_units_table( idomain, P_ch3oo ) = 'ppmv' chem_streams_table( idomain, P_ch3oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oo )%stream(2) = 2097216 F_ch3oo = .TRUE. IF ( chem_index_table( PARAM_c2h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c2h5o2 , idomain ) = P_c2h5o2 ELSE P_c2h5o2 = chem_index_table( PARAM_c2h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c2h5o2 ) = .TRUE. chem_dname_table( idomain, P_c2h5o2 ) = 'c2h5o2' chem_desc_table( idomain, P_c2h5o2 ) = 'C2H5O2 concentration' chem_units_table( idomain, P_c2h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c2h5o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5o2 )%stream(2) = 2097216 F_c2h5o2 = .TRUE. IF ( chem_index_table( PARAM_hoch2ch2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2ch2o2 = chem_num_table(idomain) chem_index_table( PARAM_hoch2ch2o2 , idomain ) = P_hoch2ch2o2 ELSE P_hoch2ch2o2 = chem_index_table( PARAM_hoch2ch2o2 , idomain ) END IF chem_boundary_table( idomain, P_hoch2ch2o2 ) = .TRUE. chem_dname_table( idomain, P_hoch2ch2o2 ) = 'hoch2ch2o2' chem_desc_table( idomain, P_hoch2ch2o2 ) = 'HOCH2CH2O2 concentration' chem_units_table( idomain, P_hoch2ch2o2 ) = 'ppmv' chem_streams_table( idomain, P_hoch2ch2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2ch2o2 )%stream(2) = 2097216 F_hoch2ch2o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7o2 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7o2 , idomain ) = P_ic3h7o2 ELSE P_ic3h7o2 = chem_index_table( PARAM_ic3h7o2 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7o2 ) = .TRUE. chem_dname_table( idomain, P_ic3h7o2 ) = 'ic3h7o2' chem_desc_table( idomain, P_ic3h7o2 ) = 'IC3H7O2 concentration' chem_units_table( idomain, P_ic3h7o2 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ic3h7o2 )%stream(2) = 2097216 F_ic3h7o2 = .TRUE. IF ( chem_index_table( PARAM_rn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rn10o2 , idomain ) = P_rn10o2 ELSE P_rn10o2 = chem_index_table( PARAM_rn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rn10o2 ) = .TRUE. chem_dname_table( idomain, P_rn10o2 ) = 'rn10o2' chem_desc_table( idomain, P_rn10o2 ) = 'RN10O2 concentration' chem_units_table( idomain, P_rn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rn10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10o2 )%stream(2) = 2097216 F_rn10o2 = .TRUE. IF ( chem_index_table( PARAM_rn13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13o2 = chem_num_table(idomain) chem_index_table( PARAM_rn13o2 , idomain ) = P_rn13o2 ELSE P_rn13o2 = chem_index_table( PARAM_rn13o2 , idomain ) END IF chem_boundary_table( idomain, P_rn13o2 ) = .TRUE. chem_dname_table( idomain, P_rn13o2 ) = 'rn13o2' chem_desc_table( idomain, P_rn13o2 ) = 'RN13O2 concentration' chem_units_table( idomain, P_rn13o2 ) = 'ppmv' chem_streams_table( idomain, P_rn13o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13o2 )%stream(2) = 2097216 F_rn13o2 = .TRUE. IF ( chem_index_table( PARAM_rn16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16o2 = chem_num_table(idomain) chem_index_table( PARAM_rn16o2 , idomain ) = P_rn16o2 ELSE P_rn16o2 = chem_index_table( PARAM_rn16o2 , idomain ) END IF chem_boundary_table( idomain, P_rn16o2 ) = .TRUE. chem_dname_table( idomain, P_rn16o2 ) = 'rn16o2' chem_desc_table( idomain, P_rn16o2 ) = 'RN16O2 concentration' chem_units_table( idomain, P_rn16o2 ) = 'ppmv' chem_streams_table( idomain, P_rn16o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16o2 )%stream(2) = 2097216 F_rn16o2 = .TRUE. IF ( chem_index_table( PARAM_rn19o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19o2 = chem_num_table(idomain) chem_index_table( PARAM_rn19o2 , idomain ) = P_rn19o2 ELSE P_rn19o2 = chem_index_table( PARAM_rn19o2 , idomain ) END IF chem_boundary_table( idomain, P_rn19o2 ) = .TRUE. chem_dname_table( idomain, P_rn19o2 ) = 'rn19o2' chem_desc_table( idomain, P_rn19o2 ) = 'RN19O2 concentration' chem_units_table( idomain, P_rn19o2 ) = 'ppmv' chem_streams_table( idomain, P_rn19o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19o2 )%stream(2) = 2097216 F_rn19o2 = .TRUE. IF ( chem_index_table( PARAM_rn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9o2 = chem_num_table(idomain) chem_index_table( PARAM_rn9o2 , idomain ) = P_rn9o2 ELSE P_rn9o2 = chem_index_table( PARAM_rn9o2 , idomain ) END IF chem_boundary_table( idomain, P_rn9o2 ) = .TRUE. chem_dname_table( idomain, P_rn9o2 ) = 'rn9o2' chem_desc_table( idomain, P_rn9o2 ) = 'RN9O2 concentration' chem_units_table( idomain, P_rn9o2 ) = 'ppmv' chem_streams_table( idomain, P_rn9o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9o2 )%stream(2) = 2097216 F_rn9o2 = .TRUE. IF ( chem_index_table( PARAM_rn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12o2 = chem_num_table(idomain) chem_index_table( PARAM_rn12o2 , idomain ) = P_rn12o2 ELSE P_rn12o2 = chem_index_table( PARAM_rn12o2 , idomain ) END IF chem_boundary_table( idomain, P_rn12o2 ) = .TRUE. chem_dname_table( idomain, P_rn12o2 ) = 'rn12o2' chem_desc_table( idomain, P_rn12o2 ) = 'RN12O2 concentration' chem_units_table( idomain, P_rn12o2 ) = 'ppmv' chem_streams_table( idomain, P_rn12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12o2 )%stream(2) = 2097216 F_rn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn15o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15o2 = chem_num_table(idomain) chem_index_table( PARAM_rn15o2 , idomain ) = P_rn15o2 ELSE P_rn15o2 = chem_index_table( PARAM_rn15o2 , idomain ) END IF chem_boundary_table( idomain, P_rn15o2 ) = .TRUE. chem_dname_table( idomain, P_rn15o2 ) = 'rn15o2' chem_desc_table( idomain, P_rn15o2 ) = 'RN15O2 concentration' chem_units_table( idomain, P_rn15o2 ) = 'ppmv' chem_streams_table( idomain, P_rn15o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15o2 )%stream(2) = 2097216 F_rn15o2 = .TRUE. IF ( chem_index_table( PARAM_rn18o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18o2 = chem_num_table(idomain) chem_index_table( PARAM_rn18o2 , idomain ) = P_rn18o2 ELSE P_rn18o2 = chem_index_table( PARAM_rn18o2 , idomain ) END IF chem_boundary_table( idomain, P_rn18o2 ) = .TRUE. chem_dname_table( idomain, P_rn18o2 ) = 'rn18o2' chem_desc_table( idomain, P_rn18o2 ) = 'RN18O2 concentration' chem_units_table( idomain, P_rn18o2 ) = 'ppmv' chem_streams_table( idomain, P_rn18o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18o2 )%stream(2) = 2097216 F_rn18o2 = .TRUE. IF ( chem_index_table( PARAM_nrn6o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn6o2 , idomain ) = P_nrn6o2 ELSE P_nrn6o2 = chem_index_table( PARAM_nrn6o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn6o2 ) = .TRUE. chem_dname_table( idomain, P_nrn6o2 ) = 'nrn6o2' chem_desc_table( idomain, P_nrn6o2 ) = 'NRN6O2 concentration' chem_units_table( idomain, P_nrn6o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn6o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn6o2 )%stream(2) = 2097216 F_nrn6o2 = .TRUE. IF ( chem_index_table( PARAM_nrn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn9o2 , idomain ) = P_nrn9o2 ELSE P_nrn9o2 = chem_index_table( PARAM_nrn9o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn9o2 ) = .TRUE. chem_dname_table( idomain, P_nrn9o2 ) = 'nrn9o2' chem_desc_table( idomain, P_nrn9o2 ) = 'NRN9O2 concentration' chem_units_table( idomain, P_nrn9o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn9o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn9o2 )%stream(2) = 2097216 F_nrn9o2 = .TRUE. IF ( chem_index_table( PARAM_nrn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn12o2 , idomain ) = P_nrn12o2 ELSE P_nrn12o2 = chem_index_table( PARAM_nrn12o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn12o2 ) = .TRUE. chem_dname_table( idomain, P_nrn12o2 ) = 'nrn12o2' chem_desc_table( idomain, P_nrn12o2 ) = 'NRN12O2 concentration' chem_units_table( idomain, P_nrn12o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn12o2 )%stream(2) = 2097216 F_nrn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn11o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11o2 = chem_num_table(idomain) chem_index_table( PARAM_rn11o2 , idomain ) = P_rn11o2 ELSE P_rn11o2 = chem_index_table( PARAM_rn11o2 , idomain ) END IF chem_boundary_table( idomain, P_rn11o2 ) = .TRUE. chem_dname_table( idomain, P_rn11o2 ) = 'rn11o2' chem_desc_table( idomain, P_rn11o2 ) = 'RN11O2 concentration' chem_units_table( idomain, P_rn11o2 ) = 'ppmv' chem_streams_table( idomain, P_rn11o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn11o2 )%stream(2) = 2097216 F_rn11o2 = .TRUE. IF ( chem_index_table( PARAM_rn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rn14o2 , idomain ) = P_rn14o2 ELSE P_rn14o2 = chem_index_table( PARAM_rn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rn14o2 ) = .TRUE. chem_dname_table( idomain, P_rn14o2 ) = 'rn14o2' chem_desc_table( idomain, P_rn14o2 ) = 'RN14O2 concentration' chem_units_table( idomain, P_rn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rn14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn14o2 )%stream(2) = 2097216 F_rn14o2 = .TRUE. IF ( chem_index_table( PARAM_rn8o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8o2 = chem_num_table(idomain) chem_index_table( PARAM_rn8o2 , idomain ) = P_rn8o2 ELSE P_rn8o2 = chem_index_table( PARAM_rn8o2 , idomain ) END IF chem_boundary_table( idomain, P_rn8o2 ) = .TRUE. chem_dname_table( idomain, P_rn8o2 ) = 'rn8o2' chem_desc_table( idomain, P_rn8o2 ) = 'RN8O2 concentration' chem_units_table( idomain, P_rn8o2 ) = 'ppmv' chem_streams_table( idomain, P_rn8o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn8o2 )%stream(2) = 2097216 F_rn8o2 = .TRUE. IF ( chem_index_table( PARAM_rn17o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17o2 = chem_num_table(idomain) chem_index_table( PARAM_rn17o2 , idomain ) = P_rn17o2 ELSE P_rn17o2 = chem_index_table( PARAM_rn17o2 , idomain ) END IF chem_boundary_table( idomain, P_rn17o2 ) = .TRUE. chem_dname_table( idomain, P_rn17o2 ) = 'rn17o2' chem_desc_table( idomain, P_rn17o2 ) = 'RN17O2 concentration' chem_units_table( idomain, P_rn17o2 ) = 'ppmv' chem_streams_table( idomain, P_rn17o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn17o2 )%stream(2) = 2097216 F_rn17o2 = .TRUE. IF ( chem_index_table( PARAM_rn13ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn13ao2 , idomain ) = P_rn13ao2 ELSE P_rn13ao2 = chem_index_table( PARAM_rn13ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn13ao2 ) = .TRUE. chem_dname_table( idomain, P_rn13ao2 ) = 'rn13ao2' chem_desc_table( idomain, P_rn13ao2 ) = 'RN13AO2 concentration' chem_units_table( idomain, P_rn13ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn13ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13ao2 )%stream(2) = 2097216 F_rn13ao2 = .TRUE. IF ( chem_index_table( PARAM_rn16ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn16ao2 , idomain ) = P_rn16ao2 ELSE P_rn16ao2 = chem_index_table( PARAM_rn16ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn16ao2 ) = .TRUE. chem_dname_table( idomain, P_rn16ao2 ) = 'rn16ao2' chem_desc_table( idomain, P_rn16ao2 ) = 'RN16AO2 concentration' chem_units_table( idomain, P_rn16ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn16ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16ao2 )%stream(2) = 2097216 F_rn16ao2 = .TRUE. IF ( chem_index_table( PARAM_rn15ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn15ao2 , idomain ) = P_rn15ao2 ELSE P_rn15ao2 = chem_index_table( PARAM_rn15ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn15ao2 ) = .TRUE. chem_dname_table( idomain, P_rn15ao2 ) = 'rn15ao2' chem_desc_table( idomain, P_rn15ao2 ) = 'RN15AO2 concentration' chem_units_table( idomain, P_rn15ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn15ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15ao2 )%stream(2) = 2097216 F_rn15ao2 = .TRUE. IF ( chem_index_table( PARAM_rn18ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn18ao2 , idomain ) = P_rn18ao2 ELSE P_rn18ao2 = chem_index_table( PARAM_rn18ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn18ao2 ) = .TRUE. chem_dname_table( idomain, P_rn18ao2 ) = 'rn18ao2' chem_desc_table( idomain, P_rn18ao2 ) = 'RN18AO2 concentration' chem_units_table( idomain, P_rn18ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn18ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18ao2 )%stream(2) = 2097216 F_rn18ao2 = .TRUE. IF ( chem_index_table( PARAM_ru10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10o2 = chem_num_table(idomain) chem_index_table( PARAM_ru10o2 , idomain ) = P_ru10o2 ELSE P_ru10o2 = chem_index_table( PARAM_ru10o2 , idomain ) END IF chem_boundary_table( idomain, P_ru10o2 ) = .TRUE. chem_dname_table( idomain, P_ru10o2 ) = 'ru10o2' chem_desc_table( idomain, P_ru10o2 ) = 'RU10O2 concentration' chem_units_table( idomain, P_ru10o2 ) = 'ppmv' chem_streams_table( idomain, P_ru10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru10o2 )%stream(2) = 2097216 F_ru10o2 = .TRUE. IF ( chem_index_table( PARAM_nru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14o2 = chem_num_table(idomain) chem_index_table( PARAM_nru14o2 , idomain ) = P_nru14o2 ELSE P_nru14o2 = chem_index_table( PARAM_nru14o2 , idomain ) END IF chem_boundary_table( idomain, P_nru14o2 ) = .TRUE. chem_dname_table( idomain, P_nru14o2 ) = 'nru14o2' chem_desc_table( idomain, P_nru14o2 ) = 'NRU14O2 concentration' chem_units_table( idomain, P_nru14o2 ) = 'ppmv' chem_streams_table( idomain, P_nru14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nru14o2 )%stream(2) = 2097216 F_nru14o2 = .TRUE. IF ( chem_index_table( PARAM_nru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12o2 = chem_num_table(idomain) chem_index_table( PARAM_nru12o2 , idomain ) = P_nru12o2 ELSE P_nru12o2 = chem_index_table( PARAM_nru12o2 , idomain ) END IF chem_boundary_table( idomain, P_nru12o2 ) = .TRUE. chem_dname_table( idomain, P_nru12o2 ) = 'nru12o2' chem_desc_table( idomain, P_nru12o2 ) = 'NRU12O2 concentration' chem_units_table( idomain, P_nru12o2 ) = 'ppmv' chem_streams_table( idomain, P_nru12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nru12o2 )%stream(2) = 2097216 F_nru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13o2 = chem_num_table(idomain) chem_index_table( PARAM_ra13o2 , idomain ) = P_ra13o2 ELSE P_ra13o2 = chem_index_table( PARAM_ra13o2 , idomain ) END IF chem_boundary_table( idomain, P_ra13o2 ) = .TRUE. chem_dname_table( idomain, P_ra13o2 ) = 'ra13o2' chem_desc_table( idomain, P_ra13o2 ) = 'RA13O2 concentration' chem_units_table( idomain, P_ra13o2 ) = 'ppmv' chem_streams_table( idomain, P_ra13o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13o2 )%stream(2) = 2097216 F_ra13o2 = .TRUE. IF ( chem_index_table( PARAM_nrtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtx28o2 , idomain ) = P_nrtx28o2 ELSE P_nrtx28o2 = chem_index_table( PARAM_nrtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtx28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtx28o2 ) = 'nrtx28o2' chem_desc_table( idomain, P_nrtx28o2 ) = 'NRTX28O2 concentration' chem_units_table( idomain, P_nrtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtx28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtx28o2 )%stream(2) = 2097216 F_nrtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtx24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx24o2 , idomain ) = P_rtx24o2 ELSE P_rtx24o2 = chem_index_table( PARAM_rtx24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx24o2 ) = .TRUE. chem_dname_table( idomain, P_rtx24o2 ) = 'rtx24o2' chem_desc_table( idomain, P_rtx24o2 ) = 'RTX24O2 concentration' chem_units_table( idomain, P_rtx24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx24o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24o2 )%stream(2) = 2097216 F_rtx24o2 = .TRUE. IF ( chem_index_table( PARAM_rtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx28o2 , idomain ) = P_rtx28o2 ELSE P_rtx28o2 = chem_index_table( PARAM_rtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx28o2 ) = .TRUE. chem_dname_table( idomain, P_rtx28o2 ) = 'rtx28o2' chem_desc_table( idomain, P_rtx28o2 ) = 'RTX28O2 concentration' chem_units_table( idomain, P_rtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28o2 )%stream(2) = 2097216 F_rtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn25o2 , idomain ) = P_rtn25o2 ELSE P_rtn25o2 = chem_index_table( PARAM_rtn25o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn25o2 ) = .TRUE. chem_dname_table( idomain, P_rtn25o2 ) = 'rtn25o2' chem_desc_table( idomain, P_rtn25o2 ) = 'RTN25O2 concentration' chem_units_table( idomain, P_rtn25o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn25o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25o2 )%stream(2) = 2097216 F_rtn25o2 = .TRUE. IF ( chem_index_table( PARAM_rtn24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn24o2 , idomain ) = P_rtn24o2 ELSE P_rtn24o2 = chem_index_table( PARAM_rtn24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn24o2 ) = .TRUE. chem_dname_table( idomain, P_rtn24o2 ) = 'rtn24o2' chem_desc_table( idomain, P_rtn24o2 ) = 'RTN24O2 concentration' chem_units_table( idomain, P_rtn24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn24o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn24o2 )%stream(2) = 2097216 F_rtn24o2 = .TRUE. IF ( chem_index_table( PARAM_rtn23o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn23o2 , idomain ) = P_rtn23o2 ELSE P_rtn23o2 = chem_index_table( PARAM_rtn23o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn23o2 ) = .TRUE. chem_dname_table( idomain, P_rtn23o2 ) = 'rtn23o2' chem_desc_table( idomain, P_rtn23o2 ) = 'RTN23O2 concentration' chem_units_table( idomain, P_rtn23o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn23o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23o2 )%stream(2) = 2097216 F_rtn23o2 = .TRUE. IF ( chem_index_table( PARAM_rtn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn14o2 , idomain ) = P_rtn14o2 ELSE P_rtn14o2 = chem_index_table( PARAM_rtn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn14o2 ) = .TRUE. chem_dname_table( idomain, P_rtn14o2 ) = 'rtn14o2' chem_desc_table( idomain, P_rtn14o2 ) = 'RTN14O2 concentration' chem_units_table( idomain, P_rtn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn14o2 )%stream(2) = 2097216 F_rtn14o2 = .TRUE. IF ( chem_index_table( PARAM_rtn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn10o2 , idomain ) = P_rtn10o2 ELSE P_rtn10o2 = chem_index_table( PARAM_rtn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn10o2 ) = .TRUE. chem_dname_table( idomain, P_rtn10o2 ) = 'rtn10o2' chem_desc_table( idomain, P_rtn10o2 ) = 'RTN10O2 concentration' chem_units_table( idomain, P_rtn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn10o2 )%stream(2) = 2097216 F_rtn10o2 = .TRUE. IF ( chem_index_table( PARAM_nrtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtn28o2 , idomain ) = P_nrtn28o2 ELSE P_nrtn28o2 = chem_index_table( PARAM_nrtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtn28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtn28o2 ) = 'nrtn28o2' chem_desc_table( idomain, P_nrtn28o2 ) = 'NRTN28O2 concentration' chem_units_table( idomain, P_nrtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtn28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtn28o2 )%stream(2) = 2097216 F_nrtn28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn26o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn26o2 , idomain ) = P_rtn26o2 ELSE P_rtn26o2 = chem_index_table( PARAM_rtn26o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn26o2 ) = .TRUE. chem_dname_table( idomain, P_rtn26o2 ) = 'rtn26o2' chem_desc_table( idomain, P_rtn26o2 ) = 'RTN26O2 concentration' chem_units_table( idomain, P_rtn26o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn26o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26o2 )%stream(2) = 2097216 F_rtn26o2 = .TRUE. IF ( chem_index_table( PARAM_rtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn28o2 , idomain ) = P_rtn28o2 ELSE P_rtn28o2 = chem_index_table( PARAM_rtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn28o2 ) = .TRUE. chem_dname_table( idomain, P_rtn28o2 ) = 'rtn28o2' chem_desc_table( idomain, P_rtn28o2 ) = 'RTN28O2 concentration' chem_units_table( idomain, P_rtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28o2 )%stream(2) = 2097216 F_rtn28o2 = .TRUE. IF ( chem_index_table( PARAM_ra19ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra19ao2 , idomain ) = P_ra19ao2 ELSE P_ra19ao2 = chem_index_table( PARAM_ra19ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra19ao2 ) = .TRUE. chem_dname_table( idomain, P_ra19ao2 ) = 'ra19ao2' chem_desc_table( idomain, P_ra19ao2 ) = 'RA19AO2 concentration' chem_units_table( idomain, P_ra19ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra19ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19ao2 )%stream(2) = 2097216 F_ra19ao2 = .TRUE. IF ( chem_index_table( PARAM_ru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14o2 = chem_num_table(idomain) chem_index_table( PARAM_ru14o2 , idomain ) = P_ru14o2 ELSE P_ru14o2 = chem_index_table( PARAM_ru14o2 , idomain ) END IF chem_boundary_table( idomain, P_ru14o2 ) = .TRUE. chem_dname_table( idomain, P_ru14o2 ) = 'ru14o2' chem_desc_table( idomain, P_ru14o2 ) = 'RU14O2 concentration' chem_units_table( idomain, P_ru14o2 ) = 'ppmv' chem_streams_table( idomain, P_ru14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14o2 )%stream(2) = 2097216 F_ru14o2 = .TRUE. IF ( chem_index_table( PARAM_ru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12o2 = chem_num_table(idomain) chem_index_table( PARAM_ru12o2 , idomain ) = P_ru12o2 ELSE P_ru12o2 = chem_index_table( PARAM_ru12o2 , idomain ) END IF chem_boundary_table( idomain, P_ru12o2 ) = .TRUE. chem_dname_table( idomain, P_ru12o2 ) = 'ru12o2' chem_desc_table( idomain, P_ru12o2 ) = 'RU12O2 concentration' chem_units_table( idomain, P_ru12o2 ) = 'ppmv' chem_streams_table( idomain, P_ru12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12o2 )%stream(2) = 2097216 F_ru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16o2 = chem_num_table(idomain) chem_index_table( PARAM_ra16o2 , idomain ) = P_ra16o2 ELSE P_ra16o2 = chem_index_table( PARAM_ra16o2 , idomain ) END IF chem_boundary_table( idomain, P_ra16o2 ) = .TRUE. chem_dname_table( idomain, P_ra16o2 ) = 'ra16o2' chem_desc_table( idomain, P_ra16o2 ) = 'RA16O2 concentration' chem_units_table( idomain, P_ra16o2 ) = 'ppmv' chem_streams_table( idomain, P_ra16o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16o2 )%stream(2) = 2097216 F_ra16o2 = .TRUE. IF ( chem_index_table( PARAM_rtx22o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx22o2 , idomain ) = P_rtx22o2 ELSE P_rtx22o2 = chem_index_table( PARAM_rtx22o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx22o2 ) = .TRUE. chem_dname_table( idomain, P_rtx22o2 ) = 'rtx22o2' chem_desc_table( idomain, P_rtx22o2 ) = 'RTX22O2 concentration' chem_units_table( idomain, P_rtx22o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx22o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22o2 )%stream(2) = 2097216 F_rtx22o2 = .TRUE. IF ( chem_index_table( PARAM_ra22ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra22ao2 , idomain ) = P_ra22ao2 ELSE P_ra22ao2 = chem_index_table( PARAM_ra22ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra22ao2 ) = .TRUE. chem_dname_table( idomain, P_ra22ao2 ) = 'ra22ao2' chem_desc_table( idomain, P_ra22ao2 ) = 'RA22AO2 concentration' chem_units_table( idomain, P_ra22ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra22ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22ao2 )%stream(2) = 2097216 F_ra22ao2 = .TRUE. IF ( chem_index_table( PARAM_ra22bo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22bo2 = chem_num_table(idomain) chem_index_table( PARAM_ra22bo2 , idomain ) = P_ra22bo2 ELSE P_ra22bo2 = chem_index_table( PARAM_ra22bo2 , idomain ) END IF chem_boundary_table( idomain, P_ra22bo2 ) = .TRUE. chem_dname_table( idomain, P_ra22bo2 ) = 'ra22bo2' chem_desc_table( idomain, P_ra22bo2 ) = 'RA22BO2 concentration' chem_units_table( idomain, P_ra22bo2 ) = 'ppmv' chem_streams_table( idomain, P_ra22bo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22bo2 )%stream(2) = 2097216 F_ra22bo2 = .TRUE. IF ( chem_index_table( PARAM_ra25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25o2 = chem_num_table(idomain) chem_index_table( PARAM_ra25o2 , idomain ) = P_ra25o2 ELSE P_ra25o2 = chem_index_table( PARAM_ra25o2 , idomain ) END IF chem_boundary_table( idomain, P_ra25o2 ) = .TRUE. chem_dname_table( idomain, P_ra25o2 ) = 'ra25o2' chem_desc_table( idomain, P_ra25o2 ) = 'RA25O2 concentration' chem_units_table( idomain, P_ra25o2 ) = 'ppmv' chem_streams_table( idomain, P_ra25o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25o2 )%stream(2) = 2097216 F_ra25o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7no3 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7no3 , idomain ) = P_ic3h7no3 ELSE P_ic3h7no3 = chem_index_table( PARAM_ic3h7no3 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7no3 ) = .TRUE. chem_dname_table( idomain, P_ic3h7no3 ) = 'ic3h7no3' chem_desc_table( idomain, P_ic3h7no3 ) = 'IC3H7NO3 concentration' chem_units_table( idomain, P_ic3h7no3 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ic3h7no3 )%stream(2) = 2097216 F_ic3h7no3 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a05 = chem_num_table(idomain) chem_index_table( PARAM_so4_a05 , idomain ) = P_so4_a05 ELSE P_so4_a05 = chem_index_table( PARAM_so4_a05 , idomain ) END IF chem_boundary_table( idomain, P_so4_a05 ) = .TRUE. chem_dname_table( idomain, P_so4_a05 ) = 'so4_a05' chem_desc_table( idomain, P_so4_a05 ) = 'Sulfate, aerosol bin 05' chem_units_table( idomain, P_so4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a05 )%stream(2) = 2097216 F_so4_a05 = .TRUE. IF ( chem_index_table( PARAM_no3_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a05 = chem_num_table(idomain) chem_index_table( PARAM_no3_a05 , idomain ) = P_no3_a05 ELSE P_no3_a05 = chem_index_table( PARAM_no3_a05 , idomain ) END IF chem_boundary_table( idomain, P_no3_a05 ) = .TRUE. chem_dname_table( idomain, P_no3_a05 ) = 'no3_a05' chem_desc_table( idomain, P_no3_a05 ) = 'Nitrate, aerosol bin 05' chem_units_table( idomain, P_no3_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a05 )%stream(2) = 2097216 F_no3_a05 = .TRUE. IF ( chem_index_table( PARAM_cl_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a05 = chem_num_table(idomain) chem_index_table( PARAM_cl_a05 , idomain ) = P_cl_a05 ELSE P_cl_a05 = chem_index_table( PARAM_cl_a05 , idomain ) END IF chem_boundary_table( idomain, P_cl_a05 ) = .TRUE. chem_dname_table( idomain, P_cl_a05 ) = 'cl_a05' chem_desc_table( idomain, P_cl_a05 ) = 'Chloride, aerosol bin 05' chem_units_table( idomain, P_cl_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a05 )%stream(2) = 2097216 F_cl_a05 = .TRUE. IF ( chem_index_table( PARAM_nh4_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a05 , idomain ) = P_nh4_a05 ELSE P_nh4_a05 = chem_index_table( PARAM_nh4_a05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a05 ) = .TRUE. chem_dname_table( idomain, P_nh4_a05 ) = 'nh4_a05' chem_desc_table( idomain, P_nh4_a05 ) = 'Ammonium, aerosol bin 05' chem_units_table( idomain, P_nh4_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a05 )%stream(2) = 2097216 F_nh4_a05 = .TRUE. IF ( chem_index_table( PARAM_na_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a05 = chem_num_table(idomain) chem_index_table( PARAM_na_a05 , idomain ) = P_na_a05 ELSE P_na_a05 = chem_index_table( PARAM_na_a05 , idomain ) END IF chem_boundary_table( idomain, P_na_a05 ) = .TRUE. chem_dname_table( idomain, P_na_a05 ) = 'na_a05' chem_desc_table( idomain, P_na_a05 ) = 'Sodium, aerosol bin 05' chem_units_table( idomain, P_na_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a05 )%stream(2) = 2097216 F_na_a05 = .TRUE. IF ( chem_index_table( PARAM_oin_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a05 = chem_num_table(idomain) chem_index_table( PARAM_oin_a05 , idomain ) = P_oin_a05 ELSE P_oin_a05 = chem_index_table( PARAM_oin_a05 , idomain ) END IF chem_boundary_table( idomain, P_oin_a05 ) = .TRUE. chem_dname_table( idomain, P_oin_a05 ) = 'oin_a05' chem_desc_table( idomain, P_oin_a05 ) = 'Other inorganics, aerosol bin 05' chem_units_table( idomain, P_oin_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a05 )%stream(2) = 2097216 F_oin_a05 = .TRUE. IF ( chem_index_table( PARAM_oc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a05 = chem_num_table(idomain) chem_index_table( PARAM_oc_a05 , idomain ) = P_oc_a05 ELSE P_oc_a05 = chem_index_table( PARAM_oc_a05 , idomain ) END IF chem_boundary_table( idomain, P_oc_a05 ) = .TRUE. chem_dname_table( idomain, P_oc_a05 ) = 'oc_a05' chem_desc_table( idomain, P_oc_a05 ) = 'Organic carbon, aerosol bin 05' chem_units_table( idomain, P_oc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a05 )%stream(2) = 2097216 F_oc_a05 = .TRUE. IF ( chem_index_table( PARAM_bc_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a05 = chem_num_table(idomain) chem_index_table( PARAM_bc_a05 , idomain ) = P_bc_a05 ELSE P_bc_a05 = chem_index_table( PARAM_bc_a05 , idomain ) END IF chem_boundary_table( idomain, P_bc_a05 ) = .TRUE. chem_dname_table( idomain, P_bc_a05 ) = 'bc_a05' chem_desc_table( idomain, P_bc_a05 ) = 'Black carbon, aerosol bin 05' chem_units_table( idomain, P_bc_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a05 )%stream(2) = 2097216 F_bc_a05 = .TRUE. IF ( chem_index_table( PARAM_hysw_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a05 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a05 , idomain ) = P_hysw_a05 ELSE P_hysw_a05 = chem_index_table( PARAM_hysw_a05 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a05 ) = .TRUE. chem_dname_table( idomain, P_hysw_a05 ) = 'hysw_a05' chem_desc_table( idomain, P_hysw_a05 ) = 'Hysteresis water, aerosol bin 05' chem_units_table( idomain, P_hysw_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a05 )%stream(2) = 2097216 F_hysw_a05 = .TRUE. IF ( chem_index_table( PARAM_water_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a05 = chem_num_table(idomain) chem_index_table( PARAM_water_a05 , idomain ) = P_water_a05 ELSE P_water_a05 = chem_index_table( PARAM_water_a05 , idomain ) END IF chem_boundary_table( idomain, P_water_a05 ) = .TRUE. chem_dname_table( idomain, P_water_a05 ) = 'water_a05' chem_desc_table( idomain, P_water_a05 ) = 'Water, aerosol bin 05' chem_units_table( idomain, P_water_a05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a05 )%stream(2) = 2097216 F_water_a05 = .TRUE. IF ( chem_index_table( PARAM_num_a05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a05 = chem_num_table(idomain) chem_index_table( PARAM_num_a05 , idomain ) = P_num_a05 ELSE P_num_a05 = chem_index_table( PARAM_num_a05 , idomain ) END IF chem_boundary_table( idomain, P_num_a05 ) = .TRUE. chem_dname_table( idomain, P_num_a05 ) = 'num_a05' chem_desc_table( idomain, P_num_a05 ) = 'Number, aerosol bin 05' chem_units_table( idomain, P_num_a05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a05 )%stream(2) = 2097216 F_num_a05 = .TRUE. IF ( chem_index_table( PARAM_so4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a06 = chem_num_table(idomain) chem_index_table( PARAM_so4_a06 , idomain ) = P_so4_a06 ELSE P_so4_a06 = chem_index_table( PARAM_so4_a06 , idomain ) END IF chem_boundary_table( idomain, P_so4_a06 ) = .TRUE. chem_dname_table( idomain, P_so4_a06 ) = 'so4_a06' chem_desc_table( idomain, P_so4_a06 ) = 'Sulfate, aerosol bin 06' chem_units_table( idomain, P_so4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a06 )%stream(2) = 2097216 F_so4_a06 = .TRUE. IF ( chem_index_table( PARAM_no3_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a06 = chem_num_table(idomain) chem_index_table( PARAM_no3_a06 , idomain ) = P_no3_a06 ELSE P_no3_a06 = chem_index_table( PARAM_no3_a06 , idomain ) END IF chem_boundary_table( idomain, P_no3_a06 ) = .TRUE. chem_dname_table( idomain, P_no3_a06 ) = 'no3_a06' chem_desc_table( idomain, P_no3_a06 ) = 'Nitrate, aerosol bin 06' chem_units_table( idomain, P_no3_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a06 )%stream(2) = 2097216 F_no3_a06 = .TRUE. IF ( chem_index_table( PARAM_cl_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a06 = chem_num_table(idomain) chem_index_table( PARAM_cl_a06 , idomain ) = P_cl_a06 ELSE P_cl_a06 = chem_index_table( PARAM_cl_a06 , idomain ) END IF chem_boundary_table( idomain, P_cl_a06 ) = .TRUE. chem_dname_table( idomain, P_cl_a06 ) = 'cl_a06' chem_desc_table( idomain, P_cl_a06 ) = 'Chloride, aerosol bin 06' chem_units_table( idomain, P_cl_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a06 )%stream(2) = 2097216 F_cl_a06 = .TRUE. IF ( chem_index_table( PARAM_nh4_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a06 , idomain ) = P_nh4_a06 ELSE P_nh4_a06 = chem_index_table( PARAM_nh4_a06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a06 ) = .TRUE. chem_dname_table( idomain, P_nh4_a06 ) = 'nh4_a06' chem_desc_table( idomain, P_nh4_a06 ) = 'Ammonium, aerosol bin 06' chem_units_table( idomain, P_nh4_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a06 )%stream(2) = 2097216 F_nh4_a06 = .TRUE. IF ( chem_index_table( PARAM_na_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a06 = chem_num_table(idomain) chem_index_table( PARAM_na_a06 , idomain ) = P_na_a06 ELSE P_na_a06 = chem_index_table( PARAM_na_a06 , idomain ) END IF chem_boundary_table( idomain, P_na_a06 ) = .TRUE. chem_dname_table( idomain, P_na_a06 ) = 'na_a06' chem_desc_table( idomain, P_na_a06 ) = 'Sodium, aerosol bin 06' chem_units_table( idomain, P_na_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a06 )%stream(2) = 2097216 F_na_a06 = .TRUE. IF ( chem_index_table( PARAM_oin_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a06 = chem_num_table(idomain) chem_index_table( PARAM_oin_a06 , idomain ) = P_oin_a06 ELSE P_oin_a06 = chem_index_table( PARAM_oin_a06 , idomain ) END IF chem_boundary_table( idomain, P_oin_a06 ) = .TRUE. chem_dname_table( idomain, P_oin_a06 ) = 'oin_a06' chem_desc_table( idomain, P_oin_a06 ) = 'Other inorganics, aerosol bin 06' chem_units_table( idomain, P_oin_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a06 )%stream(2) = 2097216 F_oin_a06 = .TRUE. IF ( chem_index_table( PARAM_oc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a06 = chem_num_table(idomain) chem_index_table( PARAM_oc_a06 , idomain ) = P_oc_a06 ELSE P_oc_a06 = chem_index_table( PARAM_oc_a06 , idomain ) END IF chem_boundary_table( idomain, P_oc_a06 ) = .TRUE. chem_dname_table( idomain, P_oc_a06 ) = 'oc_a06' chem_desc_table( idomain, P_oc_a06 ) = 'Organic carbon, aerosol bin 06' chem_units_table( idomain, P_oc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a06 )%stream(2) = 2097216 F_oc_a06 = .TRUE. IF ( chem_index_table( PARAM_bc_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a06 = chem_num_table(idomain) chem_index_table( PARAM_bc_a06 , idomain ) = P_bc_a06 ELSE P_bc_a06 = chem_index_table( PARAM_bc_a06 , idomain ) END IF chem_boundary_table( idomain, P_bc_a06 ) = .TRUE. chem_dname_table( idomain, P_bc_a06 ) = 'bc_a06' chem_desc_table( idomain, P_bc_a06 ) = 'Black carbon, aerosol bin 06' chem_units_table( idomain, P_bc_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a06 )%stream(2) = 2097216 F_bc_a06 = .TRUE. IF ( chem_index_table( PARAM_hysw_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a06 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a06 , idomain ) = P_hysw_a06 ELSE P_hysw_a06 = chem_index_table( PARAM_hysw_a06 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a06 ) = .TRUE. chem_dname_table( idomain, P_hysw_a06 ) = 'hysw_a06' chem_desc_table( idomain, P_hysw_a06 ) = 'Hysteresis water, aerosol bin 06' chem_units_table( idomain, P_hysw_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a06 )%stream(2) = 2097216 F_hysw_a06 = .TRUE. IF ( chem_index_table( PARAM_water_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a06 = chem_num_table(idomain) chem_index_table( PARAM_water_a06 , idomain ) = P_water_a06 ELSE P_water_a06 = chem_index_table( PARAM_water_a06 , idomain ) END IF chem_boundary_table( idomain, P_water_a06 ) = .TRUE. chem_dname_table( idomain, P_water_a06 ) = 'water_a06' chem_desc_table( idomain, P_water_a06 ) = 'Water, aerosol bin 06' chem_units_table( idomain, P_water_a06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a06 )%stream(2) = 2097216 F_water_a06 = .TRUE. IF ( chem_index_table( PARAM_num_a06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a06 = chem_num_table(idomain) chem_index_table( PARAM_num_a06 , idomain ) = P_num_a06 ELSE P_num_a06 = chem_index_table( PARAM_num_a06 , idomain ) END IF chem_boundary_table( idomain, P_num_a06 ) = .TRUE. chem_dname_table( idomain, P_num_a06 ) = 'num_a06' chem_desc_table( idomain, P_num_a06 ) = 'Number, aerosol bin 06' chem_units_table( idomain, P_num_a06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a06 )%stream(2) = 2097216 F_num_a06 = .TRUE. IF ( chem_index_table( PARAM_so4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a07 = chem_num_table(idomain) chem_index_table( PARAM_so4_a07 , idomain ) = P_so4_a07 ELSE P_so4_a07 = chem_index_table( PARAM_so4_a07 , idomain ) END IF chem_boundary_table( idomain, P_so4_a07 ) = .TRUE. chem_dname_table( idomain, P_so4_a07 ) = 'so4_a07' chem_desc_table( idomain, P_so4_a07 ) = 'Sulfate, aerosol bin 07' chem_units_table( idomain, P_so4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a07 )%stream(2) = 2097216 F_so4_a07 = .TRUE. IF ( chem_index_table( PARAM_no3_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a07 = chem_num_table(idomain) chem_index_table( PARAM_no3_a07 , idomain ) = P_no3_a07 ELSE P_no3_a07 = chem_index_table( PARAM_no3_a07 , idomain ) END IF chem_boundary_table( idomain, P_no3_a07 ) = .TRUE. chem_dname_table( idomain, P_no3_a07 ) = 'no3_a07' chem_desc_table( idomain, P_no3_a07 ) = 'Nitrate, aerosol bin 07' chem_units_table( idomain, P_no3_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a07 )%stream(2) = 2097216 F_no3_a07 = .TRUE. IF ( chem_index_table( PARAM_cl_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a07 = chem_num_table(idomain) chem_index_table( PARAM_cl_a07 , idomain ) = P_cl_a07 ELSE P_cl_a07 = chem_index_table( PARAM_cl_a07 , idomain ) END IF chem_boundary_table( idomain, P_cl_a07 ) = .TRUE. chem_dname_table( idomain, P_cl_a07 ) = 'cl_a07' chem_desc_table( idomain, P_cl_a07 ) = 'Chloride, aerosol bin 07' chem_units_table( idomain, P_cl_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a07 )%stream(2) = 2097216 F_cl_a07 = .TRUE. IF ( chem_index_table( PARAM_nh4_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a07 , idomain ) = P_nh4_a07 ELSE P_nh4_a07 = chem_index_table( PARAM_nh4_a07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a07 ) = .TRUE. chem_dname_table( idomain, P_nh4_a07 ) = 'nh4_a07' chem_desc_table( idomain, P_nh4_a07 ) = 'Ammonium, aerosol bin 07' chem_units_table( idomain, P_nh4_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a07 )%stream(2) = 2097216 F_nh4_a07 = .TRUE. IF ( chem_index_table( PARAM_na_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a07 = chem_num_table(idomain) chem_index_table( PARAM_na_a07 , idomain ) = P_na_a07 ELSE P_na_a07 = chem_index_table( PARAM_na_a07 , idomain ) END IF chem_boundary_table( idomain, P_na_a07 ) = .TRUE. chem_dname_table( idomain, P_na_a07 ) = 'na_a07' chem_desc_table( idomain, P_na_a07 ) = 'Sodium, aerosol bin 07' chem_units_table( idomain, P_na_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a07 )%stream(2) = 2097216 F_na_a07 = .TRUE. IF ( chem_index_table( PARAM_oin_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a07 = chem_num_table(idomain) chem_index_table( PARAM_oin_a07 , idomain ) = P_oin_a07 ELSE P_oin_a07 = chem_index_table( PARAM_oin_a07 , idomain ) END IF chem_boundary_table( idomain, P_oin_a07 ) = .TRUE. chem_dname_table( idomain, P_oin_a07 ) = 'oin_a07' chem_desc_table( idomain, P_oin_a07 ) = 'Other inorganics, aerosol bin 07' chem_units_table( idomain, P_oin_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a07 )%stream(2) = 2097216 F_oin_a07 = .TRUE. IF ( chem_index_table( PARAM_oc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a07 = chem_num_table(idomain) chem_index_table( PARAM_oc_a07 , idomain ) = P_oc_a07 ELSE P_oc_a07 = chem_index_table( PARAM_oc_a07 , idomain ) END IF chem_boundary_table( idomain, P_oc_a07 ) = .TRUE. chem_dname_table( idomain, P_oc_a07 ) = 'oc_a07' chem_desc_table( idomain, P_oc_a07 ) = 'Organic carbon, aerosol bin 07' chem_units_table( idomain, P_oc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a07 )%stream(2) = 2097216 F_oc_a07 = .TRUE. IF ( chem_index_table( PARAM_bc_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a07 = chem_num_table(idomain) chem_index_table( PARAM_bc_a07 , idomain ) = P_bc_a07 ELSE P_bc_a07 = chem_index_table( PARAM_bc_a07 , idomain ) END IF chem_boundary_table( idomain, P_bc_a07 ) = .TRUE. chem_dname_table( idomain, P_bc_a07 ) = 'bc_a07' chem_desc_table( idomain, P_bc_a07 ) = 'Black carbon, aerosol bin 07' chem_units_table( idomain, P_bc_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a07 )%stream(2) = 2097216 F_bc_a07 = .TRUE. IF ( chem_index_table( PARAM_hysw_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a07 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a07 , idomain ) = P_hysw_a07 ELSE P_hysw_a07 = chem_index_table( PARAM_hysw_a07 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a07 ) = .TRUE. chem_dname_table( idomain, P_hysw_a07 ) = 'hysw_a07' chem_desc_table( idomain, P_hysw_a07 ) = 'Hysteresis water, aerosol bin 07' chem_units_table( idomain, P_hysw_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a07 )%stream(2) = 2097216 F_hysw_a07 = .TRUE. IF ( chem_index_table( PARAM_water_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a07 = chem_num_table(idomain) chem_index_table( PARAM_water_a07 , idomain ) = P_water_a07 ELSE P_water_a07 = chem_index_table( PARAM_water_a07 , idomain ) END IF chem_boundary_table( idomain, P_water_a07 ) = .TRUE. chem_dname_table( idomain, P_water_a07 ) = 'water_a07' chem_desc_table( idomain, P_water_a07 ) = 'Water, aerosol bin 07' chem_units_table( idomain, P_water_a07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a07 )%stream(2) = 2097216 F_water_a07 = .TRUE. IF ( chem_index_table( PARAM_num_a07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a07 = chem_num_table(idomain) chem_index_table( PARAM_num_a07 , idomain ) = P_num_a07 ELSE P_num_a07 = chem_index_table( PARAM_num_a07 , idomain ) END IF chem_boundary_table( idomain, P_num_a07 ) = .TRUE. chem_dname_table( idomain, P_num_a07 ) = 'num_a07' chem_desc_table( idomain, P_num_a07 ) = 'Number, aerosol bin 07' chem_units_table( idomain, P_num_a07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a07 )%stream(2) = 2097216 F_num_a07 = .TRUE. IF ( chem_index_table( PARAM_so4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a08 = chem_num_table(idomain) chem_index_table( PARAM_so4_a08 , idomain ) = P_so4_a08 ELSE P_so4_a08 = chem_index_table( PARAM_so4_a08 , idomain ) END IF chem_boundary_table( idomain, P_so4_a08 ) = .TRUE. chem_dname_table( idomain, P_so4_a08 ) = 'so4_a08' chem_desc_table( idomain, P_so4_a08 ) = 'Sulfate, aerosol bin 08' chem_units_table( idomain, P_so4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a08 )%stream(2) = 2097216 F_so4_a08 = .TRUE. IF ( chem_index_table( PARAM_no3_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a08 = chem_num_table(idomain) chem_index_table( PARAM_no3_a08 , idomain ) = P_no3_a08 ELSE P_no3_a08 = chem_index_table( PARAM_no3_a08 , idomain ) END IF chem_boundary_table( idomain, P_no3_a08 ) = .TRUE. chem_dname_table( idomain, P_no3_a08 ) = 'no3_a08' chem_desc_table( idomain, P_no3_a08 ) = 'Nitrate, aerosol bin 08' chem_units_table( idomain, P_no3_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a08 )%stream(2) = 2097216 F_no3_a08 = .TRUE. IF ( chem_index_table( PARAM_cl_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a08 = chem_num_table(idomain) chem_index_table( PARAM_cl_a08 , idomain ) = P_cl_a08 ELSE P_cl_a08 = chem_index_table( PARAM_cl_a08 , idomain ) END IF chem_boundary_table( idomain, P_cl_a08 ) = .TRUE. chem_dname_table( idomain, P_cl_a08 ) = 'cl_a08' chem_desc_table( idomain, P_cl_a08 ) = 'Chloride, aerosol bin 08' chem_units_table( idomain, P_cl_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a08 )%stream(2) = 2097216 F_cl_a08 = .TRUE. IF ( chem_index_table( PARAM_nh4_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a08 , idomain ) = P_nh4_a08 ELSE P_nh4_a08 = chem_index_table( PARAM_nh4_a08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a08 ) = .TRUE. chem_dname_table( idomain, P_nh4_a08 ) = 'nh4_a08' chem_desc_table( idomain, P_nh4_a08 ) = 'Ammonium, aerosol bin 08' chem_units_table( idomain, P_nh4_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a08 )%stream(2) = 2097216 F_nh4_a08 = .TRUE. IF ( chem_index_table( PARAM_na_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a08 = chem_num_table(idomain) chem_index_table( PARAM_na_a08 , idomain ) = P_na_a08 ELSE P_na_a08 = chem_index_table( PARAM_na_a08 , idomain ) END IF chem_boundary_table( idomain, P_na_a08 ) = .TRUE. chem_dname_table( idomain, P_na_a08 ) = 'na_a08' chem_desc_table( idomain, P_na_a08 ) = 'Sodium, aerosol bin 08' chem_units_table( idomain, P_na_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a08 )%stream(2) = 2097216 F_na_a08 = .TRUE. IF ( chem_index_table( PARAM_oin_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a08 = chem_num_table(idomain) chem_index_table( PARAM_oin_a08 , idomain ) = P_oin_a08 ELSE P_oin_a08 = chem_index_table( PARAM_oin_a08 , idomain ) END IF chem_boundary_table( idomain, P_oin_a08 ) = .TRUE. chem_dname_table( idomain, P_oin_a08 ) = 'oin_a08' chem_desc_table( idomain, P_oin_a08 ) = 'Other inorganics, aerosol bin 08' chem_units_table( idomain, P_oin_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a08 )%stream(2) = 2097216 F_oin_a08 = .TRUE. IF ( chem_index_table( PARAM_oc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a08 = chem_num_table(idomain) chem_index_table( PARAM_oc_a08 , idomain ) = P_oc_a08 ELSE P_oc_a08 = chem_index_table( PARAM_oc_a08 , idomain ) END IF chem_boundary_table( idomain, P_oc_a08 ) = .TRUE. chem_dname_table( idomain, P_oc_a08 ) = 'oc_a08' chem_desc_table( idomain, P_oc_a08 ) = 'Organic carbon, aerosol bin 08' chem_units_table( idomain, P_oc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a08 )%stream(2) = 2097216 F_oc_a08 = .TRUE. IF ( chem_index_table( PARAM_bc_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a08 = chem_num_table(idomain) chem_index_table( PARAM_bc_a08 , idomain ) = P_bc_a08 ELSE P_bc_a08 = chem_index_table( PARAM_bc_a08 , idomain ) END IF chem_boundary_table( idomain, P_bc_a08 ) = .TRUE. chem_dname_table( idomain, P_bc_a08 ) = 'bc_a08' chem_desc_table( idomain, P_bc_a08 ) = 'Black carbon, aerosol bin 08' chem_units_table( idomain, P_bc_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a08 )%stream(2) = 2097216 F_bc_a08 = .TRUE. IF ( chem_index_table( PARAM_hysw_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a08 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a08 , idomain ) = P_hysw_a08 ELSE P_hysw_a08 = chem_index_table( PARAM_hysw_a08 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a08 ) = .TRUE. chem_dname_table( idomain, P_hysw_a08 ) = 'hysw_a08' chem_desc_table( idomain, P_hysw_a08 ) = 'Hysteresis water, aerosol bin 08' chem_units_table( idomain, P_hysw_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a08 )%stream(2) = 2097216 F_hysw_a08 = .TRUE. IF ( chem_index_table( PARAM_water_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a08 = chem_num_table(idomain) chem_index_table( PARAM_water_a08 , idomain ) = P_water_a08 ELSE P_water_a08 = chem_index_table( PARAM_water_a08 , idomain ) END IF chem_boundary_table( idomain, P_water_a08 ) = .TRUE. chem_dname_table( idomain, P_water_a08 ) = 'water_a08' chem_desc_table( idomain, P_water_a08 ) = 'Water, aerosol bin 08' chem_units_table( idomain, P_water_a08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a08 )%stream(2) = 2097216 F_water_a08 = .TRUE. IF ( chem_index_table( PARAM_num_a08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a08 = chem_num_table(idomain) chem_index_table( PARAM_num_a08 , idomain ) = P_num_a08 ELSE P_num_a08 = chem_index_table( PARAM_num_a08 , idomain ) END IF chem_boundary_table( idomain, P_num_a08 ) = .TRUE. chem_dname_table( idomain, P_num_a08 ) = 'num_a08' chem_desc_table( idomain, P_num_a08 ) = 'Number, aerosol bin 08' chem_units_table( idomain, P_num_a08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a08 )%stream(2) = 2097216 F_num_a08 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 F_num_cw04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw05 , idomain ) = P_so4_cw05 ELSE P_so4_cw05 = chem_index_table( PARAM_so4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw05 ) = .TRUE. chem_dname_table( idomain, P_so4_cw05 ) = 'so4_cw05' chem_desc_table( idomain, P_so4_cw05 ) = 'Sulfate, aerosol in cloud bin 05' chem_units_table( idomain, P_so4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw05 )%stream(2) = 2097216 F_so4_cw05 = .TRUE. IF ( chem_index_table( PARAM_no3_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw05 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw05 , idomain ) = P_no3_cw05 ELSE P_no3_cw05 = chem_index_table( PARAM_no3_cw05 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw05 ) = .TRUE. chem_dname_table( idomain, P_no3_cw05 ) = 'no3_cw05' chem_desc_table( idomain, P_no3_cw05 ) = 'Nitrate, aerosol in cloud bin 05' chem_units_table( idomain, P_no3_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw05 )%stream(2) = 2097216 F_no3_cw05 = .TRUE. IF ( chem_index_table( PARAM_cl_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw05 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw05 , idomain ) = P_cl_cw05 ELSE P_cl_cw05 = chem_index_table( PARAM_cl_cw05 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw05 ) = .TRUE. chem_dname_table( idomain, P_cl_cw05 ) = 'cl_cw05' chem_desc_table( idomain, P_cl_cw05 ) = 'Chloride, aerosol in cloud bin 05' chem_units_table( idomain, P_cl_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw05 )%stream(2) = 2097216 F_cl_cw05 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw05 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw05 , idomain ) = P_nh4_cw05 ELSE P_nh4_cw05 = chem_index_table( PARAM_nh4_cw05 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw05 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw05 ) = 'nh4_cw05' chem_desc_table( idomain, P_nh4_cw05 ) = 'Ammonium, aerosol in cloud bin 05' chem_units_table( idomain, P_nh4_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw05 )%stream(2) = 2097216 F_nh4_cw05 = .TRUE. IF ( chem_index_table( PARAM_na_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw05 = chem_num_table(idomain) chem_index_table( PARAM_na_cw05 , idomain ) = P_na_cw05 ELSE P_na_cw05 = chem_index_table( PARAM_na_cw05 , idomain ) END IF chem_boundary_table( idomain, P_na_cw05 ) = .TRUE. chem_dname_table( idomain, P_na_cw05 ) = 'na_cw05' chem_desc_table( idomain, P_na_cw05 ) = 'Sodium, aerosol in cloud bin 05' chem_units_table( idomain, P_na_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw05 )%stream(2) = 2097216 F_na_cw05 = .TRUE. IF ( chem_index_table( PARAM_oin_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw05 , idomain ) = P_oin_cw05 ELSE P_oin_cw05 = chem_index_table( PARAM_oin_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw05 ) = .TRUE. chem_dname_table( idomain, P_oin_cw05 ) = 'oin_cw05' chem_desc_table( idomain, P_oin_cw05 ) = 'Other inorganics, aerosol in cloud bin 05' chem_units_table( idomain, P_oin_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw05 )%stream(2) = 2097216 F_oin_cw05 = .TRUE. IF ( chem_index_table( PARAM_oc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw05 , idomain ) = P_oc_cw05 ELSE P_oc_cw05 = chem_index_table( PARAM_oc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw05 ) = .TRUE. chem_dname_table( idomain, P_oc_cw05 ) = 'oc_cw05' chem_desc_table( idomain, P_oc_cw05 ) = 'Organic carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_oc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw05 )%stream(2) = 2097216 F_oc_cw05 = .TRUE. IF ( chem_index_table( PARAM_bc_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw05 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw05 , idomain ) = P_bc_cw05 ELSE P_bc_cw05 = chem_index_table( PARAM_bc_cw05 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw05 ) = .TRUE. chem_dname_table( idomain, P_bc_cw05 ) = 'bc_cw05' chem_desc_table( idomain, P_bc_cw05 ) = 'Black carbon, aerosol in cloud bin 05' chem_units_table( idomain, P_bc_cw05 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw05 )%stream(2) = 2097216 F_bc_cw05 = .TRUE. IF ( chem_index_table( PARAM_num_cw05 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw05 = chem_num_table(idomain) chem_index_table( PARAM_num_cw05 , idomain ) = P_num_cw05 ELSE P_num_cw05 = chem_index_table( PARAM_num_cw05 , idomain ) END IF chem_boundary_table( idomain, P_num_cw05 ) = .TRUE. chem_dname_table( idomain, P_num_cw05 ) = 'num_cw05' chem_desc_table( idomain, P_num_cw05 ) = 'Number, aerosol in cloud bin 05' chem_units_table( idomain, P_num_cw05 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw05 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw05 )%stream(2) = 2097216 F_num_cw05 = .TRUE. IF ( chem_index_table( PARAM_so4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw06 , idomain ) = P_so4_cw06 ELSE P_so4_cw06 = chem_index_table( PARAM_so4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw06 ) = .TRUE. chem_dname_table( idomain, P_so4_cw06 ) = 'so4_cw06' chem_desc_table( idomain, P_so4_cw06 ) = 'Sulfate, aerosol in cloud bin 06' chem_units_table( idomain, P_so4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw06 )%stream(2) = 2097216 F_so4_cw06 = .TRUE. IF ( chem_index_table( PARAM_no3_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw06 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw06 , idomain ) = P_no3_cw06 ELSE P_no3_cw06 = chem_index_table( PARAM_no3_cw06 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw06 ) = .TRUE. chem_dname_table( idomain, P_no3_cw06 ) = 'no3_cw06' chem_desc_table( idomain, P_no3_cw06 ) = 'Nitrate, aerosol in cloud bin 06' chem_units_table( idomain, P_no3_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw06 )%stream(2) = 2097216 F_no3_cw06 = .TRUE. IF ( chem_index_table( PARAM_cl_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw06 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw06 , idomain ) = P_cl_cw06 ELSE P_cl_cw06 = chem_index_table( PARAM_cl_cw06 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw06 ) = .TRUE. chem_dname_table( idomain, P_cl_cw06 ) = 'cl_cw06' chem_desc_table( idomain, P_cl_cw06 ) = 'Chloride, aerosol in cloud bin 06' chem_units_table( idomain, P_cl_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw06 )%stream(2) = 2097216 F_cl_cw06 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw06 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw06 , idomain ) = P_nh4_cw06 ELSE P_nh4_cw06 = chem_index_table( PARAM_nh4_cw06 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw06 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw06 ) = 'nh4_cw06' chem_desc_table( idomain, P_nh4_cw06 ) = 'Ammonium, aerosol in cloud bin 06' chem_units_table( idomain, P_nh4_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw06 )%stream(2) = 2097216 F_nh4_cw06 = .TRUE. IF ( chem_index_table( PARAM_na_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw06 = chem_num_table(idomain) chem_index_table( PARAM_na_cw06 , idomain ) = P_na_cw06 ELSE P_na_cw06 = chem_index_table( PARAM_na_cw06 , idomain ) END IF chem_boundary_table( idomain, P_na_cw06 ) = .TRUE. chem_dname_table( idomain, P_na_cw06 ) = 'na_cw06' chem_desc_table( idomain, P_na_cw06 ) = 'Sodium, aerosol in cloud bin 06' chem_units_table( idomain, P_na_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw06 )%stream(2) = 2097216 F_na_cw06 = .TRUE. IF ( chem_index_table( PARAM_oin_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw06 , idomain ) = P_oin_cw06 ELSE P_oin_cw06 = chem_index_table( PARAM_oin_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw06 ) = .TRUE. chem_dname_table( idomain, P_oin_cw06 ) = 'oin_cw06' chem_desc_table( idomain, P_oin_cw06 ) = 'Other inorganics, aerosol in cloud bin 06' chem_units_table( idomain, P_oin_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw06 )%stream(2) = 2097216 F_oin_cw06 = .TRUE. IF ( chem_index_table( PARAM_oc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw06 , idomain ) = P_oc_cw06 ELSE P_oc_cw06 = chem_index_table( PARAM_oc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw06 ) = .TRUE. chem_dname_table( idomain, P_oc_cw06 ) = 'oc_cw06' chem_desc_table( idomain, P_oc_cw06 ) = 'Organic carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_oc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw06 )%stream(2) = 2097216 F_oc_cw06 = .TRUE. IF ( chem_index_table( PARAM_bc_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw06 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw06 , idomain ) = P_bc_cw06 ELSE P_bc_cw06 = chem_index_table( PARAM_bc_cw06 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw06 ) = .TRUE. chem_dname_table( idomain, P_bc_cw06 ) = 'bc_cw06' chem_desc_table( idomain, P_bc_cw06 ) = 'Black carbon, aerosol in cloud bin 06' chem_units_table( idomain, P_bc_cw06 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw06 )%stream(2) = 2097216 F_bc_cw06 = .TRUE. IF ( chem_index_table( PARAM_num_cw06 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw06 = chem_num_table(idomain) chem_index_table( PARAM_num_cw06 , idomain ) = P_num_cw06 ELSE P_num_cw06 = chem_index_table( PARAM_num_cw06 , idomain ) END IF chem_boundary_table( idomain, P_num_cw06 ) = .TRUE. chem_dname_table( idomain, P_num_cw06 ) = 'num_cw06' chem_desc_table( idomain, P_num_cw06 ) = 'Number, aerosol in cloud bin 06' chem_units_table( idomain, P_num_cw06 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw06 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw06 )%stream(2) = 2097216 F_num_cw06 = .TRUE. IF ( chem_index_table( PARAM_so4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw07 , idomain ) = P_so4_cw07 ELSE P_so4_cw07 = chem_index_table( PARAM_so4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw07 ) = .TRUE. chem_dname_table( idomain, P_so4_cw07 ) = 'so4_cw07' chem_desc_table( idomain, P_so4_cw07 ) = 'Sulfate, aerosol in cloud bin 07' chem_units_table( idomain, P_so4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw07 )%stream(2) = 2097216 F_so4_cw07 = .TRUE. IF ( chem_index_table( PARAM_no3_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw07 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw07 , idomain ) = P_no3_cw07 ELSE P_no3_cw07 = chem_index_table( PARAM_no3_cw07 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw07 ) = .TRUE. chem_dname_table( idomain, P_no3_cw07 ) = 'no3_cw07' chem_desc_table( idomain, P_no3_cw07 ) = 'Nitrate, aerosol in cloud bin 07' chem_units_table( idomain, P_no3_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw07 )%stream(2) = 2097216 F_no3_cw07 = .TRUE. IF ( chem_index_table( PARAM_cl_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw07 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw07 , idomain ) = P_cl_cw07 ELSE P_cl_cw07 = chem_index_table( PARAM_cl_cw07 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw07 ) = .TRUE. chem_dname_table( idomain, P_cl_cw07 ) = 'cl_cw07' chem_desc_table( idomain, P_cl_cw07 ) = 'Chloride, aerosol in cloud bin 07' chem_units_table( idomain, P_cl_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw07 )%stream(2) = 2097216 F_cl_cw07 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw07 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw07 , idomain ) = P_nh4_cw07 ELSE P_nh4_cw07 = chem_index_table( PARAM_nh4_cw07 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw07 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw07 ) = 'nh4_cw07' chem_desc_table( idomain, P_nh4_cw07 ) = 'Ammonium, aerosol in cloud bin 07' chem_units_table( idomain, P_nh4_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw07 )%stream(2) = 2097216 F_nh4_cw07 = .TRUE. IF ( chem_index_table( PARAM_na_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw07 = chem_num_table(idomain) chem_index_table( PARAM_na_cw07 , idomain ) = P_na_cw07 ELSE P_na_cw07 = chem_index_table( PARAM_na_cw07 , idomain ) END IF chem_boundary_table( idomain, P_na_cw07 ) = .TRUE. chem_dname_table( idomain, P_na_cw07 ) = 'na_cw07' chem_desc_table( idomain, P_na_cw07 ) = 'Sodium, aerosol in cloud bin 07' chem_units_table( idomain, P_na_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw07 )%stream(2) = 2097216 F_na_cw07 = .TRUE. IF ( chem_index_table( PARAM_oin_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw07 , idomain ) = P_oin_cw07 ELSE P_oin_cw07 = chem_index_table( PARAM_oin_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw07 ) = .TRUE. chem_dname_table( idomain, P_oin_cw07 ) = 'oin_cw07' chem_desc_table( idomain, P_oin_cw07 ) = 'Other inorganics, aerosol in cloud bin 07' chem_units_table( idomain, P_oin_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw07 )%stream(2) = 2097216 F_oin_cw07 = .TRUE. IF ( chem_index_table( PARAM_oc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw07 , idomain ) = P_oc_cw07 ELSE P_oc_cw07 = chem_index_table( PARAM_oc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw07 ) = .TRUE. chem_dname_table( idomain, P_oc_cw07 ) = 'oc_cw07' chem_desc_table( idomain, P_oc_cw07 ) = 'Organic carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_oc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw07 )%stream(2) = 2097216 F_oc_cw07 = .TRUE. IF ( chem_index_table( PARAM_bc_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw07 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw07 , idomain ) = P_bc_cw07 ELSE P_bc_cw07 = chem_index_table( PARAM_bc_cw07 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw07 ) = .TRUE. chem_dname_table( idomain, P_bc_cw07 ) = 'bc_cw07' chem_desc_table( idomain, P_bc_cw07 ) = 'Black carbon, aerosol in cloud bin 07' chem_units_table( idomain, P_bc_cw07 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw07 )%stream(2) = 2097216 F_bc_cw07 = .TRUE. IF ( chem_index_table( PARAM_num_cw07 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw07 = chem_num_table(idomain) chem_index_table( PARAM_num_cw07 , idomain ) = P_num_cw07 ELSE P_num_cw07 = chem_index_table( PARAM_num_cw07 , idomain ) END IF chem_boundary_table( idomain, P_num_cw07 ) = .TRUE. chem_dname_table( idomain, P_num_cw07 ) = 'num_cw07' chem_desc_table( idomain, P_num_cw07 ) = 'Number, aerosol in cloud bin 07' chem_units_table( idomain, P_num_cw07 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw07 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw07 )%stream(2) = 2097216 F_num_cw07 = .TRUE. IF ( chem_index_table( PARAM_so4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw08 , idomain ) = P_so4_cw08 ELSE P_so4_cw08 = chem_index_table( PARAM_so4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw08 ) = .TRUE. chem_dname_table( idomain, P_so4_cw08 ) = 'so4_cw08' chem_desc_table( idomain, P_so4_cw08 ) = 'Sulfate, aerosol in cloud bin 08' chem_units_table( idomain, P_so4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw08 )%stream(2) = 2097216 F_so4_cw08 = .TRUE. IF ( chem_index_table( PARAM_no3_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw08 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw08 , idomain ) = P_no3_cw08 ELSE P_no3_cw08 = chem_index_table( PARAM_no3_cw08 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw08 ) = .TRUE. chem_dname_table( idomain, P_no3_cw08 ) = 'no3_cw08' chem_desc_table( idomain, P_no3_cw08 ) = 'Nitrate, aerosol in cloud bin 08' chem_units_table( idomain, P_no3_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw08 )%stream(2) = 2097216 F_no3_cw08 = .TRUE. IF ( chem_index_table( PARAM_cl_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw08 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw08 , idomain ) = P_cl_cw08 ELSE P_cl_cw08 = chem_index_table( PARAM_cl_cw08 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw08 ) = .TRUE. chem_dname_table( idomain, P_cl_cw08 ) = 'cl_cw08' chem_desc_table( idomain, P_cl_cw08 ) = 'Chloride, aerosol in cloud bin 08' chem_units_table( idomain, P_cl_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw08 )%stream(2) = 2097216 F_cl_cw08 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw08 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw08 , idomain ) = P_nh4_cw08 ELSE P_nh4_cw08 = chem_index_table( PARAM_nh4_cw08 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw08 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw08 ) = 'nh4_cw08' chem_desc_table( idomain, P_nh4_cw08 ) = 'Ammonium, aerosol in cloud bin 08' chem_units_table( idomain, P_nh4_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw08 )%stream(2) = 2097216 F_nh4_cw08 = .TRUE. IF ( chem_index_table( PARAM_na_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw08 = chem_num_table(idomain) chem_index_table( PARAM_na_cw08 , idomain ) = P_na_cw08 ELSE P_na_cw08 = chem_index_table( PARAM_na_cw08 , idomain ) END IF chem_boundary_table( idomain, P_na_cw08 ) = .TRUE. chem_dname_table( idomain, P_na_cw08 ) = 'na_cw08' chem_desc_table( idomain, P_na_cw08 ) = 'Sodium, aerosol in cloud bin 08' chem_units_table( idomain, P_na_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw08 )%stream(2) = 2097216 F_na_cw08 = .TRUE. IF ( chem_index_table( PARAM_oin_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw08 , idomain ) = P_oin_cw08 ELSE P_oin_cw08 = chem_index_table( PARAM_oin_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw08 ) = .TRUE. chem_dname_table( idomain, P_oin_cw08 ) = 'oin_cw08' chem_desc_table( idomain, P_oin_cw08 ) = 'Other inorganics, aerosol in cloud bin 08' chem_units_table( idomain, P_oin_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw08 )%stream(2) = 2097216 F_oin_cw08 = .TRUE. IF ( chem_index_table( PARAM_oc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw08 , idomain ) = P_oc_cw08 ELSE P_oc_cw08 = chem_index_table( PARAM_oc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw08 ) = .TRUE. chem_dname_table( idomain, P_oc_cw08 ) = 'oc_cw08' chem_desc_table( idomain, P_oc_cw08 ) = 'Organic carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_oc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw08 )%stream(2) = 2097216 F_oc_cw08 = .TRUE. IF ( chem_index_table( PARAM_bc_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw08 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw08 , idomain ) = P_bc_cw08 ELSE P_bc_cw08 = chem_index_table( PARAM_bc_cw08 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw08 ) = .TRUE. chem_dname_table( idomain, P_bc_cw08 ) = 'bc_cw08' chem_desc_table( idomain, P_bc_cw08 ) = 'Black carbon, aerosol in cloud bin 08' chem_units_table( idomain, P_bc_cw08 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw08 )%stream(2) = 2097216 F_bc_cw08 = .TRUE. IF ( chem_index_table( PARAM_num_cw08 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw08 = chem_num_table(idomain) chem_index_table( PARAM_num_cw08 , idomain ) = P_num_cw08 ELSE P_num_cw08 = chem_index_table( PARAM_num_cw08 , idomain ) END IF chem_boundary_table( idomain, P_num_cw08 ) = .TRUE. chem_dname_table( idomain, P_num_cw08 ) = 'num_cw08' chem_desc_table( idomain, P_num_cw08 ) = 'Number, aerosol in cloud bin 08' chem_units_table( idomain, P_num_cw08 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw08 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw08 )%stream(2) = 2097216 F_num_cw08 = .TRUE. END IF IF (model_config_rec%chem_opt(idomain)==611)THEN IF ( chem_index_table( PARAM_dms , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dms = chem_num_table(idomain) chem_index_table( PARAM_dms , idomain ) = P_dms ELSE P_dms = chem_index_table( PARAM_dms , idomain ) END IF chem_boundary_table( idomain, P_dms ) = .TRUE. chem_dname_table( idomain, P_dms ) = 'dms' chem_desc_table( idomain, P_dms ) = 'DMS mixing ratio' chem_units_table( idomain, P_dms ) = 'ppmv' chem_streams_table( idomain, P_dms )%stream(1) = 33554433 chem_streams_table( idomain, P_dms )%stream(2) = 2097216 F_dms = .TRUE. IF ( chem_index_table( PARAM_dmso , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso = chem_num_table(idomain) chem_index_table( PARAM_dmso , idomain ) = P_dmso ELSE P_dmso = chem_index_table( PARAM_dmso , idomain ) END IF chem_boundary_table( idomain, P_dmso ) = .TRUE. chem_dname_table( idomain, P_dmso ) = 'dmso' chem_desc_table( idomain, P_dmso ) = 'DMSO mixing ratio' chem_units_table( idomain, P_dmso ) = 'ppmv' chem_streams_table( idomain, P_dmso )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso )%stream(2) = 2097216 F_dmso = .TRUE. IF ( chem_index_table( PARAM_dmso2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dmso2 = chem_num_table(idomain) chem_index_table( PARAM_dmso2 , idomain ) = P_dmso2 ELSE P_dmso2 = chem_index_table( PARAM_dmso2 , idomain ) END IF chem_boundary_table( idomain, P_dmso2 ) = .TRUE. chem_dname_table( idomain, P_dmso2 ) = 'dmso2' chem_desc_table( idomain, P_dmso2 ) = 'DMSO2 mixing ratio' chem_units_table( idomain, P_dmso2 ) = 'ppmv' chem_streams_table( idomain, P_dmso2 )%stream(1) = 33554433 chem_streams_table( idomain, P_dmso2 )%stream(2) = 2097216 F_dmso2 = .TRUE. IF ( chem_index_table( PARAM_ch3sch2oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3sch2oo = chem_num_table(idomain) chem_index_table( PARAM_ch3sch2oo , idomain ) = P_ch3sch2oo ELSE P_ch3sch2oo = chem_index_table( PARAM_ch3sch2oo , idomain ) END IF chem_boundary_table( idomain, P_ch3sch2oo ) = .TRUE. chem_dname_table( idomain, P_ch3sch2oo ) = 'ch3sch2oo' chem_desc_table( idomain, P_ch3sch2oo ) = 'CH3SCH2OO mixing ratio' chem_units_table( idomain, P_ch3sch2oo ) = 'ppmv' chem_streams_table( idomain, P_ch3sch2oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3sch2oo )%stream(2) = 2097216 F_ch3sch2oo = .TRUE. IF ( chem_index_table( PARAM_ch3s , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3s = chem_num_table(idomain) chem_index_table( PARAM_ch3s , idomain ) = P_ch3s ELSE P_ch3s = chem_index_table( PARAM_ch3s , idomain ) END IF chem_boundary_table( idomain, P_ch3s ) = .TRUE. chem_dname_table( idomain, P_ch3s ) = 'ch3s' chem_desc_table( idomain, P_ch3s ) = 'CH3S concentration' chem_units_table( idomain, P_ch3s ) = 'ppmv' chem_streams_table( idomain, P_ch3s )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3s )%stream(2) = 2097216 F_ch3s = .TRUE. IF ( chem_index_table( PARAM_ch3so , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so = chem_num_table(idomain) chem_index_table( PARAM_ch3so , idomain ) = P_ch3so ELSE P_ch3so = chem_index_table( PARAM_ch3so , idomain ) END IF chem_boundary_table( idomain, P_ch3so ) = .TRUE. chem_dname_table( idomain, P_ch3so ) = 'ch3so' chem_desc_table( idomain, P_ch3so ) = 'CH3SO concentration' chem_units_table( idomain, P_ch3so ) = 'ppmv' chem_streams_table( idomain, P_ch3so )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so )%stream(2) = 2097216 F_ch3so = .TRUE. IF ( chem_index_table( PARAM_ch3so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so2 = chem_num_table(idomain) chem_index_table( PARAM_ch3so2 , idomain ) = P_ch3so2 ELSE P_ch3so2 = chem_index_table( PARAM_ch3so2 , idomain ) END IF chem_boundary_table( idomain, P_ch3so2 ) = .TRUE. chem_dname_table( idomain, P_ch3so2 ) = 'ch3so2' chem_desc_table( idomain, P_ch3so2 ) = 'CH3SO2 mixing ratio' chem_units_table( idomain, P_ch3so2 ) = 'ppmv' chem_streams_table( idomain, P_ch3so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so2 )%stream(2) = 2097216 F_ch3so2 = .TRUE. IF ( chem_index_table( PARAM_ch3so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3so3 = chem_num_table(idomain) chem_index_table( PARAM_ch3so3 , idomain ) = P_ch3so3 ELSE P_ch3so3 = chem_index_table( PARAM_ch3so3 , idomain ) END IF chem_boundary_table( idomain, P_ch3so3 ) = .TRUE. chem_dname_table( idomain, P_ch3so3 ) = 'ch3so3' chem_desc_table( idomain, P_ch3so3 ) = 'CH3SO3 mixing ratio' chem_units_table( idomain, P_ch3so3 ) = 'ppmv' chem_streams_table( idomain, P_ch3so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3so3 )%stream(2) = 2097216 F_ch3so3 = .TRUE. IF ( chem_index_table( PARAM_msa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msa = chem_num_table(idomain) chem_index_table( PARAM_msa , idomain ) = P_msa ELSE P_msa = chem_index_table( PARAM_msa , idomain ) END IF chem_boundary_table( idomain, P_msa ) = .TRUE. chem_dname_table( idomain, P_msa ) = 'msa' chem_desc_table( idomain, P_msa ) = 'MSA mixing ratio' chem_units_table( idomain, P_msa ) = 'ppmv' chem_streams_table( idomain, P_msa )%stream(1) = 33554433 chem_streams_table( idomain, P_msa )%stream(2) = 2097216 F_msa = .TRUE. IF ( chem_index_table( PARAM_msia , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_msia = chem_num_table(idomain) chem_index_table( PARAM_msia , idomain ) = P_msia ELSE P_msia = chem_index_table( PARAM_msia , idomain ) END IF chem_boundary_table( idomain, P_msia ) = .TRUE. chem_dname_table( idomain, P_msia ) = 'msia' chem_desc_table( idomain, P_msia ) = 'MSIA concentration' chem_units_table( idomain, P_msia ) = 'ppmv' chem_streams_table( idomain, P_msia )%stream(1) = 33554433 chem_streams_table( idomain, P_msia )%stream(2) = 2097216 F_msia = .TRUE. IF ( chem_index_table( PARAM_nh3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh3 = chem_num_table(idomain) chem_index_table( PARAM_nh3 , idomain ) = P_nh3 ELSE P_nh3 = chem_index_table( PARAM_nh3 , idomain ) END IF chem_boundary_table( idomain, P_nh3 ) = .TRUE. chem_dname_table( idomain, P_nh3 ) = 'nh3' chem_desc_table( idomain, P_nh3 ) = 'NH3 mixing ratio' chem_units_table( idomain, P_nh3 ) = 'ppmv' chem_streams_table( idomain, P_nh3 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh3 )%stream(2) = 2097216 F_nh3 = .TRUE. IF ( chem_index_table( PARAM_hcl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcl = chem_num_table(idomain) chem_index_table( PARAM_hcl , idomain ) = P_hcl ELSE P_hcl = chem_index_table( PARAM_hcl , idomain ) END IF chem_boundary_table( idomain, P_hcl ) = .TRUE. chem_dname_table( idomain, P_hcl ) = 'hcl' chem_desc_table( idomain, P_hcl ) = 'HCL mixing ratio' chem_units_table( idomain, P_hcl ) = 'ppmv' chem_streams_table( idomain, P_hcl )%stream(1) = 33554433 chem_streams_table( idomain, P_hcl )%stream(2) = 2097216 F_hcl = .TRUE. IF ( chem_index_table( PARAM_so2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so2 = chem_num_table(idomain) chem_index_table( PARAM_so2 , idomain ) = P_so2 ELSE P_so2 = chem_index_table( PARAM_so2 , idomain ) END IF chem_boundary_table( idomain, P_so2 ) = .TRUE. chem_dname_table( idomain, P_so2 ) = 'so2' chem_desc_table( idomain, P_so2 ) = 'SO2 mixing ratio' chem_units_table( idomain, P_so2 ) = 'ppmv' chem_streams_table( idomain, P_so2 )%stream(1) = 33554433 chem_streams_table( idomain, P_so2 )%stream(2) = 2097216 F_so2 = .TRUE. IF ( chem_index_table( PARAM_hso3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hso3 = chem_num_table(idomain) chem_index_table( PARAM_hso3 , idomain ) = P_hso3 ELSE P_hso3 = chem_index_table( PARAM_hso3 , idomain ) END IF chem_boundary_table( idomain, P_hso3 ) = .TRUE. chem_dname_table( idomain, P_hso3 ) = 'hso3' chem_desc_table( idomain, P_hso3 ) = 'HSO3 concentration' chem_units_table( idomain, P_hso3 ) = 'ppmv' chem_streams_table( idomain, P_hso3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hso3 )%stream(2) = 2097216 F_hso3 = .TRUE. IF ( chem_index_table( PARAM_no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no2 = chem_num_table(idomain) chem_index_table( PARAM_no2 , idomain ) = P_no2 ELSE P_no2 = chem_index_table( PARAM_no2 , idomain ) END IF chem_boundary_table( idomain, P_no2 ) = .TRUE. chem_dname_table( idomain, P_no2 ) = 'no2' chem_desc_table( idomain, P_no2 ) = 'NO2 mixing ratio' chem_units_table( idomain, P_no2 ) = 'ppmv' chem_streams_table( idomain, P_no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_no2 )%stream(2) = 2097216 F_no2 = .TRUE. IF ( chem_index_table( PARAM_o3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_o3 = chem_num_table(idomain) chem_index_table( PARAM_o3 , idomain ) = P_o3 ELSE P_o3 = chem_index_table( PARAM_o3 , idomain ) END IF chem_boundary_table( idomain, P_o3 ) = .TRUE. chem_dname_table( idomain, P_o3 ) = 'o3' chem_desc_table( idomain, P_o3 ) = 'O3 mixing ratio' chem_units_table( idomain, P_o3 ) = 'ppmv' chem_streams_table( idomain, P_o3 )%stream(1) = 33554433 chem_streams_table( idomain, P_o3 )%stream(2) = 2097216 F_o3 = .TRUE. IF ( chem_index_table( PARAM_hno3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno3 = chem_num_table(idomain) chem_index_table( PARAM_hno3 , idomain ) = P_hno3 ELSE P_hno3 = chem_index_table( PARAM_hno3 , idomain ) END IF chem_boundary_table( idomain, P_hno3 ) = .TRUE. chem_dname_table( idomain, P_hno3 ) = 'hno3' chem_desc_table( idomain, P_hno3 ) = 'HNO3 mixing ratio' chem_units_table( idomain, P_hno3 ) = 'ppmv' chem_streams_table( idomain, P_hno3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno3 )%stream(2) = 2097216 F_hno3 = .TRUE. IF ( chem_index_table( PARAM_h2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_h2o2 = chem_num_table(idomain) chem_index_table( PARAM_h2o2 , idomain ) = P_h2o2 ELSE P_h2o2 = chem_index_table( PARAM_h2o2 , idomain ) END IF chem_boundary_table( idomain, P_h2o2 ) = .TRUE. chem_dname_table( idomain, P_h2o2 ) = 'h2o2' chem_desc_table( idomain, P_h2o2 ) = 'H2O2 mixing ratio' chem_units_table( idomain, P_h2o2 ) = 'ppmv' chem_streams_table( idomain, P_h2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_h2o2 )%stream(2) = 2097216 F_h2o2 = .TRUE. IF ( chem_index_table( PARAM_ch3cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cho = chem_num_table(idomain) chem_index_table( PARAM_ch3cho , idomain ) = P_ch3cho ELSE P_ch3cho = chem_index_table( PARAM_ch3cho , idomain ) END IF chem_boundary_table( idomain, P_ch3cho ) = .TRUE. chem_dname_table( idomain, P_ch3cho ) = 'ch3cho' chem_desc_table( idomain, P_ch3cho ) = 'CH3CHO concentration' chem_units_table( idomain, P_ch3cho ) = 'ppmv' chem_streams_table( idomain, P_ch3cho )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cho )%stream(2) = 2097216 F_ch3cho = .TRUE. IF ( chem_index_table( PARAM_hcho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcho = chem_num_table(idomain) chem_index_table( PARAM_hcho , idomain ) = P_hcho ELSE P_hcho = chem_index_table( PARAM_hcho , idomain ) END IF chem_boundary_table( idomain, P_hcho ) = .TRUE. chem_dname_table( idomain, P_hcho ) = 'hcho' chem_desc_table( idomain, P_hcho ) = 'HCHO mixing ratio' chem_units_table( idomain, P_hcho ) = 'ppmv' chem_streams_table( idomain, P_hcho )%stream(1) = 33554433 chem_streams_table( idomain, P_hcho )%stream(2) = 2097216 F_hcho = .TRUE. IF ( chem_index_table( PARAM_ch3ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ooh = chem_num_table(idomain) chem_index_table( PARAM_ch3ooh , idomain ) = P_ch3ooh ELSE P_ch3ooh = chem_index_table( PARAM_ch3ooh , idomain ) END IF chem_boundary_table( idomain, P_ch3ooh ) = .TRUE. chem_dname_table( idomain, P_ch3ooh ) = 'ch3ooh' chem_desc_table( idomain, P_ch3ooh ) = 'CH3OOH mixing ratio' chem_units_table( idomain, P_ch3ooh ) = 'ppmv' chem_streams_table( idomain, P_ch3ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ooh )%stream(2) = 2097216 F_ch3ooh = .TRUE. IF ( chem_index_table( PARAM_c2h5ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5ooh = chem_num_table(idomain) chem_index_table( PARAM_c2h5ooh , idomain ) = P_c2h5ooh ELSE P_c2h5ooh = chem_index_table( PARAM_c2h5ooh , idomain ) END IF chem_boundary_table( idomain, P_c2h5ooh ) = .TRUE. chem_dname_table( idomain, P_c2h5ooh ) = 'c2h5ooh' chem_desc_table( idomain, P_c2h5ooh ) = 'C2H5OOH concentration' chem_units_table( idomain, P_c2h5ooh ) = 'ppmv' chem_streams_table( idomain, P_c2h5ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5ooh )%stream(2) = 2097216 F_c2h5ooh = .TRUE. IF ( chem_index_table( PARAM_paa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_paa = chem_num_table(idomain) chem_index_table( PARAM_paa , idomain ) = P_paa ELSE P_paa = chem_index_table( PARAM_paa , idomain ) END IF chem_boundary_table( idomain, P_paa ) = .TRUE. chem_dname_table( idomain, P_paa ) = 'paa' chem_desc_table( idomain, P_paa ) = 'PAA mixing ratio' chem_units_table( idomain, P_paa ) = 'ppmv' chem_streams_table( idomain, P_paa )%stream(1) = 33554433 chem_streams_table( idomain, P_paa )%stream(2) = 2097216 F_paa = .TRUE. IF ( chem_index_table( PARAM_hcooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hcooh = chem_num_table(idomain) chem_index_table( PARAM_hcooh , idomain ) = P_hcooh ELSE P_hcooh = chem_index_table( PARAM_hcooh , idomain ) END IF chem_boundary_table( idomain, P_hcooh ) = .TRUE. chem_dname_table( idomain, P_hcooh ) = 'hcooh' chem_desc_table( idomain, P_hcooh ) = '' chem_units_table( idomain, P_hcooh ) = '' chem_streams_table( idomain, P_hcooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hcooh )%stream(2) = 2097216 F_hcooh = .TRUE. IF ( chem_index_table( PARAM_n2o5 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_n2o5 = chem_num_table(idomain) chem_index_table( PARAM_n2o5 , idomain ) = P_n2o5 ELSE P_n2o5 = chem_index_table( PARAM_n2o5 , idomain ) END IF chem_boundary_table( idomain, P_n2o5 ) = .TRUE. chem_dname_table( idomain, P_n2o5 ) = 'n2o5' chem_desc_table( idomain, P_n2o5 ) = 'N2O5 mixing ratio' chem_units_table( idomain, P_n2o5 ) = 'ppmv' chem_streams_table( idomain, P_n2o5 )%stream(1) = 33554433 chem_streams_table( idomain, P_n2o5 )%stream(2) = 2097216 F_n2o5 = .TRUE. IF ( chem_index_table( PARAM_no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3 = chem_num_table(idomain) chem_index_table( PARAM_no3 , idomain ) = P_no3 ELSE P_no3 = chem_index_table( PARAM_no3 , idomain ) END IF chem_boundary_table( idomain, P_no3 ) = .TRUE. chem_dname_table( idomain, P_no3 ) = 'no3' chem_desc_table( idomain, P_no3 ) = 'NO3 mixing ratio' chem_units_table( idomain, P_no3 ) = 'ppmv' chem_streams_table( idomain, P_no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3 )%stream(2) = 2097216 F_no3 = .TRUE. IF ( chem_index_table( PARAM_pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pan = chem_num_table(idomain) chem_index_table( PARAM_pan , idomain ) = P_pan ELSE P_pan = chem_index_table( PARAM_pan , idomain ) END IF chem_boundary_table( idomain, P_pan ) = .TRUE. chem_dname_table( idomain, P_pan ) = 'pan' chem_desc_table( idomain, P_pan ) = 'PAN mixing ratio' chem_units_table( idomain, P_pan ) = 'ppmv' chem_streams_table( idomain, P_pan )%stream(1) = 33554433 chem_streams_table( idomain, P_pan )%stream(2) = 2097216 F_pan = .TRUE. IF ( chem_index_table( PARAM_c3h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h8 = chem_num_table(idomain) chem_index_table( PARAM_c3h8 , idomain ) = P_c3h8 ELSE P_c3h8 = chem_index_table( PARAM_c3h8 , idomain ) END IF chem_boundary_table( idomain, P_c3h8 ) = .TRUE. chem_dname_table( idomain, P_c3h8 ) = 'c3h8' chem_desc_table( idomain, P_c3h8 ) = '' chem_units_table( idomain, P_c3h8 ) = '' chem_streams_table( idomain, P_c3h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h8 )%stream(2) = 2097216 F_c3h8 = .TRUE. IF ( chem_index_table( PARAM_nc4h10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nc4h10 = chem_num_table(idomain) chem_index_table( PARAM_nc4h10 , idomain ) = P_nc4h10 ELSE P_nc4h10 = chem_index_table( PARAM_nc4h10 , idomain ) END IF chem_boundary_table( idomain, P_nc4h10 ) = .TRUE. chem_dname_table( idomain, P_nc4h10 ) = 'nc4h10' chem_desc_table( idomain, P_nc4h10 ) = 'NC4H10 concentration' chem_units_table( idomain, P_nc4h10 ) = 'ppmv' chem_streams_table( idomain, P_nc4h10 )%stream(1) = 33554433 chem_streams_table( idomain, P_nc4h10 )%stream(2) = 2097216 F_nc4h10 = .TRUE. IF ( chem_index_table( PARAM_c2h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h6 = chem_num_table(idomain) chem_index_table( PARAM_c2h6 , idomain ) = P_c2h6 ELSE P_c2h6 = chem_index_table( PARAM_c2h6 , idomain ) END IF chem_boundary_table( idomain, P_c2h6 ) = .TRUE. chem_dname_table( idomain, P_c2h6 ) = 'c2h6' chem_desc_table( idomain, P_c2h6 ) = '' chem_units_table( idomain, P_c2h6 ) = '' chem_streams_table( idomain, P_c2h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h6 )%stream(2) = 2097216 F_c2h6 = .TRUE. IF ( chem_index_table( PARAM_co , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_co = chem_num_table(idomain) chem_index_table( PARAM_co , idomain ) = P_co ELSE P_co = chem_index_table( PARAM_co , idomain ) END IF chem_boundary_table( idomain, P_co ) = .TRUE. chem_dname_table( idomain, P_co ) = 'co' chem_desc_table( idomain, P_co ) = 'CO mixing ratio' chem_units_table( idomain, P_co ) = 'ppmv' chem_streams_table( idomain, P_co )%stream(1) = 33554433 chem_streams_table( idomain, P_co )%stream(2) = 2097216 F_co = .TRUE. IF ( chem_index_table( PARAM_c2h4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h4 = chem_num_table(idomain) chem_index_table( PARAM_c2h4 , idomain ) = P_c2h4 ELSE P_c2h4 = chem_index_table( PARAM_c2h4 , idomain ) END IF chem_boundary_table( idomain, P_c2h4 ) = .TRUE. chem_dname_table( idomain, P_c2h4 ) = 'c2h4' chem_desc_table( idomain, P_c2h4 ) = '' chem_units_table( idomain, P_c2h4 ) = '' chem_streams_table( idomain, P_c2h4 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h4 )%stream(2) = 2097216 F_c2h4 = .TRUE. IF ( chem_index_table( PARAM_toluene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_toluene = chem_num_table(idomain) chem_index_table( PARAM_toluene , idomain ) = P_toluene ELSE P_toluene = chem_index_table( PARAM_toluene , idomain ) END IF chem_boundary_table( idomain, P_toluene ) = .TRUE. chem_dname_table( idomain, P_toluene ) = 'toluene' chem_desc_table( idomain, P_toluene ) = 'TOLUENE concentration' chem_units_table( idomain, P_toluene ) = 'ppmv' chem_streams_table( idomain, P_toluene )%stream(1) = 33554433 chem_streams_table( idomain, P_toluene )%stream(2) = 2097216 F_toluene = .TRUE. IF ( chem_index_table( PARAM_oxyl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oxyl = chem_num_table(idomain) chem_index_table( PARAM_oxyl , idomain ) = P_oxyl ELSE P_oxyl = chem_index_table( PARAM_oxyl , idomain ) END IF chem_boundary_table( idomain, P_oxyl ) = .TRUE. chem_dname_table( idomain, P_oxyl ) = 'oxyl' chem_desc_table( idomain, P_oxyl ) = 'OXYL concentration' chem_units_table( idomain, P_oxyl ) = 'ppmv' chem_streams_table( idomain, P_oxyl )%stream(1) = 33554433 chem_streams_table( idomain, P_oxyl )%stream(2) = 2097216 F_oxyl = .TRUE. IF ( chem_index_table( PARAM_aco3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aco3 = chem_num_table(idomain) chem_index_table( PARAM_aco3 , idomain ) = P_aco3 ELSE P_aco3 = chem_index_table( PARAM_aco3 , idomain ) END IF chem_boundary_table( idomain, P_aco3 ) = .TRUE. chem_dname_table( idomain, P_aco3 ) = 'aco3' chem_desc_table( idomain, P_aco3 ) = 'ACO3 mixing ratio' chem_units_table( idomain, P_aco3 ) = 'ppmv' chem_streams_table( idomain, P_aco3 )%stream(1) = 33554433 chem_streams_table( idomain, P_aco3 )%stream(2) = 2097216 F_aco3 = .TRUE. IF ( chem_index_table( PARAM_hono , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hono = chem_num_table(idomain) chem_index_table( PARAM_hono , idomain ) = P_hono ELSE P_hono = chem_index_table( PARAM_hono , idomain ) END IF chem_boundary_table( idomain, P_hono ) = .TRUE. chem_dname_table( idomain, P_hono ) = 'hono' chem_desc_table( idomain, P_hono ) = 'HONO mixing ratio' chem_units_table( idomain, P_hono ) = 'ppmv' chem_streams_table( idomain, P_hono )%stream(1) = 33554433 chem_streams_table( idomain, P_hono )%stream(2) = 2097216 F_hono = .TRUE. IF ( chem_index_table( PARAM_hno4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hno4 = chem_num_table(idomain) chem_index_table( PARAM_hno4 , idomain ) = P_hno4 ELSE P_hno4 = chem_index_table( PARAM_hno4 , idomain ) END IF chem_boundary_table( idomain, P_hno4 ) = .TRUE. chem_dname_table( idomain, P_hno4 ) = 'hno4' chem_desc_table( idomain, P_hno4 ) = 'HNO4 mixing ratio' chem_units_table( idomain, P_hno4 ) = 'ppmv' chem_streams_table( idomain, P_hno4 )%stream(1) = 33554433 chem_streams_table( idomain, P_hno4 )%stream(2) = 2097216 F_hno4 = .TRUE. IF ( chem_index_table( PARAM_ket , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ket = chem_num_table(idomain) chem_index_table( PARAM_ket , idomain ) = P_ket ELSE P_ket = chem_index_table( PARAM_ket , idomain ) END IF chem_boundary_table( idomain, P_ket ) = .TRUE. chem_dname_table( idomain, P_ket ) = 'ket' chem_desc_table( idomain, P_ket ) = 'KET mixing ratio' chem_units_table( idomain, P_ket ) = 'ppmv' chem_streams_table( idomain, P_ket )%stream(1) = 33554433 chem_streams_table( idomain, P_ket )%stream(2) = 2097216 F_ket = .TRUE. IF ( chem_index_table( PARAM_c5h8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c5h8 = chem_num_table(idomain) chem_index_table( PARAM_c5h8 , idomain ) = P_c5h8 ELSE P_c5h8 = chem_index_table( PARAM_c5h8 , idomain ) END IF chem_boundary_table( idomain, P_c5h8 ) = .TRUE. chem_dname_table( idomain, P_c5h8 ) = 'c5h8' chem_desc_table( idomain, P_c5h8 ) = 'C5H8 concentration' chem_units_table( idomain, P_c5h8 ) = 'ppmv' chem_streams_table( idomain, P_c5h8 )%stream(1) = 33554433 chem_streams_table( idomain, P_c5h8 )%stream(2) = 2097216 F_c5h8 = .TRUE. IF ( chem_index_table( PARAM_ho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho = chem_num_table(idomain) chem_index_table( PARAM_ho , idomain ) = P_ho ELSE P_ho = chem_index_table( PARAM_ho , idomain ) END IF chem_boundary_table( idomain, P_ho ) = .TRUE. chem_dname_table( idomain, P_ho ) = 'ho' chem_desc_table( idomain, P_ho ) = 'HO mixing ratio' chem_units_table( idomain, P_ho ) = 'ppmv' chem_streams_table( idomain, P_ho )%stream(1) = 33554433 chem_streams_table( idomain, P_ho )%stream(2) = 2097216 F_ho = .TRUE. IF ( chem_index_table( PARAM_ho2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ho2 = chem_num_table(idomain) chem_index_table( PARAM_ho2 , idomain ) = P_ho2 ELSE P_ho2 = chem_index_table( PARAM_ho2 , idomain ) END IF chem_boundary_table( idomain, P_ho2 ) = .TRUE. chem_dname_table( idomain, P_ho2 ) = 'ho2' chem_desc_table( idomain, P_ho2 ) = 'HO2 mixing ratio' chem_units_table( idomain, P_ho2 ) = 'ppmv' chem_streams_table( idomain, P_ho2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ho2 )%stream(2) = 2097216 F_ho2 = .TRUE. IF ( chem_index_table( PARAM_so3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so3 = chem_num_table(idomain) chem_index_table( PARAM_so3 , idomain ) = P_so3 ELSE P_so3 = chem_index_table( PARAM_so3 , idomain ) END IF chem_boundary_table( idomain, P_so3 ) = .TRUE. chem_dname_table( idomain, P_so3 ) = 'so3' chem_desc_table( idomain, P_so3 ) = 'SO3 concentration' chem_units_table( idomain, P_so3 ) = 'ppmv' chem_streams_table( idomain, P_so3 )%stream(1) = 33554433 chem_streams_table( idomain, P_so3 )%stream(2) = 2097216 F_so3 = .TRUE. IF ( chem_index_table( PARAM_no , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no = chem_num_table(idomain) chem_index_table( PARAM_no , idomain ) = P_no ELSE P_no = chem_index_table( PARAM_no , idomain ) END IF chem_boundary_table( idomain, P_no ) = .TRUE. chem_dname_table( idomain, P_no ) = 'no' chem_desc_table( idomain, P_no ) = 'NO mixing ratio' chem_units_table( idomain, P_no ) = 'ppmv' chem_streams_table( idomain, P_no )%stream(1) = 33554433 chem_streams_table( idomain, P_no )%stream(2) = 2097216 F_no = .TRUE. IF ( chem_index_table( PARAM_benzene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_benzene = chem_num_table(idomain) chem_index_table( PARAM_benzene , idomain ) = P_benzene ELSE P_benzene = chem_index_table( PARAM_benzene , idomain ) END IF chem_boundary_table( idomain, P_benzene ) = .TRUE. chem_dname_table( idomain, P_benzene ) = 'benzene' chem_desc_table( idomain, P_benzene ) = 'BENZENE concentration' chem_units_table( idomain, P_benzene ) = 'ppmv' chem_streams_table( idomain, P_benzene )%stream(1) = 33554433 chem_streams_table( idomain, P_benzene )%stream(2) = 2097216 F_benzene = .TRUE. IF ( chem_index_table( PARAM_npropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_npropol = chem_num_table(idomain) chem_index_table( PARAM_npropol , idomain ) = P_npropol ELSE P_npropol = chem_index_table( PARAM_npropol , idomain ) END IF chem_boundary_table( idomain, P_npropol ) = .TRUE. chem_dname_table( idomain, P_npropol ) = 'npropol' chem_desc_table( idomain, P_npropol ) = 'NPROPOL concentration' chem_units_table( idomain, P_npropol ) = 'ppmv' chem_streams_table( idomain, P_npropol )%stream(1) = 33554433 chem_streams_table( idomain, P_npropol )%stream(2) = 2097216 F_npropol = .TRUE. IF ( chem_index_table( PARAM_c2h2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h2 = chem_num_table(idomain) chem_index_table( PARAM_c2h2 , idomain ) = P_c2h2 ELSE P_c2h2 = chem_index_table( PARAM_c2h2 , idomain ) END IF chem_boundary_table( idomain, P_c2h2 ) = .TRUE. chem_dname_table( idomain, P_c2h2 ) = 'c2h2' chem_desc_table( idomain, P_c2h2 ) = 'C2H2 mixing ratio' chem_units_table( idomain, P_c2h2 ) = 'ppmv' chem_streams_table( idomain, P_c2h2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h2 )%stream(2) = 2097216 F_c2h2 = .TRUE. IF ( chem_index_table( PARAM_c3h6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c3h6 = chem_num_table(idomain) chem_index_table( PARAM_c3h6 , idomain ) = P_c3h6 ELSE P_c3h6 = chem_index_table( PARAM_c3h6 , idomain ) END IF chem_boundary_table( idomain, P_c3h6 ) = .TRUE. chem_dname_table( idomain, P_c3h6 ) = 'c3h6' chem_desc_table( idomain, P_c3h6 ) = '' chem_units_table( idomain, P_c3h6 ) = '' chem_streams_table( idomain, P_c3h6 )%stream(1) = 33554433 chem_streams_table( idomain, P_c3h6 )%stream(2) = 2097216 F_c3h6 = .TRUE. IF ( chem_index_table( PARAM_tbut2ene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tbut2ene = chem_num_table(idomain) chem_index_table( PARAM_tbut2ene , idomain ) = P_tbut2ene ELSE P_tbut2ene = chem_index_table( PARAM_tbut2ene , idomain ) END IF chem_boundary_table( idomain, P_tbut2ene ) = .TRUE. chem_dname_table( idomain, P_tbut2ene ) = 'tbut2ene' chem_desc_table( idomain, P_tbut2ene ) = 'TBUT2ENE concentration' chem_units_table( idomain, P_tbut2ene ) = 'ppmv' chem_streams_table( idomain, P_tbut2ene )%stream(1) = 33554433 chem_streams_table( idomain, P_tbut2ene )%stream(2) = 2097216 F_tbut2ene = .TRUE. IF ( chem_index_table( PARAM_c2h5cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5cho = chem_num_table(idomain) chem_index_table( PARAM_c2h5cho , idomain ) = P_c2h5cho ELSE P_c2h5cho = chem_index_table( PARAM_c2h5cho , idomain ) END IF chem_boundary_table( idomain, P_c2h5cho ) = .TRUE. chem_dname_table( idomain, P_c2h5cho ) = 'c2h5cho' chem_desc_table( idomain, P_c2h5cho ) = 'C2H5CHO concentration' chem_units_table( idomain, P_c2h5cho ) = 'ppmv' chem_streams_table( idomain, P_c2h5cho )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5cho )%stream(2) = 2097216 F_c2h5cho = .TRUE. IF ( chem_index_table( PARAM_ch3co2h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3co2h = chem_num_table(idomain) chem_index_table( PARAM_ch3co2h , idomain ) = P_ch3co2h ELSE P_ch3co2h = chem_index_table( PARAM_ch3co2h , idomain ) END IF chem_boundary_table( idomain, P_ch3co2h ) = .TRUE. chem_dname_table( idomain, P_ch3co2h ) = 'ch3co2h' chem_desc_table( idomain, P_ch3co2h ) = 'CH3CO2H concentration' chem_units_table( idomain, P_ch3co2h ) = 'ppmv' chem_streams_table( idomain, P_ch3co2h )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3co2h )%stream(2) = 2097216 F_ch3co2h = .TRUE. IF ( chem_index_table( PARAM_mek , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mek = chem_num_table(idomain) chem_index_table( PARAM_mek , idomain ) = P_mek ELSE P_mek = chem_index_table( PARAM_mek , idomain ) END IF chem_boundary_table( idomain, P_mek ) = .TRUE. chem_dname_table( idomain, P_mek ) = 'mek' chem_desc_table( idomain, P_mek ) = '' chem_units_table( idomain, P_mek ) = '' chem_streams_table( idomain, P_mek )%stream(1) = 33554433 chem_streams_table( idomain, P_mek )%stream(2) = 2097216 F_mek = .TRUE. IF ( chem_index_table( PARAM_ch3oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oh = chem_num_table(idomain) chem_index_table( PARAM_ch3oh , idomain ) = P_ch3oh ELSE P_ch3oh = chem_index_table( PARAM_ch3oh , idomain ) END IF chem_boundary_table( idomain, P_ch3oh ) = .TRUE. chem_dname_table( idomain, P_ch3oh ) = 'ch3oh' chem_desc_table( idomain, P_ch3oh ) = 'CH3OH mixing ratio' chem_units_table( idomain, P_ch3oh ) = 'ppmv' chem_streams_table( idomain, P_ch3oh )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oh )%stream(2) = 2097216 F_ch3oh = .TRUE. IF ( chem_index_table( PARAM_c2h5oh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5oh = chem_num_table(idomain) chem_index_table( PARAM_c2h5oh , idomain ) = P_c2h5oh ELSE P_c2h5oh = chem_index_table( PARAM_c2h5oh , idomain ) END IF chem_boundary_table( idomain, P_c2h5oh ) = .TRUE. chem_dname_table( idomain, P_c2h5oh ) = 'c2h5oh' chem_desc_table( idomain, P_c2h5oh ) = 'C2H5OH mixing ratio' chem_units_table( idomain, P_c2h5oh ) = 'ppmv' chem_streams_table( idomain, P_c2h5oh )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5oh )%stream(2) = 2097216 F_c2h5oh = .TRUE. IF ( chem_index_table( PARAM_ipropol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ipropol = chem_num_table(idomain) chem_index_table( PARAM_ipropol , idomain ) = P_ipropol ELSE P_ipropol = chem_index_table( PARAM_ipropol , idomain ) END IF chem_boundary_table( idomain, P_ipropol ) = .TRUE. chem_dname_table( idomain, P_ipropol ) = 'ipropol' chem_desc_table( idomain, P_ipropol ) = 'IPROPOL concentration' chem_units_table( idomain, P_ipropol ) = 'ppmv' chem_streams_table( idomain, P_ipropol )%stream(1) = 33554433 chem_streams_table( idomain, P_ipropol )%stream(2) = 2097216 F_ipropol = .TRUE. IF ( chem_index_table( PARAM_ch3no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3no3 = chem_num_table(idomain) chem_index_table( PARAM_ch3no3 , idomain ) = P_ch3no3 ELSE P_ch3no3 = chem_index_table( PARAM_ch3no3 , idomain ) END IF chem_boundary_table( idomain, P_ch3no3 ) = .TRUE. chem_dname_table( idomain, P_ch3no3 ) = 'ch3no3' chem_desc_table( idomain, P_ch3no3 ) = 'CH3NO3 concentration' chem_units_table( idomain, P_ch3no3 ) = 'ppmv' chem_streams_table( idomain, P_ch3no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3no3 )%stream(2) = 2097216 F_ch3no3 = .TRUE. IF ( chem_index_table( PARAM_c2h5no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5no3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5no3 , idomain ) = P_c2h5no3 ELSE P_c2h5no3 = chem_index_table( PARAM_c2h5no3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5no3 ) = .TRUE. chem_dname_table( idomain, P_c2h5no3 ) = 'c2h5no3' chem_desc_table( idomain, P_c2h5no3 ) = 'C2H5NO3 concentration' chem_units_table( idomain, P_c2h5no3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5no3 )%stream(2) = 2097216 F_c2h5no3 = .TRUE. IF ( chem_index_table( PARAM_hoc2h4no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4no3 = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4no3 , idomain ) = P_hoc2h4no3 ELSE P_hoc2h4no3 = chem_index_table( PARAM_hoc2h4no3 , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4no3 ) = .TRUE. chem_dname_table( idomain, P_hoc2h4no3 ) = 'hoc2h4no3' chem_desc_table( idomain, P_hoc2h4no3 ) = 'HOC2H4NO3 concentration' chem_units_table( idomain, P_hoc2h4no3 ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoc2h4no3 )%stream(2) = 2097216 F_hoc2h4no3 = .TRUE. IF ( chem_index_table( PARAM_prooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_prooh = chem_num_table(idomain) chem_index_table( PARAM_prooh , idomain ) = P_prooh ELSE P_prooh = chem_index_table( PARAM_prooh , idomain ) END IF chem_boundary_table( idomain, P_prooh ) = .TRUE. chem_dname_table( idomain, P_prooh ) = 'prooh' chem_desc_table( idomain, P_prooh ) = '' chem_units_table( idomain, P_prooh ) = '' chem_streams_table( idomain, P_prooh )%stream(1) = 33554433 chem_streams_table( idomain, P_prooh )%stream(2) = 2097216 F_prooh = .TRUE. IF ( chem_index_table( PARAM_hoc2h4ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoc2h4ooh = chem_num_table(idomain) chem_index_table( PARAM_hoc2h4ooh , idomain ) = P_hoc2h4ooh ELSE P_hoc2h4ooh = chem_index_table( PARAM_hoc2h4ooh , idomain ) END IF chem_boundary_table( idomain, P_hoc2h4ooh ) = .TRUE. chem_dname_table( idomain, P_hoc2h4ooh ) = 'hoc2h4ooh' chem_desc_table( idomain, P_hoc2h4ooh ) = 'HOC2H4OOH concentration' chem_units_table( idomain, P_hoc2h4ooh ) = 'ppmv' chem_streams_table( idomain, P_hoc2h4ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_hoc2h4ooh )%stream(2) = 2097216 F_hoc2h4ooh = .TRUE. IF ( chem_index_table( PARAM_carb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb14 = chem_num_table(idomain) chem_index_table( PARAM_carb14 , idomain ) = P_carb14 ELSE P_carb14 = chem_index_table( PARAM_carb14 , idomain ) END IF chem_boundary_table( idomain, P_carb14 ) = .TRUE. chem_dname_table( idomain, P_carb14 ) = 'carb14' chem_desc_table( idomain, P_carb14 ) = 'CARB14 concentration' chem_units_table( idomain, P_carb14 ) = 'ppmv' chem_streams_table( idomain, P_carb14 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb14 )%stream(2) = 2097216 F_carb14 = .TRUE. IF ( chem_index_table( PARAM_carb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb17 = chem_num_table(idomain) chem_index_table( PARAM_carb17 , idomain ) = P_carb17 ELSE P_carb17 = chem_index_table( PARAM_carb17 , idomain ) END IF chem_boundary_table( idomain, P_carb17 ) = .TRUE. chem_dname_table( idomain, P_carb17 ) = 'carb17' chem_desc_table( idomain, P_carb17 ) = 'CARB17 concentration' chem_units_table( idomain, P_carb17 ) = 'ppmv' chem_streams_table( idomain, P_carb17 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb17 )%stream(2) = 2097216 F_carb17 = .TRUE. IF ( chem_index_table( PARAM_rn10no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10no3 = chem_num_table(idomain) chem_index_table( PARAM_rn10no3 , idomain ) = P_rn10no3 ELSE P_rn10no3 = chem_index_table( PARAM_rn10no3 , idomain ) END IF chem_boundary_table( idomain, P_rn10no3 ) = .TRUE. chem_dname_table( idomain, P_rn10no3 ) = 'rn10no3' chem_desc_table( idomain, P_rn10no3 ) = 'RN10NO3 concentration' chem_units_table( idomain, P_rn10no3 ) = 'ppmv' chem_streams_table( idomain, P_rn10no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10no3 )%stream(2) = 2097216 F_rn10no3 = .TRUE. IF ( chem_index_table( PARAM_rn13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13no3 = chem_num_table(idomain) chem_index_table( PARAM_rn13no3 , idomain ) = P_rn13no3 ELSE P_rn13no3 = chem_index_table( PARAM_rn13no3 , idomain ) END IF chem_boundary_table( idomain, P_rn13no3 ) = .TRUE. chem_dname_table( idomain, P_rn13no3 ) = 'rn13no3' chem_desc_table( idomain, P_rn13no3 ) = 'RN13NO3 concentration' chem_units_table( idomain, P_rn13no3 ) = 'ppmv' chem_streams_table( idomain, P_rn13no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13no3 )%stream(2) = 2097216 F_rn13no3 = .TRUE. IF ( chem_index_table( PARAM_rn19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19no3 = chem_num_table(idomain) chem_index_table( PARAM_rn19no3 , idomain ) = P_rn19no3 ELSE P_rn19no3 = chem_index_table( PARAM_rn19no3 , idomain ) END IF chem_boundary_table( idomain, P_rn19no3 ) = .TRUE. chem_dname_table( idomain, P_rn19no3 ) = 'rn19no3' chem_desc_table( idomain, P_rn19no3 ) = 'RN19NO3 concentration' chem_units_table( idomain, P_rn19no3 ) = 'ppmv' chem_streams_table( idomain, P_rn19no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19no3 )%stream(2) = 2097216 F_rn19no3 = .TRUE. IF ( chem_index_table( PARAM_rn9no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9no3 = chem_num_table(idomain) chem_index_table( PARAM_rn9no3 , idomain ) = P_rn9no3 ELSE P_rn9no3 = chem_index_table( PARAM_rn9no3 , idomain ) END IF chem_boundary_table( idomain, P_rn9no3 ) = .TRUE. chem_dname_table( idomain, P_rn9no3 ) = 'rn9no3' chem_desc_table( idomain, P_rn9no3 ) = 'RN9NO3 concentration' chem_units_table( idomain, P_rn9no3 ) = 'ppmv' chem_streams_table( idomain, P_rn9no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9no3 )%stream(2) = 2097216 F_rn9no3 = .TRUE. IF ( chem_index_table( PARAM_rn12no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12no3 = chem_num_table(idomain) chem_index_table( PARAM_rn12no3 , idomain ) = P_rn12no3 ELSE P_rn12no3 = chem_index_table( PARAM_rn12no3 , idomain ) END IF chem_boundary_table( idomain, P_rn12no3 ) = .TRUE. chem_dname_table( idomain, P_rn12no3 ) = 'rn12no3' chem_desc_table( idomain, P_rn12no3 ) = 'RN12NO3 concentration' chem_units_table( idomain, P_rn12no3 ) = 'ppmv' chem_streams_table( idomain, P_rn12no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12no3 )%stream(2) = 2097216 F_rn12no3 = .TRUE. IF ( chem_index_table( PARAM_rn15no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15no3 = chem_num_table(idomain) chem_index_table( PARAM_rn15no3 , idomain ) = P_rn15no3 ELSE P_rn15no3 = chem_index_table( PARAM_rn15no3 , idomain ) END IF chem_boundary_table( idomain, P_rn15no3 ) = .TRUE. chem_dname_table( idomain, P_rn15no3 ) = 'rn15no3' chem_desc_table( idomain, P_rn15no3 ) = 'RN15NO3 concentration' chem_units_table( idomain, P_rn15no3 ) = 'ppmv' chem_streams_table( idomain, P_rn15no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15no3 )%stream(2) = 2097216 F_rn15no3 = .TRUE. IF ( chem_index_table( PARAM_rn18no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18no3 = chem_num_table(idomain) chem_index_table( PARAM_rn18no3 , idomain ) = P_rn18no3 ELSE P_rn18no3 = chem_index_table( PARAM_rn18no3 , idomain ) END IF chem_boundary_table( idomain, P_rn18no3 ) = .TRUE. chem_dname_table( idomain, P_rn18no3 ) = 'rn18no3' chem_desc_table( idomain, P_rn18no3 ) = 'RN18NO3 concentration' chem_units_table( idomain, P_rn18no3 ) = 'ppmv' chem_streams_table( idomain, P_rn18no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18no3 )%stream(2) = 2097216 F_rn18no3 = .TRUE. IF ( chem_index_table( PARAM_rn16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16no3 = chem_num_table(idomain) chem_index_table( PARAM_rn16no3 , idomain ) = P_rn16no3 ELSE P_rn16no3 = chem_index_table( PARAM_rn16no3 , idomain ) END IF chem_boundary_table( idomain, P_rn16no3 ) = .TRUE. chem_dname_table( idomain, P_rn16no3 ) = 'rn16no3' chem_desc_table( idomain, P_rn16no3 ) = 'RN16NO3 concentration' chem_units_table( idomain, P_rn16no3 ) = 'ppmv' chem_streams_table( idomain, P_rn16no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16no3 )%stream(2) = 2097216 F_rn16no3 = .TRUE. IF ( chem_index_table( PARAM_rn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rn10ooh , idomain ) = P_rn10ooh ELSE P_rn10ooh = chem_index_table( PARAM_rn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rn10ooh ) = .TRUE. chem_dname_table( idomain, P_rn10ooh ) = 'rn10ooh' chem_desc_table( idomain, P_rn10ooh ) = 'RN10OOH concentration' chem_units_table( idomain, P_rn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rn10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10ooh )%stream(2) = 2097216 F_rn10ooh = .TRUE. IF ( chem_index_table( PARAM_rn13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ooh = chem_num_table(idomain) chem_index_table( PARAM_rn13ooh , idomain ) = P_rn13ooh ELSE P_rn13ooh = chem_index_table( PARAM_rn13ooh , idomain ) END IF chem_boundary_table( idomain, P_rn13ooh ) = .TRUE. chem_dname_table( idomain, P_rn13ooh ) = 'rn13ooh' chem_desc_table( idomain, P_rn13ooh ) = 'RN13OOH concentration' chem_units_table( idomain, P_rn13ooh ) = 'ppmv' chem_streams_table( idomain, P_rn13ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13ooh )%stream(2) = 2097216 F_rn13ooh = .TRUE. IF ( chem_index_table( PARAM_rn16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ooh = chem_num_table(idomain) chem_index_table( PARAM_rn16ooh , idomain ) = P_rn16ooh ELSE P_rn16ooh = chem_index_table( PARAM_rn16ooh , idomain ) END IF chem_boundary_table( idomain, P_rn16ooh ) = .TRUE. chem_dname_table( idomain, P_rn16ooh ) = 'rn16ooh' chem_desc_table( idomain, P_rn16ooh ) = 'RN16OOH concentration' chem_units_table( idomain, P_rn16ooh ) = 'ppmv' chem_streams_table( idomain, P_rn16ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16ooh )%stream(2) = 2097216 F_rn16ooh = .TRUE. IF ( chem_index_table( PARAM_rn19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19ooh = chem_num_table(idomain) chem_index_table( PARAM_rn19ooh , idomain ) = P_rn19ooh ELSE P_rn19ooh = chem_index_table( PARAM_rn19ooh , idomain ) END IF chem_boundary_table( idomain, P_rn19ooh ) = .TRUE. chem_dname_table( idomain, P_rn19ooh ) = 'rn19ooh' chem_desc_table( idomain, P_rn19ooh ) = 'RN19OOH concentration' chem_units_table( idomain, P_rn19ooh ) = 'ppmv' chem_streams_table( idomain, P_rn19ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19ooh )%stream(2) = 2097216 F_rn19ooh = .TRUE. IF ( chem_index_table( PARAM_rn8ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8ooh = chem_num_table(idomain) chem_index_table( PARAM_rn8ooh , idomain ) = P_rn8ooh ELSE P_rn8ooh = chem_index_table( PARAM_rn8ooh , idomain ) END IF chem_boundary_table( idomain, P_rn8ooh ) = .TRUE. chem_dname_table( idomain, P_rn8ooh ) = 'rn8ooh' chem_desc_table( idomain, P_rn8ooh ) = 'RN8OOH concentration' chem_units_table( idomain, P_rn8ooh ) = 'ppmv' chem_streams_table( idomain, P_rn8ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn8ooh )%stream(2) = 2097216 F_rn8ooh = .TRUE. IF ( chem_index_table( PARAM_rn11ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11ooh = chem_num_table(idomain) chem_index_table( PARAM_rn11ooh , idomain ) = P_rn11ooh ELSE P_rn11ooh = chem_index_table( PARAM_rn11ooh , idomain ) END IF chem_boundary_table( idomain, P_rn11ooh ) = .TRUE. chem_dname_table( idomain, P_rn11ooh ) = 'rn11ooh' chem_desc_table( idomain, P_rn11ooh ) = 'RN11OOH concentration' chem_units_table( idomain, P_rn11ooh ) = 'ppmv' chem_streams_table( idomain, P_rn11ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn11ooh )%stream(2) = 2097216 F_rn11ooh = .TRUE. IF ( chem_index_table( PARAM_rn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rn14ooh , idomain ) = P_rn14ooh ELSE P_rn14ooh = chem_index_table( PARAM_rn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rn14ooh ) = .TRUE. chem_dname_table( idomain, P_rn14ooh ) = 'rn14ooh' chem_desc_table( idomain, P_rn14ooh ) = 'RN14OOH concentration' chem_units_table( idomain, P_rn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rn14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn14ooh )%stream(2) = 2097216 F_rn14ooh = .TRUE. IF ( chem_index_table( PARAM_rn17ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17ooh = chem_num_table(idomain) chem_index_table( PARAM_rn17ooh , idomain ) = P_rn17ooh ELSE P_rn17ooh = chem_index_table( PARAM_rn17ooh , idomain ) END IF chem_boundary_table( idomain, P_rn17ooh ) = .TRUE. chem_dname_table( idomain, P_rn17ooh ) = 'rn17ooh' chem_desc_table( idomain, P_rn17ooh ) = 'RN17OOH concentration' chem_units_table( idomain, P_rn17ooh ) = 'ppmv' chem_streams_table( idomain, P_rn17ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn17ooh )%stream(2) = 2097216 F_rn17ooh = .TRUE. IF ( chem_index_table( PARAM_rn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9ooh = chem_num_table(idomain) chem_index_table( PARAM_rn9ooh , idomain ) = P_rn9ooh ELSE P_rn9ooh = chem_index_table( PARAM_rn9ooh , idomain ) END IF chem_boundary_table( idomain, P_rn9ooh ) = .TRUE. chem_dname_table( idomain, P_rn9ooh ) = 'rn9ooh' chem_desc_table( idomain, P_rn9ooh ) = 'RN9OOH concentration' chem_units_table( idomain, P_rn9ooh ) = 'ppmv' chem_streams_table( idomain, P_rn9ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9ooh )%stream(2) = 2097216 F_rn9ooh = .TRUE. IF ( chem_index_table( PARAM_rn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12ooh = chem_num_table(idomain) chem_index_table( PARAM_rn12ooh , idomain ) = P_rn12ooh ELSE P_rn12ooh = chem_index_table( PARAM_rn12ooh , idomain ) END IF chem_boundary_table( idomain, P_rn12ooh ) = .TRUE. chem_dname_table( idomain, P_rn12ooh ) = 'rn12ooh' chem_desc_table( idomain, P_rn12ooh ) = 'RN12OOH concentration' chem_units_table( idomain, P_rn12ooh ) = 'ppmv' chem_streams_table( idomain, P_rn12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12ooh )%stream(2) = 2097216 F_rn12ooh = .TRUE. IF ( chem_index_table( PARAM_rn15ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ooh = chem_num_table(idomain) chem_index_table( PARAM_rn15ooh , idomain ) = P_rn15ooh ELSE P_rn15ooh = chem_index_table( PARAM_rn15ooh , idomain ) END IF chem_boundary_table( idomain, P_rn15ooh ) = .TRUE. chem_dname_table( idomain, P_rn15ooh ) = 'rn15ooh' chem_desc_table( idomain, P_rn15ooh ) = 'RN15OOH concentration' chem_units_table( idomain, P_rn15ooh ) = 'ppmv' chem_streams_table( idomain, P_rn15ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15ooh )%stream(2) = 2097216 F_rn15ooh = .TRUE. IF ( chem_index_table( PARAM_rn18ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ooh = chem_num_table(idomain) chem_index_table( PARAM_rn18ooh , idomain ) = P_rn18ooh ELSE P_rn18ooh = chem_index_table( PARAM_rn18ooh , idomain ) END IF chem_boundary_table( idomain, P_rn18ooh ) = .TRUE. chem_dname_table( idomain, P_rn18ooh ) = 'rn18ooh' chem_desc_table( idomain, P_rn18ooh ) = 'RN18OOH concentration' chem_units_table( idomain, P_rn18ooh ) = 'ppmv' chem_streams_table( idomain, P_rn18ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18ooh )%stream(2) = 2097216 F_rn18ooh = .TRUE. IF ( chem_index_table( PARAM_nrn6ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn6ooh , idomain ) = P_nrn6ooh ELSE P_nrn6ooh = chem_index_table( PARAM_nrn6ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn6ooh ) = .TRUE. chem_dname_table( idomain, P_nrn6ooh ) = 'nrn6ooh' chem_desc_table( idomain, P_nrn6ooh ) = 'NRN6OOH concentration' chem_units_table( idomain, P_nrn6ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn6ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn6ooh )%stream(2) = 2097216 F_nrn6ooh = .TRUE. IF ( chem_index_table( PARAM_nrn9ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn9ooh , idomain ) = P_nrn9ooh ELSE P_nrn9ooh = chem_index_table( PARAM_nrn9ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn9ooh ) = .TRUE. chem_dname_table( idomain, P_nrn9ooh ) = 'nrn9ooh' chem_desc_table( idomain, P_nrn9ooh ) = 'NRN9OOH concentration' chem_units_table( idomain, P_nrn9ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn9ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn9ooh )%stream(2) = 2097216 F_nrn9ooh = .TRUE. IF ( chem_index_table( PARAM_nrn12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12ooh = chem_num_table(idomain) chem_index_table( PARAM_nrn12ooh , idomain ) = P_nrn12ooh ELSE P_nrn12ooh = chem_index_table( PARAM_nrn12ooh , idomain ) END IF chem_boundary_table( idomain, P_nrn12ooh ) = .TRUE. chem_dname_table( idomain, P_nrn12ooh ) = 'nrn12ooh' chem_desc_table( idomain, P_nrn12ooh ) = 'NRN12OOH concentration' chem_units_table( idomain, P_nrn12ooh ) = 'ppmv' chem_streams_table( idomain, P_nrn12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn12ooh )%stream(2) = 2097216 F_nrn12ooh = .TRUE. IF ( chem_index_table( PARAM_apinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_apinene = chem_num_table(idomain) chem_index_table( PARAM_apinene , idomain ) = P_apinene ELSE P_apinene = chem_index_table( PARAM_apinene , idomain ) END IF chem_boundary_table( idomain, P_apinene ) = .TRUE. chem_dname_table( idomain, P_apinene ) = 'apinene' chem_desc_table( idomain, P_apinene ) = 'APINENE concentration' chem_units_table( idomain, P_apinene ) = 'ppmv' chem_streams_table( idomain, P_apinene )%stream(1) = 33554433 chem_streams_table( idomain, P_apinene )%stream(2) = 2097216 F_apinene = .TRUE. IF ( chem_index_table( PARAM_bpinene , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bpinene = chem_num_table(idomain) chem_index_table( PARAM_bpinene , idomain ) = P_bpinene ELSE P_bpinene = chem_index_table( PARAM_bpinene , idomain ) END IF chem_boundary_table( idomain, P_bpinene ) = .TRUE. chem_dname_table( idomain, P_bpinene ) = 'bpinene' chem_desc_table( idomain, P_bpinene ) = 'BPINENE concentration' chem_units_table( idomain, P_bpinene ) = 'ppmv' chem_streams_table( idomain, P_bpinene )%stream(1) = 33554433 chem_streams_table( idomain, P_bpinene )%stream(2) = 2097216 F_bpinene = .TRUE. IF ( chem_index_table( PARAM_carb7 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb7 = chem_num_table(idomain) chem_index_table( PARAM_carb7 , idomain ) = P_carb7 ELSE P_carb7 = chem_index_table( PARAM_carb7 , idomain ) END IF chem_boundary_table( idomain, P_carb7 ) = .TRUE. chem_dname_table( idomain, P_carb7 ) = 'carb7' chem_desc_table( idomain, P_carb7 ) = 'CARB7 concentration' chem_units_table( idomain, P_carb7 ) = 'ppmv' chem_streams_table( idomain, P_carb7 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb7 )%stream(2) = 2097216 F_carb7 = .TRUE. IF ( chem_index_table( PARAM_carb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb10 = chem_num_table(idomain) chem_index_table( PARAM_carb10 , idomain ) = P_carb10 ELSE P_carb10 = chem_index_table( PARAM_carb10 , idomain ) END IF chem_boundary_table( idomain, P_carb10 ) = .TRUE. chem_dname_table( idomain, P_carb10 ) = 'carb10' chem_desc_table( idomain, P_carb10 ) = 'CARB10 concentration' chem_units_table( idomain, P_carb10 ) = 'ppmv' chem_streams_table( idomain, P_carb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb10 )%stream(2) = 2097216 F_carb10 = .TRUE. IF ( chem_index_table( PARAM_carb13 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb13 = chem_num_table(idomain) chem_index_table( PARAM_carb13 , idomain ) = P_carb13 ELSE P_carb13 = chem_index_table( PARAM_carb13 , idomain ) END IF chem_boundary_table( idomain, P_carb13 ) = .TRUE. chem_dname_table( idomain, P_carb13 ) = 'carb13' chem_desc_table( idomain, P_carb13 ) = 'CARB13 concentration' chem_units_table( idomain, P_carb13 ) = 'ppmv' chem_streams_table( idomain, P_carb13 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb13 )%stream(2) = 2097216 F_carb13 = .TRUE. IF ( chem_index_table( PARAM_carb16 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb16 = chem_num_table(idomain) chem_index_table( PARAM_carb16 , idomain ) = P_carb16 ELSE P_carb16 = chem_index_table( PARAM_carb16 , idomain ) END IF chem_boundary_table( idomain, P_carb16 ) = .TRUE. chem_dname_table( idomain, P_carb16 ) = 'carb16' chem_desc_table( idomain, P_carb16 ) = 'CARB16 concentration' chem_units_table( idomain, P_carb16 ) = 'ppmv' chem_streams_table( idomain, P_carb16 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb16 )%stream(2) = 2097216 F_carb16 = .TRUE. IF ( chem_index_table( PARAM_carb3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb3 = chem_num_table(idomain) chem_index_table( PARAM_carb3 , idomain ) = P_carb3 ELSE P_carb3 = chem_index_table( PARAM_carb3 , idomain ) END IF chem_boundary_table( idomain, P_carb3 ) = .TRUE. chem_dname_table( idomain, P_carb3 ) = 'carb3' chem_desc_table( idomain, P_carb3 ) = 'CARB3 concentration' chem_units_table( idomain, P_carb3 ) = 'ppmv' chem_streams_table( idomain, P_carb3 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb3 )%stream(2) = 2097216 F_carb3 = .TRUE. IF ( chem_index_table( PARAM_carb6 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb6 = chem_num_table(idomain) chem_index_table( PARAM_carb6 , idomain ) = P_carb6 ELSE P_carb6 = chem_index_table( PARAM_carb6 , idomain ) END IF chem_boundary_table( idomain, P_carb6 ) = .TRUE. chem_dname_table( idomain, P_carb6 ) = 'carb6' chem_desc_table( idomain, P_carb6 ) = 'CARB6 concentration' chem_units_table( idomain, P_carb6 ) = 'ppmv' chem_streams_table( idomain, P_carb6 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb6 )%stream(2) = 2097216 F_carb6 = .TRUE. IF ( chem_index_table( PARAM_carb9 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb9 = chem_num_table(idomain) chem_index_table( PARAM_carb9 , idomain ) = P_carb9 ELSE P_carb9 = chem_index_table( PARAM_carb9 , idomain ) END IF chem_boundary_table( idomain, P_carb9 ) = .TRUE. chem_dname_table( idomain, P_carb9 ) = 'carb9' chem_desc_table( idomain, P_carb9 ) = 'CARB9 concentration' chem_units_table( idomain, P_carb9 ) = 'ppmv' chem_streams_table( idomain, P_carb9 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb9 )%stream(2) = 2097216 F_carb9 = .TRUE. IF ( chem_index_table( PARAM_carb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb12 = chem_num_table(idomain) chem_index_table( PARAM_carb12 , idomain ) = P_carb12 ELSE P_carb12 = chem_index_table( PARAM_carb12 , idomain ) END IF chem_boundary_table( idomain, P_carb12 ) = .TRUE. chem_dname_table( idomain, P_carb12 ) = 'carb12' chem_desc_table( idomain, P_carb12 ) = 'CARB12 concentration' chem_units_table( idomain, P_carb12 ) = 'ppmv' chem_streams_table( idomain, P_carb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb12 )%stream(2) = 2097216 F_carb12 = .TRUE. IF ( chem_index_table( PARAM_carb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb15 = chem_num_table(idomain) chem_index_table( PARAM_carb15 , idomain ) = P_carb15 ELSE P_carb15 = chem_index_table( PARAM_carb15 , idomain ) END IF chem_boundary_table( idomain, P_carb15 ) = .TRUE. chem_dname_table( idomain, P_carb15 ) = 'carb15' chem_desc_table( idomain, P_carb15 ) = 'CARB15 concentration' chem_units_table( idomain, P_carb15 ) = 'ppmv' chem_streams_table( idomain, P_carb15 )%stream(1) = 33554433 chem_streams_table( idomain, P_carb15 )%stream(2) = 2097216 F_carb15 = .TRUE. IF ( chem_index_table( PARAM_c2h5co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3h = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3h , idomain ) = P_c2h5co3h ELSE P_c2h5co3h = chem_index_table( PARAM_c2h5co3h , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3h ) = .TRUE. chem_dname_table( idomain, P_c2h5co3h ) = 'c2h5co3h' chem_desc_table( idomain, P_c2h5co3h ) = 'C2H5CO3H concentration' chem_units_table( idomain, P_c2h5co3h ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3h )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5co3h )%stream(2) = 2097216 F_c2h5co3h = .TRUE. IF ( chem_index_table( PARAM_c2h5co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5co3 = chem_num_table(idomain) chem_index_table( PARAM_c2h5co3 , idomain ) = P_c2h5co3 ELSE P_c2h5co3 = chem_index_table( PARAM_c2h5co3 , idomain ) END IF chem_boundary_table( idomain, P_c2h5co3 ) = .TRUE. chem_dname_table( idomain, P_c2h5co3 ) = 'c2h5co3' chem_desc_table( idomain, P_c2h5co3 ) = 'C2H5CO3 concentration' chem_units_table( idomain, P_c2h5co3 ) = 'ppmv' chem_streams_table( idomain, P_c2h5co3 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5co3 )%stream(2) = 2097216 F_c2h5co3 = .TRUE. IF ( chem_index_table( PARAM_ppn , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ppn = chem_num_table(idomain) chem_index_table( PARAM_ppn , idomain ) = P_ppn ELSE P_ppn = chem_index_table( PARAM_ppn , idomain ) END IF chem_boundary_table( idomain, P_ppn ) = .TRUE. chem_dname_table( idomain, P_ppn ) = 'ppn' chem_desc_table( idomain, P_ppn ) = 'PPN concentration' chem_units_table( idomain, P_ppn ) = 'ppmv' chem_streams_table( idomain, P_ppn )%stream(1) = 33554433 chem_streams_table( idomain, P_ppn )%stream(2) = 2097216 F_ppn = .TRUE. IF ( chem_index_table( PARAM_hoch2cho , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2cho = chem_num_table(idomain) chem_index_table( PARAM_hoch2cho , idomain ) = P_hoch2cho ELSE P_hoch2cho = chem_index_table( PARAM_hoch2cho , idomain ) END IF chem_boundary_table( idomain, P_hoch2cho ) = .TRUE. chem_dname_table( idomain, P_hoch2cho ) = 'hoch2cho' chem_desc_table( idomain, P_hoch2cho ) = 'HOCH2CHO concentration' chem_units_table( idomain, P_hoch2cho ) = 'ppmv' chem_streams_table( idomain, P_hoch2cho )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2cho )%stream(2) = 2097216 F_hoch2cho = .TRUE. IF ( chem_index_table( PARAM_hoch2co3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3 = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3 , idomain ) = P_hoch2co3 ELSE P_hoch2co3 = chem_index_table( PARAM_hoch2co3 , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3 ) = .TRUE. chem_dname_table( idomain, P_hoch2co3 ) = 'hoch2co3' chem_desc_table( idomain, P_hoch2co3 ) = 'HOCH2CO3 concentration' chem_units_table( idomain, P_hoch2co3 ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2co3 )%stream(2) = 2097216 F_hoch2co3 = .TRUE. IF ( chem_index_table( PARAM_hoch2co3h , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2co3h = chem_num_table(idomain) chem_index_table( PARAM_hoch2co3h , idomain ) = P_hoch2co3h ELSE P_hoch2co3h = chem_index_table( PARAM_hoch2co3h , idomain ) END IF chem_boundary_table( idomain, P_hoch2co3h ) = .TRUE. chem_dname_table( idomain, P_hoch2co3h ) = 'hoch2co3h' chem_desc_table( idomain, P_hoch2co3h ) = 'HOCH2CO3H concentration' chem_units_table( idomain, P_hoch2co3h ) = 'ppmv' chem_streams_table( idomain, P_hoch2co3h )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2co3h )%stream(2) = 2097216 F_hoch2co3h = .TRUE. IF ( chem_index_table( PARAM_phan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_phan = chem_num_table(idomain) chem_index_table( PARAM_phan , idomain ) = P_phan ELSE P_phan = chem_index_table( PARAM_phan , idomain ) END IF chem_boundary_table( idomain, P_phan ) = .TRUE. chem_dname_table( idomain, P_phan ) = 'phan' chem_desc_table( idomain, P_phan ) = 'PHAN concentration' chem_units_table( idomain, P_phan ) = 'ppmv' chem_streams_table( idomain, P_phan )%stream(1) = 33554433 chem_streams_table( idomain, P_phan )%stream(2) = 2097216 F_phan = .TRUE. IF ( chem_index_table( PARAM_ccarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ccarb12 = chem_num_table(idomain) chem_index_table( PARAM_ccarb12 , idomain ) = P_ccarb12 ELSE P_ccarb12 = chem_index_table( PARAM_ccarb12 , idomain ) END IF chem_boundary_table( idomain, P_ccarb12 ) = .TRUE. chem_dname_table( idomain, P_ccarb12 ) = 'ccarb12' chem_desc_table( idomain, P_ccarb12 ) = 'CCARB12 concentration' chem_units_table( idomain, P_ccarb12 ) = 'ppmv' chem_streams_table( idomain, P_ccarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_ccarb12 )%stream(2) = 2097216 F_ccarb12 = .TRUE. IF ( chem_index_table( PARAM_ch3cl , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3cl = chem_num_table(idomain) chem_index_table( PARAM_ch3cl , idomain ) = P_ch3cl ELSE P_ch3cl = chem_index_table( PARAM_ch3cl , idomain ) END IF chem_boundary_table( idomain, P_ch3cl ) = .TRUE. chem_dname_table( idomain, P_ch3cl ) = 'ch3cl' chem_desc_table( idomain, P_ch3cl ) = 'CH3CL concentration' chem_units_table( idomain, P_ch3cl ) = 'ppmv' chem_streams_table( idomain, P_ch3cl )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3cl )%stream(2) = 2097216 F_ch3cl = .TRUE. IF ( chem_index_table( PARAM_ch2cl2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch2cl2 = chem_num_table(idomain) chem_index_table( PARAM_ch2cl2 , idomain ) = P_ch2cl2 ELSE P_ch2cl2 = chem_index_table( PARAM_ch2cl2 , idomain ) END IF chem_boundary_table( idomain, P_ch2cl2 ) = .TRUE. chem_dname_table( idomain, P_ch2cl2 ) = 'ch2cl2' chem_desc_table( idomain, P_ch2cl2 ) = 'CH2CL2 concentration' chem_units_table( idomain, P_ch2cl2 ) = 'ppmv' chem_streams_table( idomain, P_ch2cl2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch2cl2 )%stream(2) = 2097216 F_ch2cl2 = .TRUE. IF ( chem_index_table( PARAM_chcl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_chcl3 = chem_num_table(idomain) chem_index_table( PARAM_chcl3 , idomain ) = P_chcl3 ELSE P_chcl3 = chem_index_table( PARAM_chcl3 , idomain ) END IF chem_boundary_table( idomain, P_chcl3 ) = .TRUE. chem_dname_table( idomain, P_chcl3 ) = 'chcl3' chem_desc_table( idomain, P_chcl3 ) = 'CHCL3 concentration' chem_units_table( idomain, P_chcl3 ) = 'ppmv' chem_streams_table( idomain, P_chcl3 )%stream(1) = 33554433 chem_streams_table( idomain, P_chcl3 )%stream(2) = 2097216 F_chcl3 = .TRUE. IF ( chem_index_table( PARAM_ch3ccl3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3ccl3 = chem_num_table(idomain) chem_index_table( PARAM_ch3ccl3 , idomain ) = P_ch3ccl3 ELSE P_ch3ccl3 = chem_index_table( PARAM_ch3ccl3 , idomain ) END IF chem_boundary_table( idomain, P_ch3ccl3 ) = .TRUE. chem_dname_table( idomain, P_ch3ccl3 ) = 'ch3ccl3' chem_desc_table( idomain, P_ch3ccl3 ) = 'CH3CCL3 concentration' chem_units_table( idomain, P_ch3ccl3 ) = 'ppmv' chem_streams_table( idomain, P_ch3ccl3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3ccl3 )%stream(2) = 2097216 F_ch3ccl3 = .TRUE. IF ( chem_index_table( PARAM_cdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cdicleth = chem_num_table(idomain) chem_index_table( PARAM_cdicleth , idomain ) = P_cdicleth ELSE P_cdicleth = chem_index_table( PARAM_cdicleth , idomain ) END IF chem_boundary_table( idomain, P_cdicleth ) = .TRUE. chem_dname_table( idomain, P_cdicleth ) = 'cdicleth' chem_desc_table( idomain, P_cdicleth ) = 'CDICLETH concentration' chem_units_table( idomain, P_cdicleth ) = 'ppmv' chem_streams_table( idomain, P_cdicleth )%stream(1) = 33554433 chem_streams_table( idomain, P_cdicleth )%stream(2) = 2097216 F_cdicleth = .TRUE. IF ( chem_index_table( PARAM_tdicleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tdicleth = chem_num_table(idomain) chem_index_table( PARAM_tdicleth , idomain ) = P_tdicleth ELSE P_tdicleth = chem_index_table( PARAM_tdicleth , idomain ) END IF chem_boundary_table( idomain, P_tdicleth ) = .TRUE. chem_dname_table( idomain, P_tdicleth ) = 'tdicleth' chem_desc_table( idomain, P_tdicleth ) = 'TDICLETH concentration' chem_units_table( idomain, P_tdicleth ) = 'ppmv' chem_streams_table( idomain, P_tdicleth )%stream(1) = 33554433 chem_streams_table( idomain, P_tdicleth )%stream(2) = 2097216 F_tdicleth = .TRUE. IF ( chem_index_table( PARAM_tricleth , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tricleth = chem_num_table(idomain) chem_index_table( PARAM_tricleth , idomain ) = P_tricleth ELSE P_tricleth = chem_index_table( PARAM_tricleth , idomain ) END IF chem_boundary_table( idomain, P_tricleth ) = .TRUE. chem_dname_table( idomain, P_tricleth ) = 'tricleth' chem_desc_table( idomain, P_tricleth ) = 'TRICLETH concentration' chem_units_table( idomain, P_tricleth ) = 'ppmv' chem_streams_table( idomain, P_tricleth )%stream(1) = 33554433 chem_streams_table( idomain, P_tricleth )%stream(2) = 2097216 F_tricleth = .TRUE. IF ( chem_index_table( PARAM_tce , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tce = chem_num_table(idomain) chem_index_table( PARAM_tce , idomain ) = P_tce ELSE P_tce = chem_index_table( PARAM_tce , idomain ) END IF chem_boundary_table( idomain, P_tce ) = .TRUE. chem_dname_table( idomain, P_tce ) = 'tce' chem_desc_table( idomain, P_tce ) = 'TCE concentration' chem_units_table( idomain, P_tce ) = 'ppmv' chem_streams_table( idomain, P_tce )%stream(1) = 33554433 chem_streams_table( idomain, P_tce )%stream(2) = 2097216 F_tce = .TRUE. IF ( chem_index_table( PARAM_ucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb12 = chem_num_table(idomain) chem_index_table( PARAM_ucarb12 , idomain ) = P_ucarb12 ELSE P_ucarb12 = chem_index_table( PARAM_ucarb12 , idomain ) END IF chem_boundary_table( idomain, P_ucarb12 ) = .TRUE. chem_dname_table( idomain, P_ucarb12 ) = 'ucarb12' chem_desc_table( idomain, P_ucarb12 ) = 'UCARB12 concentration' chem_units_table( idomain, P_ucarb12 ) = 'ppmv' chem_streams_table( idomain, P_ucarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_ucarb12 )%stream(2) = 2097216 F_ucarb12 = .TRUE. IF ( chem_index_table( PARAM_ucarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ucarb10 = chem_num_table(idomain) chem_index_table( PARAM_ucarb10 , idomain ) = P_ucarb10 ELSE P_ucarb10 = chem_index_table( PARAM_ucarb10 , idomain ) END IF chem_boundary_table( idomain, P_ucarb10 ) = .TRUE. chem_dname_table( idomain, P_ucarb10 ) = 'ucarb10' chem_desc_table( idomain, P_ucarb10 ) = 'UCARB10 concentration' chem_units_table( idomain, P_ucarb10 ) = 'ppmv' chem_streams_table( idomain, P_ucarb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_ucarb10 )%stream(2) = 2097216 F_ucarb10 = .TRUE. IF ( chem_index_table( PARAM_ru14no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14no3 = chem_num_table(idomain) chem_index_table( PARAM_ru14no3 , idomain ) = P_ru14no3 ELSE P_ru14no3 = chem_index_table( PARAM_ru14no3 , idomain ) END IF chem_boundary_table( idomain, P_ru14no3 ) = .TRUE. chem_dname_table( idomain, P_ru14no3 ) = 'ru14no3' chem_desc_table( idomain, P_ru14no3 ) = 'RU14NO3 concentration' chem_units_table( idomain, P_ru14no3 ) = 'ppmv' chem_streams_table( idomain, P_ru14no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14no3 )%stream(2) = 2097216 F_ru14no3 = .TRUE. IF ( chem_index_table( PARAM_ru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14ooh = chem_num_table(idomain) chem_index_table( PARAM_ru14ooh , idomain ) = P_ru14ooh ELSE P_ru14ooh = chem_index_table( PARAM_ru14ooh , idomain ) END IF chem_boundary_table( idomain, P_ru14ooh ) = .TRUE. chem_dname_table( idomain, P_ru14ooh ) = 'ru14ooh' chem_desc_table( idomain, P_ru14ooh ) = 'RU14OOH concentration' chem_units_table( idomain, P_ru14ooh ) = 'ppmv' chem_streams_table( idomain, P_ru14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14ooh )%stream(2) = 2097216 F_ru14ooh = .TRUE. IF ( chem_index_table( PARAM_ru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12ooh = chem_num_table(idomain) chem_index_table( PARAM_ru12ooh , idomain ) = P_ru12ooh ELSE P_ru12ooh = chem_index_table( PARAM_ru12ooh , idomain ) END IF chem_boundary_table( idomain, P_ru12ooh ) = .TRUE. chem_dname_table( idomain, P_ru12ooh ) = 'ru12ooh' chem_desc_table( idomain, P_ru12ooh ) = 'RU12OOH concentration' chem_units_table( idomain, P_ru12ooh ) = 'ppmv' chem_streams_table( idomain, P_ru12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12ooh )%stream(2) = 2097216 F_ru12ooh = .TRUE. IF ( chem_index_table( PARAM_ru10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10ooh = chem_num_table(idomain) chem_index_table( PARAM_ru10ooh , idomain ) = P_ru10ooh ELSE P_ru10ooh = chem_index_table( PARAM_ru10ooh , idomain ) END IF chem_boundary_table( idomain, P_ru10ooh ) = .TRUE. chem_dname_table( idomain, P_ru10ooh ) = 'ru10ooh' chem_desc_table( idomain, P_ru10ooh ) = 'RU10OOH concentration' chem_units_table( idomain, P_ru10ooh ) = 'ppmv' chem_streams_table( idomain, P_ru10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ru10ooh )%stream(2) = 2097216 F_ru10ooh = .TRUE. IF ( chem_index_table( PARAM_mpan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_mpan = chem_num_table(idomain) chem_index_table( PARAM_mpan , idomain ) = P_mpan ELSE P_mpan = chem_index_table( PARAM_mpan , idomain ) END IF chem_boundary_table( idomain, P_mpan ) = .TRUE. chem_dname_table( idomain, P_mpan ) = 'mpan' chem_desc_table( idomain, P_mpan ) = 'MPAN concentration' chem_units_table( idomain, P_mpan ) = 'ppm' chem_streams_table( idomain, P_mpan )%stream(1) = 33554433 chem_streams_table( idomain, P_mpan )%stream(2) = 2097216 F_mpan = .TRUE. IF ( chem_index_table( PARAM_ru12pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12pan = chem_num_table(idomain) chem_index_table( PARAM_ru12pan , idomain ) = P_ru12pan ELSE P_ru12pan = chem_index_table( PARAM_ru12pan , idomain ) END IF chem_boundary_table( idomain, P_ru12pan ) = .TRUE. chem_dname_table( idomain, P_ru12pan ) = 'ru12pan' chem_desc_table( idomain, P_ru12pan ) = 'RU12PAN concentration' chem_units_table( idomain, P_ru12pan ) = 'ppmv' chem_streams_table( idomain, P_ru12pan )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12pan )%stream(2) = 2097216 F_ru12pan = .TRUE. IF ( chem_index_table( PARAM_nucarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nucarb12 = chem_num_table(idomain) chem_index_table( PARAM_nucarb12 , idomain ) = P_nucarb12 ELSE P_nucarb12 = chem_index_table( PARAM_nucarb12 , idomain ) END IF chem_boundary_table( idomain, P_nucarb12 ) = .TRUE. chem_dname_table( idomain, P_nucarb12 ) = 'nucarb12' chem_desc_table( idomain, P_nucarb12 ) = 'NUCARB12 concentration' chem_units_table( idomain, P_nucarb12 ) = 'ppmv' chem_streams_table( idomain, P_nucarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_nucarb12 )%stream(2) = 2097216 F_nucarb12 = .TRUE. IF ( chem_index_table( PARAM_nru14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14ooh = chem_num_table(idomain) chem_index_table( PARAM_nru14ooh , idomain ) = P_nru14ooh ELSE P_nru14ooh = chem_index_table( PARAM_nru14ooh , idomain ) END IF chem_boundary_table( idomain, P_nru14ooh ) = .TRUE. chem_dname_table( idomain, P_nru14ooh ) = 'nru14ooh' chem_desc_table( idomain, P_nru14ooh ) = 'NRU14OOH concentration' chem_units_table( idomain, P_nru14ooh ) = 'ppmv' chem_streams_table( idomain, P_nru14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nru14ooh )%stream(2) = 2097216 F_nru14ooh = .TRUE. IF ( chem_index_table( PARAM_nru12ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12ooh = chem_num_table(idomain) chem_index_table( PARAM_nru12ooh , idomain ) = P_nru12ooh ELSE P_nru12ooh = chem_index_table( PARAM_nru12ooh , idomain ) END IF chem_boundary_table( idomain, P_nru12ooh ) = .TRUE. chem_dname_table( idomain, P_nru12ooh ) = 'nru12ooh' chem_desc_table( idomain, P_nru12ooh ) = 'NRU12OOH concentration' chem_units_table( idomain, P_nru12ooh ) = 'ppmv' chem_streams_table( idomain, P_nru12ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nru12ooh )%stream(2) = 2097216 F_nru12ooh = .TRUE. IF ( chem_index_table( PARAM_noa , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_noa = chem_num_table(idomain) chem_index_table( PARAM_noa , idomain ) = P_noa ELSE P_noa = chem_index_table( PARAM_noa , idomain ) END IF chem_boundary_table( idomain, P_noa ) = .TRUE. chem_dname_table( idomain, P_noa ) = 'noa' chem_desc_table( idomain, P_noa ) = 'NOA concentration' chem_units_table( idomain, P_noa ) = 'ppmv' chem_streams_table( idomain, P_noa )%stream(1) = 33554433 chem_streams_table( idomain, P_noa )%stream(2) = 2097216 F_noa = .TRUE. IF ( chem_index_table( PARAM_ra13no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13no3 = chem_num_table(idomain) chem_index_table( PARAM_ra13no3 , idomain ) = P_ra13no3 ELSE P_ra13no3 = chem_index_table( PARAM_ra13no3 , idomain ) END IF chem_boundary_table( idomain, P_ra13no3 ) = .TRUE. chem_dname_table( idomain, P_ra13no3 ) = 'ra13no3' chem_desc_table( idomain, P_ra13no3 ) = 'RA13NO3 concentration' chem_units_table( idomain, P_ra13no3 ) = 'ppmv' chem_streams_table( idomain, P_ra13no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13no3 )%stream(2) = 2097216 F_ra13no3 = .TRUE. IF ( chem_index_table( PARAM_ra13ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13ooh = chem_num_table(idomain) chem_index_table( PARAM_ra13ooh , idomain ) = P_ra13ooh ELSE P_ra13ooh = chem_index_table( PARAM_ra13ooh , idomain ) END IF chem_boundary_table( idomain, P_ra13ooh ) = .TRUE. chem_dname_table( idomain, P_ra13ooh ) = 'ra13ooh' chem_desc_table( idomain, P_ra13ooh ) = 'RA13OOH concentration' chem_units_table( idomain, P_ra13ooh ) = 'ppmv' chem_streams_table( idomain, P_ra13ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13ooh )%stream(2) = 2097216 F_ra13ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb8 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb8 = chem_num_table(idomain) chem_index_table( PARAM_udcarb8 , idomain ) = P_udcarb8 ELSE P_udcarb8 = chem_index_table( PARAM_udcarb8 , idomain ) END IF chem_boundary_table( idomain, P_udcarb8 ) = .TRUE. chem_dname_table( idomain, P_udcarb8 ) = 'udcarb8' chem_desc_table( idomain, P_udcarb8 ) = 'UDCARB8 concentration' chem_units_table( idomain, P_udcarb8 ) = 'ppmv' chem_streams_table( idomain, P_udcarb8 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb8 )%stream(2) = 2097216 F_udcarb8 = .TRUE. IF ( chem_index_table( PARAM_aroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh14 = chem_num_table(idomain) chem_index_table( PARAM_aroh14 , idomain ) = P_aroh14 ELSE P_aroh14 = chem_index_table( PARAM_aroh14 , idomain ) END IF chem_boundary_table( idomain, P_aroh14 ) = .TRUE. chem_dname_table( idomain, P_aroh14 ) = 'aroh14' chem_desc_table( idomain, P_aroh14 ) = 'AROH14 concentration' chem_units_table( idomain, P_aroh14 ) = 'ppmv' chem_streams_table( idomain, P_aroh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_aroh14 )%stream(2) = 2097216 F_aroh14 = .TRUE. IF ( chem_index_table( PARAM_raroh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh14 = chem_num_table(idomain) chem_index_table( PARAM_raroh14 , idomain ) = P_raroh14 ELSE P_raroh14 = chem_index_table( PARAM_raroh14 , idomain ) END IF chem_boundary_table( idomain, P_raroh14 ) = .TRUE. chem_dname_table( idomain, P_raroh14 ) = 'raroh14' chem_desc_table( idomain, P_raroh14 ) = 'RAROH14 concentration' chem_units_table( idomain, P_raroh14 ) = 'ppmv' chem_streams_table( idomain, P_raroh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_raroh14 )%stream(2) = 2097216 F_raroh14 = .TRUE. IF ( chem_index_table( PARAM_arnoh14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh14 = chem_num_table(idomain) chem_index_table( PARAM_arnoh14 , idomain ) = P_arnoh14 ELSE P_arnoh14 = chem_index_table( PARAM_arnoh14 , idomain ) END IF chem_boundary_table( idomain, P_arnoh14 ) = .TRUE. chem_dname_table( idomain, P_arnoh14 ) = 'arnoh14' chem_desc_table( idomain, P_arnoh14 ) = 'ARNOH14 concentration' chem_units_table( idomain, P_arnoh14 ) = 'ppmv' chem_streams_table( idomain, P_arnoh14 )%stream(1) = 33554433 chem_streams_table( idomain, P_arnoh14 )%stream(2) = 2097216 F_arnoh14 = .TRUE. IF ( chem_index_table( PARAM_ra16no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16no3 = chem_num_table(idomain) chem_index_table( PARAM_ra16no3 , idomain ) = P_ra16no3 ELSE P_ra16no3 = chem_index_table( PARAM_ra16no3 , idomain ) END IF chem_boundary_table( idomain, P_ra16no3 ) = .TRUE. chem_dname_table( idomain, P_ra16no3 ) = 'ra16no3' chem_desc_table( idomain, P_ra16no3 ) = 'RA16NO3 concentration' chem_units_table( idomain, P_ra16no3 ) = 'ppmv' chem_streams_table( idomain, P_ra16no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16no3 )%stream(2) = 2097216 F_ra16no3 = .TRUE. IF ( chem_index_table( PARAM_ra16ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16ooh = chem_num_table(idomain) chem_index_table( PARAM_ra16ooh , idomain ) = P_ra16ooh ELSE P_ra16ooh = chem_index_table( PARAM_ra16ooh , idomain ) END IF chem_boundary_table( idomain, P_ra16ooh ) = .TRUE. chem_dname_table( idomain, P_ra16ooh ) = 'ra16ooh' chem_desc_table( idomain, P_ra16ooh ) = 'RA16OOH concentration' chem_units_table( idomain, P_ra16ooh ) = 'ppmv' chem_streams_table( idomain, P_ra16ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16ooh )%stream(2) = 2097216 F_ra16ooh = .TRUE. IF ( chem_index_table( PARAM_udcarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb11 = chem_num_table(idomain) chem_index_table( PARAM_udcarb11 , idomain ) = P_udcarb11 ELSE P_udcarb11 = chem_index_table( PARAM_udcarb11 , idomain ) END IF chem_boundary_table( idomain, P_udcarb11 ) = .TRUE. chem_dname_table( idomain, P_udcarb11 ) = 'udcarb11' chem_desc_table( idomain, P_udcarb11 ) = 'UDCARB11 concentration' chem_units_table( idomain, P_udcarb11 ) = 'ppmv' chem_streams_table( idomain, P_udcarb11 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb11 )%stream(2) = 2097216 F_udcarb11 = .TRUE. IF ( chem_index_table( PARAM_aroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_aroh17 = chem_num_table(idomain) chem_index_table( PARAM_aroh17 , idomain ) = P_aroh17 ELSE P_aroh17 = chem_index_table( PARAM_aroh17 , idomain ) END IF chem_boundary_table( idomain, P_aroh17 ) = .TRUE. chem_dname_table( idomain, P_aroh17 ) = 'aroh17' chem_desc_table( idomain, P_aroh17 ) = 'AROH17 concentration' chem_units_table( idomain, P_aroh17 ) = 'ppmv' chem_streams_table( idomain, P_aroh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_aroh17 )%stream(2) = 2097216 F_aroh17 = .TRUE. IF ( chem_index_table( PARAM_raroh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_raroh17 = chem_num_table(idomain) chem_index_table( PARAM_raroh17 , idomain ) = P_raroh17 ELSE P_raroh17 = chem_index_table( PARAM_raroh17 , idomain ) END IF chem_boundary_table( idomain, P_raroh17 ) = .TRUE. chem_dname_table( idomain, P_raroh17 ) = 'raroh17' chem_desc_table( idomain, P_raroh17 ) = 'RAROH17 concentration' chem_units_table( idomain, P_raroh17 ) = 'ppmv' chem_streams_table( idomain, P_raroh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_raroh17 )%stream(2) = 2097216 F_raroh17 = .TRUE. IF ( chem_index_table( PARAM_arnoh17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_arnoh17 = chem_num_table(idomain) chem_index_table( PARAM_arnoh17 , idomain ) = P_arnoh17 ELSE P_arnoh17 = chem_index_table( PARAM_arnoh17 , idomain ) END IF chem_boundary_table( idomain, P_arnoh17 ) = .TRUE. chem_dname_table( idomain, P_arnoh17 ) = 'arnoh17' chem_desc_table( idomain, P_arnoh17 ) = 'ARNOH17 concentration' chem_units_table( idomain, P_arnoh17 ) = 'ppmv' chem_streams_table( idomain, P_arnoh17 )%stream(1) = 33554433 chem_streams_table( idomain, P_arnoh17 )%stream(2) = 2097216 F_arnoh17 = .TRUE. IF ( chem_index_table( PARAM_udcarb14 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb14 = chem_num_table(idomain) chem_index_table( PARAM_udcarb14 , idomain ) = P_udcarb14 ELSE P_udcarb14 = chem_index_table( PARAM_udcarb14 , idomain ) END IF chem_boundary_table( idomain, P_udcarb14 ) = .TRUE. chem_dname_table( idomain, P_udcarb14 ) = 'udcarb14' chem_desc_table( idomain, P_udcarb14 ) = 'UDCARB14 concentration' chem_units_table( idomain, P_udcarb14 ) = 'ppmv' chem_streams_table( idomain, P_udcarb14 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb14 )%stream(2) = 2097216 F_udcarb14 = .TRUE. IF ( chem_index_table( PARAM_ra19co2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19co2 = chem_num_table(idomain) chem_index_table( PARAM_ra19co2 , idomain ) = P_ra19co2 ELSE P_ra19co2 = chem_index_table( PARAM_ra19co2 , idomain ) END IF chem_boundary_table( idomain, P_ra19co2 ) = .TRUE. chem_dname_table( idomain, P_ra19co2 ) = 'ra19co2' chem_desc_table( idomain, P_ra19co2 ) = 'RA19CO2 concentration' chem_units_table( idomain, P_ra19co2 ) = 'ppmv' chem_streams_table( idomain, P_ra19co2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19co2 )%stream(2) = 2097216 F_ra19co2 = .TRUE. IF ( chem_index_table( PARAM_ra19no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19no3 = chem_num_table(idomain) chem_index_table( PARAM_ra19no3 , idomain ) = P_ra19no3 ELSE P_ra19no3 = chem_index_table( PARAM_ra19no3 , idomain ) END IF chem_boundary_table( idomain, P_ra19no3 ) = .TRUE. chem_dname_table( idomain, P_ra19no3 ) = 'ra19no3' chem_desc_table( idomain, P_ra19no3 ) = 'RA19NO3 concentration' chem_units_table( idomain, P_ra19no3 ) = 'ppmv' chem_streams_table( idomain, P_ra19no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19no3 )%stream(2) = 2097216 F_ra19no3 = .TRUE. IF ( chem_index_table( PARAM_ra19ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ooh = chem_num_table(idomain) chem_index_table( PARAM_ra19ooh , idomain ) = P_ra19ooh ELSE P_ra19ooh = chem_index_table( PARAM_ra19ooh , idomain ) END IF chem_boundary_table( idomain, P_ra19ooh ) = .TRUE. chem_dname_table( idomain, P_ra19ooh ) = 'ra19ooh' chem_desc_table( idomain, P_ra19ooh ) = 'RA19OOH concentration' chem_units_table( idomain, P_ra19ooh ) = 'ppmv' chem_streams_table( idomain, P_ra19ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19ooh )%stream(2) = 2097216 F_ra19ooh = .TRUE. IF ( chem_index_table( PARAM_rtn28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn28no3 , idomain ) = P_rtn28no3 ELSE P_rtn28no3 = chem_index_table( PARAM_rtn28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn28no3 ) = .TRUE. chem_dname_table( idomain, P_rtn28no3 ) = 'rtn28no3' chem_desc_table( idomain, P_rtn28no3 ) = 'RTN28NO3 concentration' chem_units_table( idomain, P_rtn28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn28no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28no3 )%stream(2) = 2097216 F_rtn28no3 = .TRUE. IF ( chem_index_table( PARAM_rtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn28ooh , idomain ) = P_rtn28ooh ELSE P_rtn28ooh = chem_index_table( PARAM_rtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn28ooh ) = .TRUE. chem_dname_table( idomain, P_rtn28ooh ) = 'rtn28ooh' chem_desc_table( idomain, P_rtn28ooh ) = 'RTN28OOH concentration' chem_units_table( idomain, P_rtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28ooh )%stream(2) = 2097216 F_rtn28ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb26 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb26 = chem_num_table(idomain) chem_index_table( PARAM_tncarb26 , idomain ) = P_tncarb26 ELSE P_tncarb26 = chem_index_table( PARAM_tncarb26 , idomain ) END IF chem_boundary_table( idomain, P_tncarb26 ) = .TRUE. chem_dname_table( idomain, P_tncarb26 ) = 'tncarb26' chem_desc_table( idomain, P_tncarb26 ) = 'TNCARB26 concentration' chem_units_table( idomain, P_tncarb26 ) = 'ppmv' chem_streams_table( idomain, P_tncarb26 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb26 )%stream(2) = 2097216 F_tncarb26 = .TRUE. IF ( chem_index_table( PARAM_rtn26ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn26ooh , idomain ) = P_rtn26ooh ELSE P_rtn26ooh = chem_index_table( PARAM_rtn26ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn26ooh ) = .TRUE. chem_dname_table( idomain, P_rtn26ooh ) = 'rtn26ooh' chem_desc_table( idomain, P_rtn26ooh ) = 'RTN26OOH concentration' chem_units_table( idomain, P_rtn26ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn26ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26ooh )%stream(2) = 2097216 F_rtn26ooh = .TRUE. IF ( chem_index_table( PARAM_nrtn28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtn28ooh , idomain ) = P_nrtn28ooh ELSE P_nrtn28ooh = chem_index_table( PARAM_nrtn28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtn28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtn28ooh ) = 'nrtn28ooh' chem_desc_table( idomain, P_nrtn28ooh ) = 'NRTN28OOH concentration' chem_units_table( idomain, P_nrtn28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtn28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtn28ooh )%stream(2) = 2097216 F_nrtn28ooh = .TRUE. IF ( chem_index_table( PARAM_rtn26pan , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26pan = chem_num_table(idomain) chem_index_table( PARAM_rtn26pan , idomain ) = P_rtn26pan ELSE P_rtn26pan = chem_index_table( PARAM_rtn26pan , idomain ) END IF chem_boundary_table( idomain, P_rtn26pan ) = .TRUE. chem_dname_table( idomain, P_rtn26pan ) = 'rtn26pan' chem_desc_table( idomain, P_rtn26pan ) = 'RTN26PAN concentration' chem_units_table( idomain, P_rtn26pan ) = 'ppmv' chem_streams_table( idomain, P_rtn26pan )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26pan )%stream(2) = 2097216 F_rtn26pan = .TRUE. IF ( chem_index_table( PARAM_rtn25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn25ooh , idomain ) = P_rtn25ooh ELSE P_rtn25ooh = chem_index_table( PARAM_rtn25ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn25ooh ) = .TRUE. chem_dname_table( idomain, P_rtn25ooh ) = 'rtn25ooh' chem_desc_table( idomain, P_rtn25ooh ) = 'RTN25OOH concentration' chem_units_table( idomain, P_rtn25ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn25ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25ooh )%stream(2) = 2097216 F_rtn25ooh = .TRUE. IF ( chem_index_table( PARAM_rtn24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn24ooh , idomain ) = P_rtn24ooh ELSE P_rtn24ooh = chem_index_table( PARAM_rtn24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn24ooh ) = .TRUE. chem_dname_table( idomain, P_rtn24ooh ) = 'rtn24ooh' chem_desc_table( idomain, P_rtn24ooh ) = 'RTN24OOH concentration' chem_units_table( idomain, P_rtn24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn24ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn24ooh )%stream(2) = 2097216 F_rtn24ooh = .TRUE. IF ( chem_index_table( PARAM_rtn23ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn23ooh , idomain ) = P_rtn23ooh ELSE P_rtn23ooh = chem_index_table( PARAM_rtn23ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn23ooh ) = .TRUE. chem_dname_table( idomain, P_rtn23ooh ) = 'rtn23ooh' chem_desc_table( idomain, P_rtn23ooh ) = 'RTN23OOH concentration' chem_units_table( idomain, P_rtn23ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn23ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23ooh )%stream(2) = 2097216 F_rtn23ooh = .TRUE. IF ( chem_index_table( PARAM_rtn14ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn14ooh , idomain ) = P_rtn14ooh ELSE P_rtn14ooh = chem_index_table( PARAM_rtn14ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn14ooh ) = .TRUE. chem_dname_table( idomain, P_rtn14ooh ) = 'rtn14ooh' chem_desc_table( idomain, P_rtn14ooh ) = 'RTN14OOH concentration' chem_units_table( idomain, P_rtn14ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn14ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn14ooh )%stream(2) = 2097216 F_rtn14ooh = .TRUE. IF ( chem_index_table( PARAM_rtn10ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10ooh = chem_num_table(idomain) chem_index_table( PARAM_rtn10ooh , idomain ) = P_rtn10ooh ELSE P_rtn10ooh = chem_index_table( PARAM_rtn10ooh , idomain ) END IF chem_boundary_table( idomain, P_rtn10ooh ) = .TRUE. chem_dname_table( idomain, P_rtn10ooh ) = 'rtn10ooh' chem_desc_table( idomain, P_rtn10ooh ) = 'RTN10OOH concentration' chem_units_table( idomain, P_rtn10ooh ) = 'ppmv' chem_streams_table( idomain, P_rtn10ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn10ooh )%stream(2) = 2097216 F_rtn10ooh = .TRUE. IF ( chem_index_table( PARAM_tncarb10 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb10 = chem_num_table(idomain) chem_index_table( PARAM_tncarb10 , idomain ) = P_tncarb10 ELSE P_tncarb10 = chem_index_table( PARAM_tncarb10 , idomain ) END IF chem_boundary_table( idomain, P_tncarb10 ) = .TRUE. chem_dname_table( idomain, P_tncarb10 ) = 'tncarb10' chem_desc_table( idomain, P_tncarb10 ) = 'TNCARB10 concentration' chem_units_table( idomain, P_tncarb10 ) = 'ppmv' chem_streams_table( idomain, P_tncarb10 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb10 )%stream(2) = 2097216 F_tncarb10 = .TRUE. IF ( chem_index_table( PARAM_rtn25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn25no3 , idomain ) = P_rtn25no3 ELSE P_rtn25no3 = chem_index_table( PARAM_rtn25no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn25no3 ) = .TRUE. chem_dname_table( idomain, P_rtn25no3 ) = 'rtn25no3' chem_desc_table( idomain, P_rtn25no3 ) = 'RTN25NO3 concentration' chem_units_table( idomain, P_rtn25no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn25no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25no3 )%stream(2) = 2097216 F_rtn25no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb15 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb15 = chem_num_table(idomain) chem_index_table( PARAM_tncarb15 , idomain ) = P_tncarb15 ELSE P_tncarb15 = chem_index_table( PARAM_tncarb15 , idomain ) END IF chem_boundary_table( idomain, P_tncarb15 ) = .TRUE. chem_dname_table( idomain, P_tncarb15 ) = 'tncarb15' chem_desc_table( idomain, P_tncarb15 ) = 'TNCARB15 concentration' chem_units_table( idomain, P_tncarb15 ) = 'ppmv' chem_streams_table( idomain, P_tncarb15 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb15 )%stream(2) = 2097216 F_tncarb15 = .TRUE. IF ( chem_index_table( PARAM_rcooh25 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rcooh25 = chem_num_table(idomain) chem_index_table( PARAM_rcooh25 , idomain ) = P_rcooh25 ELSE P_rcooh25 = chem_index_table( PARAM_rcooh25 , idomain ) END IF chem_boundary_table( idomain, P_rcooh25 ) = .TRUE. chem_dname_table( idomain, P_rcooh25 ) = 'rcooh25' chem_desc_table( idomain, P_rcooh25 ) = 'RCOOH25 concentration' chem_units_table( idomain, P_rcooh25 ) = 'ppmv' chem_streams_table( idomain, P_rcooh25 )%stream(1) = 33554433 chem_streams_table( idomain, P_rcooh25 )%stream(2) = 2097216 F_rcooh25 = .TRUE. IF ( chem_index_table( PARAM_rtx28no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx28no3 , idomain ) = P_rtx28no3 ELSE P_rtx28no3 = chem_index_table( PARAM_rtx28no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx28no3 ) = .TRUE. chem_dname_table( idomain, P_rtx28no3 ) = 'rtx28no3' chem_desc_table( idomain, P_rtx28no3 ) = 'RTX28NO3 concentration' chem_units_table( idomain, P_rtx28no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx28no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28no3 )%stream(2) = 2097216 F_rtx28no3 = .TRUE. IF ( chem_index_table( PARAM_rtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx28ooh , idomain ) = P_rtx28ooh ELSE P_rtx28ooh = chem_index_table( PARAM_rtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx28ooh ) = .TRUE. chem_dname_table( idomain, P_rtx28ooh ) = 'rtx28ooh' chem_desc_table( idomain, P_rtx28ooh ) = 'RTX28OOH concentration' chem_units_table( idomain, P_rtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28ooh )%stream(2) = 2097216 F_rtx28ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb24 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb24 = chem_num_table(idomain) chem_index_table( PARAM_txcarb24 , idomain ) = P_txcarb24 ELSE P_txcarb24 = chem_index_table( PARAM_txcarb24 , idomain ) END IF chem_boundary_table( idomain, P_txcarb24 ) = .TRUE. chem_dname_table( idomain, P_txcarb24 ) = 'txcarb24' chem_desc_table( idomain, P_txcarb24 ) = 'TXCARB24 concentration' chem_units_table( idomain, P_txcarb24 ) = 'ppmv' chem_streams_table( idomain, P_txcarb24 )%stream(1) = 33554433 chem_streams_table( idomain, P_txcarb24 )%stream(2) = 2097216 F_txcarb24 = .TRUE. IF ( chem_index_table( PARAM_rtx24no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx24no3 , idomain ) = P_rtx24no3 ELSE P_rtx24no3 = chem_index_table( PARAM_rtx24no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx24no3 ) = .TRUE. chem_dname_table( idomain, P_rtx24no3 ) = 'rtx24no3' chem_desc_table( idomain, P_rtx24no3 ) = 'RTX24NO3 concentration' chem_units_table( idomain, P_rtx24no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx24no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24no3 )%stream(2) = 2097216 F_rtx24no3 = .TRUE. IF ( chem_index_table( PARAM_rtx24ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx24ooh , idomain ) = P_rtx24ooh ELSE P_rtx24ooh = chem_index_table( PARAM_rtx24ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx24ooh ) = .TRUE. chem_dname_table( idomain, P_rtx24ooh ) = 'rtx24ooh' chem_desc_table( idomain, P_rtx24ooh ) = 'RTX24OOH concentration' chem_units_table( idomain, P_rtx24ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx24ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24ooh )%stream(2) = 2097216 F_rtx24ooh = .TRUE. IF ( chem_index_table( PARAM_txcarb22 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_txcarb22 = chem_num_table(idomain) chem_index_table( PARAM_txcarb22 , idomain ) = P_txcarb22 ELSE P_txcarb22 = chem_index_table( PARAM_txcarb22 , idomain ) END IF chem_boundary_table( idomain, P_txcarb22 ) = .TRUE. chem_dname_table( idomain, P_txcarb22 ) = 'txcarb22' chem_desc_table( idomain, P_txcarb22 ) = 'TXCARB22 concentration' chem_units_table( idomain, P_txcarb22 ) = 'ppmv' chem_streams_table( idomain, P_txcarb22 )%stream(1) = 33554433 chem_streams_table( idomain, P_txcarb22 )%stream(2) = 2097216 F_txcarb22 = .TRUE. IF ( chem_index_table( PARAM_rtx22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22no3 = chem_num_table(idomain) chem_index_table( PARAM_rtx22no3 , idomain ) = P_rtx22no3 ELSE P_rtx22no3 = chem_index_table( PARAM_rtx22no3 , idomain ) END IF chem_boundary_table( idomain, P_rtx22no3 ) = .TRUE. chem_dname_table( idomain, P_rtx22no3 ) = 'rtx22no3' chem_desc_table( idomain, P_rtx22no3 ) = 'RTX22NO3 concentration' chem_units_table( idomain, P_rtx22no3 ) = 'ppmv' chem_streams_table( idomain, P_rtx22no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22no3 )%stream(2) = 2097216 F_rtx22no3 = .TRUE. IF ( chem_index_table( PARAM_rtx22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22ooh = chem_num_table(idomain) chem_index_table( PARAM_rtx22ooh , idomain ) = P_rtx22ooh ELSE P_rtx22ooh = chem_index_table( PARAM_rtx22ooh , idomain ) END IF chem_boundary_table( idomain, P_rtx22ooh ) = .TRUE. chem_dname_table( idomain, P_rtx22ooh ) = 'rtx22ooh' chem_desc_table( idomain, P_rtx22ooh ) = 'RTX22OOH concentration' chem_units_table( idomain, P_rtx22ooh ) = 'ppmv' chem_streams_table( idomain, P_rtx22ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22ooh )%stream(2) = 2097216 F_rtx22ooh = .TRUE. IF ( chem_index_table( PARAM_nrtx28ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28ooh = chem_num_table(idomain) chem_index_table( PARAM_nrtx28ooh , idomain ) = P_nrtx28ooh ELSE P_nrtx28ooh = chem_index_table( PARAM_nrtx28ooh , idomain ) END IF chem_boundary_table( idomain, P_nrtx28ooh ) = .TRUE. chem_dname_table( idomain, P_nrtx28ooh ) = 'nrtx28ooh' chem_desc_table( idomain, P_nrtx28ooh ) = 'NRTX28OOH concentration' chem_units_table( idomain, P_nrtx28ooh ) = 'ppmv' chem_streams_table( idomain, P_nrtx28ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtx28ooh )%stream(2) = 2097216 F_nrtx28ooh = .TRUE. IF ( chem_index_table( PARAM_carb11a , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_carb11a = chem_num_table(idomain) chem_index_table( PARAM_carb11a , idomain ) = P_carb11a ELSE P_carb11a = chem_index_table( PARAM_carb11a , idomain ) END IF chem_boundary_table( idomain, P_carb11a ) = .TRUE. chem_dname_table( idomain, P_carb11a ) = 'carb11a' chem_desc_table( idomain, P_carb11a ) = 'CARB11A concentration' chem_units_table( idomain, P_carb11a ) = 'ppmv' chem_streams_table( idomain, P_carb11a )%stream(1) = 33554433 chem_streams_table( idomain, P_carb11a )%stream(2) = 2097216 F_carb11a = .TRUE. IF ( chem_index_table( PARAM_anhy , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_anhy = chem_num_table(idomain) chem_index_table( PARAM_anhy , idomain ) = P_anhy ELSE P_anhy = chem_index_table( PARAM_anhy , idomain ) END IF chem_boundary_table( idomain, P_anhy ) = .TRUE. chem_dname_table( idomain, P_anhy ) = 'anhy' chem_desc_table( idomain, P_anhy ) = 'ANHY concentration' chem_units_table( idomain, P_anhy ) = 'ppmv' chem_streams_table( idomain, P_anhy )%stream(1) = 33554433 chem_streams_table( idomain, P_anhy )%stream(2) = 2097216 F_anhy = .TRUE. IF ( chem_index_table( PARAM_ch3o2no2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3o2no2 = chem_num_table(idomain) chem_index_table( PARAM_ch3o2no2 , idomain ) = P_ch3o2no2 ELSE P_ch3o2no2 = chem_index_table( PARAM_ch3o2no2 , idomain ) END IF chem_boundary_table( idomain, P_ch3o2no2 ) = .TRUE. chem_dname_table( idomain, P_ch3o2no2 ) = 'ch3o2no2' chem_desc_table( idomain, P_ch3o2no2 ) = 'CH3O2NO2 concentration' chem_units_table( idomain, P_ch3o2no2 ) = 'ppmv' chem_streams_table( idomain, P_ch3o2no2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3o2no2 )%stream(2) = 2097216 F_ch3o2no2 = .TRUE. IF ( chem_index_table( PARAM_ch4 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch4 = chem_num_table(idomain) chem_index_table( PARAM_ch4 , idomain ) = P_ch4 ELSE P_ch4 = chem_index_table( PARAM_ch4 , idomain ) END IF chem_boundary_table( idomain, P_ch4 ) = .TRUE. chem_dname_table( idomain, P_ch4 ) = 'ch4' chem_desc_table( idomain, P_ch4 ) = 'CH4 mixing ratio' chem_units_table( idomain, P_ch4 ) = 'ppmv' chem_streams_table( idomain, P_ch4 )%stream(1) = 33554433 chem_streams_table( idomain, P_ch4 )%stream(2) = 2097216 F_ch4 = .TRUE. IF ( chem_index_table( PARAM_sulf , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_sulf = chem_num_table(idomain) chem_index_table( PARAM_sulf , idomain ) = P_sulf ELSE P_sulf = chem_index_table( PARAM_sulf , idomain ) END IF chem_boundary_table( idomain, P_sulf ) = .TRUE. chem_dname_table( idomain, P_sulf ) = 'sulf' chem_desc_table( idomain, P_sulf ) = 'SULF mixing ratio' chem_units_table( idomain, P_sulf ) = 'ppmv' chem_streams_table( idomain, P_sulf )%stream(1) = 33554433 chem_streams_table( idomain, P_sulf )%stream(2) = 2097216 F_sulf = .TRUE. IF ( chem_index_table( PARAM_rtn23no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23no3 = chem_num_table(idomain) chem_index_table( PARAM_rtn23no3 , idomain ) = P_rtn23no3 ELSE P_rtn23no3 = chem_index_table( PARAM_rtn23no3 , idomain ) END IF chem_boundary_table( idomain, P_rtn23no3 ) = .TRUE. chem_dname_table( idomain, P_rtn23no3 ) = 'rtn23no3' chem_desc_table( idomain, P_rtn23no3 ) = 'rtn23no3 concentration' chem_units_table( idomain, P_rtn23no3 ) = 'ppmv' chem_streams_table( idomain, P_rtn23no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23no3 )%stream(2) = 2097216 F_rtn23no3 = .TRUE. IF ( chem_index_table( PARAM_tncarb12 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb12 = chem_num_table(idomain) chem_index_table( PARAM_tncarb12 , idomain ) = P_tncarb12 ELSE P_tncarb12 = chem_index_table( PARAM_tncarb12 , idomain ) END IF chem_boundary_table( idomain, P_tncarb12 ) = .TRUE. chem_dname_table( idomain, P_tncarb12 ) = 'tncarb12' chem_desc_table( idomain, P_tncarb12 ) = 'tncarb12 concentration' chem_units_table( idomain, P_tncarb12 ) = 'ppmv' chem_streams_table( idomain, P_tncarb12 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb12 )%stream(2) = 2097216 F_tncarb12 = .TRUE. IF ( chem_index_table( PARAM_tncarb11 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tncarb11 = chem_num_table(idomain) chem_index_table( PARAM_tncarb11 , idomain ) = P_tncarb11 ELSE P_tncarb11 = chem_index_table( PARAM_tncarb11 , idomain ) END IF chem_boundary_table( idomain, P_tncarb11 ) = .TRUE. chem_dname_table( idomain, P_tncarb11 ) = 'tncarb11' chem_desc_table( idomain, P_tncarb11 ) = 'tncarb11 concentration' chem_units_table( idomain, P_tncarb11 ) = 'ppmv' chem_streams_table( idomain, P_tncarb11 )%stream(1) = 33554433 chem_streams_table( idomain, P_tncarb11 )%stream(2) = 2097216 F_tncarb11 = .TRUE. IF ( chem_index_table( PARAM_tm123b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm123b = chem_num_table(idomain) chem_index_table( PARAM_tm123b , idomain ) = P_tm123b ELSE P_tm123b = chem_index_table( PARAM_tm123b , idomain ) END IF chem_boundary_table( idomain, P_tm123b ) = .TRUE. chem_dname_table( idomain, P_tm123b ) = 'tm123b' chem_desc_table( idomain, P_tm123b ) = 'tm123b concentration' chem_units_table( idomain, P_tm123b ) = 'ppmv' chem_streams_table( idomain, P_tm123b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm123b )%stream(2) = 2097216 F_tm123b = .TRUE. IF ( chem_index_table( PARAM_tm124b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm124b = chem_num_table(idomain) chem_index_table( PARAM_tm124b , idomain ) = P_tm124b ELSE P_tm124b = chem_index_table( PARAM_tm124b , idomain ) END IF chem_boundary_table( idomain, P_tm124b ) = .TRUE. chem_dname_table( idomain, P_tm124b ) = 'tm124b' chem_desc_table( idomain, P_tm124b ) = 'tm124b concentration' chem_units_table( idomain, P_tm124b ) = 'ppmv' chem_streams_table( idomain, P_tm124b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm124b )%stream(2) = 2097216 F_tm124b = .TRUE. IF ( chem_index_table( PARAM_tm135b , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_tm135b = chem_num_table(idomain) chem_index_table( PARAM_tm135b , idomain ) = P_tm135b ELSE P_tm135b = chem_index_table( PARAM_tm135b , idomain ) END IF chem_boundary_table( idomain, P_tm135b ) = .TRUE. chem_dname_table( idomain, P_tm135b ) = 'tm135b' chem_desc_table( idomain, P_tm135b ) = 'tm135b concentration' chem_units_table( idomain, P_tm135b ) = 'ppmv' chem_streams_table( idomain, P_tm135b )%stream(1) = 33554433 chem_streams_table( idomain, P_tm135b )%stream(2) = 2097216 F_tm135b = .TRUE. IF ( chem_index_table( PARAM_oethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oethtol = chem_num_table(idomain) chem_index_table( PARAM_oethtol , idomain ) = P_oethtol ELSE P_oethtol = chem_index_table( PARAM_oethtol , idomain ) END IF chem_boundary_table( idomain, P_oethtol ) = .TRUE. chem_dname_table( idomain, P_oethtol ) = 'oethtol' chem_desc_table( idomain, P_oethtol ) = 'oethtol concentration' chem_units_table( idomain, P_oethtol ) = 'ppmv' chem_streams_table( idomain, P_oethtol )%stream(1) = 33554433 chem_streams_table( idomain, P_oethtol )%stream(2) = 2097216 F_oethtol = .TRUE. IF ( chem_index_table( PARAM_methtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_methtol = chem_num_table(idomain) chem_index_table( PARAM_methtol , idomain ) = P_methtol ELSE P_methtol = chem_index_table( PARAM_methtol , idomain ) END IF chem_boundary_table( idomain, P_methtol ) = .TRUE. chem_dname_table( idomain, P_methtol ) = 'methtol' chem_desc_table( idomain, P_methtol ) = 'methtol concentration' chem_units_table( idomain, P_methtol ) = 'ppmv' chem_streams_table( idomain, P_methtol )%stream(1) = 33554433 chem_streams_table( idomain, P_methtol )%stream(2) = 2097216 F_methtol = .TRUE. IF ( chem_index_table( PARAM_pethtol , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_pethtol = chem_num_table(idomain) chem_index_table( PARAM_pethtol , idomain ) = P_pethtol ELSE P_pethtol = chem_index_table( PARAM_pethtol , idomain ) END IF chem_boundary_table( idomain, P_pethtol ) = .TRUE. chem_dname_table( idomain, P_pethtol ) = 'pethtol' chem_desc_table( idomain, P_pethtol ) = 'pethtol concentration' chem_units_table( idomain, P_pethtol ) = 'ppmv' chem_streams_table( idomain, P_pethtol )%stream(1) = 33554433 chem_streams_table( idomain, P_pethtol )%stream(2) = 2097216 F_pethtol = .TRUE. IF ( chem_index_table( PARAM_ra22no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22no3 = chem_num_table(idomain) chem_index_table( PARAM_ra22no3 , idomain ) = P_ra22no3 ELSE P_ra22no3 = chem_index_table( PARAM_ra22no3 , idomain ) END IF chem_boundary_table( idomain, P_ra22no3 ) = .TRUE. chem_dname_table( idomain, P_ra22no3 ) = 'ra22no3' chem_desc_table( idomain, P_ra22no3 ) = 'ra22no3 concentration' chem_units_table( idomain, P_ra22no3 ) = 'ppmv' chem_streams_table( idomain, P_ra22no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22no3 )%stream(2) = 2097216 F_ra22no3 = .TRUE. IF ( chem_index_table( PARAM_ra22ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ooh = chem_num_table(idomain) chem_index_table( PARAM_ra22ooh , idomain ) = P_ra22ooh ELSE P_ra22ooh = chem_index_table( PARAM_ra22ooh , idomain ) END IF chem_boundary_table( idomain, P_ra22ooh ) = .TRUE. chem_dname_table( idomain, P_ra22ooh ) = 'ra22ooh' chem_desc_table( idomain, P_ra22ooh ) = 'ra22ooh concentration' chem_units_table( idomain, P_ra22ooh ) = 'ppmv' chem_streams_table( idomain, P_ra22ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22ooh )%stream(2) = 2097216 F_ra22ooh = .TRUE. IF ( chem_index_table( PARAM_dime35eb , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_dime35eb = chem_num_table(idomain) chem_index_table( PARAM_dime35eb , idomain ) = P_dime35eb ELSE P_dime35eb = chem_index_table( PARAM_dime35eb , idomain ) END IF chem_boundary_table( idomain, P_dime35eb ) = .TRUE. chem_dname_table( idomain, P_dime35eb ) = 'dime35eb' chem_desc_table( idomain, P_dime35eb ) = 'dime35eb concentration' chem_units_table( idomain, P_dime35eb ) = 'ppmv' chem_streams_table( idomain, P_dime35eb )%stream(1) = 33554433 chem_streams_table( idomain, P_dime35eb )%stream(2) = 2097216 F_dime35eb = .TRUE. IF ( chem_index_table( PARAM_ra25no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25no3 = chem_num_table(idomain) chem_index_table( PARAM_ra25no3 , idomain ) = P_ra25no3 ELSE P_ra25no3 = chem_index_table( PARAM_ra25no3 , idomain ) END IF chem_boundary_table( idomain, P_ra25no3 ) = .TRUE. chem_dname_table( idomain, P_ra25no3 ) = 'ra25no3' chem_desc_table( idomain, P_ra25no3 ) = 'ra25no3 concentration' chem_units_table( idomain, P_ra25no3 ) = 'ppmv' chem_streams_table( idomain, P_ra25no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25no3 )%stream(2) = 2097216 F_ra25no3 = .TRUE. IF ( chem_index_table( PARAM_udcarb17 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_udcarb17 = chem_num_table(idomain) chem_index_table( PARAM_udcarb17 , idomain ) = P_udcarb17 ELSE P_udcarb17 = chem_index_table( PARAM_udcarb17 , idomain ) END IF chem_boundary_table( idomain, P_udcarb17 ) = .TRUE. chem_dname_table( idomain, P_udcarb17 ) = 'udcarb17' chem_desc_table( idomain, P_udcarb17 ) = 'udcarb17 concentration' chem_units_table( idomain, P_udcarb17 ) = 'ppmv' chem_streams_table( idomain, P_udcarb17 )%stream(1) = 33554433 chem_streams_table( idomain, P_udcarb17 )%stream(2) = 2097216 F_udcarb17 = .TRUE. IF ( chem_index_table( PARAM_ra25ooh , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25ooh = chem_num_table(idomain) chem_index_table( PARAM_ra25ooh , idomain ) = P_ra25ooh ELSE P_ra25ooh = chem_index_table( PARAM_ra25ooh , idomain ) END IF chem_boundary_table( idomain, P_ra25ooh ) = .TRUE. chem_dname_table( idomain, P_ra25ooh ) = 'ra25ooh' chem_desc_table( idomain, P_ra25ooh ) = 'ra25ooh concentration' chem_units_table( idomain, P_ra25ooh ) = 'ppmv' chem_streams_table( idomain, P_ra25ooh )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25ooh )%stream(2) = 2097216 F_ra25ooh = .TRUE. IF ( chem_index_table( PARAM_clno2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_clno2 = chem_num_table(idomain) chem_index_table( PARAM_clno2 , idomain ) = P_clno2 ELSE P_clno2 = chem_index_table( PARAM_clno2 , idomain ) END IF chem_boundary_table( idomain, P_clno2 ) = .TRUE. chem_dname_table( idomain, P_clno2 ) = 'clno2' chem_desc_table( idomain, P_clno2 ) = 'ClNO2 concentration' chem_units_table( idomain, P_clno2 ) = 'ppmv' chem_streams_table( idomain, P_clno2 )%stream(1) = 33554433 chem_streams_table( idomain, P_clno2 )%stream(2) = 2097216 F_clno2 = .TRUE. IF ( chem_index_table( PARAM_ch3oo , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ch3oo = chem_num_table(idomain) chem_index_table( PARAM_ch3oo , idomain ) = P_ch3oo ELSE P_ch3oo = chem_index_table( PARAM_ch3oo , idomain ) END IF chem_boundary_table( idomain, P_ch3oo ) = .TRUE. chem_dname_table( idomain, P_ch3oo ) = 'ch3oo' chem_desc_table( idomain, P_ch3oo ) = 'CH3OO concentration' chem_units_table( idomain, P_ch3oo ) = 'ppmv' chem_streams_table( idomain, P_ch3oo )%stream(1) = 33554433 chem_streams_table( idomain, P_ch3oo )%stream(2) = 2097216 F_ch3oo = .TRUE. IF ( chem_index_table( PARAM_c2h5o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_c2h5o2 = chem_num_table(idomain) chem_index_table( PARAM_c2h5o2 , idomain ) = P_c2h5o2 ELSE P_c2h5o2 = chem_index_table( PARAM_c2h5o2 , idomain ) END IF chem_boundary_table( idomain, P_c2h5o2 ) = .TRUE. chem_dname_table( idomain, P_c2h5o2 ) = 'c2h5o2' chem_desc_table( idomain, P_c2h5o2 ) = 'C2H5O2 concentration' chem_units_table( idomain, P_c2h5o2 ) = 'ppmv' chem_streams_table( idomain, P_c2h5o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_c2h5o2 )%stream(2) = 2097216 F_c2h5o2 = .TRUE. IF ( chem_index_table( PARAM_hoch2ch2o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hoch2ch2o2 = chem_num_table(idomain) chem_index_table( PARAM_hoch2ch2o2 , idomain ) = P_hoch2ch2o2 ELSE P_hoch2ch2o2 = chem_index_table( PARAM_hoch2ch2o2 , idomain ) END IF chem_boundary_table( idomain, P_hoch2ch2o2 ) = .TRUE. chem_dname_table( idomain, P_hoch2ch2o2 ) = 'hoch2ch2o2' chem_desc_table( idomain, P_hoch2ch2o2 ) = 'HOCH2CH2O2 concentration' chem_units_table( idomain, P_hoch2ch2o2 ) = 'ppmv' chem_streams_table( idomain, P_hoch2ch2o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_hoch2ch2o2 )%stream(2) = 2097216 F_hoch2ch2o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7o2 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7o2 , idomain ) = P_ic3h7o2 ELSE P_ic3h7o2 = chem_index_table( PARAM_ic3h7o2 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7o2 ) = .TRUE. chem_dname_table( idomain, P_ic3h7o2 ) = 'ic3h7o2' chem_desc_table( idomain, P_ic3h7o2 ) = 'IC3H7O2 concentration' chem_units_table( idomain, P_ic3h7o2 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ic3h7o2 )%stream(2) = 2097216 F_ic3h7o2 = .TRUE. IF ( chem_index_table( PARAM_rn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rn10o2 , idomain ) = P_rn10o2 ELSE P_rn10o2 = chem_index_table( PARAM_rn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rn10o2 ) = .TRUE. chem_dname_table( idomain, P_rn10o2 ) = 'rn10o2' chem_desc_table( idomain, P_rn10o2 ) = 'RN10O2 concentration' chem_units_table( idomain, P_rn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rn10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn10o2 )%stream(2) = 2097216 F_rn10o2 = .TRUE. IF ( chem_index_table( PARAM_rn13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13o2 = chem_num_table(idomain) chem_index_table( PARAM_rn13o2 , idomain ) = P_rn13o2 ELSE P_rn13o2 = chem_index_table( PARAM_rn13o2 , idomain ) END IF chem_boundary_table( idomain, P_rn13o2 ) = .TRUE. chem_dname_table( idomain, P_rn13o2 ) = 'rn13o2' chem_desc_table( idomain, P_rn13o2 ) = 'RN13O2 concentration' chem_units_table( idomain, P_rn13o2 ) = 'ppmv' chem_streams_table( idomain, P_rn13o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13o2 )%stream(2) = 2097216 F_rn13o2 = .TRUE. IF ( chem_index_table( PARAM_rn16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16o2 = chem_num_table(idomain) chem_index_table( PARAM_rn16o2 , idomain ) = P_rn16o2 ELSE P_rn16o2 = chem_index_table( PARAM_rn16o2 , idomain ) END IF chem_boundary_table( idomain, P_rn16o2 ) = .TRUE. chem_dname_table( idomain, P_rn16o2 ) = 'rn16o2' chem_desc_table( idomain, P_rn16o2 ) = 'RN16O2 concentration' chem_units_table( idomain, P_rn16o2 ) = 'ppmv' chem_streams_table( idomain, P_rn16o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16o2 )%stream(2) = 2097216 F_rn16o2 = .TRUE. IF ( chem_index_table( PARAM_rn19o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn19o2 = chem_num_table(idomain) chem_index_table( PARAM_rn19o2 , idomain ) = P_rn19o2 ELSE P_rn19o2 = chem_index_table( PARAM_rn19o2 , idomain ) END IF chem_boundary_table( idomain, P_rn19o2 ) = .TRUE. chem_dname_table( idomain, P_rn19o2 ) = 'rn19o2' chem_desc_table( idomain, P_rn19o2 ) = 'RN19O2 concentration' chem_units_table( idomain, P_rn19o2 ) = 'ppmv' chem_streams_table( idomain, P_rn19o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn19o2 )%stream(2) = 2097216 F_rn19o2 = .TRUE. IF ( chem_index_table( PARAM_rn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn9o2 = chem_num_table(idomain) chem_index_table( PARAM_rn9o2 , idomain ) = P_rn9o2 ELSE P_rn9o2 = chem_index_table( PARAM_rn9o2 , idomain ) END IF chem_boundary_table( idomain, P_rn9o2 ) = .TRUE. chem_dname_table( idomain, P_rn9o2 ) = 'rn9o2' chem_desc_table( idomain, P_rn9o2 ) = 'RN9O2 concentration' chem_units_table( idomain, P_rn9o2 ) = 'ppmv' chem_streams_table( idomain, P_rn9o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn9o2 )%stream(2) = 2097216 F_rn9o2 = .TRUE. IF ( chem_index_table( PARAM_rn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn12o2 = chem_num_table(idomain) chem_index_table( PARAM_rn12o2 , idomain ) = P_rn12o2 ELSE P_rn12o2 = chem_index_table( PARAM_rn12o2 , idomain ) END IF chem_boundary_table( idomain, P_rn12o2 ) = .TRUE. chem_dname_table( idomain, P_rn12o2 ) = 'rn12o2' chem_desc_table( idomain, P_rn12o2 ) = 'RN12O2 concentration' chem_units_table( idomain, P_rn12o2 ) = 'ppmv' chem_streams_table( idomain, P_rn12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn12o2 )%stream(2) = 2097216 F_rn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn15o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15o2 = chem_num_table(idomain) chem_index_table( PARAM_rn15o2 , idomain ) = P_rn15o2 ELSE P_rn15o2 = chem_index_table( PARAM_rn15o2 , idomain ) END IF chem_boundary_table( idomain, P_rn15o2 ) = .TRUE. chem_dname_table( idomain, P_rn15o2 ) = 'rn15o2' chem_desc_table( idomain, P_rn15o2 ) = 'RN15O2 concentration' chem_units_table( idomain, P_rn15o2 ) = 'ppmv' chem_streams_table( idomain, P_rn15o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15o2 )%stream(2) = 2097216 F_rn15o2 = .TRUE. IF ( chem_index_table( PARAM_rn18o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18o2 = chem_num_table(idomain) chem_index_table( PARAM_rn18o2 , idomain ) = P_rn18o2 ELSE P_rn18o2 = chem_index_table( PARAM_rn18o2 , idomain ) END IF chem_boundary_table( idomain, P_rn18o2 ) = .TRUE. chem_dname_table( idomain, P_rn18o2 ) = 'rn18o2' chem_desc_table( idomain, P_rn18o2 ) = 'RN18O2 concentration' chem_units_table( idomain, P_rn18o2 ) = 'ppmv' chem_streams_table( idomain, P_rn18o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18o2 )%stream(2) = 2097216 F_rn18o2 = .TRUE. IF ( chem_index_table( PARAM_nrn6o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn6o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn6o2 , idomain ) = P_nrn6o2 ELSE P_nrn6o2 = chem_index_table( PARAM_nrn6o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn6o2 ) = .TRUE. chem_dname_table( idomain, P_nrn6o2 ) = 'nrn6o2' chem_desc_table( idomain, P_nrn6o2 ) = 'NRN6O2 concentration' chem_units_table( idomain, P_nrn6o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn6o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn6o2 )%stream(2) = 2097216 F_nrn6o2 = .TRUE. IF ( chem_index_table( PARAM_nrn9o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn9o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn9o2 , idomain ) = P_nrn9o2 ELSE P_nrn9o2 = chem_index_table( PARAM_nrn9o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn9o2 ) = .TRUE. chem_dname_table( idomain, P_nrn9o2 ) = 'nrn9o2' chem_desc_table( idomain, P_nrn9o2 ) = 'NRN9O2 concentration' chem_units_table( idomain, P_nrn9o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn9o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn9o2 )%stream(2) = 2097216 F_nrn9o2 = .TRUE. IF ( chem_index_table( PARAM_nrn12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrn12o2 = chem_num_table(idomain) chem_index_table( PARAM_nrn12o2 , idomain ) = P_nrn12o2 ELSE P_nrn12o2 = chem_index_table( PARAM_nrn12o2 , idomain ) END IF chem_boundary_table( idomain, P_nrn12o2 ) = .TRUE. chem_dname_table( idomain, P_nrn12o2 ) = 'nrn12o2' chem_desc_table( idomain, P_nrn12o2 ) = 'NRN12O2 concentration' chem_units_table( idomain, P_nrn12o2 ) = 'ppmv' chem_streams_table( idomain, P_nrn12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrn12o2 )%stream(2) = 2097216 F_nrn12o2 = .TRUE. IF ( chem_index_table( PARAM_rn11o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn11o2 = chem_num_table(idomain) chem_index_table( PARAM_rn11o2 , idomain ) = P_rn11o2 ELSE P_rn11o2 = chem_index_table( PARAM_rn11o2 , idomain ) END IF chem_boundary_table( idomain, P_rn11o2 ) = .TRUE. chem_dname_table( idomain, P_rn11o2 ) = 'rn11o2' chem_desc_table( idomain, P_rn11o2 ) = 'RN11O2 concentration' chem_units_table( idomain, P_rn11o2 ) = 'ppmv' chem_streams_table( idomain, P_rn11o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn11o2 )%stream(2) = 2097216 F_rn11o2 = .TRUE. IF ( chem_index_table( PARAM_rn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rn14o2 , idomain ) = P_rn14o2 ELSE P_rn14o2 = chem_index_table( PARAM_rn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rn14o2 ) = .TRUE. chem_dname_table( idomain, P_rn14o2 ) = 'rn14o2' chem_desc_table( idomain, P_rn14o2 ) = 'RN14O2 concentration' chem_units_table( idomain, P_rn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rn14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn14o2 )%stream(2) = 2097216 F_rn14o2 = .TRUE. IF ( chem_index_table( PARAM_rn8o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn8o2 = chem_num_table(idomain) chem_index_table( PARAM_rn8o2 , idomain ) = P_rn8o2 ELSE P_rn8o2 = chem_index_table( PARAM_rn8o2 , idomain ) END IF chem_boundary_table( idomain, P_rn8o2 ) = .TRUE. chem_dname_table( idomain, P_rn8o2 ) = 'rn8o2' chem_desc_table( idomain, P_rn8o2 ) = 'RN8O2 concentration' chem_units_table( idomain, P_rn8o2 ) = 'ppmv' chem_streams_table( idomain, P_rn8o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn8o2 )%stream(2) = 2097216 F_rn8o2 = .TRUE. IF ( chem_index_table( PARAM_rn17o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn17o2 = chem_num_table(idomain) chem_index_table( PARAM_rn17o2 , idomain ) = P_rn17o2 ELSE P_rn17o2 = chem_index_table( PARAM_rn17o2 , idomain ) END IF chem_boundary_table( idomain, P_rn17o2 ) = .TRUE. chem_dname_table( idomain, P_rn17o2 ) = 'rn17o2' chem_desc_table( idomain, P_rn17o2 ) = 'RN17O2 concentration' chem_units_table( idomain, P_rn17o2 ) = 'ppmv' chem_streams_table( idomain, P_rn17o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn17o2 )%stream(2) = 2097216 F_rn17o2 = .TRUE. IF ( chem_index_table( PARAM_rn13ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn13ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn13ao2 , idomain ) = P_rn13ao2 ELSE P_rn13ao2 = chem_index_table( PARAM_rn13ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn13ao2 ) = .TRUE. chem_dname_table( idomain, P_rn13ao2 ) = 'rn13ao2' chem_desc_table( idomain, P_rn13ao2 ) = 'RN13AO2 concentration' chem_units_table( idomain, P_rn13ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn13ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn13ao2 )%stream(2) = 2097216 F_rn13ao2 = .TRUE. IF ( chem_index_table( PARAM_rn16ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn16ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn16ao2 , idomain ) = P_rn16ao2 ELSE P_rn16ao2 = chem_index_table( PARAM_rn16ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn16ao2 ) = .TRUE. chem_dname_table( idomain, P_rn16ao2 ) = 'rn16ao2' chem_desc_table( idomain, P_rn16ao2 ) = 'RN16AO2 concentration' chem_units_table( idomain, P_rn16ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn16ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn16ao2 )%stream(2) = 2097216 F_rn16ao2 = .TRUE. IF ( chem_index_table( PARAM_rn15ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn15ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn15ao2 , idomain ) = P_rn15ao2 ELSE P_rn15ao2 = chem_index_table( PARAM_rn15ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn15ao2 ) = .TRUE. chem_dname_table( idomain, P_rn15ao2 ) = 'rn15ao2' chem_desc_table( idomain, P_rn15ao2 ) = 'RN15AO2 concentration' chem_units_table( idomain, P_rn15ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn15ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn15ao2 )%stream(2) = 2097216 F_rn15ao2 = .TRUE. IF ( chem_index_table( PARAM_rn18ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rn18ao2 = chem_num_table(idomain) chem_index_table( PARAM_rn18ao2 , idomain ) = P_rn18ao2 ELSE P_rn18ao2 = chem_index_table( PARAM_rn18ao2 , idomain ) END IF chem_boundary_table( idomain, P_rn18ao2 ) = .TRUE. chem_dname_table( idomain, P_rn18ao2 ) = 'rn18ao2' chem_desc_table( idomain, P_rn18ao2 ) = 'RN18AO2 concentration' chem_units_table( idomain, P_rn18ao2 ) = 'ppmv' chem_streams_table( idomain, P_rn18ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rn18ao2 )%stream(2) = 2097216 F_rn18ao2 = .TRUE. IF ( chem_index_table( PARAM_ru10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru10o2 = chem_num_table(idomain) chem_index_table( PARAM_ru10o2 , idomain ) = P_ru10o2 ELSE P_ru10o2 = chem_index_table( PARAM_ru10o2 , idomain ) END IF chem_boundary_table( idomain, P_ru10o2 ) = .TRUE. chem_dname_table( idomain, P_ru10o2 ) = 'ru10o2' chem_desc_table( idomain, P_ru10o2 ) = 'RU10O2 concentration' chem_units_table( idomain, P_ru10o2 ) = 'ppmv' chem_streams_table( idomain, P_ru10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru10o2 )%stream(2) = 2097216 F_ru10o2 = .TRUE. IF ( chem_index_table( PARAM_nru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru14o2 = chem_num_table(idomain) chem_index_table( PARAM_nru14o2 , idomain ) = P_nru14o2 ELSE P_nru14o2 = chem_index_table( PARAM_nru14o2 , idomain ) END IF chem_boundary_table( idomain, P_nru14o2 ) = .TRUE. chem_dname_table( idomain, P_nru14o2 ) = 'nru14o2' chem_desc_table( idomain, P_nru14o2 ) = 'NRU14O2 concentration' chem_units_table( idomain, P_nru14o2 ) = 'ppmv' chem_streams_table( idomain, P_nru14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nru14o2 )%stream(2) = 2097216 F_nru14o2 = .TRUE. IF ( chem_index_table( PARAM_nru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nru12o2 = chem_num_table(idomain) chem_index_table( PARAM_nru12o2 , idomain ) = P_nru12o2 ELSE P_nru12o2 = chem_index_table( PARAM_nru12o2 , idomain ) END IF chem_boundary_table( idomain, P_nru12o2 ) = .TRUE. chem_dname_table( idomain, P_nru12o2 ) = 'nru12o2' chem_desc_table( idomain, P_nru12o2 ) = 'NRU12O2 concentration' chem_units_table( idomain, P_nru12o2 ) = 'ppmv' chem_streams_table( idomain, P_nru12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nru12o2 )%stream(2) = 2097216 F_nru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra13o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra13o2 = chem_num_table(idomain) chem_index_table( PARAM_ra13o2 , idomain ) = P_ra13o2 ELSE P_ra13o2 = chem_index_table( PARAM_ra13o2 , idomain ) END IF chem_boundary_table( idomain, P_ra13o2 ) = .TRUE. chem_dname_table( idomain, P_ra13o2 ) = 'ra13o2' chem_desc_table( idomain, P_ra13o2 ) = 'RA13O2 concentration' chem_units_table( idomain, P_ra13o2 ) = 'ppmv' chem_streams_table( idomain, P_ra13o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra13o2 )%stream(2) = 2097216 F_ra13o2 = .TRUE. IF ( chem_index_table( PARAM_nrtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtx28o2 , idomain ) = P_nrtx28o2 ELSE P_nrtx28o2 = chem_index_table( PARAM_nrtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtx28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtx28o2 ) = 'nrtx28o2' chem_desc_table( idomain, P_nrtx28o2 ) = 'NRTX28O2 concentration' chem_units_table( idomain, P_nrtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtx28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtx28o2 )%stream(2) = 2097216 F_nrtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtx24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx24o2 , idomain ) = P_rtx24o2 ELSE P_rtx24o2 = chem_index_table( PARAM_rtx24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx24o2 ) = .TRUE. chem_dname_table( idomain, P_rtx24o2 ) = 'rtx24o2' chem_desc_table( idomain, P_rtx24o2 ) = 'RTX24O2 concentration' chem_units_table( idomain, P_rtx24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx24o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx24o2 )%stream(2) = 2097216 F_rtx24o2 = .TRUE. IF ( chem_index_table( PARAM_rtx28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx28o2 , idomain ) = P_rtx28o2 ELSE P_rtx28o2 = chem_index_table( PARAM_rtx28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx28o2 ) = .TRUE. chem_dname_table( idomain, P_rtx28o2 ) = 'rtx28o2' chem_desc_table( idomain, P_rtx28o2 ) = 'RTX28O2 concentration' chem_units_table( idomain, P_rtx28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx28o2 )%stream(2) = 2097216 F_rtx28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn25o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn25o2 , idomain ) = P_rtn25o2 ELSE P_rtn25o2 = chem_index_table( PARAM_rtn25o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn25o2 ) = .TRUE. chem_dname_table( idomain, P_rtn25o2 ) = 'rtn25o2' chem_desc_table( idomain, P_rtn25o2 ) = 'RTN25O2 concentration' chem_units_table( idomain, P_rtn25o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn25o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn25o2 )%stream(2) = 2097216 F_rtn25o2 = .TRUE. IF ( chem_index_table( PARAM_rtn24o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn24o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn24o2 , idomain ) = P_rtn24o2 ELSE P_rtn24o2 = chem_index_table( PARAM_rtn24o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn24o2 ) = .TRUE. chem_dname_table( idomain, P_rtn24o2 ) = 'rtn24o2' chem_desc_table( idomain, P_rtn24o2 ) = 'RTN24O2 concentration' chem_units_table( idomain, P_rtn24o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn24o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn24o2 )%stream(2) = 2097216 F_rtn24o2 = .TRUE. IF ( chem_index_table( PARAM_rtn23o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn23o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn23o2 , idomain ) = P_rtn23o2 ELSE P_rtn23o2 = chem_index_table( PARAM_rtn23o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn23o2 ) = .TRUE. chem_dname_table( idomain, P_rtn23o2 ) = 'rtn23o2' chem_desc_table( idomain, P_rtn23o2 ) = 'RTN23O2 concentration' chem_units_table( idomain, P_rtn23o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn23o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn23o2 )%stream(2) = 2097216 F_rtn23o2 = .TRUE. IF ( chem_index_table( PARAM_rtn14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn14o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn14o2 , idomain ) = P_rtn14o2 ELSE P_rtn14o2 = chem_index_table( PARAM_rtn14o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn14o2 ) = .TRUE. chem_dname_table( idomain, P_rtn14o2 ) = 'rtn14o2' chem_desc_table( idomain, P_rtn14o2 ) = 'RTN14O2 concentration' chem_units_table( idomain, P_rtn14o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn14o2 )%stream(2) = 2097216 F_rtn14o2 = .TRUE. IF ( chem_index_table( PARAM_rtn10o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn10o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn10o2 , idomain ) = P_rtn10o2 ELSE P_rtn10o2 = chem_index_table( PARAM_rtn10o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn10o2 ) = .TRUE. chem_dname_table( idomain, P_rtn10o2 ) = 'rtn10o2' chem_desc_table( idomain, P_rtn10o2 ) = 'RTN10O2 concentration' chem_units_table( idomain, P_rtn10o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn10o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn10o2 )%stream(2) = 2097216 F_rtn10o2 = .TRUE. IF ( chem_index_table( PARAM_nrtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nrtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_nrtn28o2 , idomain ) = P_nrtn28o2 ELSE P_nrtn28o2 = chem_index_table( PARAM_nrtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_nrtn28o2 ) = .TRUE. chem_dname_table( idomain, P_nrtn28o2 ) = 'nrtn28o2' chem_desc_table( idomain, P_nrtn28o2 ) = 'NRTN28O2 concentration' chem_units_table( idomain, P_nrtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_nrtn28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_nrtn28o2 )%stream(2) = 2097216 F_nrtn28o2 = .TRUE. IF ( chem_index_table( PARAM_rtn26o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn26o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn26o2 , idomain ) = P_rtn26o2 ELSE P_rtn26o2 = chem_index_table( PARAM_rtn26o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn26o2 ) = .TRUE. chem_dname_table( idomain, P_rtn26o2 ) = 'rtn26o2' chem_desc_table( idomain, P_rtn26o2 ) = 'RTN26O2 concentration' chem_units_table( idomain, P_rtn26o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn26o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn26o2 )%stream(2) = 2097216 F_rtn26o2 = .TRUE. IF ( chem_index_table( PARAM_rtn28o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtn28o2 = chem_num_table(idomain) chem_index_table( PARAM_rtn28o2 , idomain ) = P_rtn28o2 ELSE P_rtn28o2 = chem_index_table( PARAM_rtn28o2 , idomain ) END IF chem_boundary_table( idomain, P_rtn28o2 ) = .TRUE. chem_dname_table( idomain, P_rtn28o2 ) = 'rtn28o2' chem_desc_table( idomain, P_rtn28o2 ) = 'RTN28O2 concentration' chem_units_table( idomain, P_rtn28o2 ) = 'ppmv' chem_streams_table( idomain, P_rtn28o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtn28o2 )%stream(2) = 2097216 F_rtn28o2 = .TRUE. IF ( chem_index_table( PARAM_ra19ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra19ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra19ao2 , idomain ) = P_ra19ao2 ELSE P_ra19ao2 = chem_index_table( PARAM_ra19ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra19ao2 ) = .TRUE. chem_dname_table( idomain, P_ra19ao2 ) = 'ra19ao2' chem_desc_table( idomain, P_ra19ao2 ) = 'RA19AO2 concentration' chem_units_table( idomain, P_ra19ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra19ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra19ao2 )%stream(2) = 2097216 F_ra19ao2 = .TRUE. IF ( chem_index_table( PARAM_ru14o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru14o2 = chem_num_table(idomain) chem_index_table( PARAM_ru14o2 , idomain ) = P_ru14o2 ELSE P_ru14o2 = chem_index_table( PARAM_ru14o2 , idomain ) END IF chem_boundary_table( idomain, P_ru14o2 ) = .TRUE. chem_dname_table( idomain, P_ru14o2 ) = 'ru14o2' chem_desc_table( idomain, P_ru14o2 ) = 'RU14O2 concentration' chem_units_table( idomain, P_ru14o2 ) = 'ppmv' chem_streams_table( idomain, P_ru14o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru14o2 )%stream(2) = 2097216 F_ru14o2 = .TRUE. IF ( chem_index_table( PARAM_ru12o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ru12o2 = chem_num_table(idomain) chem_index_table( PARAM_ru12o2 , idomain ) = P_ru12o2 ELSE P_ru12o2 = chem_index_table( PARAM_ru12o2 , idomain ) END IF chem_boundary_table( idomain, P_ru12o2 ) = .TRUE. chem_dname_table( idomain, P_ru12o2 ) = 'ru12o2' chem_desc_table( idomain, P_ru12o2 ) = 'RU12O2 concentration' chem_units_table( idomain, P_ru12o2 ) = 'ppmv' chem_streams_table( idomain, P_ru12o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ru12o2 )%stream(2) = 2097216 F_ru12o2 = .TRUE. IF ( chem_index_table( PARAM_ra16o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra16o2 = chem_num_table(idomain) chem_index_table( PARAM_ra16o2 , idomain ) = P_ra16o2 ELSE P_ra16o2 = chem_index_table( PARAM_ra16o2 , idomain ) END IF chem_boundary_table( idomain, P_ra16o2 ) = .TRUE. chem_dname_table( idomain, P_ra16o2 ) = 'ra16o2' chem_desc_table( idomain, P_ra16o2 ) = 'RA16O2 concentration' chem_units_table( idomain, P_ra16o2 ) = 'ppmv' chem_streams_table( idomain, P_ra16o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra16o2 )%stream(2) = 2097216 F_ra16o2 = .TRUE. IF ( chem_index_table( PARAM_rtx22o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_rtx22o2 = chem_num_table(idomain) chem_index_table( PARAM_rtx22o2 , idomain ) = P_rtx22o2 ELSE P_rtx22o2 = chem_index_table( PARAM_rtx22o2 , idomain ) END IF chem_boundary_table( idomain, P_rtx22o2 ) = .TRUE. chem_dname_table( idomain, P_rtx22o2 ) = 'rtx22o2' chem_desc_table( idomain, P_rtx22o2 ) = 'RTX22O2 concentration' chem_units_table( idomain, P_rtx22o2 ) = 'ppmv' chem_streams_table( idomain, P_rtx22o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_rtx22o2 )%stream(2) = 2097216 F_rtx22o2 = .TRUE. IF ( chem_index_table( PARAM_ra22ao2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22ao2 = chem_num_table(idomain) chem_index_table( PARAM_ra22ao2 , idomain ) = P_ra22ao2 ELSE P_ra22ao2 = chem_index_table( PARAM_ra22ao2 , idomain ) END IF chem_boundary_table( idomain, P_ra22ao2 ) = .TRUE. chem_dname_table( idomain, P_ra22ao2 ) = 'ra22ao2' chem_desc_table( idomain, P_ra22ao2 ) = 'RA22AO2 concentration' chem_units_table( idomain, P_ra22ao2 ) = 'ppmv' chem_streams_table( idomain, P_ra22ao2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22ao2 )%stream(2) = 2097216 F_ra22ao2 = .TRUE. IF ( chem_index_table( PARAM_ra22bo2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra22bo2 = chem_num_table(idomain) chem_index_table( PARAM_ra22bo2 , idomain ) = P_ra22bo2 ELSE P_ra22bo2 = chem_index_table( PARAM_ra22bo2 , idomain ) END IF chem_boundary_table( idomain, P_ra22bo2 ) = .TRUE. chem_dname_table( idomain, P_ra22bo2 ) = 'ra22bo2' chem_desc_table( idomain, P_ra22bo2 ) = 'RA22BO2 concentration' chem_units_table( idomain, P_ra22bo2 ) = 'ppmv' chem_streams_table( idomain, P_ra22bo2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra22bo2 )%stream(2) = 2097216 F_ra22bo2 = .TRUE. IF ( chem_index_table( PARAM_ra25o2 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ra25o2 = chem_num_table(idomain) chem_index_table( PARAM_ra25o2 , idomain ) = P_ra25o2 ELSE P_ra25o2 = chem_index_table( PARAM_ra25o2 , idomain ) END IF chem_boundary_table( idomain, P_ra25o2 ) = .TRUE. chem_dname_table( idomain, P_ra25o2 ) = 'ra25o2' chem_desc_table( idomain, P_ra25o2 ) = 'RA25O2 concentration' chem_units_table( idomain, P_ra25o2 ) = 'ppmv' chem_streams_table( idomain, P_ra25o2 )%stream(1) = 33554433 chem_streams_table( idomain, P_ra25o2 )%stream(2) = 2097216 F_ra25o2 = .TRUE. IF ( chem_index_table( PARAM_ic3h7no3 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_ic3h7no3 = chem_num_table(idomain) chem_index_table( PARAM_ic3h7no3 , idomain ) = P_ic3h7no3 ELSE P_ic3h7no3 = chem_index_table( PARAM_ic3h7no3 , idomain ) END IF chem_boundary_table( idomain, P_ic3h7no3 ) = .TRUE. chem_dname_table( idomain, P_ic3h7no3 ) = 'ic3h7no3' chem_desc_table( idomain, P_ic3h7no3 ) = 'IC3H7NO3 concentration' chem_units_table( idomain, P_ic3h7no3 ) = 'ppmv' chem_streams_table( idomain, P_ic3h7no3 )%stream(1) = 33554433 chem_streams_table( idomain, P_ic3h7no3 )%stream(2) = 2097216 F_ic3h7no3 = .TRUE. IF ( chem_index_table( PARAM_so4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a01 = chem_num_table(idomain) chem_index_table( PARAM_so4_a01 , idomain ) = P_so4_a01 ELSE P_so4_a01 = chem_index_table( PARAM_so4_a01 , idomain ) END IF chem_boundary_table( idomain, P_so4_a01 ) = .TRUE. chem_dname_table( idomain, P_so4_a01 ) = 'so4_a01' chem_desc_table( idomain, P_so4_a01 ) = 'Sulfate, aerosol bin 01' chem_units_table( idomain, P_so4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a01 )%stream(2) = 2097216 F_so4_a01 = .TRUE. IF ( chem_index_table( PARAM_no3_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a01 = chem_num_table(idomain) chem_index_table( PARAM_no3_a01 , idomain ) = P_no3_a01 ELSE P_no3_a01 = chem_index_table( PARAM_no3_a01 , idomain ) END IF chem_boundary_table( idomain, P_no3_a01 ) = .TRUE. chem_dname_table( idomain, P_no3_a01 ) = 'no3_a01' chem_desc_table( idomain, P_no3_a01 ) = 'Nitrate, aerosol bin 01' chem_units_table( idomain, P_no3_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a01 )%stream(2) = 2097216 F_no3_a01 = .TRUE. IF ( chem_index_table( PARAM_cl_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a01 = chem_num_table(idomain) chem_index_table( PARAM_cl_a01 , idomain ) = P_cl_a01 ELSE P_cl_a01 = chem_index_table( PARAM_cl_a01 , idomain ) END IF chem_boundary_table( idomain, P_cl_a01 ) = .TRUE. chem_dname_table( idomain, P_cl_a01 ) = 'cl_a01' chem_desc_table( idomain, P_cl_a01 ) = 'Chloride, aerosol bin 01' chem_units_table( idomain, P_cl_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a01 )%stream(2) = 2097216 F_cl_a01 = .TRUE. IF ( chem_index_table( PARAM_nh4_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a01 , idomain ) = P_nh4_a01 ELSE P_nh4_a01 = chem_index_table( PARAM_nh4_a01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a01 ) = .TRUE. chem_dname_table( idomain, P_nh4_a01 ) = 'nh4_a01' chem_desc_table( idomain, P_nh4_a01 ) = 'Ammonium, aerosol bin 01' chem_units_table( idomain, P_nh4_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a01 )%stream(2) = 2097216 F_nh4_a01 = .TRUE. IF ( chem_index_table( PARAM_na_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a01 = chem_num_table(idomain) chem_index_table( PARAM_na_a01 , idomain ) = P_na_a01 ELSE P_na_a01 = chem_index_table( PARAM_na_a01 , idomain ) END IF chem_boundary_table( idomain, P_na_a01 ) = .TRUE. chem_dname_table( idomain, P_na_a01 ) = 'na_a01' chem_desc_table( idomain, P_na_a01 ) = 'Sodium, aerosol bin 01' chem_units_table( idomain, P_na_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a01 )%stream(2) = 2097216 F_na_a01 = .TRUE. IF ( chem_index_table( PARAM_oin_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a01 = chem_num_table(idomain) chem_index_table( PARAM_oin_a01 , idomain ) = P_oin_a01 ELSE P_oin_a01 = chem_index_table( PARAM_oin_a01 , idomain ) END IF chem_boundary_table( idomain, P_oin_a01 ) = .TRUE. chem_dname_table( idomain, P_oin_a01 ) = 'oin_a01' chem_desc_table( idomain, P_oin_a01 ) = 'Other inorganics, aerosol bin 01' chem_units_table( idomain, P_oin_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a01 )%stream(2) = 2097216 F_oin_a01 = .TRUE. IF ( chem_index_table( PARAM_oc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a01 = chem_num_table(idomain) chem_index_table( PARAM_oc_a01 , idomain ) = P_oc_a01 ELSE P_oc_a01 = chem_index_table( PARAM_oc_a01 , idomain ) END IF chem_boundary_table( idomain, P_oc_a01 ) = .TRUE. chem_dname_table( idomain, P_oc_a01 ) = 'oc_a01' chem_desc_table( idomain, P_oc_a01 ) = 'Organic carbon, aerosol bin 01' chem_units_table( idomain, P_oc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a01 )%stream(2) = 2097216 F_oc_a01 = .TRUE. IF ( chem_index_table( PARAM_bc_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a01 = chem_num_table(idomain) chem_index_table( PARAM_bc_a01 , idomain ) = P_bc_a01 ELSE P_bc_a01 = chem_index_table( PARAM_bc_a01 , idomain ) END IF chem_boundary_table( idomain, P_bc_a01 ) = .TRUE. chem_dname_table( idomain, P_bc_a01 ) = 'bc_a01' chem_desc_table( idomain, P_bc_a01 ) = 'Black carbon, aerosol bin 01' chem_units_table( idomain, P_bc_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a01 )%stream(2) = 2097216 F_bc_a01 = .TRUE. IF ( chem_index_table( PARAM_hysw_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a01 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a01 , idomain ) = P_hysw_a01 ELSE P_hysw_a01 = chem_index_table( PARAM_hysw_a01 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a01 ) = .TRUE. chem_dname_table( idomain, P_hysw_a01 ) = 'hysw_a01' chem_desc_table( idomain, P_hysw_a01 ) = 'Hysteresis water, aerosol bin 01' chem_units_table( idomain, P_hysw_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a01 )%stream(2) = 2097216 F_hysw_a01 = .TRUE. IF ( chem_index_table( PARAM_water_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a01 = chem_num_table(idomain) chem_index_table( PARAM_water_a01 , idomain ) = P_water_a01 ELSE P_water_a01 = chem_index_table( PARAM_water_a01 , idomain ) END IF chem_boundary_table( idomain, P_water_a01 ) = .TRUE. chem_dname_table( idomain, P_water_a01 ) = 'water_a01' chem_desc_table( idomain, P_water_a01 ) = 'Water, aerosol bin 01' chem_units_table( idomain, P_water_a01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a01 )%stream(2) = 2097216 F_water_a01 = .TRUE. IF ( chem_index_table( PARAM_num_a01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a01 = chem_num_table(idomain) chem_index_table( PARAM_num_a01 , idomain ) = P_num_a01 ELSE P_num_a01 = chem_index_table( PARAM_num_a01 , idomain ) END IF chem_boundary_table( idomain, P_num_a01 ) = .TRUE. chem_dname_table( idomain, P_num_a01 ) = 'num_a01' chem_desc_table( idomain, P_num_a01 ) = 'Number, aerosol bin 01' chem_units_table( idomain, P_num_a01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a01 )%stream(2) = 2097216 F_num_a01 = .TRUE. IF ( chem_index_table( PARAM_so4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a02 = chem_num_table(idomain) chem_index_table( PARAM_so4_a02 , idomain ) = P_so4_a02 ELSE P_so4_a02 = chem_index_table( PARAM_so4_a02 , idomain ) END IF chem_boundary_table( idomain, P_so4_a02 ) = .TRUE. chem_dname_table( idomain, P_so4_a02 ) = 'so4_a02' chem_desc_table( idomain, P_so4_a02 ) = 'Sulfate, aerosol bin 02' chem_units_table( idomain, P_so4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a02 )%stream(2) = 2097216 F_so4_a02 = .TRUE. IF ( chem_index_table( PARAM_no3_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a02 = chem_num_table(idomain) chem_index_table( PARAM_no3_a02 , idomain ) = P_no3_a02 ELSE P_no3_a02 = chem_index_table( PARAM_no3_a02 , idomain ) END IF chem_boundary_table( idomain, P_no3_a02 ) = .TRUE. chem_dname_table( idomain, P_no3_a02 ) = 'no3_a02' chem_desc_table( idomain, P_no3_a02 ) = 'Nitrate, aerosol bin 02' chem_units_table( idomain, P_no3_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a02 )%stream(2) = 2097216 F_no3_a02 = .TRUE. IF ( chem_index_table( PARAM_cl_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a02 = chem_num_table(idomain) chem_index_table( PARAM_cl_a02 , idomain ) = P_cl_a02 ELSE P_cl_a02 = chem_index_table( PARAM_cl_a02 , idomain ) END IF chem_boundary_table( idomain, P_cl_a02 ) = .TRUE. chem_dname_table( idomain, P_cl_a02 ) = 'cl_a02' chem_desc_table( idomain, P_cl_a02 ) = 'Chloride, aerosol bin 02' chem_units_table( idomain, P_cl_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a02 )%stream(2) = 2097216 F_cl_a02 = .TRUE. IF ( chem_index_table( PARAM_nh4_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a02 , idomain ) = P_nh4_a02 ELSE P_nh4_a02 = chem_index_table( PARAM_nh4_a02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a02 ) = .TRUE. chem_dname_table( idomain, P_nh4_a02 ) = 'nh4_a02' chem_desc_table( idomain, P_nh4_a02 ) = 'Ammonium, aerosol bin 02' chem_units_table( idomain, P_nh4_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a02 )%stream(2) = 2097216 F_nh4_a02 = .TRUE. IF ( chem_index_table( PARAM_na_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a02 = chem_num_table(idomain) chem_index_table( PARAM_na_a02 , idomain ) = P_na_a02 ELSE P_na_a02 = chem_index_table( PARAM_na_a02 , idomain ) END IF chem_boundary_table( idomain, P_na_a02 ) = .TRUE. chem_dname_table( idomain, P_na_a02 ) = 'na_a02' chem_desc_table( idomain, P_na_a02 ) = 'Sodium, aerosol bin 02' chem_units_table( idomain, P_na_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a02 )%stream(2) = 2097216 F_na_a02 = .TRUE. IF ( chem_index_table( PARAM_oin_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a02 = chem_num_table(idomain) chem_index_table( PARAM_oin_a02 , idomain ) = P_oin_a02 ELSE P_oin_a02 = chem_index_table( PARAM_oin_a02 , idomain ) END IF chem_boundary_table( idomain, P_oin_a02 ) = .TRUE. chem_dname_table( idomain, P_oin_a02 ) = 'oin_a02' chem_desc_table( idomain, P_oin_a02 ) = 'Other inorganics, aerosol bin 02' chem_units_table( idomain, P_oin_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a02 )%stream(2) = 2097216 F_oin_a02 = .TRUE. IF ( chem_index_table( PARAM_oc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a02 = chem_num_table(idomain) chem_index_table( PARAM_oc_a02 , idomain ) = P_oc_a02 ELSE P_oc_a02 = chem_index_table( PARAM_oc_a02 , idomain ) END IF chem_boundary_table( idomain, P_oc_a02 ) = .TRUE. chem_dname_table( idomain, P_oc_a02 ) = 'oc_a02' chem_desc_table( idomain, P_oc_a02 ) = 'Organic carbon, aerosol bin 02' chem_units_table( idomain, P_oc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a02 )%stream(2) = 2097216 F_oc_a02 = .TRUE. IF ( chem_index_table( PARAM_bc_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a02 = chem_num_table(idomain) chem_index_table( PARAM_bc_a02 , idomain ) = P_bc_a02 ELSE P_bc_a02 = chem_index_table( PARAM_bc_a02 , idomain ) END IF chem_boundary_table( idomain, P_bc_a02 ) = .TRUE. chem_dname_table( idomain, P_bc_a02 ) = 'bc_a02' chem_desc_table( idomain, P_bc_a02 ) = 'Black carbon, aerosol bin 02' chem_units_table( idomain, P_bc_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a02 )%stream(2) = 2097216 F_bc_a02 = .TRUE. IF ( chem_index_table( PARAM_hysw_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a02 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a02 , idomain ) = P_hysw_a02 ELSE P_hysw_a02 = chem_index_table( PARAM_hysw_a02 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a02 ) = .TRUE. chem_dname_table( idomain, P_hysw_a02 ) = 'hysw_a02' chem_desc_table( idomain, P_hysw_a02 ) = 'Hysteresis water, aerosol bin 02' chem_units_table( idomain, P_hysw_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a02 )%stream(2) = 2097216 F_hysw_a02 = .TRUE. IF ( chem_index_table( PARAM_water_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a02 = chem_num_table(idomain) chem_index_table( PARAM_water_a02 , idomain ) = P_water_a02 ELSE P_water_a02 = chem_index_table( PARAM_water_a02 , idomain ) END IF chem_boundary_table( idomain, P_water_a02 ) = .TRUE. chem_dname_table( idomain, P_water_a02 ) = 'water_a02' chem_desc_table( idomain, P_water_a02 ) = 'Water, aerosol bin 02' chem_units_table( idomain, P_water_a02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a02 )%stream(2) = 2097216 F_water_a02 = .TRUE. IF ( chem_index_table( PARAM_num_a02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a02 = chem_num_table(idomain) chem_index_table( PARAM_num_a02 , idomain ) = P_num_a02 ELSE P_num_a02 = chem_index_table( PARAM_num_a02 , idomain ) END IF chem_boundary_table( idomain, P_num_a02 ) = .TRUE. chem_dname_table( idomain, P_num_a02 ) = 'num_a02' chem_desc_table( idomain, P_num_a02 ) = 'Number, aerosol bin 02' chem_units_table( idomain, P_num_a02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a02 )%stream(2) = 2097216 F_num_a02 = .TRUE. IF ( chem_index_table( PARAM_so4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a03 = chem_num_table(idomain) chem_index_table( PARAM_so4_a03 , idomain ) = P_so4_a03 ELSE P_so4_a03 = chem_index_table( PARAM_so4_a03 , idomain ) END IF chem_boundary_table( idomain, P_so4_a03 ) = .TRUE. chem_dname_table( idomain, P_so4_a03 ) = 'so4_a03' chem_desc_table( idomain, P_so4_a03 ) = 'Sulfate, aerosol bin 03' chem_units_table( idomain, P_so4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a03 )%stream(2) = 2097216 F_so4_a03 = .TRUE. IF ( chem_index_table( PARAM_no3_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a03 = chem_num_table(idomain) chem_index_table( PARAM_no3_a03 , idomain ) = P_no3_a03 ELSE P_no3_a03 = chem_index_table( PARAM_no3_a03 , idomain ) END IF chem_boundary_table( idomain, P_no3_a03 ) = .TRUE. chem_dname_table( idomain, P_no3_a03 ) = 'no3_a03' chem_desc_table( idomain, P_no3_a03 ) = 'Nitrate, aerosol bin 03' chem_units_table( idomain, P_no3_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a03 )%stream(2) = 2097216 F_no3_a03 = .TRUE. IF ( chem_index_table( PARAM_cl_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a03 = chem_num_table(idomain) chem_index_table( PARAM_cl_a03 , idomain ) = P_cl_a03 ELSE P_cl_a03 = chem_index_table( PARAM_cl_a03 , idomain ) END IF chem_boundary_table( idomain, P_cl_a03 ) = .TRUE. chem_dname_table( idomain, P_cl_a03 ) = 'cl_a03' chem_desc_table( idomain, P_cl_a03 ) = 'Chloride, aerosol bin 03' chem_units_table( idomain, P_cl_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a03 )%stream(2) = 2097216 F_cl_a03 = .TRUE. IF ( chem_index_table( PARAM_nh4_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a03 , idomain ) = P_nh4_a03 ELSE P_nh4_a03 = chem_index_table( PARAM_nh4_a03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a03 ) = .TRUE. chem_dname_table( idomain, P_nh4_a03 ) = 'nh4_a03' chem_desc_table( idomain, P_nh4_a03 ) = 'Ammonium, aerosol bin 03' chem_units_table( idomain, P_nh4_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a03 )%stream(2) = 2097216 F_nh4_a03 = .TRUE. IF ( chem_index_table( PARAM_na_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a03 = chem_num_table(idomain) chem_index_table( PARAM_na_a03 , idomain ) = P_na_a03 ELSE P_na_a03 = chem_index_table( PARAM_na_a03 , idomain ) END IF chem_boundary_table( idomain, P_na_a03 ) = .TRUE. chem_dname_table( idomain, P_na_a03 ) = 'na_a03' chem_desc_table( idomain, P_na_a03 ) = 'Sodium, aerosol bin 03' chem_units_table( idomain, P_na_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a03 )%stream(2) = 2097216 F_na_a03 = .TRUE. IF ( chem_index_table( PARAM_oin_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a03 = chem_num_table(idomain) chem_index_table( PARAM_oin_a03 , idomain ) = P_oin_a03 ELSE P_oin_a03 = chem_index_table( PARAM_oin_a03 , idomain ) END IF chem_boundary_table( idomain, P_oin_a03 ) = .TRUE. chem_dname_table( idomain, P_oin_a03 ) = 'oin_a03' chem_desc_table( idomain, P_oin_a03 ) = 'Other inorganics, aerosol bin 03' chem_units_table( idomain, P_oin_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a03 )%stream(2) = 2097216 F_oin_a03 = .TRUE. IF ( chem_index_table( PARAM_oc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a03 = chem_num_table(idomain) chem_index_table( PARAM_oc_a03 , idomain ) = P_oc_a03 ELSE P_oc_a03 = chem_index_table( PARAM_oc_a03 , idomain ) END IF chem_boundary_table( idomain, P_oc_a03 ) = .TRUE. chem_dname_table( idomain, P_oc_a03 ) = 'oc_a03' chem_desc_table( idomain, P_oc_a03 ) = 'Organic carbon, aerosol bin 03' chem_units_table( idomain, P_oc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a03 )%stream(2) = 2097216 F_oc_a03 = .TRUE. IF ( chem_index_table( PARAM_bc_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a03 = chem_num_table(idomain) chem_index_table( PARAM_bc_a03 , idomain ) = P_bc_a03 ELSE P_bc_a03 = chem_index_table( PARAM_bc_a03 , idomain ) END IF chem_boundary_table( idomain, P_bc_a03 ) = .TRUE. chem_dname_table( idomain, P_bc_a03 ) = 'bc_a03' chem_desc_table( idomain, P_bc_a03 ) = 'Black carbon, aerosol bin 03' chem_units_table( idomain, P_bc_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a03 )%stream(2) = 2097216 F_bc_a03 = .TRUE. IF ( chem_index_table( PARAM_hysw_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a03 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a03 , idomain ) = P_hysw_a03 ELSE P_hysw_a03 = chem_index_table( PARAM_hysw_a03 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a03 ) = .TRUE. chem_dname_table( idomain, P_hysw_a03 ) = 'hysw_a03' chem_desc_table( idomain, P_hysw_a03 ) = 'Hysteresis water, aerosol bin 03' chem_units_table( idomain, P_hysw_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a03 )%stream(2) = 2097216 F_hysw_a03 = .TRUE. IF ( chem_index_table( PARAM_water_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a03 = chem_num_table(idomain) chem_index_table( PARAM_water_a03 , idomain ) = P_water_a03 ELSE P_water_a03 = chem_index_table( PARAM_water_a03 , idomain ) END IF chem_boundary_table( idomain, P_water_a03 ) = .TRUE. chem_dname_table( idomain, P_water_a03 ) = 'water_a03' chem_desc_table( idomain, P_water_a03 ) = 'Water, aerosol bin 03' chem_units_table( idomain, P_water_a03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a03 )%stream(2) = 2097216 F_water_a03 = .TRUE. IF ( chem_index_table( PARAM_num_a03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a03 = chem_num_table(idomain) chem_index_table( PARAM_num_a03 , idomain ) = P_num_a03 ELSE P_num_a03 = chem_index_table( PARAM_num_a03 , idomain ) END IF chem_boundary_table( idomain, P_num_a03 ) = .TRUE. chem_dname_table( idomain, P_num_a03 ) = 'num_a03' chem_desc_table( idomain, P_num_a03 ) = 'Number, aerosol bin 03' chem_units_table( idomain, P_num_a03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a03 )%stream(2) = 2097216 F_num_a03 = .TRUE. IF ( chem_index_table( PARAM_so4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_a04 = chem_num_table(idomain) chem_index_table( PARAM_so4_a04 , idomain ) = P_so4_a04 ELSE P_so4_a04 = chem_index_table( PARAM_so4_a04 , idomain ) END IF chem_boundary_table( idomain, P_so4_a04 ) = .TRUE. chem_dname_table( idomain, P_so4_a04 ) = 'so4_a04' chem_desc_table( idomain, P_so4_a04 ) = 'Sulfate, aerosol bin 04' chem_units_table( idomain, P_so4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_a04 )%stream(2) = 2097216 F_so4_a04 = .TRUE. IF ( chem_index_table( PARAM_no3_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_a04 = chem_num_table(idomain) chem_index_table( PARAM_no3_a04 , idomain ) = P_no3_a04 ELSE P_no3_a04 = chem_index_table( PARAM_no3_a04 , idomain ) END IF chem_boundary_table( idomain, P_no3_a04 ) = .TRUE. chem_dname_table( idomain, P_no3_a04 ) = 'no3_a04' chem_desc_table( idomain, P_no3_a04 ) = 'Nitrate, aerosol bin 04' chem_units_table( idomain, P_no3_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_a04 )%stream(2) = 2097216 F_no3_a04 = .TRUE. IF ( chem_index_table( PARAM_cl_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_a04 = chem_num_table(idomain) chem_index_table( PARAM_cl_a04 , idomain ) = P_cl_a04 ELSE P_cl_a04 = chem_index_table( PARAM_cl_a04 , idomain ) END IF chem_boundary_table( idomain, P_cl_a04 ) = .TRUE. chem_dname_table( idomain, P_cl_a04 ) = 'cl_a04' chem_desc_table( idomain, P_cl_a04 ) = 'Chloride, aerosol bin 04' chem_units_table( idomain, P_cl_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_a04 )%stream(2) = 2097216 F_cl_a04 = .TRUE. IF ( chem_index_table( PARAM_nh4_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_a04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_a04 , idomain ) = P_nh4_a04 ELSE P_nh4_a04 = chem_index_table( PARAM_nh4_a04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_a04 ) = .TRUE. chem_dname_table( idomain, P_nh4_a04 ) = 'nh4_a04' chem_desc_table( idomain, P_nh4_a04 ) = 'Ammonium, aerosol bin 04' chem_units_table( idomain, P_nh4_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_a04 )%stream(2) = 2097216 F_nh4_a04 = .TRUE. IF ( chem_index_table( PARAM_na_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_a04 = chem_num_table(idomain) chem_index_table( PARAM_na_a04 , idomain ) = P_na_a04 ELSE P_na_a04 = chem_index_table( PARAM_na_a04 , idomain ) END IF chem_boundary_table( idomain, P_na_a04 ) = .TRUE. chem_dname_table( idomain, P_na_a04 ) = 'na_a04' chem_desc_table( idomain, P_na_a04 ) = 'Sodium, aerosol bin 04' chem_units_table( idomain, P_na_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_a04 )%stream(2) = 2097216 F_na_a04 = .TRUE. IF ( chem_index_table( PARAM_oin_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_a04 = chem_num_table(idomain) chem_index_table( PARAM_oin_a04 , idomain ) = P_oin_a04 ELSE P_oin_a04 = chem_index_table( PARAM_oin_a04 , idomain ) END IF chem_boundary_table( idomain, P_oin_a04 ) = .TRUE. chem_dname_table( idomain, P_oin_a04 ) = 'oin_a04' chem_desc_table( idomain, P_oin_a04 ) = 'Other inorganics, aerosol bin 04' chem_units_table( idomain, P_oin_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_a04 )%stream(2) = 2097216 F_oin_a04 = .TRUE. IF ( chem_index_table( PARAM_oc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_a04 = chem_num_table(idomain) chem_index_table( PARAM_oc_a04 , idomain ) = P_oc_a04 ELSE P_oc_a04 = chem_index_table( PARAM_oc_a04 , idomain ) END IF chem_boundary_table( idomain, P_oc_a04 ) = .TRUE. chem_dname_table( idomain, P_oc_a04 ) = 'oc_a04' chem_desc_table( idomain, P_oc_a04 ) = 'Organic carbon, aerosol bin 04' chem_units_table( idomain, P_oc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_a04 )%stream(2) = 2097216 F_oc_a04 = .TRUE. IF ( chem_index_table( PARAM_bc_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_a04 = chem_num_table(idomain) chem_index_table( PARAM_bc_a04 , idomain ) = P_bc_a04 ELSE P_bc_a04 = chem_index_table( PARAM_bc_a04 , idomain ) END IF chem_boundary_table( idomain, P_bc_a04 ) = .TRUE. chem_dname_table( idomain, P_bc_a04 ) = 'bc_a04' chem_desc_table( idomain, P_bc_a04 ) = 'Black carbon, aerosol bin 04' chem_units_table( idomain, P_bc_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_a04 )%stream(2) = 2097216 F_bc_a04 = .TRUE. IF ( chem_index_table( PARAM_hysw_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_hysw_a04 = chem_num_table(idomain) chem_index_table( PARAM_hysw_a04 , idomain ) = P_hysw_a04 ELSE P_hysw_a04 = chem_index_table( PARAM_hysw_a04 , idomain ) END IF chem_boundary_table( idomain, P_hysw_a04 ) = .TRUE. chem_dname_table( idomain, P_hysw_a04 ) = 'hysw_a04' chem_desc_table( idomain, P_hysw_a04 ) = 'Hysteresis water, aerosol bin 04' chem_units_table( idomain, P_hysw_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_hysw_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_hysw_a04 )%stream(2) = 2097216 F_hysw_a04 = .TRUE. IF ( chem_index_table( PARAM_water_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_water_a04 = chem_num_table(idomain) chem_index_table( PARAM_water_a04 , idomain ) = P_water_a04 ELSE P_water_a04 = chem_index_table( PARAM_water_a04 , idomain ) END IF chem_boundary_table( idomain, P_water_a04 ) = .TRUE. chem_dname_table( idomain, P_water_a04 ) = 'water_a04' chem_desc_table( idomain, P_water_a04 ) = 'Water, aerosol bin 04' chem_units_table( idomain, P_water_a04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_water_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_water_a04 )%stream(2) = 2097216 F_water_a04 = .TRUE. IF ( chem_index_table( PARAM_num_a04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_a04 = chem_num_table(idomain) chem_index_table( PARAM_num_a04 , idomain ) = P_num_a04 ELSE P_num_a04 = chem_index_table( PARAM_num_a04 , idomain ) END IF chem_boundary_table( idomain, P_num_a04 ) = .TRUE. chem_dname_table( idomain, P_num_a04 ) = 'num_a04' chem_desc_table( idomain, P_num_a04 ) = 'Number, aerosol bin 04' chem_units_table( idomain, P_num_a04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_a04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_a04 )%stream(2) = 2097216 F_num_a04 = .TRUE. IF ( chem_index_table( PARAM_so4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw01 , idomain ) = P_so4_cw01 ELSE P_so4_cw01 = chem_index_table( PARAM_so4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw01 ) = .TRUE. chem_dname_table( idomain, P_so4_cw01 ) = 'so4_cw01' chem_desc_table( idomain, P_so4_cw01 ) = 'Sulfate, aerosol in cloud bin 01' chem_units_table( idomain, P_so4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw01 )%stream(2) = 2097216 F_so4_cw01 = .TRUE. IF ( chem_index_table( PARAM_no3_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw01 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw01 , idomain ) = P_no3_cw01 ELSE P_no3_cw01 = chem_index_table( PARAM_no3_cw01 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw01 ) = .TRUE. chem_dname_table( idomain, P_no3_cw01 ) = 'no3_cw01' chem_desc_table( idomain, P_no3_cw01 ) = 'Nitrate, aerosol in cloud bin 01' chem_units_table( idomain, P_no3_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw01 )%stream(2) = 2097216 F_no3_cw01 = .TRUE. IF ( chem_index_table( PARAM_cl_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw01 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw01 , idomain ) = P_cl_cw01 ELSE P_cl_cw01 = chem_index_table( PARAM_cl_cw01 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw01 ) = .TRUE. chem_dname_table( idomain, P_cl_cw01 ) = 'cl_cw01' chem_desc_table( idomain, P_cl_cw01 ) = 'Chloride, aerosol in cloud bin 01' chem_units_table( idomain, P_cl_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw01 )%stream(2) = 2097216 F_cl_cw01 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw01 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw01 , idomain ) = P_nh4_cw01 ELSE P_nh4_cw01 = chem_index_table( PARAM_nh4_cw01 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw01 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw01 ) = 'nh4_cw01' chem_desc_table( idomain, P_nh4_cw01 ) = 'Ammonium, aerosol in cloud bin 01' chem_units_table( idomain, P_nh4_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw01 )%stream(2) = 2097216 F_nh4_cw01 = .TRUE. IF ( chem_index_table( PARAM_na_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw01 = chem_num_table(idomain) chem_index_table( PARAM_na_cw01 , idomain ) = P_na_cw01 ELSE P_na_cw01 = chem_index_table( PARAM_na_cw01 , idomain ) END IF chem_boundary_table( idomain, P_na_cw01 ) = .TRUE. chem_dname_table( idomain, P_na_cw01 ) = 'na_cw01' chem_desc_table( idomain, P_na_cw01 ) = 'Sodium, aerosol in cloud bin 01' chem_units_table( idomain, P_na_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw01 )%stream(2) = 2097216 F_na_cw01 = .TRUE. IF ( chem_index_table( PARAM_oin_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw01 , idomain ) = P_oin_cw01 ELSE P_oin_cw01 = chem_index_table( PARAM_oin_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw01 ) = .TRUE. chem_dname_table( idomain, P_oin_cw01 ) = 'oin_cw01' chem_desc_table( idomain, P_oin_cw01 ) = 'Other inorganics, aerosol in cloud bin 01' chem_units_table( idomain, P_oin_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw01 )%stream(2) = 2097216 F_oin_cw01 = .TRUE. IF ( chem_index_table( PARAM_oc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw01 , idomain ) = P_oc_cw01 ELSE P_oc_cw01 = chem_index_table( PARAM_oc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw01 ) = .TRUE. chem_dname_table( idomain, P_oc_cw01 ) = 'oc_cw01' chem_desc_table( idomain, P_oc_cw01 ) = 'Organic carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_oc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw01 )%stream(2) = 2097216 F_oc_cw01 = .TRUE. IF ( chem_index_table( PARAM_bc_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw01 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw01 , idomain ) = P_bc_cw01 ELSE P_bc_cw01 = chem_index_table( PARAM_bc_cw01 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw01 ) = .TRUE. chem_dname_table( idomain, P_bc_cw01 ) = 'bc_cw01' chem_desc_table( idomain, P_bc_cw01 ) = 'Black carbon, aerosol in cloud bin 01' chem_units_table( idomain, P_bc_cw01 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw01 )%stream(2) = 2097216 F_bc_cw01 = .TRUE. IF ( chem_index_table( PARAM_num_cw01 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw01 = chem_num_table(idomain) chem_index_table( PARAM_num_cw01 , idomain ) = P_num_cw01 ELSE P_num_cw01 = chem_index_table( PARAM_num_cw01 , idomain ) END IF chem_boundary_table( idomain, P_num_cw01 ) = .TRUE. chem_dname_table( idomain, P_num_cw01 ) = 'num_cw01' chem_desc_table( idomain, P_num_cw01 ) = 'Number, aerosol in cloud bin 01' chem_units_table( idomain, P_num_cw01 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw01 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw01 )%stream(2) = 2097216 F_num_cw01 = .TRUE. IF ( chem_index_table( PARAM_so4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw02 , idomain ) = P_so4_cw02 ELSE P_so4_cw02 = chem_index_table( PARAM_so4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw02 ) = .TRUE. chem_dname_table( idomain, P_so4_cw02 ) = 'so4_cw02' chem_desc_table( idomain, P_so4_cw02 ) = 'Sulfate, aerosol in cloud bin 02' chem_units_table( idomain, P_so4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw02 )%stream(2) = 2097216 F_so4_cw02 = .TRUE. IF ( chem_index_table( PARAM_no3_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw02 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw02 , idomain ) = P_no3_cw02 ELSE P_no3_cw02 = chem_index_table( PARAM_no3_cw02 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw02 ) = .TRUE. chem_dname_table( idomain, P_no3_cw02 ) = 'no3_cw02' chem_desc_table( idomain, P_no3_cw02 ) = 'Nitrate, aerosol in cloud bin 02' chem_units_table( idomain, P_no3_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw02 )%stream(2) = 2097216 F_no3_cw02 = .TRUE. IF ( chem_index_table( PARAM_cl_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw02 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw02 , idomain ) = P_cl_cw02 ELSE P_cl_cw02 = chem_index_table( PARAM_cl_cw02 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw02 ) = .TRUE. chem_dname_table( idomain, P_cl_cw02 ) = 'cl_cw02' chem_desc_table( idomain, P_cl_cw02 ) = 'Chloride, aerosol in cloud bin 02' chem_units_table( idomain, P_cl_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw02 )%stream(2) = 2097216 F_cl_cw02 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw02 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw02 , idomain ) = P_nh4_cw02 ELSE P_nh4_cw02 = chem_index_table( PARAM_nh4_cw02 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw02 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw02 ) = 'nh4_cw02' chem_desc_table( idomain, P_nh4_cw02 ) = 'Ammonium, aerosol in cloud bin 02' chem_units_table( idomain, P_nh4_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw02 )%stream(2) = 2097216 F_nh4_cw02 = .TRUE. IF ( chem_index_table( PARAM_na_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw02 = chem_num_table(idomain) chem_index_table( PARAM_na_cw02 , idomain ) = P_na_cw02 ELSE P_na_cw02 = chem_index_table( PARAM_na_cw02 , idomain ) END IF chem_boundary_table( idomain, P_na_cw02 ) = .TRUE. chem_dname_table( idomain, P_na_cw02 ) = 'na_cw02' chem_desc_table( idomain, P_na_cw02 ) = 'Sodium, aerosol in cloud bin 02' chem_units_table( idomain, P_na_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw02 )%stream(2) = 2097216 F_na_cw02 = .TRUE. IF ( chem_index_table( PARAM_oin_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw02 , idomain ) = P_oin_cw02 ELSE P_oin_cw02 = chem_index_table( PARAM_oin_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw02 ) = .TRUE. chem_dname_table( idomain, P_oin_cw02 ) = 'oin_cw02' chem_desc_table( idomain, P_oin_cw02 ) = 'Other inorganics, aerosol in cloud bin 02' chem_units_table( idomain, P_oin_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw02 )%stream(2) = 2097216 F_oin_cw02 = .TRUE. IF ( chem_index_table( PARAM_oc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw02 , idomain ) = P_oc_cw02 ELSE P_oc_cw02 = chem_index_table( PARAM_oc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw02 ) = .TRUE. chem_dname_table( idomain, P_oc_cw02 ) = 'oc_cw02' chem_desc_table( idomain, P_oc_cw02 ) = 'Organic carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_oc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw02 )%stream(2) = 2097216 F_oc_cw02 = .TRUE. IF ( chem_index_table( PARAM_bc_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw02 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw02 , idomain ) = P_bc_cw02 ELSE P_bc_cw02 = chem_index_table( PARAM_bc_cw02 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw02 ) = .TRUE. chem_dname_table( idomain, P_bc_cw02 ) = 'bc_cw02' chem_desc_table( idomain, P_bc_cw02 ) = 'Black carbon, aerosol in cloud bin 02' chem_units_table( idomain, P_bc_cw02 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw02 )%stream(2) = 2097216 F_bc_cw02 = .TRUE. IF ( chem_index_table( PARAM_num_cw02 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw02 = chem_num_table(idomain) chem_index_table( PARAM_num_cw02 , idomain ) = P_num_cw02 ELSE P_num_cw02 = chem_index_table( PARAM_num_cw02 , idomain ) END IF chem_boundary_table( idomain, P_num_cw02 ) = .TRUE. chem_dname_table( idomain, P_num_cw02 ) = 'num_cw02' chem_desc_table( idomain, P_num_cw02 ) = 'Number, aerosol in cloud bin 02' chem_units_table( idomain, P_num_cw02 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw02 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw02 )%stream(2) = 2097216 F_num_cw02 = .TRUE. IF ( chem_index_table( PARAM_so4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw03 , idomain ) = P_so4_cw03 ELSE P_so4_cw03 = chem_index_table( PARAM_so4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw03 ) = .TRUE. chem_dname_table( idomain, P_so4_cw03 ) = 'so4_cw03' chem_desc_table( idomain, P_so4_cw03 ) = 'Sulfate, aerosol in cloud bin 03' chem_units_table( idomain, P_so4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw03 )%stream(2) = 2097216 F_so4_cw03 = .TRUE. IF ( chem_index_table( PARAM_no3_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw03 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw03 , idomain ) = P_no3_cw03 ELSE P_no3_cw03 = chem_index_table( PARAM_no3_cw03 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw03 ) = .TRUE. chem_dname_table( idomain, P_no3_cw03 ) = 'no3_cw03' chem_desc_table( idomain, P_no3_cw03 ) = 'Nitrate, aerosol in cloud bin 03' chem_units_table( idomain, P_no3_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw03 )%stream(2) = 2097216 F_no3_cw03 = .TRUE. IF ( chem_index_table( PARAM_cl_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw03 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw03 , idomain ) = P_cl_cw03 ELSE P_cl_cw03 = chem_index_table( PARAM_cl_cw03 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw03 ) = .TRUE. chem_dname_table( idomain, P_cl_cw03 ) = 'cl_cw03' chem_desc_table( idomain, P_cl_cw03 ) = 'Chloride, aerosol in cloud bin 03' chem_units_table( idomain, P_cl_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw03 )%stream(2) = 2097216 F_cl_cw03 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw03 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw03 , idomain ) = P_nh4_cw03 ELSE P_nh4_cw03 = chem_index_table( PARAM_nh4_cw03 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw03 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw03 ) = 'nh4_cw03' chem_desc_table( idomain, P_nh4_cw03 ) = 'Ammonium, aerosol in cloud bin 03' chem_units_table( idomain, P_nh4_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw03 )%stream(2) = 2097216 F_nh4_cw03 = .TRUE. IF ( chem_index_table( PARAM_na_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw03 = chem_num_table(idomain) chem_index_table( PARAM_na_cw03 , idomain ) = P_na_cw03 ELSE P_na_cw03 = chem_index_table( PARAM_na_cw03 , idomain ) END IF chem_boundary_table( idomain, P_na_cw03 ) = .TRUE. chem_dname_table( idomain, P_na_cw03 ) = 'na_cw03' chem_desc_table( idomain, P_na_cw03 ) = 'Sodium, aerosol in cloud bin 03' chem_units_table( idomain, P_na_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw03 )%stream(2) = 2097216 F_na_cw03 = .TRUE. IF ( chem_index_table( PARAM_oin_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw03 , idomain ) = P_oin_cw03 ELSE P_oin_cw03 = chem_index_table( PARAM_oin_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw03 ) = .TRUE. chem_dname_table( idomain, P_oin_cw03 ) = 'oin_cw03' chem_desc_table( idomain, P_oin_cw03 ) = 'Other inorganics, aerosol in cloud bin 03' chem_units_table( idomain, P_oin_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw03 )%stream(2) = 2097216 F_oin_cw03 = .TRUE. IF ( chem_index_table( PARAM_oc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw03 , idomain ) = P_oc_cw03 ELSE P_oc_cw03 = chem_index_table( PARAM_oc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw03 ) = .TRUE. chem_dname_table( idomain, P_oc_cw03 ) = 'oc_cw03' chem_desc_table( idomain, P_oc_cw03 ) = 'Organic carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_oc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw03 )%stream(2) = 2097216 F_oc_cw03 = .TRUE. IF ( chem_index_table( PARAM_bc_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw03 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw03 , idomain ) = P_bc_cw03 ELSE P_bc_cw03 = chem_index_table( PARAM_bc_cw03 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw03 ) = .TRUE. chem_dname_table( idomain, P_bc_cw03 ) = 'bc_cw03' chem_desc_table( idomain, P_bc_cw03 ) = 'Black carbon, aerosol in cloud bin 03' chem_units_table( idomain, P_bc_cw03 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw03 )%stream(2) = 2097216 F_bc_cw03 = .TRUE. IF ( chem_index_table( PARAM_num_cw03 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw03 = chem_num_table(idomain) chem_index_table( PARAM_num_cw03 , idomain ) = P_num_cw03 ELSE P_num_cw03 = chem_index_table( PARAM_num_cw03 , idomain ) END IF chem_boundary_table( idomain, P_num_cw03 ) = .TRUE. chem_dname_table( idomain, P_num_cw03 ) = 'num_cw03' chem_desc_table( idomain, P_num_cw03 ) = 'Number, aerosol in cloud bin 03' chem_units_table( idomain, P_num_cw03 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw03 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw03 )%stream(2) = 2097216 F_num_cw03 = .TRUE. IF ( chem_index_table( PARAM_so4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_so4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_so4_cw04 , idomain ) = P_so4_cw04 ELSE P_so4_cw04 = chem_index_table( PARAM_so4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_so4_cw04 ) = .TRUE. chem_dname_table( idomain, P_so4_cw04 ) = 'so4_cw04' chem_desc_table( idomain, P_so4_cw04 ) = 'Sulfate, aerosol in cloud bin 04' chem_units_table( idomain, P_so4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_so4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_so4_cw04 )%stream(2) = 2097216 F_so4_cw04 = .TRUE. IF ( chem_index_table( PARAM_no3_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_no3_cw04 = chem_num_table(idomain) chem_index_table( PARAM_no3_cw04 , idomain ) = P_no3_cw04 ELSE P_no3_cw04 = chem_index_table( PARAM_no3_cw04 , idomain ) END IF chem_boundary_table( idomain, P_no3_cw04 ) = .TRUE. chem_dname_table( idomain, P_no3_cw04 ) = 'no3_cw04' chem_desc_table( idomain, P_no3_cw04 ) = 'Nitrate, aerosol in cloud bin 04' chem_units_table( idomain, P_no3_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_no3_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_no3_cw04 )%stream(2) = 2097216 F_no3_cw04 = .TRUE. IF ( chem_index_table( PARAM_cl_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_cl_cw04 = chem_num_table(idomain) chem_index_table( PARAM_cl_cw04 , idomain ) = P_cl_cw04 ELSE P_cl_cw04 = chem_index_table( PARAM_cl_cw04 , idomain ) END IF chem_boundary_table( idomain, P_cl_cw04 ) = .TRUE. chem_dname_table( idomain, P_cl_cw04 ) = 'cl_cw04' chem_desc_table( idomain, P_cl_cw04 ) = 'Chloride, aerosol in cloud bin 04' chem_units_table( idomain, P_cl_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_cl_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_cl_cw04 )%stream(2) = 2097216 F_cl_cw04 = .TRUE. IF ( chem_index_table( PARAM_nh4_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_nh4_cw04 = chem_num_table(idomain) chem_index_table( PARAM_nh4_cw04 , idomain ) = P_nh4_cw04 ELSE P_nh4_cw04 = chem_index_table( PARAM_nh4_cw04 , idomain ) END IF chem_boundary_table( idomain, P_nh4_cw04 ) = .TRUE. chem_dname_table( idomain, P_nh4_cw04 ) = 'nh4_cw04' chem_desc_table( idomain, P_nh4_cw04 ) = 'Ammonium, aerosol in cloud bin 04' chem_units_table( idomain, P_nh4_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_nh4_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_nh4_cw04 )%stream(2) = 2097216 F_nh4_cw04 = .TRUE. IF ( chem_index_table( PARAM_na_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_na_cw04 = chem_num_table(idomain) chem_index_table( PARAM_na_cw04 , idomain ) = P_na_cw04 ELSE P_na_cw04 = chem_index_table( PARAM_na_cw04 , idomain ) END IF chem_boundary_table( idomain, P_na_cw04 ) = .TRUE. chem_dname_table( idomain, P_na_cw04 ) = 'na_cw04' chem_desc_table( idomain, P_na_cw04 ) = 'Sodium, aerosol in cloud bin 04' chem_units_table( idomain, P_na_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_na_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_na_cw04 )%stream(2) = 2097216 F_na_cw04 = .TRUE. IF ( chem_index_table( PARAM_oin_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oin_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oin_cw04 , idomain ) = P_oin_cw04 ELSE P_oin_cw04 = chem_index_table( PARAM_oin_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oin_cw04 ) = .TRUE. chem_dname_table( idomain, P_oin_cw04 ) = 'oin_cw04' chem_desc_table( idomain, P_oin_cw04 ) = 'Other inorganics, aerosol in cloud bin 04' chem_units_table( idomain, P_oin_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oin_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oin_cw04 )%stream(2) = 2097216 F_oin_cw04 = .TRUE. IF ( chem_index_table( PARAM_oc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_oc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_oc_cw04 , idomain ) = P_oc_cw04 ELSE P_oc_cw04 = chem_index_table( PARAM_oc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_oc_cw04 ) = .TRUE. chem_dname_table( idomain, P_oc_cw04 ) = 'oc_cw04' chem_desc_table( idomain, P_oc_cw04 ) = 'Organic carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_oc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_oc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_oc_cw04 )%stream(2) = 2097216 F_oc_cw04 = .TRUE. IF ( chem_index_table( PARAM_bc_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_bc_cw04 = chem_num_table(idomain) chem_index_table( PARAM_bc_cw04 , idomain ) = P_bc_cw04 ELSE P_bc_cw04 = chem_index_table( PARAM_bc_cw04 , idomain ) END IF chem_boundary_table( idomain, P_bc_cw04 ) = .TRUE. chem_dname_table( idomain, P_bc_cw04 ) = 'bc_cw04' chem_desc_table( idomain, P_bc_cw04 ) = 'Black carbon, aerosol in cloud bin 04' chem_units_table( idomain, P_bc_cw04 ) = 'ug/kg-dryair' chem_streams_table( idomain, P_bc_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_bc_cw04 )%stream(2) = 2097216 F_bc_cw04 = .TRUE. IF ( chem_index_table( PARAM_num_cw04 , idomain ) .lt. 1 ) THEN chem_num_table(idomain) = chem_num_table(idomain) + 1 P_num_cw04 = chem_num_table(idomain) chem_index_table( PARAM_num_cw04 , idomain ) = P_num_cw04 ELSE P_num_cw04 = chem_index_table( PARAM_num_cw04 , idomain ) END IF chem_boundary_table( idomain, P_num_cw04 ) = .TRUE. chem_dname_table( idomain, P_num_cw04 ) = 'num_cw04' chem_desc_table( idomain, P_num_cw04 ) = 'Number, aerosol in cloud bin 04' chem_units_table( idomain, P_num_cw04 ) = ' /kg-dryair' chem_streams_table( idomain, P_num_cw04 )%stream(1) = 33554433 chem_streams_table( idomain, P_num_cw04 )%stream(2) = 2097216 F_num_cw04 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==2)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==3)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 F_e_pm_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_naaj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_naaj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_naaj , idomain ) = P_e_naaj ELSE P_e_naaj = emis_ant_index_table( PARAM_e_naaj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_naaj ) = .FALSE. emis_ant_dname_table( idomain, P_e_naaj ) = 'E_NAAJ' emis_ant_desc_table( idomain, P_e_naaj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_naaj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_naaj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_naaj )%stream(2) = 2097152 F_e_naaj = .TRUE. IF ( emis_ant_index_table( PARAM_e_naai , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_naai = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_naai , idomain ) = P_e_naai ELSE P_e_naai = emis_ant_index_table( PARAM_e_naai , idomain ) END IF emis_ant_boundary_table( idomain, P_e_naai ) = .FALSE. emis_ant_dname_table( idomain, P_e_naai ) = 'E_NAAI' emis_ant_desc_table( idomain, P_e_naai ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_naai ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_naai )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_naai )%stream(2) = 2097152 F_e_naai = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_a , idomain ) = P_e_orgi_a ELSE P_e_orgi_a = emis_ant_index_table( PARAM_e_orgi_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_a ) = 'E_ORGI_A' emis_ant_desc_table( idomain, P_e_orgi_a ) = 'EMISSIONS ORGI_A AER' emis_ant_units_table( idomain, P_e_orgi_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_a )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi_a )%stream(2) = 2097152 F_e_orgi_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_a , idomain ) = P_e_orgj_a ELSE P_e_orgj_a = emis_ant_index_table( PARAM_e_orgj_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_a ) = 'E_ORGJ_A' emis_ant_desc_table( idomain, P_e_orgj_a ) = 'EMISSIONS ORGJ_A AER' emis_ant_units_table( idomain, P_e_orgj_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_a )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj_a )%stream(2) = 2097152 F_e_orgj_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_bb , idomain ) = P_e_orgi_bb ELSE P_e_orgi_bb = emis_ant_index_table( PARAM_e_orgi_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_bb ) = 'E_ORGI_BB' emis_ant_desc_table( idomain, P_e_orgi_bb ) = 'EMISSIONS ORGI_BB AER' emis_ant_units_table( idomain, P_e_orgi_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(2) = 2097152 F_e_orgi_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_bb , idomain ) = P_e_orgj_bb ELSE P_e_orgj_bb = emis_ant_index_table( PARAM_e_orgj_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_bb ) = 'E_ORGJ_BB' emis_ant_desc_table( idomain, P_e_orgj_bb ) = 'EMISSIONS ORGJ_BB AER' emis_ant_units_table( idomain, P_e_orgj_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(2) = 2097152 F_e_orgj_bb = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==4)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4c , idomain ) = P_e_so4c ELSE P_e_so4c = emis_ant_index_table( PARAM_e_so4c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4c ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4c ) = 'E_SO4C' emis_ant_desc_table( idomain, P_e_so4c ) = 'EMISSIONS COARSE SO4 AER' emis_ant_units_table( idomain, P_e_so4c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4c )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4c )%stream(2) = 0 F_e_so4c = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3c , idomain ) = P_e_no3c ELSE P_e_no3c = emis_ant_index_table( PARAM_e_no3c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3c ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3c ) = 'E_NO3C' emis_ant_desc_table( idomain, P_e_no3c ) = 'EMISSIONS COARSE NO3 AER' emis_ant_units_table( idomain, P_e_no3c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3c )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3c )%stream(2) = 0 F_e_no3c = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgc , idomain ) = P_e_orgc ELSE P_e_orgc = emis_ant_index_table( PARAM_e_orgc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgc ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgc ) = 'E_ORGC' emis_ant_desc_table( idomain, P_e_orgc ) = 'EMISSIONS COARSE ORG AER' emis_ant_units_table( idomain, P_e_orgc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgc )%stream(2) = 0 F_e_orgc = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecc , idomain ) = P_e_ecc ELSE P_e_ecc = emis_ant_index_table( PARAM_e_ecc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecc ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecc ) = 'E_ECC' emis_ant_desc_table( idomain, P_e_ecc ) = 'EMISSIONS COARSE EC AER' emis_ant_units_table( idomain, P_e_ecc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecc )%stream(2) = 0 F_e_ecc = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==5)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_25 , idomain ) = P_e_pm_25 ELSE P_e_pm_25 = emis_ant_index_table( PARAM_e_pm_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_25 ) = 'E_PM_25' emis_ant_desc_table( idomain, P_e_pm_25 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_25 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_25 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm_25 )%stream(2) = 2097152 F_e_pm_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 F_e_pm_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc , idomain ) = P_e_oc ELSE P_e_oc = emis_ant_index_table( PARAM_e_oc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc ) = 'E_OC' emis_ant_desc_table( idomain, P_e_oc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_oc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oc )%stream(2) = 0 F_e_oc = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 F_e_sulf = .TRUE. IF ( emis_ant_index_table( PARAM_e_bc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bc , idomain ) = P_e_bc ELSE P_e_bc = emis_ant_index_table( PARAM_e_bc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bc ) = .FALSE. emis_ant_dname_table( idomain, P_e_bc ) = 'E_BC' emis_ant_desc_table( idomain, P_e_bc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_bc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_bc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bc )%stream(2) = 0 F_e_bc = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==6)THEN IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 F_e_sulf = .TRUE. IF ( emis_ant_index_table( PARAM_e_bc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bc , idomain ) = P_e_bc ELSE P_e_bc = emis_ant_index_table( PARAM_e_bc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bc ) = .FALSE. emis_ant_dname_table( idomain, P_e_bc ) = 'E_BC' emis_ant_desc_table( idomain, P_e_bc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_bc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_bc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bc )%stream(2) = 0 F_e_bc = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc , idomain ) = P_e_oc ELSE P_e_oc = emis_ant_index_table( PARAM_e_oc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc ) = 'E_OC' emis_ant_desc_table( idomain, P_e_oc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_oc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oc )%stream(2) = 0 F_e_oc = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_25 , idomain ) = P_e_pm_25 ELSE P_e_pm_25 = emis_ant_index_table( PARAM_e_pm_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_25 ) = 'E_PM_25' emis_ant_desc_table( idomain, P_e_pm_25 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_25 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_25 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm_25 )%stream(2) = 2097152 F_e_pm_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 F_e_pm_10 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==7)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigalk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigalk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigalk , idomain ) = P_e_bigalk ELSE P_e_bigalk = emis_ant_index_table( PARAM_e_bigalk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigalk ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigalk ) = 'E_BIGALK' emis_ant_desc_table( idomain, P_e_bigalk ) = 'EMISSIONS BIGALK' emis_ant_units_table( idomain, P_e_bigalk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigalk )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bigalk )%stream(2) = 0 F_e_bigalk = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigene , idomain ) = P_e_bigene ELSE P_e_bigene = emis_ant_index_table( PARAM_e_bigene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigene ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigene ) = 'E_BIGENE' emis_ant_desc_table( idomain, P_e_bigene ) = 'EMISSIONS BIGENE' emis_ant_units_table( idomain, P_e_bigene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bigene )%stream(2) = 0 F_e_bigene = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch2o , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch2o = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch2o , idomain ) = P_e_ch2o ELSE P_e_ch2o = emis_ant_index_table( PARAM_e_ch2o , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch2o ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch2o ) = 'E_CH2O' emis_ant_desc_table( idomain, P_e_ch2o ) = 'EMISSIONS CH2O' emis_ant_units_table( idomain, P_e_ch2o ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch2o )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch2o )%stream(2) = 0 F_e_ch2o = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3coch3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) = P_e_ch3coch3 ELSE P_e_ch3coch3 = emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3coch3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3coch3 ) = 'E_CH3COCH3' emis_ant_desc_table( idomain, P_e_ch3coch3 ) = 'EMISSIONS CH3COCH3' emis_ant_units_table( idomain, P_e_ch3coch3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(2) = 0 F_e_ch3coch3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_isop , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isop = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isop , idomain ) = P_e_isop ELSE P_e_isop = emis_ant_index_table( PARAM_e_isop , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isop ) = .FALSE. emis_ant_dname_table( idomain, P_e_isop ) = 'E_ISOP' emis_ant_desc_table( idomain, P_e_isop ) = 'EMISSIONS ISOP' emis_ant_units_table( idomain, P_e_isop ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isop )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_isop )%stream(2) = 0 F_e_isop = .TRUE. IF ( emis_ant_index_table( PARAM_e_c10h16 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c10h16 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c10h16 , idomain ) = P_e_c10h16 ELSE P_e_c10h16 = emis_ant_index_table( PARAM_e_c10h16 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c10h16 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c10h16 ) = 'E_C10H16' emis_ant_desc_table( idomain, P_e_c10h16 ) = 'EMISSIONS C10H16' emis_ant_units_table( idomain, P_e_c10h16 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c10h16 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c10h16 )%stream(2) = 0 F_e_c10h16 = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 F_e_sulf = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==8)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigalk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigalk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigalk , idomain ) = P_e_bigalk ELSE P_e_bigalk = emis_ant_index_table( PARAM_e_bigalk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigalk ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigalk ) = 'E_BIGALK' emis_ant_desc_table( idomain, P_e_bigalk ) = 'EMISSIONS BIGALK' emis_ant_units_table( idomain, P_e_bigalk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigalk )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bigalk )%stream(2) = 0 F_e_bigalk = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigene , idomain ) = P_e_bigene ELSE P_e_bigene = emis_ant_index_table( PARAM_e_bigene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigene ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigene ) = 'E_BIGENE' emis_ant_desc_table( idomain, P_e_bigene ) = 'EMISSIONS BIGENE' emis_ant_units_table( idomain, P_e_bigene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bigene )%stream(2) = 0 F_e_bigene = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch2o , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch2o = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch2o , idomain ) = P_e_ch2o ELSE P_e_ch2o = emis_ant_index_table( PARAM_e_ch2o , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch2o ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch2o ) = 'E_CH2O' emis_ant_desc_table( idomain, P_e_ch2o ) = 'EMISSIONS CH2O' emis_ant_units_table( idomain, P_e_ch2o ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch2o )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch2o )%stream(2) = 0 F_e_ch2o = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3coch3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) = P_e_ch3coch3 ELSE P_e_ch3coch3 = emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3coch3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3coch3 ) = 'E_CH3COCH3' emis_ant_desc_table( idomain, P_e_ch3coch3 ) = 'EMISSIONS CH3COCH3' emis_ant_units_table( idomain, P_e_ch3coch3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(2) = 0 F_e_ch3coch3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_isop , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isop = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isop , idomain ) = P_e_isop ELSE P_e_isop = emis_ant_index_table( PARAM_e_isop , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isop ) = .FALSE. emis_ant_dname_table( idomain, P_e_isop ) = 'E_ISOP' emis_ant_desc_table( idomain, P_e_isop ) = 'EMISSIONS ISOP' emis_ant_units_table( idomain, P_e_isop ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isop )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_isop )%stream(2) = 0 F_e_isop = .TRUE. IF ( emis_ant_index_table( PARAM_e_c10h16 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c10h16 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c10h16 , idomain ) = P_e_c10h16 ELSE P_e_c10h16 = emis_ant_index_table( PARAM_e_c10h16 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c10h16 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c10h16 ) = 'E_C10H16' emis_ant_desc_table( idomain, P_e_c10h16 ) = 'EMISSIONS C10H16' emis_ant_units_table( idomain, P_e_c10h16 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c10h16 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c10h16 )%stream(2) = 0 F_e_c10h16 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 F_e_pm_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_25 , idomain ) = P_e_pm_25 ELSE P_e_pm_25 = emis_ant_index_table( PARAM_e_pm_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_25 ) = 'E_PM_25' emis_ant_desc_table( idomain, P_e_pm_25 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_25 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_25 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm_25 )%stream(2) = 2097152 F_e_pm_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bc , idomain ) = P_e_bc ELSE P_e_bc = emis_ant_index_table( PARAM_e_bc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bc ) = .FALSE. emis_ant_dname_table( idomain, P_e_bc ) = 'E_BC' emis_ant_desc_table( idomain, P_e_bc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_bc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_bc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bc )%stream(2) = 0 F_e_bc = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc , idomain ) = P_e_oc ELSE P_e_oc = emis_ant_index_table( PARAM_e_oc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc ) = 'E_OC' emis_ant_desc_table( idomain, P_e_oc ) = 'EMISSIONS BC AER' emis_ant_units_table( idomain, P_e_oc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oc )%stream(2) = 0 F_e_oc = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 F_e_sulf = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==9)THEN IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_dms , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dms = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dms , idomain ) = P_e_dms ELSE P_e_dms = emis_ant_index_table( PARAM_e_dms , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dms ) = .FALSE. emis_ant_dname_table( idomain, P_e_dms ) = 'E_DMS' emis_ant_desc_table( idomain, P_e_dms ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_dms ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_dms )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_dms )%stream(2) = 2097152 F_e_dms = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_soag_bigene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_soag_bigene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_soag_bigene , idomain ) = P_e_soag_bigene ELSE P_e_soag_bigene = emis_ant_index_table( PARAM_e_soag_bigene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_soag_bigene ) = .FALSE. emis_ant_dname_table( idomain, P_e_soag_bigene ) = 'E_SOAG_BIGENE' emis_ant_desc_table( idomain, P_e_soag_bigene ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_soag_bigene ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_soag_bigene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_soag_bigene )%stream(2) = 0 F_e_soag_bigene = .TRUE. IF ( emis_ant_index_table( PARAM_e_soag_isoprene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_soag_isoprene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_soag_isoprene , idomain ) = P_e_soag_isoprene ELSE P_e_soag_isoprene = emis_ant_index_table( PARAM_e_soag_isoprene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_soag_isoprene ) = .FALSE. emis_ant_dname_table( idomain, P_e_soag_isoprene ) = 'E_SOAG_ISOPRENE' emis_ant_desc_table( idomain, P_e_soag_isoprene ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_soag_isoprene ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_soag_isoprene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_soag_isoprene )%stream(2) = 0 F_e_soag_isoprene = .TRUE. IF ( emis_ant_index_table( PARAM_e_soag_terpene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_soag_terpene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_soag_terpene , idomain ) = P_e_soag_terpene ELSE P_e_soag_terpene = emis_ant_index_table( PARAM_e_soag_terpene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_soag_terpene ) = .FALSE. emis_ant_dname_table( idomain, P_e_soag_terpene ) = 'E_SOAG_TERPENE' emis_ant_desc_table( idomain, P_e_soag_terpene ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_soag_terpene ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_soag_terpene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_soag_terpene )%stream(2) = 0 F_e_soag_terpene = .TRUE. IF ( emis_ant_index_table( PARAM_e_soag_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_soag_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_soag_toluene , idomain ) = P_e_soag_toluene ELSE P_e_soag_toluene = emis_ant_index_table( PARAM_e_soag_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_soag_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_soag_toluene ) = 'E_SOAG_TOLUENE' emis_ant_desc_table( idomain, P_e_soag_toluene ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_soag_toluene ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_soag_toluene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_soag_toluene )%stream(2) = 0 F_e_soag_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_dust_a1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dust_a1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dust_a1 , idomain ) = P_e_dust_a1 ELSE P_e_dust_a1 = emis_ant_index_table( PARAM_e_dust_a1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dust_a1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_dust_a1 ) = 'E_DUST_A1' emis_ant_desc_table( idomain, P_e_dust_a1 ) = 'J-MODE DUST' emis_ant_units_table( idomain, P_e_dust_a1 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_dust_a1 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_dust_a1 )%stream(2) = 0 F_e_dust_a1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_dust_a3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dust_a3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dust_a3 , idomain ) = P_e_dust_a3 ELSE P_e_dust_a3 = emis_ant_index_table( PARAM_e_dust_a3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dust_a3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_dust_a3 ) = 'E_DUST_A3' emis_ant_desc_table( idomain, P_e_dust_a3 ) = 'J-MODE DUST' emis_ant_units_table( idomain, P_e_dust_a3 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_dust_a3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_dust_a3 )%stream(2) = 0 F_e_dust_a3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ncl_a1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ncl_a1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ncl_a1 , idomain ) = P_e_ncl_a1 ELSE P_e_ncl_a1 = emis_ant_index_table( PARAM_e_ncl_a1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ncl_a1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ncl_a1 ) = 'E_NCL_A1' emis_ant_desc_table( idomain, P_e_ncl_a1 ) = 'J-MODE SEA-SALT' emis_ant_units_table( idomain, P_e_ncl_a1 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_ncl_a1 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ncl_a1 )%stream(2) = 0 F_e_ncl_a1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ncl_a2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ncl_a2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ncl_a2 , idomain ) = P_e_ncl_a2 ELSE P_e_ncl_a2 = emis_ant_index_table( PARAM_e_ncl_a2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ncl_a2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ncl_a2 ) = 'E_NCL_A2' emis_ant_desc_table( idomain, P_e_ncl_a2 ) = 'I-MODE SEA-SALT' emis_ant_units_table( idomain, P_e_ncl_a2 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_ncl_a2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ncl_a2 )%stream(2) = 0 F_e_ncl_a2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ncl_a3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ncl_a3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ncl_a3 , idomain ) = P_e_ncl_a3 ELSE P_e_ncl_a3 = emis_ant_index_table( PARAM_e_ncl_a3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ncl_a3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ncl_a3 ) = 'E_NCL_A3' emis_ant_desc_table( idomain, P_e_ncl_a3 ) = 'COARSE-MODE SEA-SALT' emis_ant_units_table( idomain, P_e_ncl_a3 ) = 'ug/m2/s' emis_ant_streams_table( idomain, P_e_ncl_a3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ncl_a3 )%stream(2) = 0 F_e_ncl_a3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_num , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_num = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_num , idomain ) = P_e_orgj_num ELSE P_e_orgj_num = emis_ant_index_table( PARAM_e_orgj_num , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_num ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_num ) = 'E_ORGJ_NUM' emis_ant_desc_table( idomain, P_e_orgj_num ) = 'J-MODE ORGANIC NUMBER' emis_ant_units_table( idomain, P_e_orgj_num ) = 'particle/m2/s' emis_ant_streams_table( idomain, P_e_orgj_num )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj_num )%stream(2) = 0 F_e_orgj_num = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj_num , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj_num = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj_num , idomain ) = P_e_ecj_num ELSE P_e_ecj_num = emis_ant_index_table( PARAM_e_ecj_num , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj_num ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj_num ) = 'E_ECJ_NUM' emis_ant_desc_table( idomain, P_e_ecj_num ) = 'J-MODE BC NUMBER' emis_ant_units_table( idomain, P_e_ecj_num ) = 'particle/m2/s' emis_ant_streams_table( idomain, P_e_ecj_num )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecj_num )%stream(2) = 0 F_e_ecj_num = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j_num , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j_num = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j_num , idomain ) = P_e_so4j_num ELSE P_e_so4j_num = emis_ant_index_table( PARAM_e_so4j_num , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j_num ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j_num ) = 'E_SO4J_NUM' emis_ant_desc_table( idomain, P_e_so4j_num ) = 'J-MODE SO4 NUMBER' emis_ant_units_table( idomain, P_e_so4j_num ) = 'particle/m2/s' emis_ant_streams_table( idomain, P_e_so4j_num )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4j_num )%stream(2) = 0 F_e_so4j_num = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i_num , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i_num = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i_num , idomain ) = P_e_so4i_num ELSE P_e_so4i_num = emis_ant_index_table( PARAM_e_so4i_num , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i_num ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i_num ) = 'E_SO4I_NUM' emis_ant_desc_table( idomain, P_e_so4i_num ) = 'I-MODE SO4 NUMBER' emis_ant_units_table( idomain, P_e_so4i_num ) = 'particle/m2/s' emis_ant_streams_table( idomain, P_e_so4i_num )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4i_num )%stream(2) = 0 F_e_so4i_num = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==10)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigalk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigalk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigalk , idomain ) = P_e_bigalk ELSE P_e_bigalk = emis_ant_index_table( PARAM_e_bigalk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigalk ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigalk ) = 'E_BIGALK' emis_ant_desc_table( idomain, P_e_bigalk ) = 'EMISSIONS BIGALK' emis_ant_units_table( idomain, P_e_bigalk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigalk )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bigalk )%stream(2) = 0 F_e_bigalk = .TRUE. IF ( emis_ant_index_table( PARAM_e_bigene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bigene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bigene , idomain ) = P_e_bigene ELSE P_e_bigene = emis_ant_index_table( PARAM_e_bigene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bigene ) = .FALSE. emis_ant_dname_table( idomain, P_e_bigene ) = 'E_BIGENE' emis_ant_desc_table( idomain, P_e_bigene ) = 'EMISSIONS BIGENE' emis_ant_units_table( idomain, P_e_bigene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bigene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bigene )%stream(2) = 0 F_e_bigene = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch2o , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch2o = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch2o , idomain ) = P_e_ch2o ELSE P_e_ch2o = emis_ant_index_table( PARAM_e_ch2o , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch2o ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch2o ) = 'E_CH2O' emis_ant_desc_table( idomain, P_e_ch2o ) = 'EMISSIONS CH2O' emis_ant_units_table( idomain, P_e_ch2o ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch2o )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch2o )%stream(2) = 0 F_e_ch2o = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3coch3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) = P_e_ch3coch3 ELSE P_e_ch3coch3 = emis_ant_index_table( PARAM_e_ch3coch3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3coch3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3coch3 ) = 'E_CH3COCH3' emis_ant_desc_table( idomain, P_e_ch3coch3 ) = 'EMISSIONS CH3COCH3' emis_ant_units_table( idomain, P_e_ch3coch3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3coch3 )%stream(2) = 0 F_e_ch3coch3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_benzene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_benzene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_benzene , idomain ) = P_e_benzene ELSE P_e_benzene = emis_ant_index_table( PARAM_e_benzene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_benzene ) = .FALSE. emis_ant_dname_table( idomain, P_e_benzene ) = 'E_BENZENE' emis_ant_desc_table( idomain, P_e_benzene ) = 'EMISSIONS BENZENE' emis_ant_units_table( idomain, P_e_benzene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_benzene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_benzene )%stream(2) = 0 F_e_benzene = .TRUE. IF ( emis_ant_index_table( PARAM_e_xylene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xylene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xylene , idomain ) = P_e_xylene ELSE P_e_xylene = emis_ant_index_table( PARAM_e_xylene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xylene ) = .FALSE. emis_ant_dname_table( idomain, P_e_xylene ) = 'E_XYLENE' emis_ant_desc_table( idomain, P_e_xylene ) = 'EMISSIONS XYLENE' emis_ant_units_table( idomain, P_e_xylene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xylene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_xylene )%stream(2) = 0 F_e_xylene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_isop , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isop = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isop , idomain ) = P_e_isop ELSE P_e_isop = emis_ant_index_table( PARAM_e_isop , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isop ) = .FALSE. emis_ant_dname_table( idomain, P_e_isop ) = 'E_ISOP' emis_ant_desc_table( idomain, P_e_isop ) = 'EMISSIONS ISOP' emis_ant_units_table( idomain, P_e_isop ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isop )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_isop )%stream(2) = 0 F_e_isop = .TRUE. IF ( emis_ant_index_table( PARAM_e_c10h16 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c10h16 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c10h16 , idomain ) = P_e_c10h16 ELSE P_e_c10h16 = emis_ant_index_table( PARAM_e_c10h16 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c10h16 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c10h16 ) = 'E_C10H16' emis_ant_desc_table( idomain, P_e_c10h16 ) = 'EMISSIONS C10H16' emis_ant_units_table( idomain, P_e_c10h16 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c10h16 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c10h16 )%stream(2) = 0 F_e_c10h16 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh4i , idomain ) = P_e_nh4i ELSE P_e_nh4i = emis_ant_index_table( PARAM_e_nh4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh4i ) = 'E_NH4I' emis_ant_desc_table( idomain, P_e_nh4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_nh4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_nh4i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh4i )%stream(2) = 2097152 F_e_nh4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh4j , idomain ) = P_e_nh4j ELSE P_e_nh4j = emis_ant_index_table( PARAM_e_nh4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh4j ) = 'E_NH4J' emis_ant_desc_table( idomain, P_e_nh4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_nh4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_nh4j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh4j )%stream(2) = 2097152 F_e_nh4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_nai , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nai = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nai , idomain ) = P_e_nai ELSE P_e_nai = emis_ant_index_table( PARAM_e_nai , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nai ) = .FALSE. emis_ant_dname_table( idomain, P_e_nai ) = 'E_NAI' emis_ant_desc_table( idomain, P_e_nai ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_nai ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_nai )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nai )%stream(2) = 2097152 F_e_nai = .TRUE. IF ( emis_ant_index_table( PARAM_e_naj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_naj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_naj , idomain ) = P_e_naj ELSE P_e_naj = emis_ant_index_table( PARAM_e_naj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_naj ) = .FALSE. emis_ant_dname_table( idomain, P_e_naj ) = 'E_NAJ' emis_ant_desc_table( idomain, P_e_naj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_naj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_naj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_naj )%stream(2) = 2097152 F_e_naj = .TRUE. IF ( emis_ant_index_table( PARAM_e_cli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cli , idomain ) = P_e_cli ELSE P_e_cli = emis_ant_index_table( PARAM_e_cli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cli ) = .FALSE. emis_ant_dname_table( idomain, P_e_cli ) = 'E_CLI' emis_ant_desc_table( idomain, P_e_cli ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_cli ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_cli )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_cli )%stream(2) = 2097152 F_e_cli = .TRUE. IF ( emis_ant_index_table( PARAM_e_clj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_clj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_clj , idomain ) = P_e_clj ELSE P_e_clj = emis_ant_index_table( PARAM_e_clj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_clj ) = .FALSE. emis_ant_dname_table( idomain, P_e_clj ) = 'E_CLJ' emis_ant_desc_table( idomain, P_e_clj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_clj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_clj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_clj )%stream(2) = 2097152 F_e_clj = .TRUE. IF ( emis_ant_index_table( PARAM_e_co_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co_a , idomain ) = P_e_co_a ELSE P_e_co_a = emis_ant_index_table( PARAM_e_co_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_co_a ) = 'E_CO_A' emis_ant_desc_table( idomain, P_e_co_a ) = 'EMISSIONS CO_A AER' emis_ant_units_table( idomain, P_e_co_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_co_a )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co_a )%stream(2) = 0 F_e_co_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_a , idomain ) = P_e_orgi_a ELSE P_e_orgi_a = emis_ant_index_table( PARAM_e_orgi_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_a ) = 'E_ORGI_A' emis_ant_desc_table( idomain, P_e_orgi_a ) = 'EMISSIONS ORGI_A AER' emis_ant_units_table( idomain, P_e_orgi_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_a )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi_a )%stream(2) = 2097152 F_e_orgi_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_a , idomain ) = P_e_orgj_a ELSE P_e_orgj_a = emis_ant_index_table( PARAM_e_orgj_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_a ) = 'E_ORGJ_A' emis_ant_desc_table( idomain, P_e_orgj_a ) = 'EMISSIONS ORGJ_A AER' emis_ant_units_table( idomain, P_e_orgj_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_a )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj_a )%stream(2) = 2097152 F_e_orgj_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_co_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co_bb , idomain ) = P_e_co_bb ELSE P_e_co_bb = emis_ant_index_table( PARAM_e_co_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_co_bb ) = 'E_CO_BB' emis_ant_desc_table( idomain, P_e_co_bb ) = 'EMISSIONS CO_BB AER' emis_ant_units_table( idomain, P_e_co_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_co_bb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co_bb )%stream(2) = 0 F_e_co_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_bb , idomain ) = P_e_orgi_bb ELSE P_e_orgi_bb = emis_ant_index_table( PARAM_e_orgi_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_bb ) = 'E_ORGI_BB' emis_ant_desc_table( idomain, P_e_orgi_bb ) = 'EMISSIONS ORGI_BB AER' emis_ant_units_table( idomain, P_e_orgi_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(2) = 2097152 F_e_orgi_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_bb , idomain ) = P_e_orgj_bb ELSE P_e_orgj_bb = emis_ant_index_table( PARAM_e_orgj_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_bb ) = 'E_ORGJ_BB' emis_ant_desc_table( idomain, P_e_orgj_bb ) = 'EMISSIONS ORGJ_BB AER' emis_ant_units_table( idomain, P_e_orgj_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(2) = 2097152 F_e_orgj_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm_10 , idomain ) = P_e_pm_10 ELSE P_e_pm_10 = emis_ant_index_table( PARAM_e_pm_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm_10 ) = 'E_PM_10' emis_ant_desc_table( idomain, P_e_pm_10 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_pm_10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pm_10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm_10 )%stream(2) = 2097152 F_e_pm_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h2 , idomain ) = P_e_c2h2 ELSE P_e_c2h2 = emis_ant_index_table( PARAM_e_c2h2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h2 ) = 'E_C2H2' emis_ant_desc_table( idomain, P_e_c2h2 ) = 'C2H2 emissions' emis_ant_units_table( idomain, P_e_c2h2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h2 )%stream(2) = 2097152 F_e_c2h2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_gly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_gly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_gly , idomain ) = P_e_gly ELSE P_e_gly = emis_ant_index_table( PARAM_e_gly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_gly ) = .FALSE. emis_ant_dname_table( idomain, P_e_gly ) = 'E_GLY' emis_ant_desc_table( idomain, P_e_gly ) = 'GLY emissions' emis_ant_units_table( idomain, P_e_gly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_gly )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_gly )%stream(2) = 2097152 F_e_gly = .TRUE. IF ( emis_ant_index_table( PARAM_e_sulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sulf , idomain ) = P_e_sulf ELSE P_e_sulf = emis_ant_index_table( PARAM_e_sulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_sulf ) = 'E_sulf' emis_ant_desc_table( idomain, P_e_sulf ) = 'EMISSIONS SO4' emis_ant_units_table( idomain, P_e_sulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sulf )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_sulf )%stream(2) = 0 F_e_sulf = .TRUE. IF ( emis_ant_index_table( PARAM_e_macr , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_macr = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_macr , idomain ) = P_e_macr ELSE P_e_macr = emis_ant_index_table( PARAM_e_macr , idomain ) END IF emis_ant_boundary_table( idomain, P_e_macr ) = .FALSE. emis_ant_dname_table( idomain, P_e_macr ) = 'E_MACR' emis_ant_desc_table( idomain, P_e_macr ) = 'MACR emissions' emis_ant_units_table( idomain, P_e_macr ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_macr )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_macr )%stream(2) = 0 F_e_macr = .TRUE. IF ( emis_ant_index_table( PARAM_e_mgly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mgly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mgly , idomain ) = P_e_mgly ELSE P_e_mgly = emis_ant_index_table( PARAM_e_mgly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mgly ) = .FALSE. emis_ant_dname_table( idomain, P_e_mgly ) = 'E_MGLY' emis_ant_desc_table( idomain, P_e_mgly ) = 'MGLY emissions' emis_ant_units_table( idomain, P_e_mgly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mgly )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mgly )%stream(2) = 2097152 F_e_mgly = .TRUE. IF ( emis_ant_index_table( PARAM_e_mvk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mvk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mvk , idomain ) = P_e_mvk ELSE P_e_mvk = emis_ant_index_table( PARAM_e_mvk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mvk ) = .FALSE. emis_ant_dname_table( idomain, P_e_mvk ) = 'E_MVK' emis_ant_desc_table( idomain, P_e_mvk ) = 'MVK emissions' emis_ant_units_table( idomain, P_e_mvk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mvk )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mvk )%stream(2) = 2097152 F_e_mvk = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcooh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcooh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcooh , idomain ) = P_e_hcooh ELSE P_e_hcooh = emis_ant_index_table( PARAM_e_hcooh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcooh ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcooh ) = 'E_HCOOH' emis_ant_desc_table( idomain, P_e_hcooh ) = 'HCOOH emissions' emis_ant_units_table( idomain, P_e_hcooh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcooh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcooh )%stream(2) = 2097152 F_e_hcooh = .TRUE. IF ( emis_ant_index_table( PARAM_e_hono , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hono = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hono , idomain ) = P_e_hono ELSE P_e_hono = emis_ant_index_table( PARAM_e_hono , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hono ) = .FALSE. emis_ant_dname_table( idomain, P_e_hono ) = 'E_HONO' emis_ant_desc_table( idomain, P_e_hono ) = 'HONO emissions' emis_ant_units_table( idomain, P_e_hono ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hono )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hono )%stream(2) = 0 F_e_hono = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==13)THEN IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h2 , idomain ) = P_e_c2h2 ELSE P_e_c2h2 = emis_ant_index_table( PARAM_e_c2h2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h2 ) = 'E_C2H2' emis_ant_desc_table( idomain, P_e_c2h2 ) = 'C2H2 emissions' emis_ant_units_table( idomain, P_e_c2h2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h2 )%stream(2) = 2097152 F_e_c2h2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk3 , idomain ) = P_e_alk3 ELSE P_e_alk3 = emis_ant_index_table( PARAM_e_alk3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk3 ) = 'E_ALK3' emis_ant_desc_table( idomain, P_e_alk3 ) = 'ALK3 emissions' emis_ant_units_table( idomain, P_e_alk3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_alk3 )%stream(2) = 2097152 F_e_alk3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk4 , idomain ) = P_e_alk4 ELSE P_e_alk4 = emis_ant_index_table( PARAM_e_alk4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk4 ) = 'E_ALK4' emis_ant_desc_table( idomain, P_e_alk4 ) = 'ALK4 emissions' emis_ant_units_table( idomain, P_e_alk4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_alk4 )%stream(2) = 2097152 F_e_alk4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk5 , idomain ) = P_e_alk5 ELSE P_e_alk5 = emis_ant_index_table( PARAM_e_alk5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk5 ) = 'E_ALK5' emis_ant_desc_table( idomain, P_e_alk5 ) = 'ALK5 emissions' emis_ant_units_table( idomain, P_e_alk5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk5 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_alk5 )%stream(2) = 2097152 F_e_alk5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ethene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ethene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ethene , idomain ) = P_e_ethene ELSE P_e_ethene = emis_ant_index_table( PARAM_e_ethene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ethene ) = .FALSE. emis_ant_dname_table( idomain, P_e_ethene ) = 'E_ETHENE' emis_ant_desc_table( idomain, P_e_ethene ) = 'ETHENE emissions' emis_ant_units_table( idomain, P_e_ethene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ethene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ethene )%stream(2) = 2097152 F_e_ethene = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ole1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ole1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ole1 , idomain ) = P_e_ole1 ELSE P_e_ole1 = emis_ant_index_table( PARAM_e_ole1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ole1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ole1 ) = 'E_OLE1' emis_ant_desc_table( idomain, P_e_ole1 ) = 'OLE1 emissions' emis_ant_units_table( idomain, P_e_ole1 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ole1 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ole1 )%stream(2) = 2097152 F_e_ole1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ole2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ole2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ole2 , idomain ) = P_e_ole2 ELSE P_e_ole2 = emis_ant_index_table( PARAM_e_ole2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ole2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ole2 ) = 'E_OLE2' emis_ant_desc_table( idomain, P_e_ole2 ) = 'OLE2 emissions' emis_ant_units_table( idomain, P_e_ole2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ole2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ole2 )%stream(2) = 2097152 F_e_ole2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_aro1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_aro1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_aro1 , idomain ) = P_e_aro1 ELSE P_e_aro1 = emis_ant_index_table( PARAM_e_aro1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_aro1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_aro1 ) = 'E_ARO1' emis_ant_desc_table( idomain, P_e_aro1 ) = 'ARO1 emissions' emis_ant_units_table( idomain, P_e_aro1 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_aro1 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_aro1 )%stream(2) = 2097152 F_e_aro1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_aro2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_aro2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_aro2 , idomain ) = P_e_aro2 ELSE P_e_aro2 = emis_ant_index_table( PARAM_e_aro2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_aro2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_aro2 ) = 'E_ARO2' emis_ant_desc_table( idomain, P_e_aro2 ) = 'ARO2 emissions' emis_ant_units_table( idomain, P_e_aro2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_aro2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_aro2 )%stream(2) = 2097152 F_e_aro2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ccho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ccho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ccho , idomain ) = P_e_ccho ELSE P_e_ccho = emis_ant_index_table( PARAM_e_ccho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ccho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ccho ) = 'E_CCHO' emis_ant_desc_table( idomain, P_e_ccho ) = 'CCHO emissions' emis_ant_units_table( idomain, P_e_ccho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ccho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ccho )%stream(2) = 2097152 F_e_ccho = .TRUE. IF ( emis_ant_index_table( PARAM_e_rcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_rcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_rcho , idomain ) = P_e_rcho ELSE P_e_rcho = emis_ant_index_table( PARAM_e_rcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_rcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_rcho ) = 'E_RCHO' emis_ant_desc_table( idomain, P_e_rcho ) = 'RCHO emissions' emis_ant_units_table( idomain, P_e_rcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_rcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_rcho )%stream(2) = 2097152 F_e_rcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_acet , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_acet = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_acet , idomain ) = P_e_acet ELSE P_e_acet = emis_ant_index_table( PARAM_e_acet , idomain ) END IF emis_ant_boundary_table( idomain, P_e_acet ) = .FALSE. emis_ant_dname_table( idomain, P_e_acet ) = 'E_ACET' emis_ant_desc_table( idomain, P_e_acet ) = 'ACET emissions' emis_ant_units_table( idomain, P_e_acet ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_acet )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_acet )%stream(2) = 2097152 F_e_acet = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_isoprene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isoprene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isoprene , idomain ) = P_e_isoprene ELSE P_e_isoprene = emis_ant_index_table( PARAM_e_isoprene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isoprene ) = .FALSE. emis_ant_dname_table( idomain, P_e_isoprene ) = 'E_ISOPRENE' emis_ant_desc_table( idomain, P_e_isoprene ) = 'ISOPRENE emissions' emis_ant_units_table( idomain, P_e_isoprene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isoprene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_isoprene )%stream(2) = 2097152 F_e_isoprene = .TRUE. IF ( emis_ant_index_table( PARAM_e_terp , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_terp = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_terp , idomain ) = P_e_terp ELSE P_e_terp = emis_ant_index_table( PARAM_e_terp , idomain ) END IF emis_ant_boundary_table( idomain, P_e_terp ) = .FALSE. emis_ant_dname_table( idomain, P_e_terp ) = 'E_TERP' emis_ant_desc_table( idomain, P_e_terp ) = 'TERP emissions' emis_ant_units_table( idomain, P_e_terp ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_terp )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_terp )%stream(2) = 2097152 F_e_terp = .TRUE. IF ( emis_ant_index_table( PARAM_e_sesq , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_sesq = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_sesq , idomain ) = P_e_sesq ELSE P_e_sesq = emis_ant_index_table( PARAM_e_sesq , idomain ) END IF emis_ant_boundary_table( idomain, P_e_sesq ) = .FALSE. emis_ant_dname_table( idomain, P_e_sesq ) = 'E_SESQ' emis_ant_desc_table( idomain, P_e_sesq ) = 'SESQUITERPENE emissions' emis_ant_units_table( idomain, P_e_sesq ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_sesq )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_sesq )%stream(2) = 2097152 F_e_sesq = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_phen , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_phen = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_phen , idomain ) = P_e_phen ELSE P_e_phen = emis_ant_index_table( PARAM_e_phen , idomain ) END IF emis_ant_boundary_table( idomain, P_e_phen ) = .FALSE. emis_ant_dname_table( idomain, P_e_phen ) = 'E_PHEN' emis_ant_desc_table( idomain, P_e_phen ) = 'PHEN emissions' emis_ant_units_table( idomain, P_e_phen ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_phen )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_phen )%stream(2) = 2097152 F_e_phen = .TRUE. IF ( emis_ant_index_table( PARAM_e_cres , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cres = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cres , idomain ) = P_e_cres ELSE P_e_cres = emis_ant_index_table( PARAM_e_cres , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cres ) = .FALSE. emis_ant_dname_table( idomain, P_e_cres ) = 'E_CRES' emis_ant_desc_table( idomain, P_e_cres ) = 'CRES emissions' emis_ant_units_table( idomain, P_e_cres ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_cres )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_cres )%stream(2) = 2097152 F_e_cres = .TRUE. IF ( emis_ant_index_table( PARAM_e_meoh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_meoh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_meoh , idomain ) = P_e_meoh ELSE P_e_meoh = emis_ant_index_table( PARAM_e_meoh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_meoh ) = .FALSE. emis_ant_dname_table( idomain, P_e_meoh ) = 'E_MEOH' emis_ant_desc_table( idomain, P_e_meoh ) = 'MEOH emissions' emis_ant_units_table( idomain, P_e_meoh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_meoh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_meoh )%stream(2) = 2097152 F_e_meoh = .TRUE. IF ( emis_ant_index_table( PARAM_e_gly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_gly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_gly , idomain ) = P_e_gly ELSE P_e_gly = emis_ant_index_table( PARAM_e_gly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_gly ) = .FALSE. emis_ant_dname_table( idomain, P_e_gly ) = 'E_GLY' emis_ant_desc_table( idomain, P_e_gly ) = 'GLY emissions' emis_ant_units_table( idomain, P_e_gly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_gly )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_gly )%stream(2) = 2097152 F_e_gly = .TRUE. IF ( emis_ant_index_table( PARAM_e_mgly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mgly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mgly , idomain ) = P_e_mgly ELSE P_e_mgly = emis_ant_index_table( PARAM_e_mgly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mgly ) = .FALSE. emis_ant_dname_table( idomain, P_e_mgly ) = 'E_MGLY' emis_ant_desc_table( idomain, P_e_mgly ) = 'MGLY emissions' emis_ant_units_table( idomain, P_e_mgly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mgly )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mgly )%stream(2) = 2097152 F_e_mgly = .TRUE. IF ( emis_ant_index_table( PARAM_e_bacl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bacl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bacl , idomain ) = P_e_bacl ELSE P_e_bacl = emis_ant_index_table( PARAM_e_bacl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bacl ) = .FALSE. emis_ant_dname_table( idomain, P_e_bacl ) = 'E_BACL' emis_ant_desc_table( idomain, P_e_bacl ) = 'BACL emissions' emis_ant_units_table( idomain, P_e_bacl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bacl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bacl )%stream(2) = 2097152 F_e_bacl = .TRUE. IF ( emis_ant_index_table( PARAM_e_isoprod , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isoprod = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isoprod , idomain ) = P_e_isoprod ELSE P_e_isoprod = emis_ant_index_table( PARAM_e_isoprod , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isoprod ) = .FALSE. emis_ant_dname_table( idomain, P_e_isoprod ) = 'E_ISOPROD' emis_ant_desc_table( idomain, P_e_isoprod ) = 'ISOPROD emissions' emis_ant_units_table( idomain, P_e_isoprod ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isoprod )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_isoprod )%stream(2) = 2097152 F_e_isoprod = .TRUE. IF ( emis_ant_index_table( PARAM_e_methacro , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_methacro = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_methacro , idomain ) = P_e_methacro ELSE P_e_methacro = emis_ant_index_table( PARAM_e_methacro , idomain ) END IF emis_ant_boundary_table( idomain, P_e_methacro ) = .FALSE. emis_ant_dname_table( idomain, P_e_methacro ) = 'E_METHACRO' emis_ant_desc_table( idomain, P_e_methacro ) = 'METHACRO emissions' emis_ant_units_table( idomain, P_e_methacro ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_methacro )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_methacro )%stream(2) = 2097152 F_e_methacro = .TRUE. IF ( emis_ant_index_table( PARAM_e_mvk , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mvk = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mvk , idomain ) = P_e_mvk ELSE P_e_mvk = emis_ant_index_table( PARAM_e_mvk , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mvk ) = .FALSE. emis_ant_dname_table( idomain, P_e_mvk ) = 'E_MVK' emis_ant_desc_table( idomain, P_e_mvk ) = 'MVK emissions' emis_ant_units_table( idomain, P_e_mvk ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mvk )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mvk )%stream(2) = 2097152 F_e_mvk = .TRUE. IF ( emis_ant_index_table( PARAM_e_prod2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_prod2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_prod2 , idomain ) = P_e_prod2 ELSE P_e_prod2 = emis_ant_index_table( PARAM_e_prod2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_prod2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_prod2 ) = 'E_PROD2' emis_ant_desc_table( idomain, P_e_prod2 ) = 'PROD2 emissions' emis_ant_units_table( idomain, P_e_prod2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_prod2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_prod2 )%stream(2) = 2097152 F_e_prod2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch4 , idomain ) = P_e_ch4 ELSE P_e_ch4 = emis_ant_index_table( PARAM_e_ch4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch4 ) = 'E_CH4' emis_ant_desc_table( idomain, P_e_ch4 ) = 'CH4 emissions' emis_ant_units_table( idomain, P_e_ch4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch4 )%stream(2) = 2097152 F_e_ch4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_bald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bald , idomain ) = P_e_bald ELSE P_e_bald = emis_ant_index_table( PARAM_e_bald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bald ) = .FALSE. emis_ant_dname_table( idomain, P_e_bald ) = 'E_BALD' emis_ant_desc_table( idomain, P_e_bald ) = 'BALD emissions' emis_ant_units_table( idomain, P_e_bald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bald )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bald )%stream(2) = 2097152 F_e_bald = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcooh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcooh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcooh , idomain ) = P_e_hcooh ELSE P_e_hcooh = emis_ant_index_table( PARAM_e_hcooh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcooh ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcooh ) = 'E_HCOOH' emis_ant_desc_table( idomain, P_e_hcooh ) = 'HCOOH emissions' emis_ant_units_table( idomain, P_e_hcooh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcooh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcooh )%stream(2) = 2097152 F_e_hcooh = .TRUE. IF ( emis_ant_index_table( PARAM_e_cco_oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cco_oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cco_oh , idomain ) = P_e_cco_oh ELSE P_e_cco_oh = emis_ant_index_table( PARAM_e_cco_oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cco_oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_cco_oh ) = 'E_CCO_OH' emis_ant_desc_table( idomain, P_e_cco_oh ) = 'CCO_OH emissions' emis_ant_units_table( idomain, P_e_cco_oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_cco_oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_cco_oh )%stream(2) = 2097152 F_e_cco_oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_rco_oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_rco_oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_rco_oh , idomain ) = P_e_rco_oh ELSE P_e_rco_oh = emis_ant_index_table( PARAM_e_rco_oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_rco_oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_rco_oh ) = 'E_RCO_OH' emis_ant_desc_table( idomain, P_e_rco_oh ) = 'RCO_OH emissions' emis_ant_units_table( idomain, P_e_rco_oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_rco_oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_rco_oh )%stream(2) = 2097152 F_e_rco_oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_a , idomain ) = P_e_orgi_a ELSE P_e_orgi_a = emis_ant_index_table( PARAM_e_orgi_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_a ) = 'E_ORGI_A' emis_ant_desc_table( idomain, P_e_orgi_a ) = 'EMISSIONS ORGI_A AER' emis_ant_units_table( idomain, P_e_orgi_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_a )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi_a )%stream(2) = 2097152 F_e_orgi_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_a , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_a = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_a , idomain ) = P_e_orgj_a ELSE P_e_orgj_a = emis_ant_index_table( PARAM_e_orgj_a , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_a ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_a ) = 'E_ORGJ_A' emis_ant_desc_table( idomain, P_e_orgj_a ) = 'EMISSIONS ORGJ_A AER' emis_ant_units_table( idomain, P_e_orgj_a ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_a )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj_a )%stream(2) = 2097152 F_e_orgj_a = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi_bb , idomain ) = P_e_orgi_bb ELSE P_e_orgi_bb = emis_ant_index_table( PARAM_e_orgi_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi_bb ) = 'E_ORGI_BB' emis_ant_desc_table( idomain, P_e_orgi_bb ) = 'EMISSIONS ORGI_BB AER' emis_ant_units_table( idomain, P_e_orgi_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi_bb )%stream(2) = 2097152 F_e_orgi_bb = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj_bb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj_bb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj_bb , idomain ) = P_e_orgj_bb ELSE P_e_orgj_bb = emis_ant_index_table( PARAM_e_orgj_bb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj_bb ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj_bb ) = 'E_ORGJ_BB' emis_ant_desc_table( idomain, P_e_orgj_bb ) = 'EMISSIONS ORGJ_BB AER' emis_ant_units_table( idomain, P_e_orgj_bb ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj_bb )%stream(2) = 2097152 F_e_orgj_bb = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==14)THEN IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_terp , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_terp = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_terp , idomain ) = P_e_terp ELSE P_e_terp = emis_ant_index_table( PARAM_e_terp , idomain ) END IF emis_ant_boundary_table( idomain, P_e_terp ) = .FALSE. emis_ant_dname_table( idomain, P_e_terp ) = 'E_TERP' emis_ant_desc_table( idomain, P_e_terp ) = 'TERP emissions' emis_ant_units_table( idomain, P_e_terp ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_terp )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_terp )%stream(2) = 2097152 F_e_terp = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ora2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ora2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ora2 , idomain ) = P_e_ora2 ELSE P_e_ora2 = emis_ant_index_table( PARAM_e_ora2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ora2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ora2 ) = 'E_ORA2' emis_ant_desc_table( idomain, P_e_ora2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ora2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ora2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ora2 )%stream(2) = 2097152 F_e_ora2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_olt , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_olt = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_olt , idomain ) = P_e_olt ELSE P_e_olt = emis_ant_index_table( PARAM_e_olt , idomain ) END IF emis_ant_boundary_table( idomain, P_e_olt ) = .FALSE. emis_ant_dname_table( idomain, P_e_olt ) = 'E_OLT' emis_ant_desc_table( idomain, P_e_olt ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_olt ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_olt )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_olt )%stream(2) = 2097152 F_e_olt = .TRUE. IF ( emis_ant_index_table( PARAM_e_oli , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oli = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oli , idomain ) = P_e_oli ELSE P_e_oli = emis_ant_index_table( PARAM_e_oli , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oli ) = .FALSE. emis_ant_dname_table( idomain, P_e_oli ) = 'E_OLI' emis_ant_desc_table( idomain, P_e_oli ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_oli ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oli )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oli )%stream(2) = 2097152 F_e_oli = .TRUE. IF ( emis_ant_index_table( PARAM_e_ol2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ol2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ol2 , idomain ) = P_e_ol2 ELSE P_e_ol2 = emis_ant_index_table( PARAM_e_ol2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ol2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ol2 ) = 'E_OL2' emis_ant_desc_table( idomain, P_e_ol2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ol2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ol2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ol2 )%stream(2) = 2097152 F_e_ol2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_iso , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iso = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iso , idomain ) = P_e_iso ELSE P_e_iso = emis_ant_index_table( PARAM_e_iso , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iso ) = .FALSE. emis_ant_dname_table( idomain, P_e_iso ) = 'E_ISO' emis_ant_desc_table( idomain, P_e_iso ) = 'Isoprene EMISSIONS (Anth. for RADM/RACM, Anth+Bio for CBMZ)' emis_ant_units_table( idomain, P_e_iso ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iso )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_iso )%stream(2) = 2097152 F_e_iso = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcl , idomain ) = P_e_hcl ELSE P_e_hcl = emis_ant_index_table( PARAM_e_hcl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcl ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcl ) = 'E_HCL' emis_ant_desc_table( idomain, P_e_hcl ) = 'EMISSIONS HCL' emis_ant_units_table( idomain, P_e_hcl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcl )%stream(2) = 0 F_e_hcl = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_csl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_csl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_csl , idomain ) = P_e_csl ELSE P_e_csl = emis_ant_index_table( PARAM_e_csl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_csl ) = .FALSE. emis_ant_dname_table( idomain, P_e_csl ) = 'E_CSL' emis_ant_desc_table( idomain, P_e_csl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_csl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_csl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_csl )%stream(2) = 2097152 F_e_csl = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald , idomain ) = P_e_ald ELSE P_e_ald = emis_ant_index_table( PARAM_e_ald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald ) = 'E_ALD' emis_ant_desc_table( idomain, P_e_ald ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ald )%stream(2) = 2097152 F_e_ald = .TRUE. IF ( emis_ant_index_table( PARAM_e_aldx , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_aldx = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_aldx , idomain ) = P_e_aldx ELSE P_e_aldx = emis_ant_index_table( PARAM_e_aldx , idomain ) END IF emis_ant_boundary_table( idomain, P_e_aldx ) = .FALSE. emis_ant_dname_table( idomain, P_e_aldx ) = 'E_ALDX' emis_ant_desc_table( idomain, P_e_aldx ) = 'EMISSIONS ALDX' emis_ant_units_table( idomain, P_e_aldx ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_aldx )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_aldx )%stream(2) = 0 F_e_aldx = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc3 , idomain ) = P_e_hc3 ELSE P_e_hc3 = emis_ant_index_table( PARAM_e_hc3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc3 ) = 'E_HC3' emis_ant_desc_table( idomain, P_e_hc3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc3 )%stream(2) = 2097152 F_e_hc3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc5 , idomain ) = P_e_hc5 ELSE P_e_hc5 = emis_ant_index_table( PARAM_e_hc5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc5 ) = 'E_HC5' emis_ant_desc_table( idomain, P_e_hc5 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc5 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc5 )%stream(2) = 2097152 F_e_hc5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hc8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hc8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hc8 , idomain ) = P_e_hc8 ELSE P_e_hc8 = emis_ant_index_table( PARAM_e_hc8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hc8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_hc8 ) = 'E_HC8' emis_ant_desc_table( idomain, P_e_hc8 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hc8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hc8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hc8 )%stream(2) = 2097152 F_e_hc8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4c , idomain ) = P_e_so4c ELSE P_e_so4c = emis_ant_index_table( PARAM_e_so4c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4c ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4c ) = 'E_SO4C' emis_ant_desc_table( idomain, P_e_so4c ) = 'EMISSIONS COARSE SO4 AER' emis_ant_units_table( idomain, P_e_so4c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4c )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4c )%stream(2) = 0 F_e_so4c = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3c , idomain ) = P_e_no3c ELSE P_e_no3c = emis_ant_index_table( PARAM_e_no3c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3c ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3c ) = 'E_NO3C' emis_ant_desc_table( idomain, P_e_no3c ) = 'EMISSIONS COARSE NO3 AER' emis_ant_units_table( idomain, P_e_no3c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3c )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3c )%stream(2) = 0 F_e_no3c = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgc , idomain ) = P_e_orgc ELSE P_e_orgc = emis_ant_index_table( PARAM_e_orgc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgc ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgc ) = 'E_ORGC' emis_ant_desc_table( idomain, P_e_orgc ) = 'EMISSIONS COARSE ORG AER' emis_ant_units_table( idomain, P_e_orgc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgc )%stream(2) = 0 F_e_orgc = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecc , idomain ) = P_e_ecc ELSE P_e_ecc = emis_ant_index_table( PARAM_e_ecc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecc ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecc ) = 'E_ECC' emis_ant_desc_table( idomain, P_e_ecc ) = 'EMISSIONS COARSE EC AER' emis_ant_units_table( idomain, P_e_ecc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecc )%stream(2) = 0 F_e_ecc = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm10 , idomain ) = P_e_pm10 ELSE P_e_pm10 = emis_ant_index_table( PARAM_e_pm10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm10 ) = 'E_PM10' emis_ant_desc_table( idomain, P_e_pm10 ) = 'EMISSION RATE OF PARTICULATE MATTER 10UM MODE' emis_ant_units_table( idomain, P_e_pm10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm10 )%stream(2) = 0 F_e_pm10 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==15)THEN IF ( emis_ant_index_table( PARAM_e_acet , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_acet = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_acet , idomain ) = P_e_acet ELSE P_e_acet = emis_ant_index_table( PARAM_e_acet , idomain ) END IF emis_ant_boundary_table( idomain, P_e_acet ) = .FALSE. emis_ant_dname_table( idomain, P_e_acet ) = 'E_ACET' emis_ant_desc_table( idomain, P_e_acet ) = 'ACET emissions' emis_ant_units_table( idomain, P_e_acet ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_acet )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_acet )%stream(2) = 2097152 F_e_acet = .TRUE. IF ( emis_ant_index_table( PARAM_e_par , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_par = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_par , idomain ) = P_e_par ELSE P_e_par = emis_ant_index_table( PARAM_e_par , idomain ) END IF emis_ant_boundary_table( idomain, P_e_par ) = .FALSE. emis_ant_dname_table( idomain, P_e_par ) = 'E_PAR' emis_ant_desc_table( idomain, P_e_par ) = 'EMISSIONS PAR' emis_ant_units_table( idomain, P_e_par ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_par )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_par )%stream(2) = 0 F_e_par = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk3 , idomain ) = P_e_alk3 ELSE P_e_alk3 = emis_ant_index_table( PARAM_e_alk3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk3 ) = 'E_ALK3' emis_ant_desc_table( idomain, P_e_alk3 ) = 'ALK3 emissions' emis_ant_units_table( idomain, P_e_alk3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_alk3 )%stream(2) = 2097152 F_e_alk3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk4 , idomain ) = P_e_alk4 ELSE P_e_alk4 = emis_ant_index_table( PARAM_e_alk4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk4 ) = 'E_ALK4' emis_ant_desc_table( idomain, P_e_alk4 ) = 'ALK4 emissions' emis_ant_units_table( idomain, P_e_alk4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_alk4 )%stream(2) = 2097152 F_e_alk4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_alk5 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_alk5 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_alk5 , idomain ) = P_e_alk5 ELSE P_e_alk5 = emis_ant_index_table( PARAM_e_alk5 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_alk5 ) = .FALSE. emis_ant_dname_table( idomain, P_e_alk5 ) = 'E_ALK5' emis_ant_desc_table( idomain, P_e_alk5 ) = 'ALK5 emissions' emis_ant_units_table( idomain, P_e_alk5 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_alk5 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_alk5 )%stream(2) = 2097152 F_e_alk5 = .TRUE. IF ( emis_ant_index_table( PARAM_e_tol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tol , idomain ) = P_e_tol ELSE P_e_tol = emis_ant_index_table( PARAM_e_tol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tol ) = .FALSE. emis_ant_dname_table( idomain, P_e_tol ) = 'E_TOL' emis_ant_desc_table( idomain, P_e_tol ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_tol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tol )%stream(2) = 2097152 F_e_tol = .TRUE. IF ( emis_ant_index_table( PARAM_e_xyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_xyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_xyl , idomain ) = P_e_xyl ELSE P_e_xyl = emis_ant_index_table( PARAM_e_xyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_xyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_xyl ) = 'E_XYL' emis_ant_desc_table( idomain, P_e_xyl ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_xyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_xyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_xyl )%stream(2) = 2097152 F_e_xyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_bald , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bald = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bald , idomain ) = P_e_bald ELSE P_e_bald = emis_ant_index_table( PARAM_e_bald , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bald ) = .FALSE. emis_ant_dname_table( idomain, P_e_bald ) = 'E_BALD' emis_ant_desc_table( idomain, P_e_bald ) = 'BALD emissions' emis_ant_units_table( idomain, P_e_bald ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_bald )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bald )%stream(2) = 2097152 F_e_bald = .TRUE. IF ( emis_ant_index_table( PARAM_e_ald2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ald2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ald2 , idomain ) = P_e_ald2 ELSE P_e_ald2 = emis_ant_index_table( PARAM_e_ald2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ald2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ald2 ) = 'E_ALD2' emis_ant_desc_table( idomain, P_e_ald2 ) = 'EMISSIONS ALD2' emis_ant_units_table( idomain, P_e_ald2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ald2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ald2 )%stream(2) = 0 F_e_ald2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ccooh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ccooh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ccooh , idomain ) = P_e_ccooh ELSE P_e_ccooh = emis_ant_index_table( PARAM_e_ccooh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ccooh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ccooh ) = 'E_CCOOH' emis_ant_desc_table( idomain, P_e_ccooh ) = 'EMISSIONS CCOOH' emis_ant_units_table( idomain, P_e_ccooh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ccooh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ccooh )%stream(2) = 0 F_e_ccooh = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_cres , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cres = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cres , idomain ) = P_e_cres ELSE P_e_cres = emis_ant_index_table( PARAM_e_cres , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cres ) = .FALSE. emis_ant_dname_table( idomain, P_e_cres ) = 'E_CRES' emis_ant_desc_table( idomain, P_e_cres ) = 'CRES emissions' emis_ant_units_table( idomain, P_e_cres ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_cres )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_cres )%stream(2) = 2097152 F_e_cres = .TRUE. IF ( emis_ant_index_table( PARAM_e_eth , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eth = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eth , idomain ) = P_e_eth ELSE P_e_eth = emis_ant_index_table( PARAM_e_eth , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eth ) = .FALSE. emis_ant_dname_table( idomain, P_e_eth ) = 'E_ETH' emis_ant_desc_table( idomain, P_e_eth ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_eth ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_eth )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eth )%stream(2) = 2097152 F_e_eth = .TRUE. IF ( emis_ant_index_table( PARAM_e_etha , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_etha = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_etha , idomain ) = P_e_etha ELSE P_e_etha = emis_ant_index_table( PARAM_e_etha , idomain ) END IF emis_ant_boundary_table( idomain, P_e_etha ) = .FALSE. emis_ant_dname_table( idomain, P_e_etha ) = 'E_ETHA' emis_ant_desc_table( idomain, P_e_etha ) = 'EMISSIONS ETHA' emis_ant_units_table( idomain, P_e_etha ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_etha )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_etha )%stream(2) = 0 F_e_etha = .TRUE. IF ( emis_ant_index_table( PARAM_e_gly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_gly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_gly , idomain ) = P_e_gly ELSE P_e_gly = emis_ant_index_table( PARAM_e_gly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_gly ) = .FALSE. emis_ant_dname_table( idomain, P_e_gly ) = 'E_GLY' emis_ant_desc_table( idomain, P_e_gly ) = 'GLY emissions' emis_ant_units_table( idomain, P_e_gly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_gly )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_gly )%stream(2) = 2097152 F_e_gly = .TRUE. IF ( emis_ant_index_table( PARAM_e_form , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_form = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_form , idomain ) = P_e_form ELSE P_e_form = emis_ant_index_table( PARAM_e_form , idomain ) END IF emis_ant_boundary_table( idomain, P_e_form ) = .FALSE. emis_ant_dname_table( idomain, P_e_form ) = 'E_FORM' emis_ant_desc_table( idomain, P_e_form ) = 'EMISSIONS FORM' emis_ant_units_table( idomain, P_e_form ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_form )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_form )%stream(2) = 0 F_e_form = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcooh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcooh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcooh , idomain ) = P_e_hcooh ELSE P_e_hcooh = emis_ant_index_table( PARAM_e_hcooh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcooh ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcooh ) = 'E_HCOOH' emis_ant_desc_table( idomain, P_e_hcooh ) = 'HCOOH emissions' emis_ant_units_table( idomain, P_e_hcooh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcooh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcooh )%stream(2) = 2097152 F_e_hcooh = .TRUE. IF ( emis_ant_index_table( PARAM_e_iprod , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iprod = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iprod , idomain ) = P_e_iprod ELSE P_e_iprod = emis_ant_index_table( PARAM_e_iprod , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iprod ) = .FALSE. emis_ant_dname_table( idomain, P_e_iprod ) = 'E_IPROD' emis_ant_desc_table( idomain, P_e_iprod ) = 'EMISSIONS IPROD' emis_ant_units_table( idomain, P_e_iprod ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iprod )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_iprod )%stream(2) = 0 F_e_iprod = .TRUE. IF ( emis_ant_index_table( PARAM_e_isop , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_isop = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_isop , idomain ) = P_e_isop ELSE P_e_isop = emis_ant_index_table( PARAM_e_isop , idomain ) END IF emis_ant_boundary_table( idomain, P_e_isop ) = .FALSE. emis_ant_dname_table( idomain, P_e_isop ) = 'E_ISOP' emis_ant_desc_table( idomain, P_e_isop ) = 'EMISSIONS ISOP' emis_ant_units_table( idomain, P_e_isop ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_isop )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_isop )%stream(2) = 0 F_e_isop = .TRUE. IF ( emis_ant_index_table( PARAM_e_macr , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_macr = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_macr , idomain ) = P_e_macr ELSE P_e_macr = emis_ant_index_table( PARAM_e_macr , idomain ) END IF emis_ant_boundary_table( idomain, P_e_macr ) = .FALSE. emis_ant_dname_table( idomain, P_e_macr ) = 'E_MACR' emis_ant_desc_table( idomain, P_e_macr ) = 'MACR emissions' emis_ant_units_table( idomain, P_e_macr ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_macr )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_macr )%stream(2) = 0 F_e_macr = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_meoh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_meoh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_meoh , idomain ) = P_e_meoh ELSE P_e_meoh = emis_ant_index_table( PARAM_e_meoh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_meoh ) = .FALSE. emis_ant_dname_table( idomain, P_e_meoh ) = 'E_MEOH' emis_ant_desc_table( idomain, P_e_meoh ) = 'MEOH emissions' emis_ant_units_table( idomain, P_e_meoh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_meoh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_meoh )%stream(2) = 2097152 F_e_meoh = .TRUE. IF ( emis_ant_index_table( PARAM_e_meo2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_meo2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_meo2 , idomain ) = P_e_meo2 ELSE P_e_meo2 = emis_ant_index_table( PARAM_e_meo2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_meo2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_meo2 ) = 'E_MEO2' emis_ant_desc_table( idomain, P_e_meo2 ) = 'EMISSIONS MEO2' emis_ant_units_table( idomain, P_e_meo2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_meo2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_meo2 )%stream(2) = 0 F_e_meo2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_etoh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_etoh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_etoh , idomain ) = P_e_etoh ELSE P_e_etoh = emis_ant_index_table( PARAM_e_etoh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_etoh ) = .FALSE. emis_ant_dname_table( idomain, P_e_etoh ) = 'E_ETOH' emis_ant_desc_table( idomain, P_e_etoh ) = 'EMISSIONS ETOH' emis_ant_units_table( idomain, P_e_etoh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_etoh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_etoh )%stream(2) = 0 F_e_etoh = .TRUE. IF ( emis_ant_index_table( PARAM_e_mgly , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mgly = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mgly , idomain ) = P_e_mgly ELSE P_e_mgly = emis_ant_index_table( PARAM_e_mgly , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mgly ) = .FALSE. emis_ant_dname_table( idomain, P_e_mgly ) = 'E_MGLY' emis_ant_desc_table( idomain, P_e_mgly ) = 'MGLY emissions' emis_ant_units_table( idomain, P_e_mgly ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mgly )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mgly )%stream(2) = 2097152 F_e_mgly = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcl , idomain ) = P_e_hcl ELSE P_e_hcl = emis_ant_index_table( PARAM_e_hcl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcl ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcl ) = 'E_HCL' emis_ant_desc_table( idomain, P_e_hcl ) = 'EMISSIONS HCL' emis_ant_units_table( idomain, P_e_hcl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcl )%stream(2) = 0 F_e_hcl = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_iole , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_iole = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_iole , idomain ) = P_e_iole ELSE P_e_iole = emis_ant_index_table( PARAM_e_iole , idomain ) END IF emis_ant_boundary_table( idomain, P_e_iole ) = .FALSE. emis_ant_dname_table( idomain, P_e_iole ) = 'E_IOLE' emis_ant_desc_table( idomain, P_e_iole ) = 'EMISSIONS IOLE' emis_ant_units_table( idomain, P_e_iole ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_iole )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_iole )%stream(2) = 0 F_e_iole = .TRUE. IF ( emis_ant_index_table( PARAM_e_ole , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ole = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ole , idomain ) = P_e_ole ELSE P_e_ole = emis_ant_index_table( PARAM_e_ole , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ole ) = .FALSE. emis_ant_dname_table( idomain, P_e_ole ) = 'E_OLE' emis_ant_desc_table( idomain, P_e_ole ) = 'EMISSIONS OLE' emis_ant_units_table( idomain, P_e_ole ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ole )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ole )%stream(2) = 0 F_e_ole = .TRUE. IF ( emis_ant_index_table( PARAM_e_phen , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_phen = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_phen , idomain ) = P_e_phen ELSE P_e_phen = emis_ant_index_table( PARAM_e_phen , idomain ) END IF emis_ant_boundary_table( idomain, P_e_phen ) = .FALSE. emis_ant_dname_table( idomain, P_e_phen ) = 'E_PHEN' emis_ant_desc_table( idomain, P_e_phen ) = 'PHEN emissions' emis_ant_units_table( idomain, P_e_phen ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_phen )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_phen )%stream(2) = 2097152 F_e_phen = .TRUE. IF ( emis_ant_index_table( PARAM_e_prod2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_prod2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_prod2 , idomain ) = P_e_prod2 ELSE P_e_prod2 = emis_ant_index_table( PARAM_e_prod2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_prod2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_prod2 ) = 'E_PROD2' emis_ant_desc_table( idomain, P_e_prod2 ) = 'PROD2 emissions' emis_ant_units_table( idomain, P_e_prod2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_prod2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_prod2 )%stream(2) = 2097152 F_e_prod2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_aldx , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_aldx = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_aldx , idomain ) = P_e_aldx ELSE P_e_aldx = emis_ant_index_table( PARAM_e_aldx , idomain ) END IF emis_ant_boundary_table( idomain, P_e_aldx ) = .FALSE. emis_ant_dname_table( idomain, P_e_aldx ) = 'E_ALDX' emis_ant_desc_table( idomain, P_e_aldx ) = 'EMISSIONS ALDX' emis_ant_units_table( idomain, P_e_aldx ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_aldx )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_aldx )%stream(2) = 0 F_e_aldx = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_psulf , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_psulf = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_psulf , idomain ) = P_e_psulf ELSE P_e_psulf = emis_ant_index_table( PARAM_e_psulf , idomain ) END IF emis_ant_boundary_table( idomain, P_e_psulf ) = .FALSE. emis_ant_dname_table( idomain, P_e_psulf ) = 'E_PSULF' emis_ant_desc_table( idomain, P_e_psulf ) = 'EMISSIONS PSULF' emis_ant_units_table( idomain, P_e_psulf ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_psulf )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_psulf )%stream(2) = 0 F_e_psulf = .TRUE. IF ( emis_ant_index_table( PARAM_e_terp , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_terp = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_terp , idomain ) = P_e_terp ELSE P_e_terp = emis_ant_index_table( PARAM_e_terp , idomain ) END IF emis_ant_boundary_table( idomain, P_e_terp ) = .FALSE. emis_ant_dname_table( idomain, P_e_terp ) = 'E_TERP' emis_ant_desc_table( idomain, P_e_terp ) = 'TERP emissions' emis_ant_units_table( idomain, P_e_terp ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_terp )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_terp )%stream(2) = 2097152 F_e_terp = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25i , idomain ) = P_e_pm25i ELSE P_e_pm25i = emis_ant_index_table( PARAM_e_pm25i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25i ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25i ) = 'E_PM25I' emis_ant_desc_table( idomain, P_e_pm25i ) = 'EMISSION RATE OF UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25i )%stream(2) = 2097152 F_e_pm25i = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25j , idomain ) = P_e_pm25j ELSE P_e_pm25j = emis_ant_index_table( PARAM_e_pm25j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25j ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25j ) = 'E_PM25J' emis_ant_desc_table( idomain, P_e_pm25j ) = 'EMISSION RATE OF J-MODE UNIDEN. PM2.5 MASS' emis_ant_units_table( idomain, P_e_pm25j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25j )%stream(2) = 2097152 F_e_pm25j = .TRUE. IF ( emis_ant_index_table( PARAM_e_eci , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_eci = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_eci , idomain ) = P_e_eci ELSE P_e_eci = emis_ant_index_table( PARAM_e_eci , idomain ) END IF emis_ant_boundary_table( idomain, P_e_eci ) = .FALSE. emis_ant_dname_table( idomain, P_e_eci ) = 'E_ECI' emis_ant_desc_table( idomain, P_e_eci ) = 'EMISSION RATE OF I-MODE EC' emis_ant_units_table( idomain, P_e_eci ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_eci )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_eci )%stream(2) = 2097152 F_e_eci = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecj , idomain ) = P_e_ecj ELSE P_e_ecj = emis_ant_index_table( PARAM_e_ecj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecj ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecj ) = 'E_ECJ' emis_ant_desc_table( idomain, P_e_ecj ) = 'EMISSION RATE OF J-MODE EC' emis_ant_units_table( idomain, P_e_ecj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecj )%stream(2) = 2097152 F_e_ecj = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgi , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgi = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgi , idomain ) = P_e_orgi ELSE P_e_orgi = emis_ant_index_table( PARAM_e_orgi , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgi ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgi ) = 'E_ORGI' emis_ant_desc_table( idomain, P_e_orgi ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgi ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgi )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgi )%stream(2) = 2097152 F_e_orgi = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgj , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgj = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgj , idomain ) = P_e_orgj ELSE P_e_orgj = emis_ant_index_table( PARAM_e_orgj , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgj ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgj ) = 'E_ORGJ' emis_ant_desc_table( idomain, P_e_orgj ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_orgj ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgj )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgj )%stream(2) = 2097152 F_e_orgj = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4i , idomain ) = P_e_so4i ELSE P_e_so4i = emis_ant_index_table( PARAM_e_so4i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4i ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4i ) = 'E_SO4I' emis_ant_desc_table( idomain, P_e_so4i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4i )%stream(2) = 2097152 F_e_so4i = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4j , idomain ) = P_e_so4j ELSE P_e_so4j = emis_ant_index_table( PARAM_e_so4j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4j ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4j ) = 'E_SO4J' emis_ant_desc_table( idomain, P_e_so4j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_so4j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4j )%stream(2) = 2097152 F_e_so4j = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3i , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3i = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3i , idomain ) = P_e_no3i ELSE P_e_no3i = emis_ant_index_table( PARAM_e_no3i , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3i ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3i ) = 'E_NO3I' emis_ant_desc_table( idomain, P_e_no3i ) = 'EMISSION RATE OF I-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3i ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3i )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3i )%stream(2) = 2097152 F_e_no3i = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3j , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3j = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3j , idomain ) = P_e_no3j ELSE P_e_no3j = emis_ant_index_table( PARAM_e_no3j , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3j ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3j ) = 'E_NO3J' emis_ant_desc_table( idomain, P_e_no3j ) = 'EMISSION RATE OF J-MODE ORG. AER.' emis_ant_units_table( idomain, P_e_no3j ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3j )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3j )%stream(2) = 2097152 F_e_no3j = .TRUE. IF ( emis_ant_index_table( PARAM_e_so4c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so4c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so4c , idomain ) = P_e_so4c ELSE P_e_so4c = emis_ant_index_table( PARAM_e_so4c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so4c ) = .FALSE. emis_ant_dname_table( idomain, P_e_so4c ) = 'E_SO4C' emis_ant_desc_table( idomain, P_e_so4c ) = 'EMISSIONS COARSE SO4 AER' emis_ant_units_table( idomain, P_e_so4c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_so4c )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so4c )%stream(2) = 0 F_e_so4c = .TRUE. IF ( emis_ant_index_table( PARAM_e_no3c , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no3c = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no3c , idomain ) = P_e_no3c ELSE P_e_no3c = emis_ant_index_table( PARAM_e_no3c , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no3c ) = .FALSE. emis_ant_dname_table( idomain, P_e_no3c ) = 'E_NO3C' emis_ant_desc_table( idomain, P_e_no3c ) = 'EMISSIONS COARSE NO3 AER' emis_ant_units_table( idomain, P_e_no3c ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_no3c )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no3c )%stream(2) = 0 F_e_no3c = .TRUE. IF ( emis_ant_index_table( PARAM_e_orgc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_orgc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_orgc , idomain ) = P_e_orgc ELSE P_e_orgc = emis_ant_index_table( PARAM_e_orgc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_orgc ) = .FALSE. emis_ant_dname_table( idomain, P_e_orgc ) = 'E_ORGC' emis_ant_desc_table( idomain, P_e_orgc ) = 'EMISSIONS COARSE ORG AER' emis_ant_units_table( idomain, P_e_orgc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_orgc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_orgc )%stream(2) = 0 F_e_orgc = .TRUE. IF ( emis_ant_index_table( PARAM_e_ecc , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ecc = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ecc , idomain ) = P_e_ecc ELSE P_e_ecc = emis_ant_index_table( PARAM_e_ecc , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ecc ) = .FALSE. emis_ant_dname_table( idomain, P_e_ecc ) = 'E_ECC' emis_ant_desc_table( idomain, P_e_ecc ) = 'EMISSIONS COARSE EC AER' emis_ant_units_table( idomain, P_e_ecc ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ecc )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ecc )%stream(2) = 0 F_e_ecc = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm10 , idomain ) = P_e_pm10 ELSE P_e_pm10 = emis_ant_index_table( PARAM_e_pm10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm10 ) = 'E_PM10' emis_ant_desc_table( idomain, P_e_pm10 ) = 'EMISSION RATE OF PARTICULATE MATTER 10UM MODE' emis_ant_units_table( idomain, P_e_pm10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm10 )%stream(2) = 0 F_e_pm10 = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==16)THEN IF ( emis_ant_index_table( PARAM_e_co2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co2 , idomain ) = P_e_co2 ELSE P_e_co2 = emis_ant_index_table( PARAM_e_co2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_co2 ) = 'E_CO2' emis_ant_desc_table( idomain, P_e_co2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co2 )%stream(2) = 2097152 F_e_co2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_co2tst , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co2tst = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co2tst , idomain ) = P_e_co2tst ELSE P_e_co2tst = emis_ant_index_table( PARAM_e_co2tst , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co2tst ) = .FALSE. emis_ant_dname_table( idomain, P_e_co2tst ) = 'E_CO2TST' emis_ant_desc_table( idomain, P_e_co2tst ) = 'Anthropogenic CO2 test fluxes' emis_ant_units_table( idomain, P_e_co2tst ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co2tst )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co2tst )%stream(2) = 0 F_e_co2tst = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==17)THEN IF ( emis_ant_index_table( PARAM_e_co2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co2 , idomain ) = P_e_co2 ELSE P_e_co2 = emis_ant_index_table( PARAM_e_co2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_co2 ) = 'E_CO2' emis_ant_desc_table( idomain, P_e_co2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co2 )%stream(2) = 2097152 F_e_co2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_co2tst , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co2tst = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co2tst , idomain ) = P_e_co2tst ELSE P_e_co2tst = emis_ant_index_table( PARAM_e_co2tst , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co2tst ) = .FALSE. emis_ant_dname_table( idomain, P_e_co2tst ) = 'E_CO2TST' emis_ant_desc_table( idomain, P_e_co2tst ) = 'Anthropogenic CO2 test fluxes' emis_ant_units_table( idomain, P_e_co2tst ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co2tst )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co2tst )%stream(2) = 0 F_e_co2tst = .TRUE. IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_cotst , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_cotst = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_cotst , idomain ) = P_e_cotst ELSE P_e_cotst = emis_ant_index_table( PARAM_e_cotst , idomain ) END IF emis_ant_boundary_table( idomain, P_e_cotst ) = .FALSE. emis_ant_dname_table( idomain, P_e_cotst ) = 'E_COTST' emis_ant_desc_table( idomain, P_e_cotst ) = 'Anthropogenic CO test fluxes' emis_ant_units_table( idomain, P_e_cotst ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_cotst )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_cotst )%stream(2) = 0 F_e_cotst = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch4 , idomain ) = P_e_ch4 ELSE P_e_ch4 = emis_ant_index_table( PARAM_e_ch4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch4 ) = 'E_CH4' emis_ant_desc_table( idomain, P_e_ch4 ) = 'CH4 emissions' emis_ant_units_table( idomain, P_e_ch4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch4 )%stream(2) = 2097152 F_e_ch4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch4tst , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch4tst = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch4tst , idomain ) = P_e_ch4tst ELSE P_e_ch4tst = emis_ant_index_table( PARAM_e_ch4tst , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch4tst ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch4tst ) = 'E_CH4TST' emis_ant_desc_table( idomain, P_e_ch4tst ) = 'Anthropogenic CH4 test fluxes' emis_ant_units_table( idomain, P_e_ch4tst ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch4tst )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch4tst )%stream(2) = 0 F_e_ch4tst = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==19)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c5h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c5h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c5h8 , idomain ) = P_e_c5h8 ELSE P_e_c5h8 = emis_ant_index_table( PARAM_e_c5h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c5h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c5h8 ) = 'E_C5H8' emis_ant_desc_table( idomain, P_e_c5h8 ) = 'EMISSIONS C5H8' emis_ant_units_table( idomain, P_e_c5h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c5h8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c5h8 )%stream(2) = 0 F_e_c5h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm123b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm123b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm123b , idomain ) = P_e_tm123b ELSE P_e_tm123b = emis_ant_index_table( PARAM_e_tm123b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm123b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm123b ) = 'E_TM123B' emis_ant_desc_table( idomain, P_e_tm123b ) = 'EMISSIONS TM123B' emis_ant_units_table( idomain, P_e_tm123b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm123b )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tm123b )%stream(2) = 0 F_e_tm123b = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm124b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm124b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm124b , idomain ) = P_e_tm124b ELSE P_e_tm124b = emis_ant_index_table( PARAM_e_tm124b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm124b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm124b ) = 'E_TM124B' emis_ant_desc_table( idomain, P_e_tm124b ) = 'EMISSIONS TM124B' emis_ant_units_table( idomain, P_e_tm124b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm124b )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tm124b )%stream(2) = 0 F_e_tm124b = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm135b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm135b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm135b , idomain ) = P_e_tm135b ELSE P_e_tm135b = emis_ant_index_table( PARAM_e_tm135b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm135b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm135b ) = 'E_TM135B' emis_ant_desc_table( idomain, P_e_tm135b ) = 'EMISSIONS TM124B' emis_ant_units_table( idomain, P_e_tm135b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm135b )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tm135b )%stream(2) = 0 F_e_tm135b = .TRUE. IF ( emis_ant_index_table( PARAM_e_oethtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oethtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oethtol , idomain ) = P_e_oethtol ELSE P_e_oethtol = emis_ant_index_table( PARAM_e_oethtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oethtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_oethtol ) = 'E_OETHTOL' emis_ant_desc_table( idomain, P_e_oethtol ) = 'EMISSIONS OETHTOL' emis_ant_units_table( idomain, P_e_oethtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oethtol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oethtol )%stream(2) = 0 F_e_oethtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_methtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_methtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_methtol , idomain ) = P_e_methtol ELSE P_e_methtol = emis_ant_index_table( PARAM_e_methtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_methtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_methtol ) = 'E_METHTOL' emis_ant_desc_table( idomain, P_e_methtol ) = 'EMISSIONS METHTOL' emis_ant_units_table( idomain, P_e_methtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_methtol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_methtol )%stream(2) = 0 F_e_methtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_pethtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pethtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pethtol , idomain ) = P_e_pethtol ELSE P_e_pethtol = emis_ant_index_table( PARAM_e_pethtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pethtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_pethtol ) = 'E_PETHTOL' emis_ant_desc_table( idomain, P_e_pethtol ) = 'EMISSIONS PETHTOL' emis_ant_units_table( idomain, P_e_pethtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pethtol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pethtol )%stream(2) = 0 F_e_pethtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_dime35eb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dime35eb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dime35eb , idomain ) = P_e_dime35eb ELSE P_e_dime35eb = emis_ant_index_table( PARAM_e_dime35eb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dime35eb ) = .FALSE. emis_ant_dname_table( idomain, P_e_dime35eb ) = 'E_DIME35EB' emis_ant_desc_table( idomain, P_e_dime35eb ) = 'EMISSIONS DIME35EB' emis_ant_units_table( idomain, P_e_dime35eb ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_dime35eb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_dime35eb )%stream(2) = 0 F_e_dime35eb = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5cho , idomain ) = P_e_c2h5cho ELSE P_e_c2h5cho = emis_ant_index_table( PARAM_e_c2h5cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5cho ) = 'E_C2H5CHO' emis_ant_desc_table( idomain, P_e_c2h5cho ) = 'EMISSIONS C2H5CHO' emis_ant_units_table( idomain, P_e_c2h5cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5cho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5cho )%stream(2) = 0 F_e_c2h5cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h2 , idomain ) = P_e_c2h2 ELSE P_e_c2h2 = emis_ant_index_table( PARAM_e_c2h2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h2 ) = 'E_C2H2' emis_ant_desc_table( idomain, P_e_c2h2 ) = 'C2H2 emissions' emis_ant_units_table( idomain, P_e_c2h2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h2 )%stream(2) = 2097152 F_e_c2h2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_benzene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_benzene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_benzene , idomain ) = P_e_benzene ELSE P_e_benzene = emis_ant_index_table( PARAM_e_benzene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_benzene ) = .FALSE. emis_ant_dname_table( idomain, P_e_benzene ) = 'E_BENZENE' emis_ant_desc_table( idomain, P_e_benzene ) = 'EMISSIONS BENZENE' emis_ant_units_table( idomain, P_e_benzene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_benzene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_benzene )%stream(2) = 0 F_e_benzene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nc4h10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nc4h10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nc4h10 , idomain ) = P_e_nc4h10 ELSE P_e_nc4h10 = emis_ant_index_table( PARAM_e_nc4h10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nc4h10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nc4h10 ) = 'E_NC4H10' emis_ant_desc_table( idomain, P_e_nc4h10 ) = 'EMISSIONS NC4H10' emis_ant_units_table( idomain, P_e_nc4h10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nc4h10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nc4h10 )%stream(2) = 0 F_e_nc4h10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_oxyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oxyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oxyl , idomain ) = P_e_oxyl ELSE P_e_oxyl = emis_ant_index_table( PARAM_e_oxyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oxyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_oxyl ) = 'E_OXYL' emis_ant_desc_table( idomain, P_e_oxyl ) = 'EMISSIONS OXYL' emis_ant_units_table( idomain, P_e_oxyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oxyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oxyl )%stream(2) = 0 F_e_oxyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_tbut2ene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tbut2ene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tbut2ene , idomain ) = P_e_tbut2ene ELSE P_e_tbut2ene = emis_ant_index_table( PARAM_e_tbut2ene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tbut2ene ) = .FALSE. emis_ant_dname_table( idomain, P_e_tbut2ene ) = 'E_TBUT2ENE' emis_ant_desc_table( idomain, P_e_tbut2ene ) = 'EMISSIONS TBUT2ENE' emis_ant_units_table( idomain, P_e_tbut2ene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tbut2ene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tbut2ene )%stream(2) = 0 F_e_tbut2ene = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3co2h , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3co2h = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3co2h , idomain ) = P_e_ch3co2h ELSE P_e_ch3co2h = emis_ant_index_table( PARAM_e_ch3co2h , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3co2h ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3co2h ) = 'E_CH3CO2H' emis_ant_desc_table( idomain, P_e_ch3co2h ) = 'EMISSIONS CH3CO2H' emis_ant_units_table( idomain, P_e_ch3co2h ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3co2h )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3co2h )%stream(2) = 0 F_e_ch3co2h = .TRUE. END IF IF (model_config_rec%emiss_opt(idomain)==20)THEN IF ( emis_ant_index_table( PARAM_e_co , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_co = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_co , idomain ) = P_e_co ELSE P_e_co = emis_ant_index_table( PARAM_e_co , idomain ) END IF emis_ant_boundary_table( idomain, P_e_co ) = .FALSE. emis_ant_dname_table( idomain, P_e_co ) = 'E_CO' emis_ant_desc_table( idomain, P_e_co ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_co ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_co )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_co )%stream(2) = 2097152 F_e_co = .TRUE. IF ( emis_ant_index_table( PARAM_e_no , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no , idomain ) = P_e_no ELSE P_e_no = emis_ant_index_table( PARAM_e_no , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no ) = .FALSE. emis_ant_dname_table( idomain, P_e_no ) = 'E_NO' emis_ant_desc_table( idomain, P_e_no ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_no ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no )%stream(2) = 2097152 F_e_no = .TRUE. IF ( emis_ant_index_table( PARAM_e_no2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_no2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_no2 , idomain ) = P_e_no2 ELSE P_e_no2 = emis_ant_index_table( PARAM_e_no2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_no2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_no2 ) = 'E_NO2' emis_ant_desc_table( idomain, P_e_no2 ) = 'EMISSIONS NO2' emis_ant_units_table( idomain, P_e_no2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_no2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_no2 )%stream(2) = 2097152 F_e_no2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_so2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_so2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_so2 , idomain ) = P_e_so2 ELSE P_e_so2 = emis_ant_index_table( PARAM_e_so2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_so2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_so2 ) = 'E_SO2' emis_ant_desc_table( idomain, P_e_so2 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_so2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_so2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_so2 )%stream(2) = 2097152 F_e_so2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_nh3 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nh3 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nh3 , idomain ) = P_e_nh3 ELSE P_e_nh3 = emis_ant_index_table( PARAM_e_nh3 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nh3 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nh3 ) = 'E_NH3' emis_ant_desc_table( idomain, P_e_nh3 ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_nh3 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nh3 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nh3 )%stream(2) = 2097152 F_e_nh3 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h6 , idomain ) = P_e_c2h6 ELSE P_e_c2h6 = emis_ant_index_table( PARAM_e_c2h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h6 ) = 'E_C2H6' emis_ant_desc_table( idomain, P_e_c2h6 ) = 'EMISSIONS C2H6' emis_ant_units_table( idomain, P_e_c2h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h6 )%stream(2) = 0 F_e_c2h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h8 , idomain ) = P_e_c3h8 ELSE P_e_c3h8 = emis_ant_index_table( PARAM_e_c3h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h8 ) = 'E_C3H8' emis_ant_desc_table( idomain, P_e_c3h8 ) = 'EMISSIONS C3H8' emis_ant_units_table( idomain, P_e_c3h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h8 )%stream(2) = 0 F_e_c3h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h4 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h4 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h4 , idomain ) = P_e_c2h4 ELSE P_e_c2h4 = emis_ant_index_table( PARAM_e_c2h4 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h4 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h4 ) = 'E_C2H4' emis_ant_desc_table( idomain, P_e_c2h4 ) = 'EMISSIONS C2H4' emis_ant_units_table( idomain, P_e_c2h4 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h4 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h4 )%stream(2) = 0 F_e_c2h4 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c3h6 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c3h6 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c3h6 , idomain ) = P_e_c3h6 ELSE P_e_c3h6 = emis_ant_index_table( PARAM_e_c3h6 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c3h6 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c3h6 ) = 'E_C3H6' emis_ant_desc_table( idomain, P_e_c3h6 ) = 'EMISSIONS C3H6' emis_ant_units_table( idomain, P_e_c3h6 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c3h6 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c3h6 )%stream(2) = 0 F_e_c3h6 = .TRUE. IF ( emis_ant_index_table( PARAM_e_c5h8 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c5h8 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c5h8 , idomain ) = P_e_c5h8 ELSE P_e_c5h8 = emis_ant_index_table( PARAM_e_c5h8 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c5h8 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c5h8 ) = 'E_C5H8' emis_ant_desc_table( idomain, P_e_c5h8 ) = 'EMISSIONS C5H8' emis_ant_units_table( idomain, P_e_c5h8 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c5h8 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c5h8 )%stream(2) = 0 F_e_c5h8 = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm123b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm123b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm123b , idomain ) = P_e_tm123b ELSE P_e_tm123b = emis_ant_index_table( PARAM_e_tm123b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm123b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm123b ) = 'E_TM123B' emis_ant_desc_table( idomain, P_e_tm123b ) = 'EMISSIONS TM123B' emis_ant_units_table( idomain, P_e_tm123b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm123b )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tm123b )%stream(2) = 0 F_e_tm123b = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm124b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm124b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm124b , idomain ) = P_e_tm124b ELSE P_e_tm124b = emis_ant_index_table( PARAM_e_tm124b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm124b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm124b ) = 'E_TM124B' emis_ant_desc_table( idomain, P_e_tm124b ) = 'EMISSIONS TM124B' emis_ant_units_table( idomain, P_e_tm124b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm124b )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tm124b )%stream(2) = 0 F_e_tm124b = .TRUE. IF ( emis_ant_index_table( PARAM_e_tm135b , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tm135b = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tm135b , idomain ) = P_e_tm135b ELSE P_e_tm135b = emis_ant_index_table( PARAM_e_tm135b , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tm135b ) = .FALSE. emis_ant_dname_table( idomain, P_e_tm135b ) = 'E_TM135B' emis_ant_desc_table( idomain, P_e_tm135b ) = 'EMISSIONS TM124B' emis_ant_units_table( idomain, P_e_tm135b ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tm135b )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tm135b )%stream(2) = 0 F_e_tm135b = .TRUE. IF ( emis_ant_index_table( PARAM_e_oethtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oethtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oethtol , idomain ) = P_e_oethtol ELSE P_e_oethtol = emis_ant_index_table( PARAM_e_oethtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oethtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_oethtol ) = 'E_OETHTOL' emis_ant_desc_table( idomain, P_e_oethtol ) = 'EMISSIONS OETHTOL' emis_ant_units_table( idomain, P_e_oethtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oethtol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oethtol )%stream(2) = 0 F_e_oethtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_methtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_methtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_methtol , idomain ) = P_e_methtol ELSE P_e_methtol = emis_ant_index_table( PARAM_e_methtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_methtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_methtol ) = 'E_METHTOL' emis_ant_desc_table( idomain, P_e_methtol ) = 'EMISSIONS METHTOL' emis_ant_units_table( idomain, P_e_methtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_methtol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_methtol )%stream(2) = 0 F_e_methtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_pethtol , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pethtol = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pethtol , idomain ) = P_e_pethtol ELSE P_e_pethtol = emis_ant_index_table( PARAM_e_pethtol , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pethtol ) = .FALSE. emis_ant_dname_table( idomain, P_e_pethtol ) = 'E_PETHTOL' emis_ant_desc_table( idomain, P_e_pethtol ) = 'EMISSIONS PETHTOL' emis_ant_units_table( idomain, P_e_pethtol ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_pethtol )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pethtol )%stream(2) = 0 F_e_pethtol = .TRUE. IF ( emis_ant_index_table( PARAM_e_dime35eb , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_dime35eb = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_dime35eb , idomain ) = P_e_dime35eb ELSE P_e_dime35eb = emis_ant_index_table( PARAM_e_dime35eb , idomain ) END IF emis_ant_boundary_table( idomain, P_e_dime35eb ) = .FALSE. emis_ant_dname_table( idomain, P_e_dime35eb ) = 'E_DIME35EB' emis_ant_desc_table( idomain, P_e_dime35eb ) = 'EMISSIONS DIME35EB' emis_ant_units_table( idomain, P_e_dime35eb ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_dime35eb )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_dime35eb )%stream(2) = 0 F_e_dime35eb = .TRUE. IF ( emis_ant_index_table( PARAM_e_hcho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_hcho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_hcho , idomain ) = P_e_hcho ELSE P_e_hcho = emis_ant_index_table( PARAM_e_hcho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_hcho ) = .FALSE. emis_ant_dname_table( idomain, P_e_hcho ) = 'E_HCHO' emis_ant_desc_table( idomain, P_e_hcho ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_hcho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_hcho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_hcho )%stream(2) = 2097152 F_e_hcho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3cho , idomain ) = P_e_ch3cho ELSE P_e_ch3cho = emis_ant_index_table( PARAM_e_ch3cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3cho ) = 'E_CH3CHO' emis_ant_desc_table( idomain, P_e_ch3cho ) = 'EMISSIONS CH3CHO' emis_ant_units_table( idomain, P_e_ch3cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3cho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3cho )%stream(2) = 0 F_e_ch3cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5cho , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5cho = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5cho , idomain ) = P_e_c2h5cho ELSE P_e_c2h5cho = emis_ant_index_table( PARAM_e_c2h5cho , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5cho ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5cho ) = 'E_C2H5CHO' emis_ant_desc_table( idomain, P_e_c2h5cho ) = 'EMISSIONS C2H5CHO' emis_ant_units_table( idomain, P_e_c2h5cho ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5cho )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5cho )%stream(2) = 0 F_e_c2h5cho = .TRUE. IF ( emis_ant_index_table( PARAM_e_ket , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ket = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ket , idomain ) = P_e_ket ELSE P_e_ket = emis_ant_index_table( PARAM_e_ket , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ket ) = .FALSE. emis_ant_dname_table( idomain, P_e_ket ) = 'E_KET' emis_ant_desc_table( idomain, P_e_ket ) = 'EMISSIONS' emis_ant_units_table( idomain, P_e_ket ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ket )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ket )%stream(2) = 2097152 F_e_ket = .TRUE. IF ( emis_ant_index_table( PARAM_e_mek , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_mek = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_mek , idomain ) = P_e_mek ELSE P_e_mek = emis_ant_index_table( PARAM_e_mek , idomain ) END IF emis_ant_boundary_table( idomain, P_e_mek ) = .FALSE. emis_ant_dname_table( idomain, P_e_mek ) = 'E_MEK' emis_ant_desc_table( idomain, P_e_mek ) = 'EMISSIONS MEK' emis_ant_units_table( idomain, P_e_mek ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_mek )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_mek )%stream(2) = 0 F_e_mek = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3oh , idomain ) = P_e_ch3oh ELSE P_e_ch3oh = emis_ant_index_table( PARAM_e_ch3oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3oh ) = 'E_CH3OH' emis_ant_desc_table( idomain, P_e_ch3oh ) = 'EMISSIONS CH3OH' emis_ant_units_table( idomain, P_e_ch3oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3oh )%stream(2) = 0 F_e_ch3oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h5oh , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h5oh = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h5oh , idomain ) = P_e_c2h5oh ELSE P_e_c2h5oh = emis_ant_index_table( PARAM_e_c2h5oh , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h5oh ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h5oh ) = 'E_C2H5OH' emis_ant_desc_table( idomain, P_e_c2h5oh ) = 'EMISSIONS C2H5OH' emis_ant_units_table( idomain, P_e_c2h5oh ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h5oh )%stream(2) = 0 F_e_c2h5oh = .TRUE. IF ( emis_ant_index_table( PARAM_e_c2h2 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_c2h2 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_c2h2 , idomain ) = P_e_c2h2 ELSE P_e_c2h2 = emis_ant_index_table( PARAM_e_c2h2 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_c2h2 ) = .FALSE. emis_ant_dname_table( idomain, P_e_c2h2 ) = 'E_C2H2' emis_ant_desc_table( idomain, P_e_c2h2 ) = 'C2H2 emissions' emis_ant_units_table( idomain, P_e_c2h2 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_c2h2 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_c2h2 )%stream(2) = 2097152 F_e_c2h2 = .TRUE. IF ( emis_ant_index_table( PARAM_e_benzene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_benzene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_benzene , idomain ) = P_e_benzene ELSE P_e_benzene = emis_ant_index_table( PARAM_e_benzene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_benzene ) = .FALSE. emis_ant_dname_table( idomain, P_e_benzene ) = 'E_BENZENE' emis_ant_desc_table( idomain, P_e_benzene ) = 'EMISSIONS BENZENE' emis_ant_units_table( idomain, P_e_benzene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_benzene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_benzene )%stream(2) = 0 F_e_benzene = .TRUE. IF ( emis_ant_index_table( PARAM_e_nc4h10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_nc4h10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_nc4h10 , idomain ) = P_e_nc4h10 ELSE P_e_nc4h10 = emis_ant_index_table( PARAM_e_nc4h10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_nc4h10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_nc4h10 ) = 'E_NC4H10' emis_ant_desc_table( idomain, P_e_nc4h10 ) = 'EMISSIONS NC4H10' emis_ant_units_table( idomain, P_e_nc4h10 ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_nc4h10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_nc4h10 )%stream(2) = 0 F_e_nc4h10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_toluene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_toluene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_toluene , idomain ) = P_e_toluene ELSE P_e_toluene = emis_ant_index_table( PARAM_e_toluene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_toluene ) = .FALSE. emis_ant_dname_table( idomain, P_e_toluene ) = 'E_TOLUENE' emis_ant_desc_table( idomain, P_e_toluene ) = 'EMISSIONS TOLUENE' emis_ant_units_table( idomain, P_e_toluene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_toluene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_toluene )%stream(2) = 0 F_e_toluene = .TRUE. IF ( emis_ant_index_table( PARAM_e_oxyl , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oxyl = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oxyl , idomain ) = P_e_oxyl ELSE P_e_oxyl = emis_ant_index_table( PARAM_e_oxyl , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oxyl ) = .FALSE. emis_ant_dname_table( idomain, P_e_oxyl ) = 'E_OXYL' emis_ant_desc_table( idomain, P_e_oxyl ) = 'EMISSIONS OXYL' emis_ant_units_table( idomain, P_e_oxyl ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_oxyl )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oxyl )%stream(2) = 0 F_e_oxyl = .TRUE. IF ( emis_ant_index_table( PARAM_e_tbut2ene , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_tbut2ene = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_tbut2ene , idomain ) = P_e_tbut2ene ELSE P_e_tbut2ene = emis_ant_index_table( PARAM_e_tbut2ene , idomain ) END IF emis_ant_boundary_table( idomain, P_e_tbut2ene ) = .FALSE. emis_ant_dname_table( idomain, P_e_tbut2ene ) = 'E_TBUT2ENE' emis_ant_desc_table( idomain, P_e_tbut2ene ) = 'EMISSIONS TBUT2ENE' emis_ant_units_table( idomain, P_e_tbut2ene ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_tbut2ene )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_tbut2ene )%stream(2) = 0 F_e_tbut2ene = .TRUE. IF ( emis_ant_index_table( PARAM_e_ch3co2h , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ch3co2h = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ch3co2h , idomain ) = P_e_ch3co2h ELSE P_e_ch3co2h = emis_ant_index_table( PARAM_e_ch3co2h , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ch3co2h ) = .FALSE. emis_ant_dname_table( idomain, P_e_ch3co2h ) = 'E_CH3CO2H' emis_ant_desc_table( idomain, P_e_ch3co2h ) = 'EMISSIONS CH3CO2H' emis_ant_units_table( idomain, P_e_ch3co2h ) = 'mol km^-2 hr^-1' emis_ant_streams_table( idomain, P_e_ch3co2h )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ch3co2h )%stream(2) = 0 F_e_ch3co2h = .TRUE. IF ( emis_ant_index_table( PARAM_e_bc_1 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_bc_1 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_bc_1 , idomain ) = P_e_bc_1 ELSE P_e_bc_1 = emis_ant_index_table( PARAM_e_bc_1 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_bc_1 ) = .FALSE. emis_ant_dname_table( idomain, P_e_bc_1 ) = 'E_BC_1' emis_ant_desc_table( idomain, P_e_bc_1 ) = 'EMISSION RATE OF BLACK CARBON 1UM MODE' emis_ant_units_table( idomain, P_e_bc_1 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_bc_1 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_bc_1 )%stream(2) = 0 F_e_bc_1 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ec_1_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ec_1_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ec_1_25 , idomain ) = P_e_ec_1_25 ELSE P_e_ec_1_25 = emis_ant_index_table( PARAM_e_ec_1_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ec_1_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ec_1_25 ) = 'E_EC_1_25' emis_ant_desc_table( idomain, P_e_ec_1_25 ) = 'EMISSION RATE OF ELEMENTAL CARBON 1UM-2.5UM MODE' emis_ant_units_table( idomain, P_e_ec_1_25 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ec_1_25 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ec_1_25 )%stream(2) = 0 F_e_ec_1_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_ec_25_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_ec_25_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_ec_25_10 , idomain ) = P_e_ec_25_10 ELSE P_e_ec_25_10 = emis_ant_index_table( PARAM_e_ec_25_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_ec_25_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_ec_25_10 ) = 'E_EC_25_10' emis_ant_desc_table( idomain, P_e_ec_25_10 ) = 'EMISSION RATE OF ELEMENTAL CARBON 2.5UM-10UM MODE' emis_ant_units_table( idomain, P_e_ec_25_10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_ec_25_10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_ec_25_10 )%stream(2) = 0 F_e_ec_25_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc_dom , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc_dom = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc_dom , idomain ) = P_e_oc_dom ELSE P_e_oc_dom = emis_ant_index_table( PARAM_e_oc_dom , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc_dom ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc_dom ) = 'E_OC_DOM' emis_ant_desc_table( idomain, P_e_oc_dom ) = 'EMISSION RATE OF ORGANIC CARBON 2.5UM MODE (Domestic combustion)' emis_ant_units_table( idomain, P_e_oc_dom ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc_dom )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oc_dom )%stream(2) = 0 F_e_oc_dom = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc_tra , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc_tra = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc_tra , idomain ) = P_e_oc_tra ELSE P_e_oc_tra = emis_ant_index_table( PARAM_e_oc_tra , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc_tra ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc_tra ) = 'E_OC_TRA' emis_ant_desc_table( idomain, P_e_oc_tra ) = 'EMISSION RATE OF ORGANIC CARBON 2.5UM MODE (Traffic and other sources)' emis_ant_units_table( idomain, P_e_oc_tra ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc_tra )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oc_tra )%stream(2) = 0 F_e_oc_tra = .TRUE. IF ( emis_ant_index_table( PARAM_e_oc_25_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oc_25_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oc_25_10 , idomain ) = P_e_oc_25_10 ELSE P_e_oc_25_10 = emis_ant_index_table( PARAM_e_oc_25_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oc_25_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_oc_25_10 ) = 'E_OC_25_10' emis_ant_desc_table( idomain, P_e_oc_25_10 ) = 'EMISSION RATE OF ORGANIC CARBON 2.5UM-10UM MODE' emis_ant_units_table( idomain, P_e_oc_25_10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oc_25_10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oc_25_10 )%stream(2) = 0 F_e_oc_25_10 = .TRUE. IF ( emis_ant_index_table( PARAM_e_pm25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_pm25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_pm25 , idomain ) = P_e_pm25 ELSE P_e_pm25 = emis_ant_index_table( PARAM_e_pm25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_pm25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_pm25 ) = 'E_PM25' emis_ant_desc_table( idomain, P_e_pm25 ) = 'EMISSION RATE OF PARTICULATE MATTER 2.5UM MODE' emis_ant_units_table( idomain, P_e_pm25 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_pm25 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_pm25 )%stream(2) = 0 F_e_pm25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_oin_25 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oin_25 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oin_25 , idomain ) = P_e_oin_25 ELSE P_e_oin_25 = emis_ant_index_table( PARAM_e_oin_25 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oin_25 ) = .FALSE. emis_ant_dname_table( idomain, P_e_oin_25 ) = 'E_OIN_25' emis_ant_desc_table( idomain, P_e_oin_25 ) = 'EMISSION RATE OF PARTICULATE MATTER OTHER INORGANICS 2.5UM MODE' emis_ant_units_table( idomain, P_e_oin_25 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oin_25 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oin_25 )%stream(2) = 0 F_e_oin_25 = .TRUE. IF ( emis_ant_index_table( PARAM_e_oin_10 , idomain ) .lt. 1 ) THEN emis_ant_num_table(idomain) = emis_ant_num_table(idomain) + 1 P_e_oin_10 = emis_ant_num_table(idomain) emis_ant_index_table( PARAM_e_oin_10 , idomain ) = P_e_oin_10 ELSE P_e_oin_10 = emis_ant_index_table( PARAM_e_oin_10 , idomain ) END IF emis_ant_boundary_table( idomain, P_e_oin_10 ) = .FALSE. emis_ant_dname_table( idomain, P_e_oin_10 ) = 'E_OIN_10' emis_ant_desc_table( idomain, P_e_oin_10 ) = 'EMISSION RATE OF PARTICULATE MATTER OTHER INORGANICS 10UM MODE' emis_ant_units_table( idomain, P_e_oin_10 ) = 'ug/m3 m/s' emis_ant_streams_table( idomain, P_e_oin_10 )%stream(1) = 1073741824 emis_ant_streams_table( idomain, P_e_oin_10 )%stream(2) = 0 F_e_oin_10 = .TRUE. END IF IF (model_config_rec%emiss_opt_vol(idomain)==1)THEN IF ( emis_vol_index_table( PARAM_e_vash1 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash1 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash1 , idomain ) = P_e_vash1 ELSE P_e_vash1 = emis_vol_index_table( PARAM_e_vash1 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash1 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash1 ) = 'E_VASH1' emis_vol_desc_table( idomain, P_e_vash1 ) = 'Volcanic Emissions, bin1' emis_vol_units_table( idomain, P_e_vash1 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash1 )%stream(1) = 1 emis_vol_streams_table( idomain, P_e_vash1 )%stream(2) = 2097280 F_e_vash1 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash2 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash2 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash2 , idomain ) = P_e_vash2 ELSE P_e_vash2 = emis_vol_index_table( PARAM_e_vash2 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash2 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash2 ) = 'E_VASH2' emis_vol_desc_table( idomain, P_e_vash2 ) = 'Volcanic Emissions, bin2' emis_vol_units_table( idomain, P_e_vash2 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash2 )%stream(1) = 1 emis_vol_streams_table( idomain, P_e_vash2 )%stream(2) = 2097280 F_e_vash2 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash3 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash3 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash3 , idomain ) = P_e_vash3 ELSE P_e_vash3 = emis_vol_index_table( PARAM_e_vash3 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash3 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash3 ) = 'E_VASH3' emis_vol_desc_table( idomain, P_e_vash3 ) = 'Volcanic Emissions, bin3' emis_vol_units_table( idomain, P_e_vash3 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash3 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash3 )%stream(2) = 2097280 F_e_vash3 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash4 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash4 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash4 , idomain ) = P_e_vash4 ELSE P_e_vash4 = emis_vol_index_table( PARAM_e_vash4 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash4 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash4 ) = 'E_VASH4' emis_vol_desc_table( idomain, P_e_vash4 ) = 'Volcanic Emissions, bin4' emis_vol_units_table( idomain, P_e_vash4 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash4 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash4 )%stream(2) = 2097280 F_e_vash4 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash5 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash5 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash5 , idomain ) = P_e_vash5 ELSE P_e_vash5 = emis_vol_index_table( PARAM_e_vash5 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash5 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash5 ) = 'E_VASH5' emis_vol_desc_table( idomain, P_e_vash5 ) = 'Volcanic Emissions, bin5' emis_vol_units_table( idomain, P_e_vash5 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash5 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash5 )%stream(2) = 2097280 F_e_vash5 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash6 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash6 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash6 , idomain ) = P_e_vash6 ELSE P_e_vash6 = emis_vol_index_table( PARAM_e_vash6 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash6 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash6 ) = 'E_VASH6' emis_vol_desc_table( idomain, P_e_vash6 ) = 'Volcanic Emissions, bin6' emis_vol_units_table( idomain, P_e_vash6 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash6 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash6 )%stream(2) = 2097280 F_e_vash6 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash7 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash7 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash7 , idomain ) = P_e_vash7 ELSE P_e_vash7 = emis_vol_index_table( PARAM_e_vash7 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash7 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash7 ) = 'E_VASH7' emis_vol_desc_table( idomain, P_e_vash7 ) = 'Volcanic Emissions, bin7' emis_vol_units_table( idomain, P_e_vash7 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash7 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash7 )%stream(2) = 2097280 F_e_vash7 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash8 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash8 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash8 , idomain ) = P_e_vash8 ELSE P_e_vash8 = emis_vol_index_table( PARAM_e_vash8 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash8 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash8 ) = 'E_VASH8' emis_vol_desc_table( idomain, P_e_vash8 ) = 'Volcanic Emissions, bin8' emis_vol_units_table( idomain, P_e_vash8 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash8 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash8 )%stream(2) = 2097280 F_e_vash8 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash9 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash9 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash9 , idomain ) = P_e_vash9 ELSE P_e_vash9 = emis_vol_index_table( PARAM_e_vash9 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash9 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash9 ) = 'E_VASH9' emis_vol_desc_table( idomain, P_e_vash9 ) = 'Volcanic Emissions, bin9' emis_vol_units_table( idomain, P_e_vash9 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash9 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash9 )%stream(2) = 2097280 F_e_vash9 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash10 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash10 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash10 , idomain ) = P_e_vash10 ELSE P_e_vash10 = emis_vol_index_table( PARAM_e_vash10 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash10 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash10 ) = 'E_VASH10' emis_vol_desc_table( idomain, P_e_vash10 ) = 'Volcanic Emissions, bin10' emis_vol_units_table( idomain, P_e_vash10 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash10 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash10 )%stream(2) = 2097280 F_e_vash10 = .TRUE. END IF IF (model_config_rec%emiss_opt_vol(idomain)==2)THEN IF ( emis_vol_index_table( PARAM_e_vash1 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash1 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash1 , idomain ) = P_e_vash1 ELSE P_e_vash1 = emis_vol_index_table( PARAM_e_vash1 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash1 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash1 ) = 'E_VASH1' emis_vol_desc_table( idomain, P_e_vash1 ) = 'Volcanic Emissions, bin1' emis_vol_units_table( idomain, P_e_vash1 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash1 )%stream(1) = 1 emis_vol_streams_table( idomain, P_e_vash1 )%stream(2) = 2097280 F_e_vash1 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash2 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash2 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash2 , idomain ) = P_e_vash2 ELSE P_e_vash2 = emis_vol_index_table( PARAM_e_vash2 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash2 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash2 ) = 'E_VASH2' emis_vol_desc_table( idomain, P_e_vash2 ) = 'Volcanic Emissions, bin2' emis_vol_units_table( idomain, P_e_vash2 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash2 )%stream(1) = 1 emis_vol_streams_table( idomain, P_e_vash2 )%stream(2) = 2097280 F_e_vash2 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash3 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash3 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash3 , idomain ) = P_e_vash3 ELSE P_e_vash3 = emis_vol_index_table( PARAM_e_vash3 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash3 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash3 ) = 'E_VASH3' emis_vol_desc_table( idomain, P_e_vash3 ) = 'Volcanic Emissions, bin3' emis_vol_units_table( idomain, P_e_vash3 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash3 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash3 )%stream(2) = 2097280 F_e_vash3 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash4 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash4 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash4 , idomain ) = P_e_vash4 ELSE P_e_vash4 = emis_vol_index_table( PARAM_e_vash4 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash4 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash4 ) = 'E_VASH4' emis_vol_desc_table( idomain, P_e_vash4 ) = 'Volcanic Emissions, bin4' emis_vol_units_table( idomain, P_e_vash4 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash4 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash4 )%stream(2) = 2097280 F_e_vash4 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash5 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash5 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash5 , idomain ) = P_e_vash5 ELSE P_e_vash5 = emis_vol_index_table( PARAM_e_vash5 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash5 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash5 ) = 'E_VASH5' emis_vol_desc_table( idomain, P_e_vash5 ) = 'Volcanic Emissions, bin5' emis_vol_units_table( idomain, P_e_vash5 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash5 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash5 )%stream(2) = 2097280 F_e_vash5 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash6 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash6 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash6 , idomain ) = P_e_vash6 ELSE P_e_vash6 = emis_vol_index_table( PARAM_e_vash6 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash6 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash6 ) = 'E_VASH6' emis_vol_desc_table( idomain, P_e_vash6 ) = 'Volcanic Emissions, bin6' emis_vol_units_table( idomain, P_e_vash6 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash6 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash6 )%stream(2) = 2097280 F_e_vash6 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash7 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash7 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash7 , idomain ) = P_e_vash7 ELSE P_e_vash7 = emis_vol_index_table( PARAM_e_vash7 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash7 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash7 ) = 'E_VASH7' emis_vol_desc_table( idomain, P_e_vash7 ) = 'Volcanic Emissions, bin7' emis_vol_units_table( idomain, P_e_vash7 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash7 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash7 )%stream(2) = 2097280 F_e_vash7 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash8 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash8 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash8 , idomain ) = P_e_vash8 ELSE P_e_vash8 = emis_vol_index_table( PARAM_e_vash8 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash8 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash8 ) = 'E_VASH8' emis_vol_desc_table( idomain, P_e_vash8 ) = 'Volcanic Emissions, bin8' emis_vol_units_table( idomain, P_e_vash8 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash8 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash8 )%stream(2) = 2097280 F_e_vash8 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash9 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash9 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash9 , idomain ) = P_e_vash9 ELSE P_e_vash9 = emis_vol_index_table( PARAM_e_vash9 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash9 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash9 ) = 'E_VASH9' emis_vol_desc_table( idomain, P_e_vash9 ) = 'Volcanic Emissions, bin9' emis_vol_units_table( idomain, P_e_vash9 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash9 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash9 )%stream(2) = 2097280 F_e_vash9 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vash10 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vash10 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vash10 , idomain ) = P_e_vash10 ELSE P_e_vash10 = emis_vol_index_table( PARAM_e_vash10 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vash10 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vash10 ) = 'E_VASH10' emis_vol_desc_table( idomain, P_e_vash10 ) = 'Volcanic Emissions, bin10' emis_vol_units_table( idomain, P_e_vash10 ) = 'ug/m2/s' emis_vol_streams_table( idomain, P_e_vash10 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vash10 )%stream(2) = 2097280 F_e_vash10 = .TRUE. IF ( emis_vol_index_table( PARAM_e_vso2 , idomain ) .lt. 1 ) THEN emis_vol_num_table(idomain) = emis_vol_num_table(idomain) + 1 P_e_vso2 = emis_vol_num_table(idomain) emis_vol_index_table( PARAM_e_vso2 , idomain ) = P_e_vso2 ELSE P_e_vso2 = emis_vol_index_table( PARAM_e_vso2 , idomain ) END IF emis_vol_boundary_table( idomain, P_e_vso2 ) = .FALSE. emis_vol_dname_table( idomain, P_e_vso2 ) = 'E_VSO2' emis_vol_desc_table( idomain, P_e_vso2 ) = 'Volcanic Emissions, SO2' emis_vol_units_table( idomain, P_e_vso2 ) = 'mol/m2/h' emis_vol_streams_table( idomain, P_e_vso2 )%stream(1) = 0 emis_vol_streams_table( idomain, P_e_vso2 )%stream(2) = 2097280 F_e_vso2 = .TRUE. END IF IF (model_config_rec%phot_opt(idomain)==1)THEN END IF IF (model_config_rec%phot_opt(idomain)==2)THEN END IF IF (model_config_rec%phot_opt(idomain)==3)THEN END IF IF (model_config_rec%phot_opt(idomain)==4)THEN END IF IF (model_config_rec%gas_drydep_opt(idomain)==1)THEN END IF IF (model_config_rec%diagnostic_chem(idomain)==1)THEN IF ( dvel_index_table( PARAM_dvel_o3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_o3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_o3 , idomain ) = P_dvel_o3 ELSE P_dvel_o3 = dvel_index_table( PARAM_dvel_o3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_o3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_o3 ) = 'dvel_o3' dvel_desc_table( idomain, P_dvel_o3 ) = 'O3 deposition velocity ' dvel_units_table( idomain, P_dvel_o3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_o3 )%stream(1) = 1 dvel_streams_table( idomain, P_dvel_o3 )%stream(2) = 2097152 F_dvel_o3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_no , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_no = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_no , idomain ) = P_dvel_no ELSE P_dvel_no = dvel_index_table( PARAM_dvel_no , idomain ) END IF dvel_boundary_table( idomain, P_dvel_no ) = .FALSE. dvel_dname_table( idomain, P_dvel_no ) = 'dvel_no' dvel_desc_table( idomain, P_dvel_no ) = 'NO deposition velocity ' dvel_units_table( idomain, P_dvel_no ) = 'cm/s' dvel_streams_table( idomain, P_dvel_no )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_no )%stream(2) = 0 F_dvel_no = .TRUE. IF ( dvel_index_table( PARAM_dvel_no2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_no2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_no2 , idomain ) = P_dvel_no2 ELSE P_dvel_no2 = dvel_index_table( PARAM_dvel_no2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_no2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_no2 ) = 'dvel_no2' dvel_desc_table( idomain, P_dvel_no2 ) = 'NO2 deposition velocity ' dvel_units_table( idomain, P_dvel_no2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_no2 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_no2 )%stream(2) = 0 F_dvel_no2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_nh3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_nh3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_nh3 , idomain ) = P_dvel_nh3 ELSE P_dvel_nh3 = dvel_index_table( PARAM_dvel_nh3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_nh3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_nh3 ) = 'dvel_nh3' dvel_desc_table( idomain, P_dvel_nh3 ) = 'NH3 deposition velocity ' dvel_units_table( idomain, P_dvel_nh3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_nh3 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_nh3 )%stream(2) = 0 F_dvel_nh3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_hno3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_hno3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_hno3 , idomain ) = P_dvel_hno3 ELSE P_dvel_hno3 = dvel_index_table( PARAM_dvel_hno3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_hno3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_hno3 ) = 'dvel_hno3' dvel_desc_table( idomain, P_dvel_hno3 ) = 'HNO3 deposition velocity ' dvel_units_table( idomain, P_dvel_hno3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_hno3 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_hno3 )%stream(2) = 0 F_dvel_hno3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_hno4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_hno4 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_hno4 , idomain ) = P_dvel_hno4 ELSE P_dvel_hno4 = dvel_index_table( PARAM_dvel_hno4 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_hno4 ) = .FALSE. dvel_dname_table( idomain, P_dvel_hno4 ) = 'dvel_hno4' dvel_desc_table( idomain, P_dvel_hno4 ) = 'HNO4 deposition velocity ' dvel_units_table( idomain, P_dvel_hno4 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_hno4 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_hno4 )%stream(2) = 0 F_dvel_hno4 = .TRUE. IF ( dvel_index_table( PARAM_dvel_h2o2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_h2o2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_h2o2 , idomain ) = P_dvel_h2o2 ELSE P_dvel_h2o2 = dvel_index_table( PARAM_dvel_h2o2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_h2o2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_h2o2 ) = 'dvel_h2o2' dvel_desc_table( idomain, P_dvel_h2o2 ) = 'H2O2 deposition velocity ' dvel_units_table( idomain, P_dvel_h2o2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_h2o2 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_h2o2 )%stream(2) = 0 F_dvel_h2o2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_co , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_co = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_co , idomain ) = P_dvel_co ELSE P_dvel_co = dvel_index_table( PARAM_dvel_co , idomain ) END IF dvel_boundary_table( idomain, P_dvel_co ) = .FALSE. dvel_dname_table( idomain, P_dvel_co ) = 'dvel_co' dvel_desc_table( idomain, P_dvel_co ) = 'CO deposition velocity ' dvel_units_table( idomain, P_dvel_co ) = 'cm/s' dvel_streams_table( idomain, P_dvel_co )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_co )%stream(2) = 0 F_dvel_co = .TRUE. IF ( dvel_index_table( PARAM_dvel_ch3ooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_ch3ooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_ch3ooh , idomain ) = P_dvel_ch3ooh ELSE P_dvel_ch3ooh = dvel_index_table( PARAM_dvel_ch3ooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_ch3ooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_ch3ooh ) = 'dvel_ch3ooh' dvel_desc_table( idomain, P_dvel_ch3ooh ) = 'CH3OOH deposition velocity ' dvel_units_table( idomain, P_dvel_ch3ooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_ch3ooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_ch3ooh )%stream(2) = 0 F_dvel_ch3ooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_hcho , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_hcho = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_hcho , idomain ) = P_dvel_hcho ELSE P_dvel_hcho = dvel_index_table( PARAM_dvel_hcho , idomain ) END IF dvel_boundary_table( idomain, P_dvel_hcho ) = .FALSE. dvel_dname_table( idomain, P_dvel_hcho ) = 'dvel_hcho' dvel_desc_table( idomain, P_dvel_hcho ) = 'HCHO deposition velocity ' dvel_units_table( idomain, P_dvel_hcho ) = 'cm/s' dvel_streams_table( idomain, P_dvel_hcho )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_hcho )%stream(2) = 0 F_dvel_hcho = .TRUE. IF ( dvel_index_table( PARAM_dvel_ch3oh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_ch3oh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_ch3oh , idomain ) = P_dvel_ch3oh ELSE P_dvel_ch3oh = dvel_index_table( PARAM_dvel_ch3oh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_ch3oh ) = .FALSE. dvel_dname_table( idomain, P_dvel_ch3oh ) = 'dvel_ch3oh' dvel_desc_table( idomain, P_dvel_ch3oh ) = 'CH3OH deposition velocity ' dvel_units_table( idomain, P_dvel_ch3oh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_ch3oh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_ch3oh )%stream(2) = 0 F_dvel_ch3oh = .TRUE. IF ( dvel_index_table( PARAM_dvel_eo2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_eo2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_eo2 , idomain ) = P_dvel_eo2 ELSE P_dvel_eo2 = dvel_index_table( PARAM_dvel_eo2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_eo2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_eo2 ) = 'dvel_eo2' dvel_desc_table( idomain, P_dvel_eo2 ) = 'EO2 deposition velocity ' dvel_units_table( idomain, P_dvel_eo2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_eo2 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_eo2 )%stream(2) = 0 F_dvel_eo2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_ald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_ald = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_ald , idomain ) = P_dvel_ald ELSE P_dvel_ald = dvel_index_table( PARAM_dvel_ald , idomain ) END IF dvel_boundary_table( idomain, P_dvel_ald ) = .FALSE. dvel_dname_table( idomain, P_dvel_ald ) = 'dvel_ald' dvel_desc_table( idomain, P_dvel_ald ) = 'ALD deposition velocity ' dvel_units_table( idomain, P_dvel_ald ) = 'cm/s' dvel_streams_table( idomain, P_dvel_ald )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_ald )%stream(2) = 0 F_dvel_ald = .TRUE. IF ( dvel_index_table( PARAM_dvel_ch3cooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_ch3cooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_ch3cooh , idomain ) = P_dvel_ch3cooh ELSE P_dvel_ch3cooh = dvel_index_table( PARAM_dvel_ch3cooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_ch3cooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_ch3cooh ) = 'dvel_ch3cooh' dvel_desc_table( idomain, P_dvel_ch3cooh ) = 'CH3COOH deposition velocity ' dvel_units_table( idomain, P_dvel_ch3cooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_ch3cooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_ch3cooh )%stream(2) = 0 F_dvel_ch3cooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_acet , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_acet = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_acet , idomain ) = P_dvel_acet ELSE P_dvel_acet = dvel_index_table( PARAM_dvel_acet , idomain ) END IF dvel_boundary_table( idomain, P_dvel_acet ) = .FALSE. dvel_dname_table( idomain, P_dvel_acet ) = 'dvel_acet' dvel_desc_table( idomain, P_dvel_acet ) = 'ACET deposition velocity ' dvel_units_table( idomain, P_dvel_acet ) = 'cm/s' dvel_streams_table( idomain, P_dvel_acet )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_acet )%stream(2) = 0 F_dvel_acet = .TRUE. IF ( dvel_index_table( PARAM_dvel_mgly , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mgly = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mgly , idomain ) = P_dvel_mgly ELSE P_dvel_mgly = dvel_index_table( PARAM_dvel_mgly , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mgly ) = .FALSE. dvel_dname_table( idomain, P_dvel_mgly ) = 'dvel_mgly' dvel_desc_table( idomain, P_dvel_mgly ) = 'MGLY deposition velocity ' dvel_units_table( idomain, P_dvel_mgly ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mgly )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_mgly )%stream(2) = 0 F_dvel_mgly = .TRUE. IF ( dvel_index_table( PARAM_dvel_gly , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_gly = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_gly , idomain ) = P_dvel_gly ELSE P_dvel_gly = dvel_index_table( PARAM_dvel_gly , idomain ) END IF dvel_boundary_table( idomain, P_dvel_gly ) = .FALSE. dvel_dname_table( idomain, P_dvel_gly ) = 'dvel_gly' dvel_desc_table( idomain, P_dvel_gly ) = 'GLY deposition velocity ' dvel_units_table( idomain, P_dvel_gly ) = 'cm/s' dvel_streams_table( idomain, P_dvel_gly )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_gly )%stream(2) = 0 F_dvel_gly = .TRUE. IF ( dvel_index_table( PARAM_dvel_paa , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_paa = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_paa , idomain ) = P_dvel_paa ELSE P_dvel_paa = dvel_index_table( PARAM_dvel_paa , idomain ) END IF dvel_boundary_table( idomain, P_dvel_paa ) = .FALSE. dvel_dname_table( idomain, P_dvel_paa ) = 'dvel_paa' dvel_desc_table( idomain, P_dvel_paa ) = 'PAA deposition velocity ' dvel_units_table( idomain, P_dvel_paa ) = 'cm/s' dvel_streams_table( idomain, P_dvel_paa )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_paa )%stream(2) = 0 F_dvel_paa = .TRUE. IF ( dvel_index_table( PARAM_dvel_pooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_pooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_pooh , idomain ) = P_dvel_pooh ELSE P_dvel_pooh = dvel_index_table( PARAM_dvel_pooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_pooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_pooh ) = 'dvel_pooh' dvel_desc_table( idomain, P_dvel_pooh ) = 'POOH deposition velocity ' dvel_units_table( idomain, P_dvel_pooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_pooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_pooh )%stream(2) = 0 F_dvel_pooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_pan , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_pan = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_pan , idomain ) = P_dvel_pan ELSE P_dvel_pan = dvel_index_table( PARAM_dvel_pan , idomain ) END IF dvel_boundary_table( idomain, P_dvel_pan ) = .FALSE. dvel_dname_table( idomain, P_dvel_pan ) = 'dvel_pan' dvel_desc_table( idomain, P_dvel_pan ) = 'PAN deposition velocity ' dvel_units_table( idomain, P_dvel_pan ) = 'cm/s' dvel_streams_table( idomain, P_dvel_pan )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_pan )%stream(2) = 0 F_dvel_pan = .TRUE. IF ( dvel_index_table( PARAM_dvel_mpan , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mpan = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mpan , idomain ) = P_dvel_mpan ELSE P_dvel_mpan = dvel_index_table( PARAM_dvel_mpan , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mpan ) = .FALSE. dvel_dname_table( idomain, P_dvel_mpan ) = 'dvel_mpan' dvel_desc_table( idomain, P_dvel_mpan ) = 'MPAN deposition velocity ' dvel_units_table( idomain, P_dvel_mpan ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mpan )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_mpan )%stream(2) = 0 F_dvel_mpan = .TRUE. IF ( dvel_index_table( PARAM_dvel_mco3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mco3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mco3 , idomain ) = P_dvel_mco3 ELSE P_dvel_mco3 = dvel_index_table( PARAM_dvel_mco3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mco3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_mco3 ) = 'dvel_mco3' dvel_desc_table( idomain, P_dvel_mco3 ) = 'MCO3 deposition velocity ' dvel_units_table( idomain, P_dvel_mco3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mco3 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_mco3 )%stream(2) = 0 F_dvel_mco3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_mvkooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mvkooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mvkooh , idomain ) = P_dvel_mvkooh ELSE P_dvel_mvkooh = dvel_index_table( PARAM_dvel_mvkooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mvkooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_mvkooh ) = 'dvel_mvkooh' dvel_desc_table( idomain, P_dvel_mvkooh ) = 'MVKOOH deposition velocity ' dvel_units_table( idomain, P_dvel_mvkooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mvkooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_mvkooh )%stream(2) = 0 F_dvel_mvkooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_c2h5oh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_c2h5oh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_c2h5oh , idomain ) = P_dvel_c2h5oh ELSE P_dvel_c2h5oh = dvel_index_table( PARAM_dvel_c2h5oh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_c2h5oh ) = .FALSE. dvel_dname_table( idomain, P_dvel_c2h5oh ) = 'dvel_c2h5oh' dvel_desc_table( idomain, P_dvel_c2h5oh ) = 'C2H5OH deposition velocity ' dvel_units_table( idomain, P_dvel_c2h5oh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_c2h5oh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_c2h5oh )%stream(2) = 0 F_dvel_c2h5oh = .TRUE. IF ( dvel_index_table( PARAM_dvel_etooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_etooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_etooh , idomain ) = P_dvel_etooh ELSE P_dvel_etooh = dvel_index_table( PARAM_dvel_etooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_etooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_etooh ) = 'dvel_etooh' dvel_desc_table( idomain, P_dvel_etooh ) = 'ETOOH deposition velocity ' dvel_units_table( idomain, P_dvel_etooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_etooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_etooh )%stream(2) = 0 F_dvel_etooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_prooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_prooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_prooh , idomain ) = P_dvel_prooh ELSE P_dvel_prooh = dvel_index_table( PARAM_dvel_prooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_prooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_prooh ) = 'dvel_prooh' dvel_desc_table( idomain, P_dvel_prooh ) = 'PROOH deposition velocity ' dvel_units_table( idomain, P_dvel_prooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_prooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_prooh )%stream(2) = 0 F_dvel_prooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_acetp , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_acetp = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_acetp , idomain ) = P_dvel_acetp ELSE P_dvel_acetp = dvel_index_table( PARAM_dvel_acetp , idomain ) END IF dvel_boundary_table( idomain, P_dvel_acetp ) = .FALSE. dvel_dname_table( idomain, P_dvel_acetp ) = 'dvel_acetp' dvel_desc_table( idomain, P_dvel_acetp ) = 'ACETP deposition velocity ' dvel_units_table( idomain, P_dvel_acetp ) = 'cm/s' dvel_streams_table( idomain, P_dvel_acetp )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_acetp )%stream(2) = 0 F_dvel_acetp = .TRUE. IF ( dvel_index_table( PARAM_dvel_onit , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_onit = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_onit , idomain ) = P_dvel_onit ELSE P_dvel_onit = dvel_index_table( PARAM_dvel_onit , idomain ) END IF dvel_boundary_table( idomain, P_dvel_onit ) = .FALSE. dvel_dname_table( idomain, P_dvel_onit ) = 'dvel_onit' dvel_desc_table( idomain, P_dvel_onit ) = 'ONIT deposition velocity ' dvel_units_table( idomain, P_dvel_onit ) = 'cm/s' dvel_streams_table( idomain, P_dvel_onit )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_onit )%stream(2) = 0 F_dvel_onit = .TRUE. IF ( dvel_index_table( PARAM_dvel_onitr , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_onitr = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_onitr , idomain ) = P_dvel_onitr ELSE P_dvel_onitr = dvel_index_table( PARAM_dvel_onitr , idomain ) END IF dvel_boundary_table( idomain, P_dvel_onitr ) = .FALSE. dvel_dname_table( idomain, P_dvel_onitr ) = 'dvel_onitr' dvel_desc_table( idomain, P_dvel_onitr ) = 'ONITR deposition velocity ' dvel_units_table( idomain, P_dvel_onitr ) = 'cm/s' dvel_streams_table( idomain, P_dvel_onitr )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_onitr )%stream(2) = 0 F_dvel_onitr = .TRUE. IF ( dvel_index_table( PARAM_dvel_isooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_isooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_isooh , idomain ) = P_dvel_isooh ELSE P_dvel_isooh = dvel_index_table( PARAM_dvel_isooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_isooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_isooh ) = 'dvel_isooh' dvel_desc_table( idomain, P_dvel_isooh ) = 'ISOOH deposition velocity ' dvel_units_table( idomain, P_dvel_isooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_isooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_isooh )%stream(2) = 0 F_dvel_isooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_acetol , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_acetol = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_acetol , idomain ) = P_dvel_acetol ELSE P_dvel_acetol = dvel_index_table( PARAM_dvel_acetol , idomain ) END IF dvel_boundary_table( idomain, P_dvel_acetol ) = .FALSE. dvel_dname_table( idomain, P_dvel_acetol ) = 'dvel_acetol' dvel_desc_table( idomain, P_dvel_acetol ) = 'ACETOL deposition velocity ' dvel_units_table( idomain, P_dvel_acetol ) = 'cm/s' dvel_streams_table( idomain, P_dvel_acetol )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_acetol )%stream(2) = 0 F_dvel_acetol = .TRUE. IF ( dvel_index_table( PARAM_dvel_glyald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_glyald = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_glyald , idomain ) = P_dvel_glyald ELSE P_dvel_glyald = dvel_index_table( PARAM_dvel_glyald , idomain ) END IF dvel_boundary_table( idomain, P_dvel_glyald ) = .FALSE. dvel_dname_table( idomain, P_dvel_glyald ) = 'dvel_glyald' dvel_desc_table( idomain, P_dvel_glyald ) = 'GLYALD deposition velocity ' dvel_units_table( idomain, P_dvel_glyald ) = 'cm/s' dvel_streams_table( idomain, P_dvel_glyald )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_glyald )%stream(2) = 0 F_dvel_glyald = .TRUE. IF ( dvel_index_table( PARAM_dvel_hydrald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_hydrald = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_hydrald , idomain ) = P_dvel_hydrald ELSE P_dvel_hydrald = dvel_index_table( PARAM_dvel_hydrald , idomain ) END IF dvel_boundary_table( idomain, P_dvel_hydrald ) = .FALSE. dvel_dname_table( idomain, P_dvel_hydrald ) = 'dvel_hydrald' dvel_desc_table( idomain, P_dvel_hydrald ) = 'HYDRALD deposition velocity ' dvel_units_table( idomain, P_dvel_hydrald ) = 'cm/s' dvel_streams_table( idomain, P_dvel_hydrald )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_hydrald )%stream(2) = 0 F_dvel_hydrald = .TRUE. IF ( dvel_index_table( PARAM_dvel_alkooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_alkooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_alkooh , idomain ) = P_dvel_alkooh ELSE P_dvel_alkooh = dvel_index_table( PARAM_dvel_alkooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_alkooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_alkooh ) = 'dvel_alkooh' dvel_desc_table( idomain, P_dvel_alkooh ) = 'ALKOOH deposition velocity ' dvel_units_table( idomain, P_dvel_alkooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_alkooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_alkooh )%stream(2) = 0 F_dvel_alkooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_mekooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_mekooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_mekooh , idomain ) = P_dvel_mekooh ELSE P_dvel_mekooh = dvel_index_table( PARAM_dvel_mekooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_mekooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_mekooh ) = 'dvel_mekooh' dvel_desc_table( idomain, P_dvel_mekooh ) = 'MEKOOH deposition velocity ' dvel_units_table( idomain, P_dvel_mekooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_mekooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_mekooh )%stream(2) = 0 F_dvel_mekooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_tolooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_tolooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_tolooh , idomain ) = P_dvel_tolooh ELSE P_dvel_tolooh = dvel_index_table( PARAM_dvel_tolooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_tolooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_tolooh ) = 'dvel_tolooh' dvel_desc_table( idomain, P_dvel_tolooh ) = 'TOLOOH deposition velocity ' dvel_units_table( idomain, P_dvel_tolooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_tolooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_tolooh )%stream(2) = 0 F_dvel_tolooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_xooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_xooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_xooh , idomain ) = P_dvel_xooh ELSE P_dvel_xooh = dvel_index_table( PARAM_dvel_xooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_xooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_xooh ) = 'dvel_xooh' dvel_desc_table( idomain, P_dvel_xooh ) = 'XOOH deposition velocity ' dvel_units_table( idomain, P_dvel_xooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_xooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_xooh )%stream(2) = 0 F_dvel_xooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_so2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_so2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_so2 , idomain ) = P_dvel_so2 ELSE P_dvel_so2 = dvel_index_table( PARAM_dvel_so2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_so2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_so2 ) = 'dvel_so2' dvel_desc_table( idomain, P_dvel_so2 ) = 'SO2 deposition velocity ' dvel_units_table( idomain, P_dvel_so2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_so2 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_so2 )%stream(2) = 0 F_dvel_so2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_so4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_so4 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_so4 , idomain ) = P_dvel_so4 ELSE P_dvel_so4 = dvel_index_table( PARAM_dvel_so4 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_so4 ) = .FALSE. dvel_dname_table( idomain, P_dvel_so4 ) = 'dvel_so4' dvel_desc_table( idomain, P_dvel_so4 ) = 'SO4 deposition velocity ' dvel_units_table( idomain, P_dvel_so4 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_so4 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_so4 )%stream(2) = 0 F_dvel_so4 = .TRUE. IF ( dvel_index_table( PARAM_dvel_terpooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_terpooh = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_terpooh , idomain ) = P_dvel_terpooh ELSE P_dvel_terpooh = dvel_index_table( PARAM_dvel_terpooh , idomain ) END IF dvel_boundary_table( idomain, P_dvel_terpooh ) = .FALSE. dvel_dname_table( idomain, P_dvel_terpooh ) = 'dvel_terpooh' dvel_desc_table( idomain, P_dvel_terpooh ) = 'TERPOOH deposition velocity ' dvel_units_table( idomain, P_dvel_terpooh ) = 'cm/s' dvel_streams_table( idomain, P_dvel_terpooh )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_terpooh )%stream(2) = 0 F_dvel_terpooh = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoax , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoax = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoax , idomain ) = P_dvel_cvasoax ELSE P_dvel_cvasoax = dvel_index_table( PARAM_dvel_cvasoax , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoax ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoax ) = 'dvel_cvasoaX' dvel_desc_table( idomain, P_dvel_cvasoax ) = 'CVASOAX deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoax ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoax )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvasoax )%stream(2) = 0 F_dvel_cvasoax = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoa1 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoa1 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoa1 , idomain ) = P_dvel_cvasoa1 ELSE P_dvel_cvasoa1 = dvel_index_table( PARAM_dvel_cvasoa1 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoa1 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoa1 ) = 'dvel_cvasoa1' dvel_desc_table( idomain, P_dvel_cvasoa1 ) = 'CVASOA1 deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoa1 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoa1 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvasoa1 )%stream(2) = 0 F_dvel_cvasoa1 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoa2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoa2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoa2 , idomain ) = P_dvel_cvasoa2 ELSE P_dvel_cvasoa2 = dvel_index_table( PARAM_dvel_cvasoa2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoa2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoa2 ) = 'dvel_cvasoa2' dvel_desc_table( idomain, P_dvel_cvasoa2 ) = 'CVASOA2 deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoa2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoa2 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvasoa2 )%stream(2) = 0 F_dvel_cvasoa2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoa3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoa3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoa3 , idomain ) = P_dvel_cvasoa3 ELSE P_dvel_cvasoa3 = dvel_index_table( PARAM_dvel_cvasoa3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoa3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoa3 ) = 'dvel_cvasoa3' dvel_desc_table( idomain, P_dvel_cvasoa3 ) = 'CVASOA3 deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoa3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoa3 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvasoa3 )%stream(2) = 0 F_dvel_cvasoa3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvasoa4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvasoa4 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvasoa4 , idomain ) = P_dvel_cvasoa4 ELSE P_dvel_cvasoa4 = dvel_index_table( PARAM_dvel_cvasoa4 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvasoa4 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvasoa4 ) = 'dvel_cvasoa4' dvel_desc_table( idomain, P_dvel_cvasoa4 ) = 'CVASOA4 deposition velocity ' dvel_units_table( idomain, P_dvel_cvasoa4 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvasoa4 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvasoa4 )%stream(2) = 0 F_dvel_cvasoa4 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoax , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoax = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoax , idomain ) = P_dvel_cvbsoax ELSE P_dvel_cvbsoax = dvel_index_table( PARAM_dvel_cvbsoax , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoax ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoax ) = 'dvel_cvbsoaX' dvel_desc_table( idomain, P_dvel_cvbsoax ) = 'CVBSOAX deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoax ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoax )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvbsoax )%stream(2) = 0 F_dvel_cvbsoax = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoa1 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoa1 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoa1 , idomain ) = P_dvel_cvbsoa1 ELSE P_dvel_cvbsoa1 = dvel_index_table( PARAM_dvel_cvbsoa1 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoa1 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoa1 ) = 'dvel_cvbsoa1' dvel_desc_table( idomain, P_dvel_cvbsoa1 ) = 'CVBSOA1 deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoa1 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoa1 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvbsoa1 )%stream(2) = 0 F_dvel_cvbsoa1 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoa2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoa2 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoa2 , idomain ) = P_dvel_cvbsoa2 ELSE P_dvel_cvbsoa2 = dvel_index_table( PARAM_dvel_cvbsoa2 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoa2 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoa2 ) = 'dvel_cvbsoa2' dvel_desc_table( idomain, P_dvel_cvbsoa2 ) = 'CVBSOA2 deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoa2 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoa2 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvbsoa2 )%stream(2) = 0 F_dvel_cvbsoa2 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoa3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoa3 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoa3 , idomain ) = P_dvel_cvbsoa3 ELSE P_dvel_cvbsoa3 = dvel_index_table( PARAM_dvel_cvbsoa3 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoa3 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoa3 ) = 'dvel_cvbsoa3' dvel_desc_table( idomain, P_dvel_cvbsoa3 ) = 'CVBSOA3 deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoa3 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoa3 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvbsoa3 )%stream(2) = 0 F_dvel_cvbsoa3 = .TRUE. IF ( dvel_index_table( PARAM_dvel_cvbsoa4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_dvel_cvbsoa4 = dvel_num_table(idomain) dvel_index_table( PARAM_dvel_cvbsoa4 , idomain ) = P_dvel_cvbsoa4 ELSE P_dvel_cvbsoa4 = dvel_index_table( PARAM_dvel_cvbsoa4 , idomain ) END IF dvel_boundary_table( idomain, P_dvel_cvbsoa4 ) = .FALSE. dvel_dname_table( idomain, P_dvel_cvbsoa4 ) = 'dvel_cvbsoa4' dvel_desc_table( idomain, P_dvel_cvbsoa4 ) = 'CVBSOA4 deposition velocity ' dvel_units_table( idomain, P_dvel_cvbsoa4 ) = 'cm/s' dvel_streams_table( idomain, P_dvel_cvbsoa4 )%stream(1) = 0 dvel_streams_table( idomain, P_dvel_cvbsoa4 )%stream(2) = 0 F_dvel_cvbsoa4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_o3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_o3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_o3 , idomain ) = P_ddmass_o3 ELSE P_ddmass_o3 = dvel_index_table( PARAM_ddmass_o3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_o3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_o3 ) = 'ddmass_o3' dvel_desc_table( idomain, P_ddmass_o3 ) = 'O3 dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_o3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_o3 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_o3 )%stream(2) = 2097152 F_ddmass_o3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no , idomain ) = P_ddmass_no ELSE P_ddmass_no = dvel_index_table( PARAM_ddmass_no , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no ) = 'ddmass_no' dvel_desc_table( idomain, P_ddmass_no ) = 'NO dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_no ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_no )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no )%stream(2) = 2097152 F_ddmass_no = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no2 , idomain ) = P_ddmass_no2 ELSE P_ddmass_no2 = dvel_index_table( PARAM_ddmass_no2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no2 ) = 'ddmass_no2' dvel_desc_table( idomain, P_ddmass_no2 ) = 'NO2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_no2 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no2 )%stream(2) = 2097152 F_ddmass_no2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh3 , idomain ) = P_ddmass_nh3 ELSE P_ddmass_nh3 = dvel_index_table( PARAM_ddmass_nh3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh3 ) = 'ddmass_nh3' dvel_desc_table( idomain, P_ddmass_nh3 ) = 'NH3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_nh3 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh3 )%stream(2) = 2097152 F_ddmass_nh3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_hno3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_hno3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_hno3 , idomain ) = P_ddmass_hno3 ELSE P_ddmass_hno3 = dvel_index_table( PARAM_ddmass_hno3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_hno3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_hno3 ) = 'ddmass_hno3' dvel_desc_table( idomain, P_ddmass_hno3 ) = 'HNO3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_hno3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_hno3 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_hno3 )%stream(2) = 2097152 F_ddmass_hno3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_hno4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_hno4 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_hno4 , idomain ) = P_ddmass_hno4 ELSE P_ddmass_hno4 = dvel_index_table( PARAM_ddmass_hno4 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_hno4 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_hno4 ) = 'ddmass_hno4' dvel_desc_table( idomain, P_ddmass_hno4 ) = 'HNO4 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_hno4 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_hno4 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_hno4 )%stream(2) = 2097152 F_ddmass_hno4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_h2o2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_h2o2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_h2o2 , idomain ) = P_ddmass_h2o2 ELSE P_ddmass_h2o2 = dvel_index_table( PARAM_ddmass_h2o2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_h2o2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_h2o2 ) = 'ddmass_h2o2' dvel_desc_table( idomain, P_ddmass_h2o2 ) = 'H2O2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_h2o2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_h2o2 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_h2o2 )%stream(2) = 2097152 F_ddmass_h2o2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co , idomain ) = P_ddmass_co ELSE P_ddmass_co = dvel_index_table( PARAM_ddmass_co , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co ) = 'ddmass_co' dvel_desc_table( idomain, P_ddmass_co ) = 'CO dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_co ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_co )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co )%stream(2) = 2097152 F_ddmass_co = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ch3ooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ch3ooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ch3ooh , idomain ) = P_ddmass_ch3ooh ELSE P_ddmass_ch3ooh = dvel_index_table( PARAM_ddmass_ch3ooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ch3ooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ch3ooh ) = 'ddmass_ch3ooh' dvel_desc_table( idomain, P_ddmass_ch3ooh ) = 'CH3OOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_ch3ooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_ch3ooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ch3ooh )%stream(2) = 2097152 F_ddmass_ch3ooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_hcho , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_hcho = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_hcho , idomain ) = P_ddmass_hcho ELSE P_ddmass_hcho = dvel_index_table( PARAM_ddmass_hcho , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_hcho ) = .FALSE. dvel_dname_table( idomain, P_ddmass_hcho ) = 'ddmass_hcho' dvel_desc_table( idomain, P_ddmass_hcho ) = 'HCHO dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_hcho ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_hcho )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_hcho )%stream(2) = 2097152 F_ddmass_hcho = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ch3oh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ch3oh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ch3oh , idomain ) = P_ddmass_ch3oh ELSE P_ddmass_ch3oh = dvel_index_table( PARAM_ddmass_ch3oh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ch3oh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ch3oh ) = 'ddmass_ch3oh' dvel_desc_table( idomain, P_ddmass_ch3oh ) = 'CH3OH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_ch3oh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_ch3oh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ch3oh )%stream(2) = 2097152 F_ddmass_ch3oh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_eo2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_eo2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_eo2 , idomain ) = P_ddmass_eo2 ELSE P_ddmass_eo2 = dvel_index_table( PARAM_ddmass_eo2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_eo2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_eo2 ) = 'ddmass_eo2' dvel_desc_table( idomain, P_ddmass_eo2 ) = 'EO2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_eo2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_eo2 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_eo2 )%stream(2) = 2097152 F_ddmass_eo2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ald = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ald , idomain ) = P_ddmass_ald ELSE P_ddmass_ald = dvel_index_table( PARAM_ddmass_ald , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ald ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ald ) = 'ddmass_ald' dvel_desc_table( idomain, P_ddmass_ald ) = 'ALD dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ald ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_ald )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ald )%stream(2) = 2097152 F_ddmass_ald = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ch3cooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ch3cooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ch3cooh , idomain ) = P_ddmass_ch3cooh ELSE P_ddmass_ch3cooh = dvel_index_table( PARAM_ddmass_ch3cooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ch3cooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ch3cooh ) = 'ddmass_ch3cooh' dvel_desc_table( idomain, P_ddmass_ch3cooh ) = 'CH3COOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_ch3cooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_ch3cooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ch3cooh )%stream(2) = 2097152 F_ddmass_ch3cooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_acet , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_acet = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_acet , idomain ) = P_ddmass_acet ELSE P_ddmass_acet = dvel_index_table( PARAM_ddmass_acet , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_acet ) = .FALSE. dvel_dname_table( idomain, P_ddmass_acet ) = 'ddmass_acet' dvel_desc_table( idomain, P_ddmass_acet ) = 'ACET dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_acet ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_acet )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_acet )%stream(2) = 2097152 F_ddmass_acet = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mgly , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mgly = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mgly , idomain ) = P_ddmass_mgly ELSE P_ddmass_mgly = dvel_index_table( PARAM_ddmass_mgly , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mgly ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mgly ) = 'ddmass_mgly' dvel_desc_table( idomain, P_ddmass_mgly ) = 'MGLY dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_mgly ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mgly )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_mgly )%stream(2) = 2097152 F_ddmass_mgly = .TRUE. IF ( dvel_index_table( PARAM_ddmass_gly , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_gly = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_gly , idomain ) = P_ddmass_gly ELSE P_ddmass_gly = dvel_index_table( PARAM_ddmass_gly , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_gly ) = .FALSE. dvel_dname_table( idomain, P_ddmass_gly ) = 'ddmass_gly' dvel_desc_table( idomain, P_ddmass_gly ) = 'GLY dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_gly ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_gly )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_gly )%stream(2) = 2097152 F_ddmass_gly = .TRUE. IF ( dvel_index_table( PARAM_ddmass_paa , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_paa = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_paa , idomain ) = P_ddmass_paa ELSE P_ddmass_paa = dvel_index_table( PARAM_ddmass_paa , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_paa ) = .FALSE. dvel_dname_table( idomain, P_ddmass_paa ) = 'ddmass_paa' dvel_desc_table( idomain, P_ddmass_paa ) = 'PAA dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_paa ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_paa )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_paa )%stream(2) = 2097152 F_ddmass_paa = .TRUE. IF ( dvel_index_table( PARAM_ddmass_pooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_pooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_pooh , idomain ) = P_ddmass_pooh ELSE P_ddmass_pooh = dvel_index_table( PARAM_ddmass_pooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_pooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_pooh ) = 'ddmass_pooh' dvel_desc_table( idomain, P_ddmass_pooh ) = 'POOH dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_pooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_pooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_pooh )%stream(2) = 2097152 F_ddmass_pooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_pan , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_pan = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_pan , idomain ) = P_ddmass_pan ELSE P_ddmass_pan = dvel_index_table( PARAM_ddmass_pan , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_pan ) = .FALSE. dvel_dname_table( idomain, P_ddmass_pan ) = 'ddmass_pan' dvel_desc_table( idomain, P_ddmass_pan ) = 'PAN dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_pan ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_pan )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_pan )%stream(2) = 2097152 F_ddmass_pan = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mpan , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mpan = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mpan , idomain ) = P_ddmass_mpan ELSE P_ddmass_mpan = dvel_index_table( PARAM_ddmass_mpan , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mpan ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mpan ) = 'ddmass_mpan' dvel_desc_table( idomain, P_ddmass_mpan ) = 'MPAN dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_mpan ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mpan )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_mpan )%stream(2) = 2097152 F_ddmass_mpan = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mco3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mco3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mco3 , idomain ) = P_ddmass_mco3 ELSE P_ddmass_mco3 = dvel_index_table( PARAM_ddmass_mco3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mco3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mco3 ) = 'ddmass_mco3' dvel_desc_table( idomain, P_ddmass_mco3 ) = 'MCO3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_mco3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mco3 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_mco3 )%stream(2) = 2097152 F_ddmass_mco3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mvkooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mvkooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mvkooh , idomain ) = P_ddmass_mvkooh ELSE P_ddmass_mvkooh = dvel_index_table( PARAM_ddmass_mvkooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mvkooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mvkooh ) = 'ddmass_mvkooh' dvel_desc_table( idomain, P_ddmass_mvkooh ) = 'MVKOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_mvkooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mvkooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_mvkooh )%stream(2) = 2097152 F_ddmass_mvkooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_c2h5oh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_c2h5oh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_c2h5oh , idomain ) = P_ddmass_c2h5oh ELSE P_ddmass_c2h5oh = dvel_index_table( PARAM_ddmass_c2h5oh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_c2h5oh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_c2h5oh ) = 'ddmass_c2h5oh' dvel_desc_table( idomain, P_ddmass_c2h5oh ) = 'C2H5OH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_c2h5oh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_c2h5oh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_c2h5oh )%stream(2) = 2097152 F_ddmass_c2h5oh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_etooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_etooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_etooh , idomain ) = P_ddmass_etooh ELSE P_ddmass_etooh = dvel_index_table( PARAM_ddmass_etooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_etooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_etooh ) = 'ddmass_etooh' dvel_desc_table( idomain, P_ddmass_etooh ) = 'ETOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_etooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_etooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_etooh )%stream(2) = 2097152 F_ddmass_etooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_prooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_prooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_prooh , idomain ) = P_ddmass_prooh ELSE P_ddmass_prooh = dvel_index_table( PARAM_ddmass_prooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_prooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_prooh ) = 'ddmass_prooh' dvel_desc_table( idomain, P_ddmass_prooh ) = 'PROOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_prooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_prooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_prooh )%stream(2) = 2097152 F_ddmass_prooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_acetp , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_acetp = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_acetp , idomain ) = P_ddmass_acetp ELSE P_ddmass_acetp = dvel_index_table( PARAM_ddmass_acetp , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_acetp ) = .FALSE. dvel_dname_table( idomain, P_ddmass_acetp ) = 'ddmass_acetp' dvel_desc_table( idomain, P_ddmass_acetp ) = 'ACETP dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_acetp ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_acetp )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_acetp )%stream(2) = 2097152 F_ddmass_acetp = .TRUE. IF ( dvel_index_table( PARAM_ddmass_onit , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_onit = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_onit , idomain ) = P_ddmass_onit ELSE P_ddmass_onit = dvel_index_table( PARAM_ddmass_onit , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_onit ) = .FALSE. dvel_dname_table( idomain, P_ddmass_onit ) = 'ddmass_onit' dvel_desc_table( idomain, P_ddmass_onit ) = 'ONIT dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_onit ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_onit )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_onit )%stream(2) = 2097152 F_ddmass_onit = .TRUE. IF ( dvel_index_table( PARAM_ddmass_onitr , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_onitr = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_onitr , idomain ) = P_ddmass_onitr ELSE P_ddmass_onitr = dvel_index_table( PARAM_ddmass_onitr , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_onitr ) = .FALSE. dvel_dname_table( idomain, P_ddmass_onitr ) = 'ddmass_onitr' dvel_desc_table( idomain, P_ddmass_onitr ) = 'ONITR dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_onitr ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_onitr )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_onitr )%stream(2) = 2097152 F_ddmass_onitr = .TRUE. IF ( dvel_index_table( PARAM_ddmass_isooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_isooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_isooh , idomain ) = P_ddmass_isooh ELSE P_ddmass_isooh = dvel_index_table( PARAM_ddmass_isooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_isooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_isooh ) = 'ddmass_isooh' dvel_desc_table( idomain, P_ddmass_isooh ) = 'ISOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_isooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_isooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_isooh )%stream(2) = 2097152 F_ddmass_isooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_acetol , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_acetol = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_acetol , idomain ) = P_ddmass_acetol ELSE P_ddmass_acetol = dvel_index_table( PARAM_ddmass_acetol , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_acetol ) = .FALSE. dvel_dname_table( idomain, P_ddmass_acetol ) = 'ddmass_acetol' dvel_desc_table( idomain, P_ddmass_acetol ) = 'ACETOL dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_acetol ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_acetol )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_acetol )%stream(2) = 2097152 F_ddmass_acetol = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glyald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glyald = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glyald , idomain ) = P_ddmass_glyald ELSE P_ddmass_glyald = dvel_index_table( PARAM_ddmass_glyald , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glyald ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glyald ) = 'ddmass_glyald' dvel_desc_table( idomain, P_ddmass_glyald ) = 'GLYALD dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_glyald ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_glyald )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glyald )%stream(2) = 2097152 F_ddmass_glyald = .TRUE. IF ( dvel_index_table( PARAM_ddmass_hydrald , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_hydrald = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_hydrald , idomain ) = P_ddmass_hydrald ELSE P_ddmass_hydrald = dvel_index_table( PARAM_ddmass_hydrald , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_hydrald ) = .FALSE. dvel_dname_table( idomain, P_ddmass_hydrald ) = 'ddmass_hydrald' dvel_desc_table( idomain, P_ddmass_hydrald ) = 'HYDRALD dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_hydrald ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_hydrald )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_hydrald )%stream(2) = 2097152 F_ddmass_hydrald = .TRUE. IF ( dvel_index_table( PARAM_ddmass_alkooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_alkooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_alkooh , idomain ) = P_ddmass_alkooh ELSE P_ddmass_alkooh = dvel_index_table( PARAM_ddmass_alkooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_alkooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_alkooh ) = 'ddmass_alkooh' dvel_desc_table( idomain, P_ddmass_alkooh ) = 'ALKOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_alkooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_alkooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_alkooh )%stream(2) = 2097152 F_ddmass_alkooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_mekooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_mekooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_mekooh , idomain ) = P_ddmass_mekooh ELSE P_ddmass_mekooh = dvel_index_table( PARAM_ddmass_mekooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_mekooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_mekooh ) = 'ddmass_mekooh' dvel_desc_table( idomain, P_ddmass_mekooh ) = 'MEKOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_mekooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_mekooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_mekooh )%stream(2) = 2097152 F_ddmass_mekooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_tolooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_tolooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_tolooh , idomain ) = P_ddmass_tolooh ELSE P_ddmass_tolooh = dvel_index_table( PARAM_ddmass_tolooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_tolooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_tolooh ) = 'ddmass_tolooh' dvel_desc_table( idomain, P_ddmass_tolooh ) = 'TOLOOH dry deposition, accumulated ' dvel_units_table( idomain, P_ddmass_tolooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_tolooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_tolooh )%stream(2) = 2097152 F_ddmass_tolooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_xooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_xooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_xooh , idomain ) = P_ddmass_xooh ELSE P_ddmass_xooh = dvel_index_table( PARAM_ddmass_xooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_xooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_xooh ) = 'ddmass_xooh' dvel_desc_table( idomain, P_ddmass_xooh ) = 'XOOH dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_xooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_xooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_xooh )%stream(2) = 2097152 F_ddmass_xooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so2 , idomain ) = P_ddmass_so2 ELSE P_ddmass_so2 = dvel_index_table( PARAM_ddmass_so2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so2 ) = 'ddmass_so2' dvel_desc_table( idomain, P_ddmass_so2 ) = 'SO2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_so2 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so2 )%stream(2) = 2097152 F_ddmass_so2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4 , idomain ) = P_ddmass_so4 ELSE P_ddmass_so4 = dvel_index_table( PARAM_ddmass_so4 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4 ) = 'ddmass_so4' dvel_desc_table( idomain, P_ddmass_so4 ) = 'SO4 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_so4 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4 )%stream(2) = 2097152 F_ddmass_so4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_terpooh , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_terpooh = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_terpooh , idomain ) = P_ddmass_terpooh ELSE P_ddmass_terpooh = dvel_index_table( PARAM_ddmass_terpooh , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_terpooh ) = .FALSE. dvel_dname_table( idomain, P_ddmass_terpooh ) = 'ddmass_terpooh' dvel_desc_table( idomain, P_ddmass_terpooh ) = 'TERPOOH dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_terpooh ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_terpooh )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_terpooh )%stream(2) = 2097152 F_ddmass_terpooh = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoax , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoax = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoax , idomain ) = P_ddmass_cvasoax ELSE P_ddmass_cvasoax = dvel_index_table( PARAM_ddmass_cvasoax , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoax ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoax ) = 'ddmass_cvasoaX' dvel_desc_table( idomain, P_ddmass_cvasoax ) = 'CVASOAX dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoax ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoax )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvasoax )%stream(2) = 2097152 F_ddmass_cvasoax = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoa1 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoa1 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoa1 , idomain ) = P_ddmass_cvasoa1 ELSE P_ddmass_cvasoa1 = dvel_index_table( PARAM_ddmass_cvasoa1 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoa1 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoa1 ) = 'ddmass_cvasoa1' dvel_desc_table( idomain, P_ddmass_cvasoa1 ) = 'CVASOA1 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoa1 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoa1 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvasoa1 )%stream(2) = 2097152 F_ddmass_cvasoa1 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoa2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoa2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoa2 , idomain ) = P_ddmass_cvasoa2 ELSE P_ddmass_cvasoa2 = dvel_index_table( PARAM_ddmass_cvasoa2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoa2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoa2 ) = 'ddmass_cvasoa2' dvel_desc_table( idomain, P_ddmass_cvasoa2 ) = 'CVASOA2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoa2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoa2 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvasoa2 )%stream(2) = 2097152 F_ddmass_cvasoa2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoa3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoa3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoa3 , idomain ) = P_ddmass_cvasoa3 ELSE P_ddmass_cvasoa3 = dvel_index_table( PARAM_ddmass_cvasoa3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoa3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoa3 ) = 'ddmass_cvasoa3' dvel_desc_table( idomain, P_ddmass_cvasoa3 ) = 'CVASOA3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoa3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoa3 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvasoa3 )%stream(2) = 2097152 F_ddmass_cvasoa3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvasoa4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvasoa4 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvasoa4 , idomain ) = P_ddmass_cvasoa4 ELSE P_ddmass_cvasoa4 = dvel_index_table( PARAM_ddmass_cvasoa4 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvasoa4 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvasoa4 ) = 'ddmass_cvasoa4' dvel_desc_table( idomain, P_ddmass_cvasoa4 ) = 'CVASOA4 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvasoa4 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvasoa4 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvasoa4 )%stream(2) = 2097152 F_ddmass_cvasoa4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoax , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoax = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoax , idomain ) = P_ddmass_cvbsoax ELSE P_ddmass_cvbsoax = dvel_index_table( PARAM_ddmass_cvbsoax , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoax ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoax ) = 'ddmass_cvbsoaX' dvel_desc_table( idomain, P_ddmass_cvbsoax ) = 'CVBSOAX dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoax ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoax )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvbsoax )%stream(2) = 2097152 F_ddmass_cvbsoax = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoa1 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoa1 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoa1 , idomain ) = P_ddmass_cvbsoa1 ELSE P_ddmass_cvbsoa1 = dvel_index_table( PARAM_ddmass_cvbsoa1 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoa1 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoa1 ) = 'ddmass_cvbsoa1' dvel_desc_table( idomain, P_ddmass_cvbsoa1 ) = 'CVBSOA1 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoa1 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoa1 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvbsoa1 )%stream(2) = 2097152 F_ddmass_cvbsoa1 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoa2 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoa2 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoa2 , idomain ) = P_ddmass_cvbsoa2 ELSE P_ddmass_cvbsoa2 = dvel_index_table( PARAM_ddmass_cvbsoa2 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoa2 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoa2 ) = 'ddmass_cvbsoa2' dvel_desc_table( idomain, P_ddmass_cvbsoa2 ) = 'CVBSOA2 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoa2 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoa2 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvbsoa2 )%stream(2) = 2097152 F_ddmass_cvbsoa2 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoa3 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoa3 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoa3 , idomain ) = P_ddmass_cvbsoa3 ELSE P_ddmass_cvbsoa3 = dvel_index_table( PARAM_ddmass_cvbsoa3 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoa3 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoa3 ) = 'ddmass_cvbsoa3' dvel_desc_table( idomain, P_ddmass_cvbsoa3 ) = 'CVBSOA3 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoa3 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoa3 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvbsoa3 )%stream(2) = 2097152 F_ddmass_cvbsoa3 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cvbsoa4 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cvbsoa4 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cvbsoa4 , idomain ) = P_ddmass_cvbsoa4 ELSE P_ddmass_cvbsoa4 = dvel_index_table( PARAM_ddmass_cvbsoa4 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cvbsoa4 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cvbsoa4 ) = 'ddmass_cvbsoa4' dvel_desc_table( idomain, P_ddmass_cvbsoa4 ) = 'CVBSOA4 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cvbsoa4 ) = 'mol/m2' dvel_streams_table( idomain, P_ddmass_cvbsoa4 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cvbsoa4 )%stream(2) = 2097152 F_ddmass_cvbsoa4 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_a01 , idomain ) = P_ddmass_so4_a01 ELSE P_ddmass_so4_a01 = dvel_index_table( PARAM_ddmass_so4_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_a01 ) = 'ddmass_so4_a01' dvel_desc_table( idomain, P_ddmass_so4_a01 ) = 'so4_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4_a01 )%stream(2) = 2097152 F_ddmass_so4_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_a01 , idomain ) = P_ddmass_no3_a01 ELSE P_ddmass_no3_a01 = dvel_index_table( PARAM_ddmass_no3_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_a01 ) = 'ddmass_no3_a01' dvel_desc_table( idomain, P_ddmass_no3_a01 ) = 'no3_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no3_a01 )%stream(2) = 2097152 F_ddmass_no3_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_a01 , idomain ) = P_ddmass_cl_a01 ELSE P_ddmass_cl_a01 = dvel_index_table( PARAM_ddmass_cl_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_a01 ) = 'ddmass_cl_a01' dvel_desc_table( idomain, P_ddmass_cl_a01 ) = 'cl_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cl_a01 )%stream(2) = 2097152 F_ddmass_cl_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_a01 , idomain ) = P_ddmass_nh4_a01 ELSE P_ddmass_nh4_a01 = dvel_index_table( PARAM_ddmass_nh4_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_a01 ) = 'ddmass_nh4_a01' dvel_desc_table( idomain, P_ddmass_nh4_a01 ) = 'nh4_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh4_a01 )%stream(2) = 2097152 F_ddmass_nh4_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_a01 , idomain ) = P_ddmass_na_a01 ELSE P_ddmass_na_a01 = dvel_index_table( PARAM_ddmass_na_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_a01 ) = 'ddmass_na_a01' dvel_desc_table( idomain, P_ddmass_na_a01 ) = 'na_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_na_a01 )%stream(2) = 2097152 F_ddmass_na_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_a01 , idomain ) = P_ddmass_oin_a01 ELSE P_ddmass_oin_a01 = dvel_index_table( PARAM_ddmass_oin_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_a01 ) = 'ddmass_oin_a01' dvel_desc_table( idomain, P_ddmass_oin_a01 ) = 'oin_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oin_a01 )%stream(2) = 2097152 F_ddmass_oin_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_a01 , idomain ) = P_ddmass_oc_a01 ELSE P_ddmass_oc_a01 = dvel_index_table( PARAM_ddmass_oc_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_a01 ) = 'ddmass_oc_a01' dvel_desc_table( idomain, P_ddmass_oc_a01 ) = 'oc_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oc_a01 )%stream(2) = 2097152 F_ddmass_oc_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_a01 , idomain ) = P_ddmass_bc_a01 ELSE P_ddmass_bc_a01 = dvel_index_table( PARAM_ddmass_bc_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_a01 ) = 'ddmass_bc_a01' dvel_desc_table( idomain, P_ddmass_bc_a01 ) = 'bc_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bc_a01 )%stream(2) = 2097152 F_ddmass_bc_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_a01 , idomain ) = P_ddmass_smpa_a01 ELSE P_ddmass_smpa_a01 = dvel_index_table( PARAM_ddmass_smpa_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_a01 ) = 'ddmass_smpa_a01' dvel_desc_table( idomain, P_ddmass_smpa_a01 ) = 'smpa_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpa_a01 )%stream(2) = 2097152 F_ddmass_smpa_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_a01 , idomain ) = P_ddmass_smpbb_a01 ELSE P_ddmass_smpbb_a01 = dvel_index_table( PARAM_ddmass_smpbb_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_a01 ) = 'ddmass_smpbb_a01' dvel_desc_table( idomain, P_ddmass_smpbb_a01 ) = 'smpbb_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpbb_a01 )%stream(2) = 2097152 F_ddmass_smpbb_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_a01 , idomain ) = P_ddmass_glysoa_a01 ELSE P_ddmass_glysoa_a01 = dvel_index_table( PARAM_ddmass_glysoa_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_a01 ) = 'ddmass_glysoa_a01' dvel_desc_table( idomain, P_ddmass_glysoa_a01 ) = 'glysoa_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glysoa_a01 )%stream(2) = 2097152 F_ddmass_glysoa_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_a01 , idomain ) = P_ddmass_biog1_c_a01 ELSE P_ddmass_biog1_c_a01 = dvel_index_table( PARAM_ddmass_biog1_c_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_a01 ) = 'ddmass_biog1_c_a01' dvel_desc_table( idomain, P_ddmass_biog1_c_a01 ) = 'biog1_c_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_c_a01 )%stream(2) = 2097152 F_ddmass_biog1_c_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_a01 , idomain ) = P_ddmass_biog1_o_a01 ELSE P_ddmass_biog1_o_a01 = dvel_index_table( PARAM_ddmass_biog1_o_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_a01 ) = 'ddmass_biog1_o_a01' dvel_desc_table( idomain, P_ddmass_biog1_o_a01 ) = 'biog1_o_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_o_a01 )%stream(2) = 2097152 F_ddmass_biog1_o_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_a01 , idomain ) = P_ddmass_asoax_a01 ELSE P_ddmass_asoax_a01 = dvel_index_table( PARAM_ddmass_asoax_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_a01 ) = 'ddmass_asoaX_a01' dvel_desc_table( idomain, P_ddmass_asoax_a01 ) = 'asoaX_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoax_a01 )%stream(2) = 2097152 F_ddmass_asoax_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_a01 , idomain ) = P_ddmass_asoa1_a01 ELSE P_ddmass_asoa1_a01 = dvel_index_table( PARAM_ddmass_asoa1_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_a01 ) = 'ddmass_asoa1_a01' dvel_desc_table( idomain, P_ddmass_asoa1_a01 ) = 'asoa1_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa1_a01 )%stream(2) = 2097152 F_ddmass_asoa1_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_a01 , idomain ) = P_ddmass_asoa2_a01 ELSE P_ddmass_asoa2_a01 = dvel_index_table( PARAM_ddmass_asoa2_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_a01 ) = 'ddmass_asoa2_a01' dvel_desc_table( idomain, P_ddmass_asoa2_a01 ) = 'asoa2_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa2_a01 )%stream(2) = 2097152 F_ddmass_asoa2_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_a01 , idomain ) = P_ddmass_asoa3_a01 ELSE P_ddmass_asoa3_a01 = dvel_index_table( PARAM_ddmass_asoa3_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_a01 ) = 'ddmass_asoa3_a01' dvel_desc_table( idomain, P_ddmass_asoa3_a01 ) = 'asoa3_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa3_a01 )%stream(2) = 2097152 F_ddmass_asoa3_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_a01 , idomain ) = P_ddmass_asoa4_a01 ELSE P_ddmass_asoa4_a01 = dvel_index_table( PARAM_ddmass_asoa4_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_a01 ) = 'ddmass_asoa4_a01' dvel_desc_table( idomain, P_ddmass_asoa4_a01 ) = 'asoa4_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa4_a01 )%stream(2) = 2097152 F_ddmass_asoa4_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_a01 , idomain ) = P_ddmass_bsoax_a01 ELSE P_ddmass_bsoax_a01 = dvel_index_table( PARAM_ddmass_bsoax_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_a01 ) = 'ddmass_bsoaX_a01' dvel_desc_table( idomain, P_ddmass_bsoax_a01 ) = 'bsoaX_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoax_a01 )%stream(2) = 2097152 F_ddmass_bsoax_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_a01 , idomain ) = P_ddmass_bsoa1_a01 ELSE P_ddmass_bsoa1_a01 = dvel_index_table( PARAM_ddmass_bsoa1_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_a01 ) = 'ddmass_bsoa1_a01' dvel_desc_table( idomain, P_ddmass_bsoa1_a01 ) = 'bsoa1_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa1_a01 )%stream(2) = 2097152 F_ddmass_bsoa1_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_a01 , idomain ) = P_ddmass_bsoa2_a01 ELSE P_ddmass_bsoa2_a01 = dvel_index_table( PARAM_ddmass_bsoa2_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_a01 ) = 'ddmass_bsoa2_a01' dvel_desc_table( idomain, P_ddmass_bsoa2_a01 ) = 'bsoa2_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa2_a01 )%stream(2) = 2097152 F_ddmass_bsoa2_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_a01 , idomain ) = P_ddmass_bsoa3_a01 ELSE P_ddmass_bsoa3_a01 = dvel_index_table( PARAM_ddmass_bsoa3_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_a01 ) = 'ddmass_bsoa3_a01' dvel_desc_table( idomain, P_ddmass_bsoa3_a01 ) = 'bsoa3_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa3_a01 )%stream(2) = 2097152 F_ddmass_bsoa3_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_a01 , idomain ) = P_ddmass_bsoa4_a01 ELSE P_ddmass_bsoa4_a01 = dvel_index_table( PARAM_ddmass_bsoa4_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_a01 ) = 'ddmass_bsoa4_a01' dvel_desc_table( idomain, P_ddmass_bsoa4_a01 ) = 'bsoa4_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa4_a01 )%stream(2) = 2097152 F_ddmass_bsoa4_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_a02 , idomain ) = P_ddmass_so4_a02 ELSE P_ddmass_so4_a02 = dvel_index_table( PARAM_ddmass_so4_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_a02 ) = 'ddmass_so4_a02' dvel_desc_table( idomain, P_ddmass_so4_a02 ) = 'so4_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4_a02 )%stream(2) = 2097152 F_ddmass_so4_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_a02 , idomain ) = P_ddmass_no3_a02 ELSE P_ddmass_no3_a02 = dvel_index_table( PARAM_ddmass_no3_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_a02 ) = 'ddmass_no3_a02' dvel_desc_table( idomain, P_ddmass_no3_a02 ) = 'no3_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no3_a02 )%stream(2) = 2097152 F_ddmass_no3_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_a02 , idomain ) = P_ddmass_cl_a02 ELSE P_ddmass_cl_a02 = dvel_index_table( PARAM_ddmass_cl_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_a02 ) = 'ddmass_cl_a02' dvel_desc_table( idomain, P_ddmass_cl_a02 ) = 'cl_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cl_a02 )%stream(2) = 2097152 F_ddmass_cl_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_a02 , idomain ) = P_ddmass_nh4_a02 ELSE P_ddmass_nh4_a02 = dvel_index_table( PARAM_ddmass_nh4_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_a02 ) = 'ddmass_nh4_a02' dvel_desc_table( idomain, P_ddmass_nh4_a02 ) = 'nh4_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh4_a02 )%stream(2) = 2097152 F_ddmass_nh4_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_a02 , idomain ) = P_ddmass_na_a02 ELSE P_ddmass_na_a02 = dvel_index_table( PARAM_ddmass_na_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_a02 ) = 'ddmass_na_a02' dvel_desc_table( idomain, P_ddmass_na_a02 ) = 'na_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_na_a02 )%stream(2) = 2097152 F_ddmass_na_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_a02 , idomain ) = P_ddmass_oin_a02 ELSE P_ddmass_oin_a02 = dvel_index_table( PARAM_ddmass_oin_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_a02 ) = 'ddmass_oin_a02' dvel_desc_table( idomain, P_ddmass_oin_a02 ) = 'oin_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oin_a02 )%stream(2) = 2097152 F_ddmass_oin_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_a02 , idomain ) = P_ddmass_oc_a02 ELSE P_ddmass_oc_a02 = dvel_index_table( PARAM_ddmass_oc_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_a02 ) = 'ddmass_oc_a02' dvel_desc_table( idomain, P_ddmass_oc_a02 ) = 'oc_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oc_a02 )%stream(2) = 2097152 F_ddmass_oc_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_a02 , idomain ) = P_ddmass_bc_a02 ELSE P_ddmass_bc_a02 = dvel_index_table( PARAM_ddmass_bc_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_a02 ) = 'ddmass_bc_a02' dvel_desc_table( idomain, P_ddmass_bc_a02 ) = 'bc_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bc_a02 )%stream(2) = 2097152 F_ddmass_bc_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_a02 , idomain ) = P_ddmass_smpa_a02 ELSE P_ddmass_smpa_a02 = dvel_index_table( PARAM_ddmass_smpa_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_a02 ) = 'ddmass_smpa_a02' dvel_desc_table( idomain, P_ddmass_smpa_a02 ) = 'smpa_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpa_a02 )%stream(2) = 2097152 F_ddmass_smpa_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_a02 , idomain ) = P_ddmass_smpbb_a02 ELSE P_ddmass_smpbb_a02 = dvel_index_table( PARAM_ddmass_smpbb_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_a02 ) = 'ddmass_smpbb_a02' dvel_desc_table( idomain, P_ddmass_smpbb_a02 ) = 'smpbb_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpbb_a02 )%stream(2) = 2097152 F_ddmass_smpbb_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_a02 , idomain ) = P_ddmass_glysoa_a02 ELSE P_ddmass_glysoa_a02 = dvel_index_table( PARAM_ddmass_glysoa_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_a02 ) = 'ddmass_glysoa_a02' dvel_desc_table( idomain, P_ddmass_glysoa_a02 ) = 'glysoa_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glysoa_a02 )%stream(2) = 2097152 F_ddmass_glysoa_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_a02 , idomain ) = P_ddmass_biog1_c_a02 ELSE P_ddmass_biog1_c_a02 = dvel_index_table( PARAM_ddmass_biog1_c_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_a02 ) = 'ddmass_biog1_c_a02' dvel_desc_table( idomain, P_ddmass_biog1_c_a02 ) = 'biog1_c_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_c_a02 )%stream(2) = 2097152 F_ddmass_biog1_c_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_a02 , idomain ) = P_ddmass_biog1_o_a02 ELSE P_ddmass_biog1_o_a02 = dvel_index_table( PARAM_ddmass_biog1_o_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_a02 ) = 'ddmass_biog1_o_a02' dvel_desc_table( idomain, P_ddmass_biog1_o_a02 ) = 'biog1_o_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_o_a02 )%stream(2) = 2097152 F_ddmass_biog1_o_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_a02 , idomain ) = P_ddmass_asoax_a02 ELSE P_ddmass_asoax_a02 = dvel_index_table( PARAM_ddmass_asoax_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_a02 ) = 'ddmass_asoaX_a02' dvel_desc_table( idomain, P_ddmass_asoax_a02 ) = 'asoaX_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoax_a02 )%stream(2) = 2097152 F_ddmass_asoax_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_a02 , idomain ) = P_ddmass_asoa1_a02 ELSE P_ddmass_asoa1_a02 = dvel_index_table( PARAM_ddmass_asoa1_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_a02 ) = 'ddmass_asoa1_a02' dvel_desc_table( idomain, P_ddmass_asoa1_a02 ) = 'asoa1_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa1_a02 )%stream(2) = 2097152 F_ddmass_asoa1_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_a02 , idomain ) = P_ddmass_asoa2_a02 ELSE P_ddmass_asoa2_a02 = dvel_index_table( PARAM_ddmass_asoa2_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_a02 ) = 'ddmass_asoa2_a02' dvel_desc_table( idomain, P_ddmass_asoa2_a02 ) = 'asoa2_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa2_a02 )%stream(2) = 2097152 F_ddmass_asoa2_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_a02 , idomain ) = P_ddmass_asoa3_a02 ELSE P_ddmass_asoa3_a02 = dvel_index_table( PARAM_ddmass_asoa3_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_a02 ) = 'ddmass_asoa3_a02' dvel_desc_table( idomain, P_ddmass_asoa3_a02 ) = 'asoa3_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa3_a02 )%stream(2) = 2097152 F_ddmass_asoa3_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_a02 , idomain ) = P_ddmass_asoa4_a02 ELSE P_ddmass_asoa4_a02 = dvel_index_table( PARAM_ddmass_asoa4_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_a02 ) = 'ddmass_asoa4_a02' dvel_desc_table( idomain, P_ddmass_asoa4_a02 ) = 'asoa4_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa4_a02 )%stream(2) = 2097152 F_ddmass_asoa4_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_a02 , idomain ) = P_ddmass_bsoax_a02 ELSE P_ddmass_bsoax_a02 = dvel_index_table( PARAM_ddmass_bsoax_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_a02 ) = 'ddmass_bsoaX_a02' dvel_desc_table( idomain, P_ddmass_bsoax_a02 ) = 'bsoaX_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoax_a02 )%stream(2) = 2097152 F_ddmass_bsoax_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_a02 , idomain ) = P_ddmass_bsoa1_a02 ELSE P_ddmass_bsoa1_a02 = dvel_index_table( PARAM_ddmass_bsoa1_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_a02 ) = 'ddmass_bsoa1_a02' dvel_desc_table( idomain, P_ddmass_bsoa1_a02 ) = 'bsoa1_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa1_a02 )%stream(2) = 2097152 F_ddmass_bsoa1_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_a02 , idomain ) = P_ddmass_bsoa2_a02 ELSE P_ddmass_bsoa2_a02 = dvel_index_table( PARAM_ddmass_bsoa2_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_a02 ) = 'ddmass_bsoa2_a02' dvel_desc_table( idomain, P_ddmass_bsoa2_a02 ) = 'bsoa2_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa2_a02 )%stream(2) = 2097152 F_ddmass_bsoa2_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_a02 , idomain ) = P_ddmass_bsoa3_a02 ELSE P_ddmass_bsoa3_a02 = dvel_index_table( PARAM_ddmass_bsoa3_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_a02 ) = 'ddmass_bsoa3_a02' dvel_desc_table( idomain, P_ddmass_bsoa3_a02 ) = 'bsoa3_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa3_a02 )%stream(2) = 2097152 F_ddmass_bsoa3_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_a02 , idomain ) = P_ddmass_bsoa4_a02 ELSE P_ddmass_bsoa4_a02 = dvel_index_table( PARAM_ddmass_bsoa4_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_a02 ) = 'ddmass_bsoa4_a02' dvel_desc_table( idomain, P_ddmass_bsoa4_a02 ) = 'bsoa4_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa4_a02 )%stream(2) = 2097152 F_ddmass_bsoa4_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_a03 , idomain ) = P_ddmass_so4_a03 ELSE P_ddmass_so4_a03 = dvel_index_table( PARAM_ddmass_so4_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_a03 ) = 'ddmass_so4_a03' dvel_desc_table( idomain, P_ddmass_so4_a03 ) = 'so4_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4_a03 )%stream(2) = 2097152 F_ddmass_so4_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_a03 , idomain ) = P_ddmass_no3_a03 ELSE P_ddmass_no3_a03 = dvel_index_table( PARAM_ddmass_no3_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_a03 ) = 'ddmass_no3_a03' dvel_desc_table( idomain, P_ddmass_no3_a03 ) = 'no3_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no3_a03 )%stream(2) = 2097152 F_ddmass_no3_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_a03 , idomain ) = P_ddmass_cl_a03 ELSE P_ddmass_cl_a03 = dvel_index_table( PARAM_ddmass_cl_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_a03 ) = 'ddmass_cl_a03' dvel_desc_table( idomain, P_ddmass_cl_a03 ) = 'cl_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cl_a03 )%stream(2) = 2097152 F_ddmass_cl_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_a03 , idomain ) = P_ddmass_nh4_a03 ELSE P_ddmass_nh4_a03 = dvel_index_table( PARAM_ddmass_nh4_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_a03 ) = 'ddmass_nh4_a03' dvel_desc_table( idomain, P_ddmass_nh4_a03 ) = 'nh4_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh4_a03 )%stream(2) = 2097152 F_ddmass_nh4_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_a03 , idomain ) = P_ddmass_na_a03 ELSE P_ddmass_na_a03 = dvel_index_table( PARAM_ddmass_na_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_a03 ) = 'ddmass_na_a03' dvel_desc_table( idomain, P_ddmass_na_a03 ) = 'na_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_na_a03 )%stream(2) = 2097152 F_ddmass_na_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_a03 , idomain ) = P_ddmass_oin_a03 ELSE P_ddmass_oin_a03 = dvel_index_table( PARAM_ddmass_oin_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_a03 ) = 'ddmass_oin_a03' dvel_desc_table( idomain, P_ddmass_oin_a03 ) = 'oin_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oin_a03 )%stream(2) = 2097152 F_ddmass_oin_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_a03 , idomain ) = P_ddmass_oc_a03 ELSE P_ddmass_oc_a03 = dvel_index_table( PARAM_ddmass_oc_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_a03 ) = 'ddmass_oc_a03' dvel_desc_table( idomain, P_ddmass_oc_a03 ) = 'oc_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oc_a03 )%stream(2) = 2097152 F_ddmass_oc_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_a03 , idomain ) = P_ddmass_bc_a03 ELSE P_ddmass_bc_a03 = dvel_index_table( PARAM_ddmass_bc_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_a03 ) = 'ddmass_bc_a03' dvel_desc_table( idomain, P_ddmass_bc_a03 ) = 'bc_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bc_a03 )%stream(2) = 2097152 F_ddmass_bc_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_a03 , idomain ) = P_ddmass_smpa_a03 ELSE P_ddmass_smpa_a03 = dvel_index_table( PARAM_ddmass_smpa_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_a03 ) = 'ddmass_smpa_a03' dvel_desc_table( idomain, P_ddmass_smpa_a03 ) = 'smpa_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpa_a03 )%stream(2) = 2097152 F_ddmass_smpa_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_a03 , idomain ) = P_ddmass_smpbb_a03 ELSE P_ddmass_smpbb_a03 = dvel_index_table( PARAM_ddmass_smpbb_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_a03 ) = 'ddmass_smpbb_a03' dvel_desc_table( idomain, P_ddmass_smpbb_a03 ) = 'smpbb_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpbb_a03 )%stream(2) = 2097152 F_ddmass_smpbb_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_a03 , idomain ) = P_ddmass_glysoa_a03 ELSE P_ddmass_glysoa_a03 = dvel_index_table( PARAM_ddmass_glysoa_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_a03 ) = 'ddmass_glysoa_a03' dvel_desc_table( idomain, P_ddmass_glysoa_a03 ) = 'glysoa_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glysoa_a03 )%stream(2) = 2097152 F_ddmass_glysoa_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_a03 , idomain ) = P_ddmass_biog1_c_a03 ELSE P_ddmass_biog1_c_a03 = dvel_index_table( PARAM_ddmass_biog1_c_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_a03 ) = 'ddmass_biog1_c_a03' dvel_desc_table( idomain, P_ddmass_biog1_c_a03 ) = 'biog1_c_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_c_a03 )%stream(2) = 2097152 F_ddmass_biog1_c_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_a03 , idomain ) = P_ddmass_biog1_o_a03 ELSE P_ddmass_biog1_o_a03 = dvel_index_table( PARAM_ddmass_biog1_o_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_a03 ) = 'ddmass_biog1_o_a03' dvel_desc_table( idomain, P_ddmass_biog1_o_a03 ) = 'biog1_o_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_o_a03 )%stream(2) = 2097152 F_ddmass_biog1_o_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_a03 , idomain ) = P_ddmass_asoax_a03 ELSE P_ddmass_asoax_a03 = dvel_index_table( PARAM_ddmass_asoax_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_a03 ) = 'ddmass_asoaX_a03' dvel_desc_table( idomain, P_ddmass_asoax_a03 ) = 'asoaX_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoax_a03 )%stream(2) = 2097152 F_ddmass_asoax_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_a03 , idomain ) = P_ddmass_asoa1_a03 ELSE P_ddmass_asoa1_a03 = dvel_index_table( PARAM_ddmass_asoa1_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_a03 ) = 'ddmass_asoa1_a03' dvel_desc_table( idomain, P_ddmass_asoa1_a03 ) = 'asoa1_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa1_a03 )%stream(2) = 2097152 F_ddmass_asoa1_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_a03 , idomain ) = P_ddmass_asoa2_a03 ELSE P_ddmass_asoa2_a03 = dvel_index_table( PARAM_ddmass_asoa2_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_a03 ) = 'ddmass_asoa2_a03' dvel_desc_table( idomain, P_ddmass_asoa2_a03 ) = 'asoa2_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa2_a03 )%stream(2) = 2097152 F_ddmass_asoa2_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_a03 , idomain ) = P_ddmass_asoa3_a03 ELSE P_ddmass_asoa3_a03 = dvel_index_table( PARAM_ddmass_asoa3_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_a03 ) = 'ddmass_asoa3_a03' dvel_desc_table( idomain, P_ddmass_asoa3_a03 ) = 'asoa3_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa3_a03 )%stream(2) = 2097152 F_ddmass_asoa3_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_a03 , idomain ) = P_ddmass_asoa4_a03 ELSE P_ddmass_asoa4_a03 = dvel_index_table( PARAM_ddmass_asoa4_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_a03 ) = 'ddmass_asoa4_a03' dvel_desc_table( idomain, P_ddmass_asoa4_a03 ) = 'asoa4_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa4_a03 )%stream(2) = 2097152 F_ddmass_asoa4_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_a03 , idomain ) = P_ddmass_bsoax_a03 ELSE P_ddmass_bsoax_a03 = dvel_index_table( PARAM_ddmass_bsoax_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_a03 ) = 'ddmass_bsoaX_a03' dvel_desc_table( idomain, P_ddmass_bsoax_a03 ) = 'bsoaX_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoax_a03 )%stream(2) = 2097152 F_ddmass_bsoax_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_a03 , idomain ) = P_ddmass_bsoa1_a03 ELSE P_ddmass_bsoa1_a03 = dvel_index_table( PARAM_ddmass_bsoa1_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_a03 ) = 'ddmass_bsoa1_a03' dvel_desc_table( idomain, P_ddmass_bsoa1_a03 ) = 'bsoa1_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa1_a03 )%stream(2) = 2097152 F_ddmass_bsoa1_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_a03 , idomain ) = P_ddmass_bsoa2_a03 ELSE P_ddmass_bsoa2_a03 = dvel_index_table( PARAM_ddmass_bsoa2_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_a03 ) = 'ddmass_bsoa2_a03' dvel_desc_table( idomain, P_ddmass_bsoa2_a03 ) = 'bsoa2_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa2_a03 )%stream(2) = 2097152 F_ddmass_bsoa2_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_a03 , idomain ) = P_ddmass_bsoa3_a03 ELSE P_ddmass_bsoa3_a03 = dvel_index_table( PARAM_ddmass_bsoa3_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_a03 ) = 'ddmass_bsoa3_a03' dvel_desc_table( idomain, P_ddmass_bsoa3_a03 ) = 'bsoa3_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa3_a03 )%stream(2) = 2097152 F_ddmass_bsoa3_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_a03 , idomain ) = P_ddmass_bsoa4_a03 ELSE P_ddmass_bsoa4_a03 = dvel_index_table( PARAM_ddmass_bsoa4_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_a03 ) = 'ddmass_bsoa4_a03' dvel_desc_table( idomain, P_ddmass_bsoa4_a03 ) = 'bsoa4_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa4_a03 )%stream(2) = 2097152 F_ddmass_bsoa4_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_a04 , idomain ) = P_ddmass_so4_a04 ELSE P_ddmass_so4_a04 = dvel_index_table( PARAM_ddmass_so4_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_a04 ) = 'ddmass_so4_a04' dvel_desc_table( idomain, P_ddmass_so4_a04 ) = 'so4_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4_a04 )%stream(2) = 2097152 F_ddmass_so4_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_a04 , idomain ) = P_ddmass_no3_a04 ELSE P_ddmass_no3_a04 = dvel_index_table( PARAM_ddmass_no3_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_a04 ) = 'ddmass_no3_a04' dvel_desc_table( idomain, P_ddmass_no3_a04 ) = 'no3_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no3_a04 )%stream(2) = 2097152 F_ddmass_no3_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_a04 , idomain ) = P_ddmass_cl_a04 ELSE P_ddmass_cl_a04 = dvel_index_table( PARAM_ddmass_cl_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_a04 ) = 'ddmass_cl_a04' dvel_desc_table( idomain, P_ddmass_cl_a04 ) = 'cl_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cl_a04 )%stream(2) = 2097152 F_ddmass_cl_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_a04 , idomain ) = P_ddmass_nh4_a04 ELSE P_ddmass_nh4_a04 = dvel_index_table( PARAM_ddmass_nh4_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_a04 ) = 'ddmass_nh4_a04' dvel_desc_table( idomain, P_ddmass_nh4_a04 ) = 'nh4_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh4_a04 )%stream(2) = 2097152 F_ddmass_nh4_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_a04 , idomain ) = P_ddmass_na_a04 ELSE P_ddmass_na_a04 = dvel_index_table( PARAM_ddmass_na_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_a04 ) = 'ddmass_na_a04' dvel_desc_table( idomain, P_ddmass_na_a04 ) = 'na_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_na_a04 )%stream(2) = 2097152 F_ddmass_na_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_a04 , idomain ) = P_ddmass_oin_a04 ELSE P_ddmass_oin_a04 = dvel_index_table( PARAM_ddmass_oin_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_a04 ) = 'ddmass_oin_a04' dvel_desc_table( idomain, P_ddmass_oin_a04 ) = 'oin_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oin_a04 )%stream(2) = 2097152 F_ddmass_oin_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_a04 , idomain ) = P_ddmass_oc_a04 ELSE P_ddmass_oc_a04 = dvel_index_table( PARAM_ddmass_oc_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_a04 ) = 'ddmass_oc_a04' dvel_desc_table( idomain, P_ddmass_oc_a04 ) = 'oc_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oc_a04 )%stream(2) = 2097152 F_ddmass_oc_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_a04 , idomain ) = P_ddmass_bc_a04 ELSE P_ddmass_bc_a04 = dvel_index_table( PARAM_ddmass_bc_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_a04 ) = 'ddmass_bc_a04' dvel_desc_table( idomain, P_ddmass_bc_a04 ) = 'bc_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bc_a04 )%stream(2) = 2097152 F_ddmass_bc_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_a04 , idomain ) = P_ddmass_smpa_a04 ELSE P_ddmass_smpa_a04 = dvel_index_table( PARAM_ddmass_smpa_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_a04 ) = 'ddmass_smpa_a04' dvel_desc_table( idomain, P_ddmass_smpa_a04 ) = 'smpa_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpa_a04 )%stream(2) = 2097152 F_ddmass_smpa_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_a04 , idomain ) = P_ddmass_smpbb_a04 ELSE P_ddmass_smpbb_a04 = dvel_index_table( PARAM_ddmass_smpbb_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_a04 ) = 'ddmass_smpbb_a04' dvel_desc_table( idomain, P_ddmass_smpbb_a04 ) = 'smpbb_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpbb_a04 )%stream(2) = 2097152 F_ddmass_smpbb_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_a04 , idomain ) = P_ddmass_glysoa_a04 ELSE P_ddmass_glysoa_a04 = dvel_index_table( PARAM_ddmass_glysoa_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_a04 ) = 'ddmass_glysoa_a04' dvel_desc_table( idomain, P_ddmass_glysoa_a04 ) = 'glysoa_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glysoa_a04 )%stream(2) = 2097152 F_ddmass_glysoa_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_a04 , idomain ) = P_ddmass_biog1_c_a04 ELSE P_ddmass_biog1_c_a04 = dvel_index_table( PARAM_ddmass_biog1_c_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_a04 ) = 'ddmass_biog1_c_a04' dvel_desc_table( idomain, P_ddmass_biog1_c_a04 ) = 'biog1_c_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_c_a04 )%stream(2) = 2097152 F_ddmass_biog1_c_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_a04 , idomain ) = P_ddmass_biog1_o_a04 ELSE P_ddmass_biog1_o_a04 = dvel_index_table( PARAM_ddmass_biog1_o_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_a04 ) = 'ddmass_biog1_o_a04' dvel_desc_table( idomain, P_ddmass_biog1_o_a04 ) = 'biog1_o_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_o_a04 )%stream(2) = 2097152 F_ddmass_biog1_o_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_a04 , idomain ) = P_ddmass_asoax_a04 ELSE P_ddmass_asoax_a04 = dvel_index_table( PARAM_ddmass_asoax_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_a04 ) = 'ddmass_asoaX_a04' dvel_desc_table( idomain, P_ddmass_asoax_a04 ) = 'asoaX_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoax_a04 )%stream(2) = 2097152 F_ddmass_asoax_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_a04 , idomain ) = P_ddmass_asoa1_a04 ELSE P_ddmass_asoa1_a04 = dvel_index_table( PARAM_ddmass_asoa1_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_a04 ) = 'ddmass_asoa1_a04' dvel_desc_table( idomain, P_ddmass_asoa1_a04 ) = 'asoa1_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa1_a04 )%stream(2) = 2097152 F_ddmass_asoa1_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_a04 , idomain ) = P_ddmass_asoa2_a04 ELSE P_ddmass_asoa2_a04 = dvel_index_table( PARAM_ddmass_asoa2_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_a04 ) = 'ddmass_asoa2_a04' dvel_desc_table( idomain, P_ddmass_asoa2_a04 ) = 'asoa2_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa2_a04 )%stream(2) = 2097152 F_ddmass_asoa2_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_a04 , idomain ) = P_ddmass_asoa3_a04 ELSE P_ddmass_asoa3_a04 = dvel_index_table( PARAM_ddmass_asoa3_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_a04 ) = 'ddmass_asoa3_a04' dvel_desc_table( idomain, P_ddmass_asoa3_a04 ) = 'asoa3_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa3_a04 )%stream(2) = 2097152 F_ddmass_asoa3_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_a04 , idomain ) = P_ddmass_asoa4_a04 ELSE P_ddmass_asoa4_a04 = dvel_index_table( PARAM_ddmass_asoa4_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_a04 ) = 'ddmass_asoa4_a04' dvel_desc_table( idomain, P_ddmass_asoa4_a04 ) = 'asoa4_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa4_a04 )%stream(2) = 2097152 F_ddmass_asoa4_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_a04 , idomain ) = P_ddmass_bsoax_a04 ELSE P_ddmass_bsoax_a04 = dvel_index_table( PARAM_ddmass_bsoax_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_a04 ) = 'ddmass_bsoaX_a04' dvel_desc_table( idomain, P_ddmass_bsoax_a04 ) = 'bsoaX_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoax_a04 )%stream(2) = 2097152 F_ddmass_bsoax_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_a04 , idomain ) = P_ddmass_bsoa1_a04 ELSE P_ddmass_bsoa1_a04 = dvel_index_table( PARAM_ddmass_bsoa1_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_a04 ) = 'ddmass_bsoa1_a04' dvel_desc_table( idomain, P_ddmass_bsoa1_a04 ) = 'bsoa1_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa1_a04 )%stream(2) = 2097152 F_ddmass_bsoa1_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_a04 , idomain ) = P_ddmass_bsoa2_a04 ELSE P_ddmass_bsoa2_a04 = dvel_index_table( PARAM_ddmass_bsoa2_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_a04 ) = 'ddmass_bsoa2_a04' dvel_desc_table( idomain, P_ddmass_bsoa2_a04 ) = 'bsoa2_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa2_a04 )%stream(2) = 2097152 F_ddmass_bsoa2_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_a04 , idomain ) = P_ddmass_bsoa3_a04 ELSE P_ddmass_bsoa3_a04 = dvel_index_table( PARAM_ddmass_bsoa3_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_a04 ) = 'ddmass_bsoa3_a04' dvel_desc_table( idomain, P_ddmass_bsoa3_a04 ) = 'bsoa3_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa3_a04 )%stream(2) = 2097152 F_ddmass_bsoa3_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_a04 , idomain ) = P_ddmass_bsoa4_a04 ELSE P_ddmass_bsoa4_a04 = dvel_index_table( PARAM_ddmass_bsoa4_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_a04 ) = 'ddmass_bsoa4_a04' dvel_desc_table( idomain, P_ddmass_bsoa4_a04 ) = 'bsoa4_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa4_a04 )%stream(2) = 2097152 F_ddmass_bsoa4_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_a01 , idomain ) = P_ddmass_ca_a01 ELSE P_ddmass_ca_a01 = dvel_index_table( PARAM_ddmass_ca_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_a01 ) = 'ddmass_ca_a01' dvel_desc_table( idomain, P_ddmass_ca_a01 ) = 'ca_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ca_a01 )%stream(2) = 2097152 F_ddmass_ca_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_a02 , idomain ) = P_ddmass_ca_a02 ELSE P_ddmass_ca_a02 = dvel_index_table( PARAM_ddmass_ca_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_a02 ) = 'ddmass_ca_a02' dvel_desc_table( idomain, P_ddmass_ca_a02 ) = 'ca_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ca_a02 )%stream(2) = 2097152 F_ddmass_ca_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_a03 , idomain ) = P_ddmass_ca_a03 ELSE P_ddmass_ca_a03 = dvel_index_table( PARAM_ddmass_ca_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_a03 ) = 'ddmass_ca_a03' dvel_desc_table( idomain, P_ddmass_ca_a03 ) = 'ca_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ca_a03 )%stream(2) = 2097152 F_ddmass_ca_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_a04 , idomain ) = P_ddmass_ca_a04 ELSE P_ddmass_ca_a04 = dvel_index_table( PARAM_ddmass_ca_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_a04 ) = 'ddmass_ca_a04' dvel_desc_table( idomain, P_ddmass_ca_a04 ) = 'ca_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ca_a04 )%stream(2) = 2097152 F_ddmass_ca_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_a01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_a01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_a01 , idomain ) = P_ddmass_co3_a01 ELSE P_ddmass_co3_a01 = dvel_index_table( PARAM_ddmass_co3_a01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_a01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_a01 ) = 'ddmass_co3_a01' dvel_desc_table( idomain, P_ddmass_co3_a01 ) = 'co3_a01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_a01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_a01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co3_a01 )%stream(2) = 2097152 F_ddmass_co3_a01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_a02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_a02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_a02 , idomain ) = P_ddmass_co3_a02 ELSE P_ddmass_co3_a02 = dvel_index_table( PARAM_ddmass_co3_a02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_a02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_a02 ) = 'ddmass_co3_a02' dvel_desc_table( idomain, P_ddmass_co3_a02 ) = 'co3_a02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_a02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_a02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co3_a02 )%stream(2) = 2097152 F_ddmass_co3_a02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_a03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_a03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_a03 , idomain ) = P_ddmass_co3_a03 ELSE P_ddmass_co3_a03 = dvel_index_table( PARAM_ddmass_co3_a03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_a03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_a03 ) = 'ddmass_co3_a03' dvel_desc_table( idomain, P_ddmass_co3_a03 ) = 'co3_a03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_a03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_a03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co3_a03 )%stream(2) = 2097152 F_ddmass_co3_a03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_a04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_a04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_a04 , idomain ) = P_ddmass_co3_a04 ELSE P_ddmass_co3_a04 = dvel_index_table( PARAM_ddmass_co3_a04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_a04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_a04 ) = 'ddmass_co3_a04' dvel_desc_table( idomain, P_ddmass_co3_a04 ) = 'co3_a04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_a04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_a04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co3_a04 )%stream(2) = 2097152 F_ddmass_co3_a04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_cw01 , idomain ) = P_ddmass_so4_cw01 ELSE P_ddmass_so4_cw01 = dvel_index_table( PARAM_ddmass_so4_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_cw01 ) = 'ddmass_so4_cw01' dvel_desc_table( idomain, P_ddmass_so4_cw01 ) = 'so4_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4_cw01 )%stream(2) = 2097152 F_ddmass_so4_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_cw01 , idomain ) = P_ddmass_no3_cw01 ELSE P_ddmass_no3_cw01 = dvel_index_table( PARAM_ddmass_no3_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_cw01 ) = 'ddmass_no3_cw01' dvel_desc_table( idomain, P_ddmass_no3_cw01 ) = 'no3_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no3_cw01 )%stream(2) = 2097152 F_ddmass_no3_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_cw01 , idomain ) = P_ddmass_cl_cw01 ELSE P_ddmass_cl_cw01 = dvel_index_table( PARAM_ddmass_cl_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_cw01 ) = 'ddmass_cl_cw01' dvel_desc_table( idomain, P_ddmass_cl_cw01 ) = 'cl_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cl_cw01 )%stream(2) = 2097152 F_ddmass_cl_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_cw01 , idomain ) = P_ddmass_nh4_cw01 ELSE P_ddmass_nh4_cw01 = dvel_index_table( PARAM_ddmass_nh4_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_cw01 ) = 'ddmass_nh4_cw01' dvel_desc_table( idomain, P_ddmass_nh4_cw01 ) = 'nh4_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh4_cw01 )%stream(2) = 2097152 F_ddmass_nh4_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_cw01 , idomain ) = P_ddmass_na_cw01 ELSE P_ddmass_na_cw01 = dvel_index_table( PARAM_ddmass_na_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_cw01 ) = 'ddmass_na_cw01' dvel_desc_table( idomain, P_ddmass_na_cw01 ) = 'na_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_na_cw01 )%stream(2) = 2097152 F_ddmass_na_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_cw01 , idomain ) = P_ddmass_oin_cw01 ELSE P_ddmass_oin_cw01 = dvel_index_table( PARAM_ddmass_oin_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_cw01 ) = 'ddmass_oin_cw01' dvel_desc_table( idomain, P_ddmass_oin_cw01 ) = 'oin_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oin_cw01 )%stream(2) = 2097152 F_ddmass_oin_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_cw01 , idomain ) = P_ddmass_oc_cw01 ELSE P_ddmass_oc_cw01 = dvel_index_table( PARAM_ddmass_oc_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_cw01 ) = 'ddmass_oc_cw01' dvel_desc_table( idomain, P_ddmass_oc_cw01 ) = 'oc_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oc_cw01 )%stream(2) = 2097152 F_ddmass_oc_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_cw01 , idomain ) = P_ddmass_bc_cw01 ELSE P_ddmass_bc_cw01 = dvel_index_table( PARAM_ddmass_bc_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_cw01 ) = 'ddmass_bc_cw01' dvel_desc_table( idomain, P_ddmass_bc_cw01 ) = 'bc_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bc_cw01 )%stream(2) = 2097152 F_ddmass_bc_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_cw01 , idomain ) = P_ddmass_smpa_cw01 ELSE P_ddmass_smpa_cw01 = dvel_index_table( PARAM_ddmass_smpa_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_cw01 ) = 'ddmass_smpa_cw01' dvel_desc_table( idomain, P_ddmass_smpa_cw01 ) = 'smpa_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpa_cw01 )%stream(2) = 2097152 F_ddmass_smpa_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_cw01 , idomain ) = P_ddmass_smpbb_cw01 ELSE P_ddmass_smpbb_cw01 = dvel_index_table( PARAM_ddmass_smpbb_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_cw01 ) = 'ddmass_smpbb_cw01' dvel_desc_table( idomain, P_ddmass_smpbb_cw01 ) = 'smpbb_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpbb_cw01 )%stream(2) = 2097152 F_ddmass_smpbb_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_cw01 , idomain ) = P_ddmass_glysoa_cw01 ELSE P_ddmass_glysoa_cw01 = dvel_index_table( PARAM_ddmass_glysoa_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_cw01 ) = 'ddmass_glysoa_cw01' dvel_desc_table( idomain, P_ddmass_glysoa_cw01 ) = 'glysoa_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glysoa_cw01 )%stream(2) = 2097152 F_ddmass_glysoa_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_cw01 , idomain ) = P_ddmass_biog1_c_cw01 ELSE P_ddmass_biog1_c_cw01 = dvel_index_table( PARAM_ddmass_biog1_c_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_cw01 ) = 'ddmass_biog1_c_cw01' dvel_desc_table( idomain, P_ddmass_biog1_c_cw01 ) = 'biog1_c_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_c_cw01 )%stream(2) = 2097152 F_ddmass_biog1_c_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_cw01 , idomain ) = P_ddmass_biog1_o_cw01 ELSE P_ddmass_biog1_o_cw01 = dvel_index_table( PARAM_ddmass_biog1_o_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_cw01 ) = 'ddmass_biog1_o_cw01' dvel_desc_table( idomain, P_ddmass_biog1_o_cw01 ) = 'biog1_o_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_o_cw01 )%stream(2) = 2097152 F_ddmass_biog1_o_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_cw01 , idomain ) = P_ddmass_asoax_cw01 ELSE P_ddmass_asoax_cw01 = dvel_index_table( PARAM_ddmass_asoax_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_cw01 ) = 'ddmass_asoaX_cw01' dvel_desc_table( idomain, P_ddmass_asoax_cw01 ) = 'asoaX_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoax_cw01 )%stream(2) = 2097152 F_ddmass_asoax_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_cw01 , idomain ) = P_ddmass_asoa1_cw01 ELSE P_ddmass_asoa1_cw01 = dvel_index_table( PARAM_ddmass_asoa1_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_cw01 ) = 'ddmass_asoa1_cw01' dvel_desc_table( idomain, P_ddmass_asoa1_cw01 ) = 'asoa1_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa1_cw01 )%stream(2) = 2097152 F_ddmass_asoa1_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_cw01 , idomain ) = P_ddmass_asoa2_cw01 ELSE P_ddmass_asoa2_cw01 = dvel_index_table( PARAM_ddmass_asoa2_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_cw01 ) = 'ddmass_asoa2_cw01' dvel_desc_table( idomain, P_ddmass_asoa2_cw01 ) = 'asoa2_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa2_cw01 )%stream(2) = 2097152 F_ddmass_asoa2_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_cw01 , idomain ) = P_ddmass_asoa3_cw01 ELSE P_ddmass_asoa3_cw01 = dvel_index_table( PARAM_ddmass_asoa3_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_cw01 ) = 'ddmass_asoa3_cw01' dvel_desc_table( idomain, P_ddmass_asoa3_cw01 ) = 'asoa3_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa3_cw01 )%stream(2) = 2097152 F_ddmass_asoa3_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_cw01 , idomain ) = P_ddmass_asoa4_cw01 ELSE P_ddmass_asoa4_cw01 = dvel_index_table( PARAM_ddmass_asoa4_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_cw01 ) = 'ddmass_asoa4_cw01' dvel_desc_table( idomain, P_ddmass_asoa4_cw01 ) = 'asoa4_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa4_cw01 )%stream(2) = 2097152 F_ddmass_asoa4_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_cw01 , idomain ) = P_ddmass_bsoax_cw01 ELSE P_ddmass_bsoax_cw01 = dvel_index_table( PARAM_ddmass_bsoax_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_cw01 ) = 'ddmass_bsoaX_cw01' dvel_desc_table( idomain, P_ddmass_bsoax_cw01 ) = 'bsoaX_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoax_cw01 )%stream(2) = 2097152 F_ddmass_bsoax_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_cw01 , idomain ) = P_ddmass_bsoa1_cw01 ELSE P_ddmass_bsoa1_cw01 = dvel_index_table( PARAM_ddmass_bsoa1_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_cw01 ) = 'ddmass_bsoa1_cw01' dvel_desc_table( idomain, P_ddmass_bsoa1_cw01 ) = 'bsoa1_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa1_cw01 )%stream(2) = 2097152 F_ddmass_bsoa1_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_cw01 , idomain ) = P_ddmass_bsoa2_cw01 ELSE P_ddmass_bsoa2_cw01 = dvel_index_table( PARAM_ddmass_bsoa2_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_cw01 ) = 'ddmass_bsoa2_cw01' dvel_desc_table( idomain, P_ddmass_bsoa2_cw01 ) = 'bsoa2_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa2_cw01 )%stream(2) = 2097152 F_ddmass_bsoa2_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_cw01 , idomain ) = P_ddmass_bsoa3_cw01 ELSE P_ddmass_bsoa3_cw01 = dvel_index_table( PARAM_ddmass_bsoa3_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_cw01 ) = 'ddmass_bsoa3_cw01' dvel_desc_table( idomain, P_ddmass_bsoa3_cw01 ) = 'bsoa3_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa3_cw01 )%stream(2) = 2097152 F_ddmass_bsoa3_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_cw01 , idomain ) = P_ddmass_bsoa4_cw01 ELSE P_ddmass_bsoa4_cw01 = dvel_index_table( PARAM_ddmass_bsoa4_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_cw01 ) = 'ddmass_bsoa4_cw01' dvel_desc_table( idomain, P_ddmass_bsoa4_cw01 ) = 'bsoa4_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa4_cw01 )%stream(2) = 2097152 F_ddmass_bsoa4_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_cw02 , idomain ) = P_ddmass_so4_cw02 ELSE P_ddmass_so4_cw02 = dvel_index_table( PARAM_ddmass_so4_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_cw02 ) = 'ddmass_so4_cw02' dvel_desc_table( idomain, P_ddmass_so4_cw02 ) = 'so4_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4_cw02 )%stream(2) = 2097152 F_ddmass_so4_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_cw02 , idomain ) = P_ddmass_no3_cw02 ELSE P_ddmass_no3_cw02 = dvel_index_table( PARAM_ddmass_no3_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_cw02 ) = 'ddmass_no3_cw02' dvel_desc_table( idomain, P_ddmass_no3_cw02 ) = 'no3_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no3_cw02 )%stream(2) = 2097152 F_ddmass_no3_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_cw02 , idomain ) = P_ddmass_cl_cw02 ELSE P_ddmass_cl_cw02 = dvel_index_table( PARAM_ddmass_cl_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_cw02 ) = 'ddmass_cl_cw02' dvel_desc_table( idomain, P_ddmass_cl_cw02 ) = 'cl_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cl_cw02 )%stream(2) = 2097152 F_ddmass_cl_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_cw02 , idomain ) = P_ddmass_nh4_cw02 ELSE P_ddmass_nh4_cw02 = dvel_index_table( PARAM_ddmass_nh4_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_cw02 ) = 'ddmass_nh4_cw02' dvel_desc_table( idomain, P_ddmass_nh4_cw02 ) = 'nh4_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh4_cw02 )%stream(2) = 2097152 F_ddmass_nh4_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_cw02 , idomain ) = P_ddmass_na_cw02 ELSE P_ddmass_na_cw02 = dvel_index_table( PARAM_ddmass_na_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_cw02 ) = 'ddmass_na_cw02' dvel_desc_table( idomain, P_ddmass_na_cw02 ) = 'na_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_na_cw02 )%stream(2) = 2097152 F_ddmass_na_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_cw02 , idomain ) = P_ddmass_oin_cw02 ELSE P_ddmass_oin_cw02 = dvel_index_table( PARAM_ddmass_oin_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_cw02 ) = 'ddmass_oin_cw02' dvel_desc_table( idomain, P_ddmass_oin_cw02 ) = 'oin_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oin_cw02 )%stream(2) = 2097152 F_ddmass_oin_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_cw02 , idomain ) = P_ddmass_oc_cw02 ELSE P_ddmass_oc_cw02 = dvel_index_table( PARAM_ddmass_oc_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_cw02 ) = 'ddmass_oc_cw02' dvel_desc_table( idomain, P_ddmass_oc_cw02 ) = 'oc_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oc_cw02 )%stream(2) = 2097152 F_ddmass_oc_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_cw02 , idomain ) = P_ddmass_bc_cw02 ELSE P_ddmass_bc_cw02 = dvel_index_table( PARAM_ddmass_bc_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_cw02 ) = 'ddmass_bc_cw02' dvel_desc_table( idomain, P_ddmass_bc_cw02 ) = 'bc_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bc_cw02 )%stream(2) = 2097152 F_ddmass_bc_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_cw02 , idomain ) = P_ddmass_smpa_cw02 ELSE P_ddmass_smpa_cw02 = dvel_index_table( PARAM_ddmass_smpa_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_cw02 ) = 'ddmass_smpa_cw02' dvel_desc_table( idomain, P_ddmass_smpa_cw02 ) = 'smpa_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpa_cw02 )%stream(2) = 2097152 F_ddmass_smpa_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_cw02 , idomain ) = P_ddmass_smpbb_cw02 ELSE P_ddmass_smpbb_cw02 = dvel_index_table( PARAM_ddmass_smpbb_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_cw02 ) = 'ddmass_smpbb_cw02' dvel_desc_table( idomain, P_ddmass_smpbb_cw02 ) = 'smpbb_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpbb_cw02 )%stream(2) = 2097152 F_ddmass_smpbb_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_cw02 , idomain ) = P_ddmass_glysoa_cw02 ELSE P_ddmass_glysoa_cw02 = dvel_index_table( PARAM_ddmass_glysoa_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_cw02 ) = 'ddmass_glysoa_cw02' dvel_desc_table( idomain, P_ddmass_glysoa_cw02 ) = 'glysoa_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glysoa_cw02 )%stream(2) = 2097152 F_ddmass_glysoa_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_cw02 , idomain ) = P_ddmass_biog1_c_cw02 ELSE P_ddmass_biog1_c_cw02 = dvel_index_table( PARAM_ddmass_biog1_c_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_cw02 ) = 'ddmass_biog1_c_cw02' dvel_desc_table( idomain, P_ddmass_biog1_c_cw02 ) = 'biog1_c_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_c_cw02 )%stream(2) = 2097152 F_ddmass_biog1_c_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_cw02 , idomain ) = P_ddmass_biog1_o_cw02 ELSE P_ddmass_biog1_o_cw02 = dvel_index_table( PARAM_ddmass_biog1_o_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_cw02 ) = 'ddmass_biog1_o_cw02' dvel_desc_table( idomain, P_ddmass_biog1_o_cw02 ) = 'biog1_o_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_o_cw02 )%stream(2) = 2097152 F_ddmass_biog1_o_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_cw02 , idomain ) = P_ddmass_asoax_cw02 ELSE P_ddmass_asoax_cw02 = dvel_index_table( PARAM_ddmass_asoax_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_cw02 ) = 'ddmass_asoaX_cw02' dvel_desc_table( idomain, P_ddmass_asoax_cw02 ) = 'asoaX_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoax_cw02 )%stream(2) = 2097152 F_ddmass_asoax_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_cw02 , idomain ) = P_ddmass_asoa1_cw02 ELSE P_ddmass_asoa1_cw02 = dvel_index_table( PARAM_ddmass_asoa1_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_cw02 ) = 'ddmass_asoa1_cw02' dvel_desc_table( idomain, P_ddmass_asoa1_cw02 ) = 'asoa1_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa1_cw02 )%stream(2) = 2097152 F_ddmass_asoa1_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_cw02 , idomain ) = P_ddmass_asoa2_cw02 ELSE P_ddmass_asoa2_cw02 = dvel_index_table( PARAM_ddmass_asoa2_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_cw02 ) = 'ddmass_asoa2_cw02' dvel_desc_table( idomain, P_ddmass_asoa2_cw02 ) = 'asoa2_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa2_cw02 )%stream(2) = 2097152 F_ddmass_asoa2_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_cw02 , idomain ) = P_ddmass_asoa3_cw02 ELSE P_ddmass_asoa3_cw02 = dvel_index_table( PARAM_ddmass_asoa3_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_cw02 ) = 'ddmass_asoa3_cw02' dvel_desc_table( idomain, P_ddmass_asoa3_cw02 ) = 'asoa3_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa3_cw02 )%stream(2) = 2097152 F_ddmass_asoa3_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_cw02 , idomain ) = P_ddmass_asoa4_cw02 ELSE P_ddmass_asoa4_cw02 = dvel_index_table( PARAM_ddmass_asoa4_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_cw02 ) = 'ddmass_asoa4_cw02' dvel_desc_table( idomain, P_ddmass_asoa4_cw02 ) = 'asoa4_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa4_cw02 )%stream(2) = 2097152 F_ddmass_asoa4_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_cw02 , idomain ) = P_ddmass_bsoax_cw02 ELSE P_ddmass_bsoax_cw02 = dvel_index_table( PARAM_ddmass_bsoax_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_cw02 ) = 'ddmass_bsoaX_cw02' dvel_desc_table( idomain, P_ddmass_bsoax_cw02 ) = 'bsoaX_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoax_cw02 )%stream(2) = 2097152 F_ddmass_bsoax_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_cw02 , idomain ) = P_ddmass_bsoa1_cw02 ELSE P_ddmass_bsoa1_cw02 = dvel_index_table( PARAM_ddmass_bsoa1_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_cw02 ) = 'ddmass_bsoa1_cw02' dvel_desc_table( idomain, P_ddmass_bsoa1_cw02 ) = 'bsoa1_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa1_cw02 )%stream(2) = 2097152 F_ddmass_bsoa1_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_cw02 , idomain ) = P_ddmass_bsoa2_cw02 ELSE P_ddmass_bsoa2_cw02 = dvel_index_table( PARAM_ddmass_bsoa2_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_cw02 ) = 'ddmass_bsoa2_cw02' dvel_desc_table( idomain, P_ddmass_bsoa2_cw02 ) = 'bsoa2_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa2_cw02 )%stream(2) = 2097152 F_ddmass_bsoa2_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_cw02 , idomain ) = P_ddmass_bsoa3_cw02 ELSE P_ddmass_bsoa3_cw02 = dvel_index_table( PARAM_ddmass_bsoa3_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_cw02 ) = 'ddmass_bsoa3_cw02' dvel_desc_table( idomain, P_ddmass_bsoa3_cw02 ) = 'bsoa3_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa3_cw02 )%stream(2) = 2097152 F_ddmass_bsoa3_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_cw02 , idomain ) = P_ddmass_bsoa4_cw02 ELSE P_ddmass_bsoa4_cw02 = dvel_index_table( PARAM_ddmass_bsoa4_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_cw02 ) = 'ddmass_bsoa4_cw02' dvel_desc_table( idomain, P_ddmass_bsoa4_cw02 ) = 'bsoa4_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa4_cw02 )%stream(2) = 2097152 F_ddmass_bsoa4_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_cw03 , idomain ) = P_ddmass_so4_cw03 ELSE P_ddmass_so4_cw03 = dvel_index_table( PARAM_ddmass_so4_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_cw03 ) = 'ddmass_so4_cw03' dvel_desc_table( idomain, P_ddmass_so4_cw03 ) = 'so4_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4_cw03 )%stream(2) = 2097152 F_ddmass_so4_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_cw03 , idomain ) = P_ddmass_no3_cw03 ELSE P_ddmass_no3_cw03 = dvel_index_table( PARAM_ddmass_no3_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_cw03 ) = 'ddmass_no3_cw03' dvel_desc_table( idomain, P_ddmass_no3_cw03 ) = 'no3_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no3_cw03 )%stream(2) = 2097152 F_ddmass_no3_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_cw03 , idomain ) = P_ddmass_cl_cw03 ELSE P_ddmass_cl_cw03 = dvel_index_table( PARAM_ddmass_cl_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_cw03 ) = 'ddmass_cl_cw03' dvel_desc_table( idomain, P_ddmass_cl_cw03 ) = 'cl_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cl_cw03 )%stream(2) = 2097152 F_ddmass_cl_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_cw03 , idomain ) = P_ddmass_nh4_cw03 ELSE P_ddmass_nh4_cw03 = dvel_index_table( PARAM_ddmass_nh4_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_cw03 ) = 'ddmass_nh4_cw03' dvel_desc_table( idomain, P_ddmass_nh4_cw03 ) = 'nh4_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh4_cw03 )%stream(2) = 2097152 F_ddmass_nh4_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_cw03 , idomain ) = P_ddmass_na_cw03 ELSE P_ddmass_na_cw03 = dvel_index_table( PARAM_ddmass_na_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_cw03 ) = 'ddmass_na_cw03' dvel_desc_table( idomain, P_ddmass_na_cw03 ) = 'na_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_na_cw03 )%stream(2) = 2097152 F_ddmass_na_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_cw03 , idomain ) = P_ddmass_oin_cw03 ELSE P_ddmass_oin_cw03 = dvel_index_table( PARAM_ddmass_oin_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_cw03 ) = 'ddmass_oin_cw03' dvel_desc_table( idomain, P_ddmass_oin_cw03 ) = 'oin_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oin_cw03 )%stream(2) = 2097152 F_ddmass_oin_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_cw03 , idomain ) = P_ddmass_oc_cw03 ELSE P_ddmass_oc_cw03 = dvel_index_table( PARAM_ddmass_oc_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_cw03 ) = 'ddmass_oc_cw03' dvel_desc_table( idomain, P_ddmass_oc_cw03 ) = 'oc_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oc_cw03 )%stream(2) = 2097152 F_ddmass_oc_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_cw03 , idomain ) = P_ddmass_bc_cw03 ELSE P_ddmass_bc_cw03 = dvel_index_table( PARAM_ddmass_bc_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_cw03 ) = 'ddmass_bc_cw03' dvel_desc_table( idomain, P_ddmass_bc_cw03 ) = 'bc_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bc_cw03 )%stream(2) = 2097152 F_ddmass_bc_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_cw03 , idomain ) = P_ddmass_smpa_cw03 ELSE P_ddmass_smpa_cw03 = dvel_index_table( PARAM_ddmass_smpa_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_cw03 ) = 'ddmass_smpa_cw03' dvel_desc_table( idomain, P_ddmass_smpa_cw03 ) = 'smpa_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpa_cw03 )%stream(2) = 2097152 F_ddmass_smpa_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_cw03 , idomain ) = P_ddmass_smpbb_cw03 ELSE P_ddmass_smpbb_cw03 = dvel_index_table( PARAM_ddmass_smpbb_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_cw03 ) = 'ddmass_smpbb_cw03' dvel_desc_table( idomain, P_ddmass_smpbb_cw03 ) = 'smpbb_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpbb_cw03 )%stream(2) = 2097152 F_ddmass_smpbb_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_cw03 , idomain ) = P_ddmass_glysoa_cw03 ELSE P_ddmass_glysoa_cw03 = dvel_index_table( PARAM_ddmass_glysoa_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_cw03 ) = 'ddmass_glysoa_cw03' dvel_desc_table( idomain, P_ddmass_glysoa_cw03 ) = 'glysoa_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glysoa_cw03 )%stream(2) = 2097152 F_ddmass_glysoa_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_cw03 , idomain ) = P_ddmass_biog1_c_cw03 ELSE P_ddmass_biog1_c_cw03 = dvel_index_table( PARAM_ddmass_biog1_c_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_cw03 ) = 'ddmass_biog1_c_cw03' dvel_desc_table( idomain, P_ddmass_biog1_c_cw03 ) = 'biog1_c_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_c_cw03 )%stream(2) = 2097152 F_ddmass_biog1_c_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_cw03 , idomain ) = P_ddmass_biog1_o_cw03 ELSE P_ddmass_biog1_o_cw03 = dvel_index_table( PARAM_ddmass_biog1_o_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_cw03 ) = 'ddmass_biog1_o_cw03' dvel_desc_table( idomain, P_ddmass_biog1_o_cw03 ) = 'biog1_o_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_o_cw03 )%stream(2) = 2097152 F_ddmass_biog1_o_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_cw03 , idomain ) = P_ddmass_asoax_cw03 ELSE P_ddmass_asoax_cw03 = dvel_index_table( PARAM_ddmass_asoax_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_cw03 ) = 'ddmass_asoaX_cw03' dvel_desc_table( idomain, P_ddmass_asoax_cw03 ) = 'asoaX_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoax_cw03 )%stream(2) = 2097152 F_ddmass_asoax_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_cw03 , idomain ) = P_ddmass_asoa1_cw03 ELSE P_ddmass_asoa1_cw03 = dvel_index_table( PARAM_ddmass_asoa1_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_cw03 ) = 'ddmass_asoa1_cw03' dvel_desc_table( idomain, P_ddmass_asoa1_cw03 ) = 'asoa1_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa1_cw03 )%stream(2) = 2097152 F_ddmass_asoa1_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_cw03 , idomain ) = P_ddmass_asoa2_cw03 ELSE P_ddmass_asoa2_cw03 = dvel_index_table( PARAM_ddmass_asoa2_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_cw03 ) = 'ddmass_asoa2_cw03' dvel_desc_table( idomain, P_ddmass_asoa2_cw03 ) = 'asoa2_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa2_cw03 )%stream(2) = 2097152 F_ddmass_asoa2_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_cw03 , idomain ) = P_ddmass_asoa3_cw03 ELSE P_ddmass_asoa3_cw03 = dvel_index_table( PARAM_ddmass_asoa3_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_cw03 ) = 'ddmass_asoa3_cw03' dvel_desc_table( idomain, P_ddmass_asoa3_cw03 ) = 'asoa3_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa3_cw03 )%stream(2) = 2097152 F_ddmass_asoa3_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_cw03 , idomain ) = P_ddmass_asoa4_cw03 ELSE P_ddmass_asoa4_cw03 = dvel_index_table( PARAM_ddmass_asoa4_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_cw03 ) = 'ddmass_asoa4_cw03' dvel_desc_table( idomain, P_ddmass_asoa4_cw03 ) = 'asoa4_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa4_cw03 )%stream(2) = 2097152 F_ddmass_asoa4_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_cw03 , idomain ) = P_ddmass_bsoax_cw03 ELSE P_ddmass_bsoax_cw03 = dvel_index_table( PARAM_ddmass_bsoax_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_cw03 ) = 'ddmass_bsoaX_cw03' dvel_desc_table( idomain, P_ddmass_bsoax_cw03 ) = 'bsoaX_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoax_cw03 )%stream(2) = 2097152 F_ddmass_bsoax_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_cw03 , idomain ) = P_ddmass_bsoa1_cw03 ELSE P_ddmass_bsoa1_cw03 = dvel_index_table( PARAM_ddmass_bsoa1_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_cw03 ) = 'ddmass_bsoa1_cw03' dvel_desc_table( idomain, P_ddmass_bsoa1_cw03 ) = 'bsoa1_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa1_cw03 )%stream(2) = 2097152 F_ddmass_bsoa1_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_cw03 , idomain ) = P_ddmass_bsoa2_cw03 ELSE P_ddmass_bsoa2_cw03 = dvel_index_table( PARAM_ddmass_bsoa2_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_cw03 ) = 'ddmass_bsoa2_cw03' dvel_desc_table( idomain, P_ddmass_bsoa2_cw03 ) = 'bsoa2_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa2_cw03 )%stream(2) = 2097152 F_ddmass_bsoa2_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_cw03 , idomain ) = P_ddmass_bsoa3_cw03 ELSE P_ddmass_bsoa3_cw03 = dvel_index_table( PARAM_ddmass_bsoa3_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_cw03 ) = 'ddmass_bsoa3_cw03' dvel_desc_table( idomain, P_ddmass_bsoa3_cw03 ) = 'bsoa3_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa3_cw03 )%stream(2) = 2097152 F_ddmass_bsoa3_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_cw03 , idomain ) = P_ddmass_bsoa4_cw03 ELSE P_ddmass_bsoa4_cw03 = dvel_index_table( PARAM_ddmass_bsoa4_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_cw03 ) = 'ddmass_bsoa4_cw03' dvel_desc_table( idomain, P_ddmass_bsoa4_cw03 ) = 'bsoa4_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa4_cw03 )%stream(2) = 2097152 F_ddmass_bsoa4_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_so4_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_so4_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_so4_cw04 , idomain ) = P_ddmass_so4_cw04 ELSE P_ddmass_so4_cw04 = dvel_index_table( PARAM_ddmass_so4_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_so4_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_so4_cw04 ) = 'ddmass_so4_cw04' dvel_desc_table( idomain, P_ddmass_so4_cw04 ) = 'so4_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_so4_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_so4_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_so4_cw04 )%stream(2) = 2097152 F_ddmass_so4_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_no3_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_no3_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_no3_cw04 , idomain ) = P_ddmass_no3_cw04 ELSE P_ddmass_no3_cw04 = dvel_index_table( PARAM_ddmass_no3_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_no3_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_no3_cw04 ) = 'ddmass_no3_cw04' dvel_desc_table( idomain, P_ddmass_no3_cw04 ) = 'no3_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_no3_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_no3_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_no3_cw04 )%stream(2) = 2097152 F_ddmass_no3_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_cl_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_cl_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_cl_cw04 , idomain ) = P_ddmass_cl_cw04 ELSE P_ddmass_cl_cw04 = dvel_index_table( PARAM_ddmass_cl_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_cl_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_cl_cw04 ) = 'ddmass_cl_cw04' dvel_desc_table( idomain, P_ddmass_cl_cw04 ) = 'cl_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_cl_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_cl_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_cl_cw04 )%stream(2) = 2097152 F_ddmass_cl_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_nh4_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_nh4_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_nh4_cw04 , idomain ) = P_ddmass_nh4_cw04 ELSE P_ddmass_nh4_cw04 = dvel_index_table( PARAM_ddmass_nh4_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_nh4_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_nh4_cw04 ) = 'ddmass_nh4_cw04' dvel_desc_table( idomain, P_ddmass_nh4_cw04 ) = 'nh4_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_nh4_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_nh4_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_nh4_cw04 )%stream(2) = 2097152 F_ddmass_nh4_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_na_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_na_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_na_cw04 , idomain ) = P_ddmass_na_cw04 ELSE P_ddmass_na_cw04 = dvel_index_table( PARAM_ddmass_na_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_na_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_na_cw04 ) = 'ddmass_na_cw04' dvel_desc_table( idomain, P_ddmass_na_cw04 ) = 'na_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_na_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_na_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_na_cw04 )%stream(2) = 2097152 F_ddmass_na_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oin_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oin_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oin_cw04 , idomain ) = P_ddmass_oin_cw04 ELSE P_ddmass_oin_cw04 = dvel_index_table( PARAM_ddmass_oin_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oin_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oin_cw04 ) = 'ddmass_oin_cw04' dvel_desc_table( idomain, P_ddmass_oin_cw04 ) = 'oin_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oin_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oin_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oin_cw04 )%stream(2) = 2097152 F_ddmass_oin_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_oc_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_oc_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_oc_cw04 , idomain ) = P_ddmass_oc_cw04 ELSE P_ddmass_oc_cw04 = dvel_index_table( PARAM_ddmass_oc_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_oc_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_oc_cw04 ) = 'ddmass_oc_cw04' dvel_desc_table( idomain, P_ddmass_oc_cw04 ) = 'oc_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_oc_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_oc_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_oc_cw04 )%stream(2) = 2097152 F_ddmass_oc_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bc_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bc_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bc_cw04 , idomain ) = P_ddmass_bc_cw04 ELSE P_ddmass_bc_cw04 = dvel_index_table( PARAM_ddmass_bc_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bc_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bc_cw04 ) = 'ddmass_bc_cw04' dvel_desc_table( idomain, P_ddmass_bc_cw04 ) = 'bc_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bc_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bc_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bc_cw04 )%stream(2) = 2097152 F_ddmass_bc_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpa_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpa_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpa_cw04 , idomain ) = P_ddmass_smpa_cw04 ELSE P_ddmass_smpa_cw04 = dvel_index_table( PARAM_ddmass_smpa_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpa_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpa_cw04 ) = 'ddmass_smpa_cw04' dvel_desc_table( idomain, P_ddmass_smpa_cw04 ) = 'smpa_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpa_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpa_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpa_cw04 )%stream(2) = 2097152 F_ddmass_smpa_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_smpbb_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_smpbb_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_smpbb_cw04 , idomain ) = P_ddmass_smpbb_cw04 ELSE P_ddmass_smpbb_cw04 = dvel_index_table( PARAM_ddmass_smpbb_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_smpbb_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_smpbb_cw04 ) = 'ddmass_smpbb_cw04' dvel_desc_table( idomain, P_ddmass_smpbb_cw04 ) = 'smpbb_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_smpbb_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_smpbb_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_smpbb_cw04 )%stream(2) = 2097152 F_ddmass_smpbb_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_glysoa_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_glysoa_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_glysoa_cw04 , idomain ) = P_ddmass_glysoa_cw04 ELSE P_ddmass_glysoa_cw04 = dvel_index_table( PARAM_ddmass_glysoa_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_glysoa_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_glysoa_cw04 ) = 'ddmass_glysoa_cw04' dvel_desc_table( idomain, P_ddmass_glysoa_cw04 ) = 'glysoa_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_glysoa_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_glysoa_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_glysoa_cw04 )%stream(2) = 2097152 F_ddmass_glysoa_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_c_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_c_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_c_cw04 , idomain ) = P_ddmass_biog1_c_cw04 ELSE P_ddmass_biog1_c_cw04 = dvel_index_table( PARAM_ddmass_biog1_c_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_c_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_c_cw04 ) = 'ddmass_biog1_c_cw04' dvel_desc_table( idomain, P_ddmass_biog1_c_cw04 ) = 'biog1_c_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_c_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_c_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_c_cw04 )%stream(2) = 2097152 F_ddmass_biog1_c_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_biog1_o_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_biog1_o_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_biog1_o_cw04 , idomain ) = P_ddmass_biog1_o_cw04 ELSE P_ddmass_biog1_o_cw04 = dvel_index_table( PARAM_ddmass_biog1_o_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_biog1_o_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_biog1_o_cw04 ) = 'ddmass_biog1_o_cw04' dvel_desc_table( idomain, P_ddmass_biog1_o_cw04 ) = 'biog1_o_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_biog1_o_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_biog1_o_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_biog1_o_cw04 )%stream(2) = 2097152 F_ddmass_biog1_o_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoax_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoax_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoax_cw04 , idomain ) = P_ddmass_asoax_cw04 ELSE P_ddmass_asoax_cw04 = dvel_index_table( PARAM_ddmass_asoax_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoax_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoax_cw04 ) = 'ddmass_asoaX_cw04' dvel_desc_table( idomain, P_ddmass_asoax_cw04 ) = 'asoaX_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoax_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoax_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoax_cw04 )%stream(2) = 2097152 F_ddmass_asoax_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa1_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa1_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa1_cw04 , idomain ) = P_ddmass_asoa1_cw04 ELSE P_ddmass_asoa1_cw04 = dvel_index_table( PARAM_ddmass_asoa1_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa1_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa1_cw04 ) = 'ddmass_asoa1_cw04' dvel_desc_table( idomain, P_ddmass_asoa1_cw04 ) = 'asoa1_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa1_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa1_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa1_cw04 )%stream(2) = 2097152 F_ddmass_asoa1_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa2_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa2_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa2_cw04 , idomain ) = P_ddmass_asoa2_cw04 ELSE P_ddmass_asoa2_cw04 = dvel_index_table( PARAM_ddmass_asoa2_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa2_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa2_cw04 ) = 'ddmass_asoa2_cw04' dvel_desc_table( idomain, P_ddmass_asoa2_cw04 ) = 'asoa2_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa2_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa2_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa2_cw04 )%stream(2) = 2097152 F_ddmass_asoa2_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa3_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa3_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa3_cw04 , idomain ) = P_ddmass_asoa3_cw04 ELSE P_ddmass_asoa3_cw04 = dvel_index_table( PARAM_ddmass_asoa3_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa3_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa3_cw04 ) = 'ddmass_asoa3_cw04' dvel_desc_table( idomain, P_ddmass_asoa3_cw04 ) = 'asoa3_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa3_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa3_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa3_cw04 )%stream(2) = 2097152 F_ddmass_asoa3_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_asoa4_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_asoa4_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_asoa4_cw04 , idomain ) = P_ddmass_asoa4_cw04 ELSE P_ddmass_asoa4_cw04 = dvel_index_table( PARAM_ddmass_asoa4_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_asoa4_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_asoa4_cw04 ) = 'ddmass_asoa4_cw04' dvel_desc_table( idomain, P_ddmass_asoa4_cw04 ) = 'asoa4_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_asoa4_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_asoa4_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_asoa4_cw04 )%stream(2) = 2097152 F_ddmass_asoa4_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoax_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoax_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoax_cw04 , idomain ) = P_ddmass_bsoax_cw04 ELSE P_ddmass_bsoax_cw04 = dvel_index_table( PARAM_ddmass_bsoax_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoax_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoax_cw04 ) = 'ddmass_bsoaX_cw04' dvel_desc_table( idomain, P_ddmass_bsoax_cw04 ) = 'bsoaX_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoax_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoax_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoax_cw04 )%stream(2) = 2097152 F_ddmass_bsoax_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa1_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa1_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa1_cw04 , idomain ) = P_ddmass_bsoa1_cw04 ELSE P_ddmass_bsoa1_cw04 = dvel_index_table( PARAM_ddmass_bsoa1_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa1_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa1_cw04 ) = 'ddmass_bsoa1_cw04' dvel_desc_table( idomain, P_ddmass_bsoa1_cw04 ) = 'bsoa1_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa1_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa1_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa1_cw04 )%stream(2) = 2097152 F_ddmass_bsoa1_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa2_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa2_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa2_cw04 , idomain ) = P_ddmass_bsoa2_cw04 ELSE P_ddmass_bsoa2_cw04 = dvel_index_table( PARAM_ddmass_bsoa2_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa2_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa2_cw04 ) = 'ddmass_bsoa2_cw04' dvel_desc_table( idomain, P_ddmass_bsoa2_cw04 ) = 'bsoa2_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa2_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa2_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa2_cw04 )%stream(2) = 2097152 F_ddmass_bsoa2_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa3_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa3_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa3_cw04 , idomain ) = P_ddmass_bsoa3_cw04 ELSE P_ddmass_bsoa3_cw04 = dvel_index_table( PARAM_ddmass_bsoa3_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa3_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa3_cw04 ) = 'ddmass_bsoa3_cw04' dvel_desc_table( idomain, P_ddmass_bsoa3_cw04 ) = 'bsoa3_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa3_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa3_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa3_cw04 )%stream(2) = 2097152 F_ddmass_bsoa3_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_bsoa4_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_bsoa4_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_bsoa4_cw04 , idomain ) = P_ddmass_bsoa4_cw04 ELSE P_ddmass_bsoa4_cw04 = dvel_index_table( PARAM_ddmass_bsoa4_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_bsoa4_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_bsoa4_cw04 ) = 'ddmass_bsoa4_cw04' dvel_desc_table( idomain, P_ddmass_bsoa4_cw04 ) = 'bsoa4_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_bsoa4_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_bsoa4_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_bsoa4_cw04 )%stream(2) = 2097152 F_ddmass_bsoa4_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_cw01 , idomain ) = P_ddmass_ca_cw01 ELSE P_ddmass_ca_cw01 = dvel_index_table( PARAM_ddmass_ca_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_cw01 ) = 'ddmass_ca_cw01' dvel_desc_table( idomain, P_ddmass_ca_cw01 ) = 'ca_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ca_cw01 )%stream(2) = 2097152 F_ddmass_ca_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_cw02 , idomain ) = P_ddmass_ca_cw02 ELSE P_ddmass_ca_cw02 = dvel_index_table( PARAM_ddmass_ca_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_cw02 ) = 'ddmass_ca_cw02' dvel_desc_table( idomain, P_ddmass_ca_cw02 ) = 'ca_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ca_cw02 )%stream(2) = 2097152 F_ddmass_ca_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_cw03 , idomain ) = P_ddmass_ca_cw03 ELSE P_ddmass_ca_cw03 = dvel_index_table( PARAM_ddmass_ca_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_cw03 ) = 'ddmass_ca_cw03' dvel_desc_table( idomain, P_ddmass_ca_cw03 ) = 'ca_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ca_cw03 )%stream(2) = 2097152 F_ddmass_ca_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_ca_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_ca_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_ca_cw04 , idomain ) = P_ddmass_ca_cw04 ELSE P_ddmass_ca_cw04 = dvel_index_table( PARAM_ddmass_ca_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_ca_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_ca_cw04 ) = 'ddmass_ca_cw04' dvel_desc_table( idomain, P_ddmass_ca_cw04 ) = 'ca_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_ca_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_ca_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_ca_cw04 )%stream(2) = 2097152 F_ddmass_ca_cw04 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_cw01 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_cw01 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_cw01 , idomain ) = P_ddmass_co3_cw01 ELSE P_ddmass_co3_cw01 = dvel_index_table( PARAM_ddmass_co3_cw01 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_cw01 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_cw01 ) = 'ddmass_co3_cw01' dvel_desc_table( idomain, P_ddmass_co3_cw01 ) = 'co3_cw01 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_cw01 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_cw01 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co3_cw01 )%stream(2) = 2097152 F_ddmass_co3_cw01 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_cw02 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_cw02 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_cw02 , idomain ) = P_ddmass_co3_cw02 ELSE P_ddmass_co3_cw02 = dvel_index_table( PARAM_ddmass_co3_cw02 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_cw02 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_cw02 ) = 'ddmass_co3_cw02' dvel_desc_table( idomain, P_ddmass_co3_cw02 ) = 'co3_cw02 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_cw02 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_cw02 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co3_cw02 )%stream(2) = 2097152 F_ddmass_co3_cw02 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_cw03 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_cw03 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_cw03 , idomain ) = P_ddmass_co3_cw03 ELSE P_ddmass_co3_cw03 = dvel_index_table( PARAM_ddmass_co3_cw03 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_cw03 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_cw03 ) = 'ddmass_co3_cw03' dvel_desc_table( idomain, P_ddmass_co3_cw03 ) = 'co3_cw03 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_cw03 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_cw03 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co3_cw03 )%stream(2) = 2097152 F_ddmass_co3_cw03 = .TRUE. IF ( dvel_index_table( PARAM_ddmass_co3_cw04 , idomain ) .lt. 1 ) THEN dvel_num_table(idomain) = dvel_num_table(idomain) + 1 P_ddmass_co3_cw04 = dvel_num_table(idomain) dvel_index_table( PARAM_ddmass_co3_cw04 , idomain ) = P_ddmass_co3_cw04 ELSE P_ddmass_co3_cw04 = dvel_index_table( PARAM_ddmass_co3_cw04 , idomain ) END IF dvel_boundary_table( idomain, P_ddmass_co3_cw04 ) = .FALSE. dvel_dname_table( idomain, P_ddmass_co3_cw04 ) = 'ddmass_co3_cw04' dvel_desc_table( idomain, P_ddmass_co3_cw04 ) = 'co3_cw04 dry deposition, accumulated' dvel_units_table( idomain, P_ddmass_co3_cw04 ) = 'ug/m2' dvel_streams_table( idomain, P_ddmass_co3_cw04 )%stream(1) = 0 dvel_streams_table( idomain, P_ddmass_co3_cw04 )%stream(2) = 2097152 F_ddmass_co3_cw04 = .TRUE. END IF IF (model_config_rec%aero_diag_opt(idomain)==1)THEN END IF IF (model_config_rec%aero_cw_diag_opt(idomain)==1)THEN END IF IF (model_config_rec%bio_emiss_opt(idomain)==1)THEN END IF IF (model_config_rec%bio_emiss_opt(idomain)==2)THEN END IF IF (model_config_rec%bio_emiss_opt(idomain)==3)THEN END IF IF (model_config_rec%bio_emiss_opt(idomain)==16)THEN IF ( vprm_in_index_table( PARAM_vegfra_vprm , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_vegfra_vprm = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_vegfra_vprm , idomain ) = P_vegfra_vprm ELSE P_vegfra_vprm = vprm_in_index_table( PARAM_vegfra_vprm , idomain ) END IF vprm_in_boundary_table( idomain, P_vegfra_vprm ) = .FALSE. vprm_in_dname_table( idomain, P_vegfra_vprm ) = 'VEGFRA_VPRM' vprm_in_desc_table( idomain, P_vegfra_vprm ) = ' ' vprm_in_units_table( idomain, P_vegfra_vprm ) = ' ' vprm_in_streams_table( idomain, P_vegfra_vprm )%stream(1) = 1 vprm_in_streams_table( idomain, P_vegfra_vprm )%stream(2) = 2097664 F_vegfra_vprm = .TRUE. IF ( vprm_in_index_table( PARAM_evi , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi , idomain ) = P_evi ELSE P_evi = vprm_in_index_table( PARAM_evi , idomain ) END IF vprm_in_boundary_table( idomain, P_evi ) = .FALSE. vprm_in_dname_table( idomain, P_evi ) = 'EVI' vprm_in_desc_table( idomain, P_evi ) = ' ' vprm_in_units_table( idomain, P_evi ) = ' ' vprm_in_streams_table( idomain, P_evi )%stream(1) = 1 vprm_in_streams_table( idomain, P_evi )%stream(2) = 2097664 F_evi = .TRUE. IF ( vprm_in_index_table( PARAM_evi_min , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi_min = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi_min , idomain ) = P_evi_min ELSE P_evi_min = vprm_in_index_table( PARAM_evi_min , idomain ) END IF vprm_in_boundary_table( idomain, P_evi_min ) = .FALSE. vprm_in_dname_table( idomain, P_evi_min ) = 'EVI_MIN' vprm_in_desc_table( idomain, P_evi_min ) = ' ' vprm_in_units_table( idomain, P_evi_min ) = ' ' vprm_in_streams_table( idomain, P_evi_min )%stream(1) = 1 vprm_in_streams_table( idomain, P_evi_min )%stream(2) = 2097664 F_evi_min = .TRUE. IF ( vprm_in_index_table( PARAM_evi_max , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi_max = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi_max , idomain ) = P_evi_max ELSE P_evi_max = vprm_in_index_table( PARAM_evi_max , idomain ) END IF vprm_in_boundary_table( idomain, P_evi_max ) = .FALSE. vprm_in_dname_table( idomain, P_evi_max ) = 'EVI_MAX' vprm_in_desc_table( idomain, P_evi_max ) = ' ' vprm_in_units_table( idomain, P_evi_max ) = ' ' vprm_in_streams_table( idomain, P_evi_max )%stream(1) = 1 vprm_in_streams_table( idomain, P_evi_max )%stream(2) = 2097664 F_evi_max = .TRUE. IF ( vprm_in_index_table( PARAM_lswi , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi , idomain ) = P_lswi ELSE P_lswi = vprm_in_index_table( PARAM_lswi , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi ) = .FALSE. vprm_in_dname_table( idomain, P_lswi ) = 'LSWI' vprm_in_desc_table( idomain, P_lswi ) = ' ' vprm_in_units_table( idomain, P_lswi ) = ' ' vprm_in_streams_table( idomain, P_lswi )%stream(1) = 1 vprm_in_streams_table( idomain, P_lswi )%stream(2) = 2097664 F_lswi = .TRUE. IF ( vprm_in_index_table( PARAM_lswi_max , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi_max = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi_max , idomain ) = P_lswi_max ELSE P_lswi_max = vprm_in_index_table( PARAM_lswi_max , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi_max ) = .FALSE. vprm_in_dname_table( idomain, P_lswi_max ) = 'LSWI_MAX' vprm_in_desc_table( idomain, P_lswi_max ) = ' ' vprm_in_units_table( idomain, P_lswi_max ) = ' ' vprm_in_streams_table( idomain, P_lswi_max )%stream(1) = 1 vprm_in_streams_table( idomain, P_lswi_max )%stream(2) = 2097664 F_lswi_max = .TRUE. IF ( vprm_in_index_table( PARAM_lswi_min , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi_min = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi_min , idomain ) = P_lswi_min ELSE P_lswi_min = vprm_in_index_table( PARAM_lswi_min , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi_min ) = .FALSE. vprm_in_dname_table( idomain, P_lswi_min ) = 'LSWI_MIN' vprm_in_desc_table( idomain, P_lswi_min ) = ' ' vprm_in_units_table( idomain, P_lswi_min ) = ' ' vprm_in_streams_table( idomain, P_lswi_min )%stream(1) = 1 vprm_in_streams_table( idomain, P_lswi_min )%stream(2) = 2097664 F_lswi_min = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_gee , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_gee = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_gee , idomain ) = P_ebio_gee ELSE P_ebio_gee = eghg_bio_index_table( PARAM_ebio_gee , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_gee ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_gee ) = 'EBIO_GEE' eghg_bio_desc_table( idomain, P_ebio_gee ) = 'biospheric VPRM CO2 uptake' eghg_bio_units_table( idomain, P_ebio_gee ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_gee )%stream(1) = 0 eghg_bio_streams_table( idomain, P_ebio_gee )%stream(2) = 0 F_ebio_gee = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_res , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_res = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_res , idomain ) = P_ebio_res ELSE P_ebio_res = eghg_bio_index_table( PARAM_ebio_res , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_res ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_res ) = 'EBIO_RES' eghg_bio_desc_table( idomain, P_ebio_res ) = 'biospheric VPRM CO2 release' eghg_bio_units_table( idomain, P_ebio_res ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_res )%stream(1) = 0 eghg_bio_streams_table( idomain, P_ebio_res )%stream(2) = 0 F_ebio_res = .TRUE. END IF IF (model_config_rec%bio_emiss_opt(idomain)==17)THEN IF ( vprm_in_index_table( PARAM_vegfra_vprm , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_vegfra_vprm = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_vegfra_vprm , idomain ) = P_vegfra_vprm ELSE P_vegfra_vprm = vprm_in_index_table( PARAM_vegfra_vprm , idomain ) END IF vprm_in_boundary_table( idomain, P_vegfra_vprm ) = .FALSE. vprm_in_dname_table( idomain, P_vegfra_vprm ) = 'VEGFRA_VPRM' vprm_in_desc_table( idomain, P_vegfra_vprm ) = ' ' vprm_in_units_table( idomain, P_vegfra_vprm ) = ' ' vprm_in_streams_table( idomain, P_vegfra_vprm )%stream(1) = 1 vprm_in_streams_table( idomain, P_vegfra_vprm )%stream(2) = 2097664 F_vegfra_vprm = .TRUE. IF ( vprm_in_index_table( PARAM_evi , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi , idomain ) = P_evi ELSE P_evi = vprm_in_index_table( PARAM_evi , idomain ) END IF vprm_in_boundary_table( idomain, P_evi ) = .FALSE. vprm_in_dname_table( idomain, P_evi ) = 'EVI' vprm_in_desc_table( idomain, P_evi ) = ' ' vprm_in_units_table( idomain, P_evi ) = ' ' vprm_in_streams_table( idomain, P_evi )%stream(1) = 1 vprm_in_streams_table( idomain, P_evi )%stream(2) = 2097664 F_evi = .TRUE. IF ( vprm_in_index_table( PARAM_evi_min , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi_min = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi_min , idomain ) = P_evi_min ELSE P_evi_min = vprm_in_index_table( PARAM_evi_min , idomain ) END IF vprm_in_boundary_table( idomain, P_evi_min ) = .FALSE. vprm_in_dname_table( idomain, P_evi_min ) = 'EVI_MIN' vprm_in_desc_table( idomain, P_evi_min ) = ' ' vprm_in_units_table( idomain, P_evi_min ) = ' ' vprm_in_streams_table( idomain, P_evi_min )%stream(1) = 1 vprm_in_streams_table( idomain, P_evi_min )%stream(2) = 2097664 F_evi_min = .TRUE. IF ( vprm_in_index_table( PARAM_evi_max , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_evi_max = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_evi_max , idomain ) = P_evi_max ELSE P_evi_max = vprm_in_index_table( PARAM_evi_max , idomain ) END IF vprm_in_boundary_table( idomain, P_evi_max ) = .FALSE. vprm_in_dname_table( idomain, P_evi_max ) = 'EVI_MAX' vprm_in_desc_table( idomain, P_evi_max ) = ' ' vprm_in_units_table( idomain, P_evi_max ) = ' ' vprm_in_streams_table( idomain, P_evi_max )%stream(1) = 1 vprm_in_streams_table( idomain, P_evi_max )%stream(2) = 2097664 F_evi_max = .TRUE. IF ( vprm_in_index_table( PARAM_lswi , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi , idomain ) = P_lswi ELSE P_lswi = vprm_in_index_table( PARAM_lswi , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi ) = .FALSE. vprm_in_dname_table( idomain, P_lswi ) = 'LSWI' vprm_in_desc_table( idomain, P_lswi ) = ' ' vprm_in_units_table( idomain, P_lswi ) = ' ' vprm_in_streams_table( idomain, P_lswi )%stream(1) = 1 vprm_in_streams_table( idomain, P_lswi )%stream(2) = 2097664 F_lswi = .TRUE. IF ( vprm_in_index_table( PARAM_lswi_max , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi_max = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi_max , idomain ) = P_lswi_max ELSE P_lswi_max = vprm_in_index_table( PARAM_lswi_max , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi_max ) = .FALSE. vprm_in_dname_table( idomain, P_lswi_max ) = 'LSWI_MAX' vprm_in_desc_table( idomain, P_lswi_max ) = ' ' vprm_in_units_table( idomain, P_lswi_max ) = ' ' vprm_in_streams_table( idomain, P_lswi_max )%stream(1) = 1 vprm_in_streams_table( idomain, P_lswi_max )%stream(2) = 2097664 F_lswi_max = .TRUE. IF ( vprm_in_index_table( PARAM_lswi_min , idomain ) .lt. 1 ) THEN vprm_in_num_table(idomain) = vprm_in_num_table(idomain) + 1 P_lswi_min = vprm_in_num_table(idomain) vprm_in_index_table( PARAM_lswi_min , idomain ) = P_lswi_min ELSE P_lswi_min = vprm_in_index_table( PARAM_lswi_min , idomain ) END IF vprm_in_boundary_table( idomain, P_lswi_min ) = .FALSE. vprm_in_dname_table( idomain, P_lswi_min ) = 'LSWI_MIN' vprm_in_desc_table( idomain, P_lswi_min ) = ' ' vprm_in_units_table( idomain, P_lswi_min ) = ' ' vprm_in_streams_table( idomain, P_lswi_min )%stream(1) = 1 vprm_in_streams_table( idomain, P_lswi_min )%stream(2) = 2097664 F_lswi_min = .TRUE. IF ( wet_in_index_table( PARAM_cpool , idomain ) .lt. 1 ) THEN wet_in_num_table(idomain) = wet_in_num_table(idomain) + 1 P_cpool = wet_in_num_table(idomain) wet_in_index_table( PARAM_cpool , idomain ) = P_cpool ELSE P_cpool = wet_in_index_table( PARAM_cpool , idomain ) END IF wet_in_boundary_table( idomain, P_cpool ) = .FALSE. wet_in_dname_table( idomain, P_cpool ) = 'CPOOL' wet_in_desc_table( idomain, P_cpool ) = 'LPJ Carbon pool' wet_in_units_table( idomain, P_cpool ) = 'gC/m^2' wet_in_streams_table( idomain, P_cpool )%stream(1) = 1 wet_in_streams_table( idomain, P_cpool )%stream(2) = 2097664 F_cpool = .TRUE. IF ( wet_in_index_table( PARAM_wetmap , idomain ) .lt. 1 ) THEN wet_in_num_table(idomain) = wet_in_num_table(idomain) + 1 P_wetmap = wet_in_num_table(idomain) wet_in_index_table( PARAM_wetmap , idomain ) = P_wetmap ELSE P_wetmap = wet_in_index_table( PARAM_wetmap , idomain ) END IF wet_in_boundary_table( idomain, P_wetmap ) = .FALSE. wet_in_dname_table( idomain, P_wetmap ) = 'WETMAP' wet_in_desc_table( idomain, P_wetmap ) = 'Kaplan potential wetland map' wet_in_units_table( idomain, P_wetmap ) = '' wet_in_streams_table( idomain, P_wetmap )%stream(1) = 1 wet_in_streams_table( idomain, P_wetmap )%stream(2) = 2097664 F_wetmap = .TRUE. IF ( wet_in_index_table( PARAM_t_ann , idomain ) .lt. 1 ) THEN wet_in_num_table(idomain) = wet_in_num_table(idomain) + 1 P_t_ann = wet_in_num_table(idomain) wet_in_index_table( PARAM_t_ann , idomain ) = P_t_ann ELSE P_t_ann = wet_in_index_table( PARAM_t_ann , idomain ) END IF wet_in_boundary_table( idomain, P_t_ann ) = .FALSE. wet_in_dname_table( idomain, P_t_ann ) = 'T_ANN' wet_in_desc_table( idomain, P_t_ann ) = 'mean annual temperature' wet_in_units_table( idomain, P_t_ann ) = 'K' wet_in_streams_table( idomain, P_t_ann )%stream(1) = 1 wet_in_streams_table( idomain, P_t_ann )%stream(2) = 2097664 F_t_ann = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_gee , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_gee = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_gee , idomain ) = P_ebio_gee ELSE P_ebio_gee = eghg_bio_index_table( PARAM_ebio_gee , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_gee ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_gee ) = 'EBIO_GEE' eghg_bio_desc_table( idomain, P_ebio_gee ) = 'biospheric VPRM CO2 uptake' eghg_bio_units_table( idomain, P_ebio_gee ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_gee )%stream(1) = 0 eghg_bio_streams_table( idomain, P_ebio_gee )%stream(2) = 0 F_ebio_gee = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_res , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_res = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_res , idomain ) = P_ebio_res ELSE P_ebio_res = eghg_bio_index_table( PARAM_ebio_res , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_res ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_res ) = 'EBIO_RES' eghg_bio_desc_table( idomain, P_ebio_res ) = 'biospheric VPRM CO2 release' eghg_bio_units_table( idomain, P_ebio_res ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_res )%stream(1) = 0 eghg_bio_streams_table( idomain, P_ebio_res )%stream(2) = 0 F_ebio_res = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_ch4wet , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_ch4wet = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_ch4wet , idomain ) = P_ebio_ch4wet ELSE P_ebio_ch4wet = eghg_bio_index_table( PARAM_ebio_ch4wet , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_ch4wet ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_ch4wet ) = 'EBIO_CH4WET' eghg_bio_desc_table( idomain, P_ebio_ch4wet ) = 'Biogenic CH4 wetland emissions' eghg_bio_units_table( idomain, P_ebio_ch4wet ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_ch4wet )%stream(1) = 0 eghg_bio_streams_table( idomain, P_ebio_ch4wet )%stream(2) = 0 F_ebio_ch4wet = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_ch4soil , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_ch4soil = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_ch4soil , idomain ) = P_ebio_ch4soil ELSE P_ebio_ch4soil = eghg_bio_index_table( PARAM_ebio_ch4soil , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_ch4soil ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_ch4soil ) = 'EBIO_CH4SOIL' eghg_bio_desc_table( idomain, P_ebio_ch4soil ) = 'CH4 soil uptake fluxes' eghg_bio_units_table( idomain, P_ebio_ch4soil ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_ch4soil )%stream(1) = 0 eghg_bio_streams_table( idomain, P_ebio_ch4soil )%stream(2) = 0 F_ebio_ch4soil = .TRUE. IF ( eghg_bio_index_table( PARAM_ebio_ch4term , idomain ) .lt. 1 ) THEN eghg_bio_num_table(idomain) = eghg_bio_num_table(idomain) + 1 P_ebio_ch4term = eghg_bio_num_table(idomain) eghg_bio_index_table( PARAM_ebio_ch4term , idomain ) = P_ebio_ch4term ELSE P_ebio_ch4term = eghg_bio_index_table( PARAM_ebio_ch4term , idomain ) END IF eghg_bio_boundary_table( idomain, P_ebio_ch4term ) = .FALSE. eghg_bio_dname_table( idomain, P_ebio_ch4term ) = 'EBIO_CH4TERM' eghg_bio_desc_table( idomain, P_ebio_ch4term ) = 'CH4 termite emissions' eghg_bio_units_table( idomain, P_ebio_ch4term ) = 'mol km^-2 hr^-1' eghg_bio_streams_table( idomain, P_ebio_ch4term )%stream(1) = 0 eghg_bio_streams_table( idomain, P_ebio_ch4term )%stream(2) = 0 F_ebio_ch4term = .TRUE. END IF IF (model_config_rec%biomass_burn_opt(idomain)==1)THEN IF ( ebu_index_table( PARAM_ebu_no , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no , idomain ) = P_ebu_no ELSE P_ebu_no = ebu_index_table( PARAM_ebu_no , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no ) = .FALSE. ebu_dname_table( idomain, P_ebu_no ) = 'ebu_no' ebu_desc_table( idomain, P_ebu_no ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_no )%stream(2) = 0 F_ebu_no = .TRUE. IF ( ebu_index_table( PARAM_ebu_no2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no2 , idomain ) = P_ebu_no2 ELSE P_ebu_no2 = ebu_index_table( PARAM_ebu_no2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_no2 ) = 'ebu_no2' ebu_desc_table( idomain, P_ebu_no2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_no2 )%stream(2) = 0 F_ebu_no2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_co , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co , idomain ) = P_ebu_co ELSE P_ebu_co = ebu_index_table( PARAM_ebu_co , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co ) = .FALSE. ebu_dname_table( idomain, P_ebu_co ) = 'ebu_co' ebu_desc_table( idomain, P_ebu_co ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_co )%stream(2) = 0 F_ebu_co = .TRUE. IF ( ebu_index_table( PARAM_ebu_co2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co2 , idomain ) = P_ebu_co2 ELSE P_ebu_co2 = ebu_index_table( PARAM_ebu_co2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_co2 ) = 'ebu_co2' ebu_desc_table( idomain, P_ebu_co2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_co2 )%stream(2) = 0 F_ebu_co2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_eth , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_eth = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_eth , idomain ) = P_ebu_eth ELSE P_ebu_eth = ebu_index_table( PARAM_ebu_eth , idomain ) END IF ebu_boundary_table( idomain, P_ebu_eth ) = .FALSE. ebu_dname_table( idomain, P_ebu_eth ) = 'ebu_eth' ebu_desc_table( idomain, P_ebu_eth ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_eth ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_eth )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_eth )%stream(2) = 0 F_ebu_eth = .TRUE. IF ( ebu_index_table( PARAM_ebu_hc3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_hc3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_hc3 , idomain ) = P_ebu_hc3 ELSE P_ebu_hc3 = ebu_index_table( PARAM_ebu_hc3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_hc3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_hc3 ) = 'ebu_hc3' ebu_desc_table( idomain, P_ebu_hc3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_hc3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_hc3 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_hc3 )%stream(2) = 0 F_ebu_hc3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_hc5 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_hc5 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_hc5 , idomain ) = P_ebu_hc5 ELSE P_ebu_hc5 = ebu_index_table( PARAM_ebu_hc5 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_hc5 ) = .FALSE. ebu_dname_table( idomain, P_ebu_hc5 ) = 'ebu_hc5' ebu_desc_table( idomain, P_ebu_hc5 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_hc5 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_hc5 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_hc5 )%stream(2) = 0 F_ebu_hc5 = .TRUE. IF ( ebu_index_table( PARAM_ebu_hc8 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_hc8 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_hc8 , idomain ) = P_ebu_hc8 ELSE P_ebu_hc8 = ebu_index_table( PARAM_ebu_hc8 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_hc8 ) = .FALSE. ebu_dname_table( idomain, P_ebu_hc8 ) = 'ebu_hc8' ebu_desc_table( idomain, P_ebu_hc8 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_hc8 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_hc8 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_hc8 )%stream(2) = 0 F_ebu_hc8 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ete , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ete = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ete , idomain ) = P_ebu_ete ELSE P_ebu_ete = ebu_index_table( PARAM_ebu_ete , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ete ) = .FALSE. ebu_dname_table( idomain, P_ebu_ete ) = 'ebu_ete' ebu_desc_table( idomain, P_ebu_ete ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ete ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ete )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ete )%stream(2) = 0 F_ebu_ete = .TRUE. IF ( ebu_index_table( PARAM_ebu_olt , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_olt = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_olt , idomain ) = P_ebu_olt ELSE P_ebu_olt = ebu_index_table( PARAM_ebu_olt , idomain ) END IF ebu_boundary_table( idomain, P_ebu_olt ) = .FALSE. ebu_dname_table( idomain, P_ebu_olt ) = 'ebu_olt' ebu_desc_table( idomain, P_ebu_olt ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_olt ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_olt )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_olt )%stream(2) = 0 F_ebu_olt = .TRUE. IF ( ebu_index_table( PARAM_ebu_oli , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_oli = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_oli , idomain ) = P_ebu_oli ELSE P_ebu_oli = ebu_index_table( PARAM_ebu_oli , idomain ) END IF ebu_boundary_table( idomain, P_ebu_oli ) = .FALSE. ebu_dname_table( idomain, P_ebu_oli ) = 'ebu_oli' ebu_desc_table( idomain, P_ebu_oli ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_oli ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_oli )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_oli )%stream(2) = 0 F_ebu_oli = .TRUE. IF ( ebu_index_table( PARAM_ebu_pm25 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_pm25 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_pm25 , idomain ) = P_ebu_pm25 ELSE P_ebu_pm25 = ebu_index_table( PARAM_ebu_pm25 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_pm25 ) = .FALSE. ebu_dname_table( idomain, P_ebu_pm25 ) = 'ebu_pm25' ebu_desc_table( idomain, P_ebu_pm25 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_pm25 ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_pm25 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_pm25 )%stream(2) = 0 F_ebu_pm25 = .TRUE. IF ( ebu_index_table( PARAM_ebu_pm10 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_pm10 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_pm10 , idomain ) = P_ebu_pm10 ELSE P_ebu_pm10 = ebu_index_table( PARAM_ebu_pm10 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_pm10 ) = .FALSE. ebu_dname_table( idomain, P_ebu_pm10 ) = 'ebu_pm10' ebu_desc_table( idomain, P_ebu_pm10 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_pm10 ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_pm10 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_pm10 )%stream(2) = 0 F_ebu_pm10 = .TRUE. IF ( ebu_index_table( PARAM_ebu_dien , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_dien = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_dien , idomain ) = P_ebu_dien ELSE P_ebu_dien = ebu_index_table( PARAM_ebu_dien , idomain ) END IF ebu_boundary_table( idomain, P_ebu_dien ) = .FALSE. ebu_dname_table( idomain, P_ebu_dien ) = 'ebu_dien' ebu_desc_table( idomain, P_ebu_dien ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_dien ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_dien )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_dien )%stream(2) = 0 F_ebu_dien = .TRUE. IF ( ebu_index_table( PARAM_ebu_iso , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_iso = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_iso , idomain ) = P_ebu_iso ELSE P_ebu_iso = ebu_index_table( PARAM_ebu_iso , idomain ) END IF ebu_boundary_table( idomain, P_ebu_iso ) = .FALSE. ebu_dname_table( idomain, P_ebu_iso ) = 'ebu_iso' ebu_desc_table( idomain, P_ebu_iso ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_iso ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_iso )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_iso )%stream(2) = 0 F_ebu_iso = .TRUE. IF ( ebu_index_table( PARAM_ebu_api , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_api = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_api , idomain ) = P_ebu_api ELSE P_ebu_api = ebu_index_table( PARAM_ebu_api , idomain ) END IF ebu_boundary_table( idomain, P_ebu_api ) = .FALSE. ebu_dname_table( idomain, P_ebu_api ) = 'ebu_api' ebu_desc_table( idomain, P_ebu_api ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_api ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_api )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_api )%stream(2) = 0 F_ebu_api = .TRUE. IF ( ebu_index_table( PARAM_ebu_lim , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_lim = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_lim , idomain ) = P_ebu_lim ELSE P_ebu_lim = ebu_index_table( PARAM_ebu_lim , idomain ) END IF ebu_boundary_table( idomain, P_ebu_lim ) = .FALSE. ebu_dname_table( idomain, P_ebu_lim ) = 'ebu_lim' ebu_desc_table( idomain, P_ebu_lim ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_lim ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_lim )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_lim )%stream(2) = 0 F_ebu_lim = .TRUE. IF ( ebu_index_table( PARAM_ebu_tol , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_tol = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_tol , idomain ) = P_ebu_tol ELSE P_ebu_tol = ebu_index_table( PARAM_ebu_tol , idomain ) END IF ebu_boundary_table( idomain, P_ebu_tol ) = .FALSE. ebu_dname_table( idomain, P_ebu_tol ) = 'ebu_tol' ebu_desc_table( idomain, P_ebu_tol ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_tol ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_tol )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_tol )%stream(2) = 0 F_ebu_tol = .TRUE. IF ( ebu_index_table( PARAM_ebu_csl , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_csl = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_csl , idomain ) = P_ebu_csl ELSE P_ebu_csl = ebu_index_table( PARAM_ebu_csl , idomain ) END IF ebu_boundary_table( idomain, P_ebu_csl ) = .FALSE. ebu_dname_table( idomain, P_ebu_csl ) = 'ebu_csl' ebu_desc_table( idomain, P_ebu_csl ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_csl ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_csl )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_csl )%stream(2) = 0 F_ebu_csl = .TRUE. IF ( ebu_index_table( PARAM_ebu_hcho , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_hcho = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_hcho , idomain ) = P_ebu_hcho ELSE P_ebu_hcho = ebu_index_table( PARAM_ebu_hcho , idomain ) END IF ebu_boundary_table( idomain, P_ebu_hcho ) = .FALSE. ebu_dname_table( idomain, P_ebu_hcho ) = 'ebu_hcho' ebu_desc_table( idomain, P_ebu_hcho ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_hcho ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_hcho )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_hcho )%stream(2) = 0 F_ebu_hcho = .TRUE. IF ( ebu_index_table( PARAM_ebu_ald , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ald = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ald , idomain ) = P_ebu_ald ELSE P_ebu_ald = ebu_index_table( PARAM_ebu_ald , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ald ) = .FALSE. ebu_dname_table( idomain, P_ebu_ald ) = 'ebu_ald' ebu_desc_table( idomain, P_ebu_ald ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ald ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ald )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ald )%stream(2) = 0 F_ebu_ald = .TRUE. IF ( ebu_index_table( PARAM_ebu_ket , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ket = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ket , idomain ) = P_ebu_ket ELSE P_ebu_ket = ebu_index_table( PARAM_ebu_ket , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ket ) = .FALSE. ebu_dname_table( idomain, P_ebu_ket ) = 'ebu_ket' ebu_desc_table( idomain, P_ebu_ket ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ket ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ket )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ket )%stream(2) = 0 F_ebu_ket = .TRUE. IF ( ebu_index_table( PARAM_ebu_macr , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_macr = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_macr , idomain ) = P_ebu_macr ELSE P_ebu_macr = ebu_index_table( PARAM_ebu_macr , idomain ) END IF ebu_boundary_table( idomain, P_ebu_macr ) = .FALSE. ebu_dname_table( idomain, P_ebu_macr ) = 'ebu_macr' ebu_desc_table( idomain, P_ebu_macr ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_macr ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_macr )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_macr )%stream(2) = 0 F_ebu_macr = .TRUE. IF ( ebu_index_table( PARAM_ebu_ora1 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ora1 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ora1 , idomain ) = P_ebu_ora1 ELSE P_ebu_ora1 = ebu_index_table( PARAM_ebu_ora1 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ora1 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ora1 ) = 'ebu_ora1' ebu_desc_table( idomain, P_ebu_ora1 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ora1 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ora1 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ora1 )%stream(2) = 0 F_ebu_ora1 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ora2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ora2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ora2 , idomain ) = P_ebu_ora2 ELSE P_ebu_ora2 = ebu_index_table( PARAM_ebu_ora2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ora2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ora2 ) = 'ebu_ora2' ebu_desc_table( idomain, P_ebu_ora2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ora2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ora2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ora2 )%stream(2) = 0 F_ebu_ora2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_so2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_so2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_so2 , idomain ) = P_ebu_so2 ELSE P_ebu_so2 = ebu_index_table( PARAM_ebu_so2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_so2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_so2 ) = 'ebu_so2' ebu_desc_table( idomain, P_ebu_so2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_so2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_so2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_so2 )%stream(2) = 0 F_ebu_so2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_nh3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_nh3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_nh3 , idomain ) = P_ebu_nh3 ELSE P_ebu_nh3 = ebu_index_table( PARAM_ebu_nh3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_nh3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_nh3 ) = 'ebu_nh3' ebu_desc_table( idomain, P_ebu_nh3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_nh3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_nh3 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_nh3 )%stream(2) = 0 F_ebu_nh3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_oc , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_oc = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_oc , idomain ) = P_ebu_oc ELSE P_ebu_oc = ebu_index_table( PARAM_ebu_oc , idomain ) END IF ebu_boundary_table( idomain, P_ebu_oc ) = .FALSE. ebu_dname_table( idomain, P_ebu_oc ) = 'ebu_oc' ebu_desc_table( idomain, P_ebu_oc ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_oc ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_oc )%stream(1) = 1 ebu_streams_table( idomain, P_ebu_oc )%stream(2) = 0 F_ebu_oc = .TRUE. IF ( ebu_index_table( PARAM_ebu_bc , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bc = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bc , idomain ) = P_ebu_bc ELSE P_ebu_bc = ebu_index_table( PARAM_ebu_bc , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bc ) = .FALSE. ebu_dname_table( idomain, P_ebu_bc ) = 'ebu_bc' ebu_desc_table( idomain, P_ebu_bc ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bc ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_bc )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_bc )%stream(2) = 0 F_ebu_bc = .TRUE. IF ( ebu_index_table( PARAM_ebu_sulf , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_sulf = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_sulf , idomain ) = P_ebu_sulf ELSE P_ebu_sulf = ebu_index_table( PARAM_ebu_sulf , idomain ) END IF ebu_boundary_table( idomain, P_ebu_sulf ) = .FALSE. ebu_dname_table( idomain, P_ebu_sulf ) = 'ebu_sulf' ebu_desc_table( idomain, P_ebu_sulf ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_sulf ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_sulf )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_sulf )%stream(2) = 0 F_ebu_sulf = .TRUE. IF ( ebu_index_table( PARAM_ebu_dms , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_dms = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_dms , idomain ) = P_ebu_dms ELSE P_ebu_dms = ebu_index_table( PARAM_ebu_dms , idomain ) END IF ebu_boundary_table( idomain, P_ebu_dms ) = .FALSE. ebu_dname_table( idomain, P_ebu_dms ) = 'ebu_dms' ebu_desc_table( idomain, P_ebu_dms ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_dms ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_dms )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_dms )%stream(2) = 0 F_ebu_dms = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no , idomain ) = P_ebu_in_no ELSE P_ebu_in_no = ebu_in_index_table( PARAM_ebu_in_no , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no ) = 'ebu_in_no' ebu_in_desc_table( idomain, P_ebu_in_no ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_no )%stream(2) = 2 F_ebu_in_no = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) = P_ebu_in_no2 ELSE P_ebu_in_no2 = ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no2 ) = 'ebu_in_no2' ebu_in_desc_table( idomain, P_ebu_in_no2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(2) = 2 F_ebu_in_no2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co , idomain ) = P_ebu_in_co ELSE P_ebu_in_co = ebu_in_index_table( PARAM_ebu_in_co , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co ) = 'ebu_in_co' ebu_in_desc_table( idomain, P_ebu_in_co ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_co )%stream(2) = 2 F_ebu_in_co = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) = P_ebu_in_co2 ELSE P_ebu_in_co2 = ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co2 ) = 'ebu_in_co2' ebu_in_desc_table( idomain, P_ebu_in_co2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_co2 )%stream(2) = 2 F_ebu_in_co2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_eth , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_eth = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_eth , idomain ) = P_ebu_in_eth ELSE P_ebu_in_eth = ebu_in_index_table( PARAM_ebu_in_eth , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_eth ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_eth ) = 'ebu_in_eth' ebu_in_desc_table( idomain, P_ebu_in_eth ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_eth ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_eth )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_eth )%stream(2) = 2 F_ebu_in_eth = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_hc3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_hc3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_hc3 , idomain ) = P_ebu_in_hc3 ELSE P_ebu_in_hc3 = ebu_in_index_table( PARAM_ebu_in_hc3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_hc3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_hc3 ) = 'ebu_in_hc3' ebu_in_desc_table( idomain, P_ebu_in_hc3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_hc3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_hc3 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_hc3 )%stream(2) = 2 F_ebu_in_hc3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_hc5 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_hc5 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_hc5 , idomain ) = P_ebu_in_hc5 ELSE P_ebu_in_hc5 = ebu_in_index_table( PARAM_ebu_in_hc5 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_hc5 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_hc5 ) = 'ebu_in_hc5' ebu_in_desc_table( idomain, P_ebu_in_hc5 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_hc5 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_hc5 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_hc5 )%stream(2) = 2 F_ebu_in_hc5 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_hc8 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_hc8 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_hc8 , idomain ) = P_ebu_in_hc8 ELSE P_ebu_in_hc8 = ebu_in_index_table( PARAM_ebu_in_hc8 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_hc8 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_hc8 ) = 'ebu_in_hc8' ebu_in_desc_table( idomain, P_ebu_in_hc8 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_hc8 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_hc8 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_hc8 )%stream(2) = 2 F_ebu_in_hc8 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ete , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ete = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ete , idomain ) = P_ebu_in_ete ELSE P_ebu_in_ete = ebu_in_index_table( PARAM_ebu_in_ete , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ete ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ete ) = 'ebu_in_ete' ebu_in_desc_table( idomain, P_ebu_in_ete ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ete ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ete )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ete )%stream(2) = 2 F_ebu_in_ete = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_olt , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_olt = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_olt , idomain ) = P_ebu_in_olt ELSE P_ebu_in_olt = ebu_in_index_table( PARAM_ebu_in_olt , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_olt ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_olt ) = 'ebu_in_olt' ebu_in_desc_table( idomain, P_ebu_in_olt ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_olt ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_olt )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_olt )%stream(2) = 2 F_ebu_in_olt = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_oli , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_oli = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_oli , idomain ) = P_ebu_in_oli ELSE P_ebu_in_oli = ebu_in_index_table( PARAM_ebu_in_oli , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_oli ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_oli ) = 'ebu_in_oli' ebu_in_desc_table( idomain, P_ebu_in_oli ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_oli ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_oli )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_oli )%stream(2) = 2 F_ebu_in_oli = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_pm25 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) = P_ebu_in_pm25 ELSE P_ebu_in_pm25 = ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_pm25 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_pm25 ) = 'ebu_in_pm25' ebu_in_desc_table( idomain, P_ebu_in_pm25 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_pm25 ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_pm25 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_pm25 )%stream(2) = 2 F_ebu_in_pm25 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_pm10 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) = P_ebu_in_pm10 ELSE P_ebu_in_pm10 = ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_pm10 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_pm10 ) = 'ebu_in_pm10' ebu_in_desc_table( idomain, P_ebu_in_pm10 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_pm10 ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_pm10 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_pm10 )%stream(2) = 2 F_ebu_in_pm10 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_dien , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_dien = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_dien , idomain ) = P_ebu_in_dien ELSE P_ebu_in_dien = ebu_in_index_table( PARAM_ebu_in_dien , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_dien ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_dien ) = 'ebu_in_dien' ebu_in_desc_table( idomain, P_ebu_in_dien ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_dien ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_dien )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_dien )%stream(2) = 2 F_ebu_in_dien = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_iso , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_iso = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_iso , idomain ) = P_ebu_in_iso ELSE P_ebu_in_iso = ebu_in_index_table( PARAM_ebu_in_iso , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_iso ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_iso ) = 'ebu_in_iso' ebu_in_desc_table( idomain, P_ebu_in_iso ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_iso ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_iso )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_iso )%stream(2) = 2 F_ebu_in_iso = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_api , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_api = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_api , idomain ) = P_ebu_in_api ELSE P_ebu_in_api = ebu_in_index_table( PARAM_ebu_in_api , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_api ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_api ) = 'ebu_in_api' ebu_in_desc_table( idomain, P_ebu_in_api ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_api ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_api )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_api )%stream(2) = 2 F_ebu_in_api = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_lim , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_lim = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_lim , idomain ) = P_ebu_in_lim ELSE P_ebu_in_lim = ebu_in_index_table( PARAM_ebu_in_lim , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_lim ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_lim ) = 'ebu_in_lim' ebu_in_desc_table( idomain, P_ebu_in_lim ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_lim ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_lim )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_lim )%stream(2) = 2 F_ebu_in_lim = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_tol , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_tol = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_tol , idomain ) = P_ebu_in_tol ELSE P_ebu_in_tol = ebu_in_index_table( PARAM_ebu_in_tol , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_tol ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_tol ) = 'ebu_in_tol' ebu_in_desc_table( idomain, P_ebu_in_tol ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_tol ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_tol )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_tol )%stream(2) = 2 F_ebu_in_tol = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_csl , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_csl = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_csl , idomain ) = P_ebu_in_csl ELSE P_ebu_in_csl = ebu_in_index_table( PARAM_ebu_in_csl , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_csl ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_csl ) = 'ebu_in_csl' ebu_in_desc_table( idomain, P_ebu_in_csl ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_csl ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_csl )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_csl )%stream(2) = 2 F_ebu_in_csl = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_hcho , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_hcho = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_hcho , idomain ) = P_ebu_in_hcho ELSE P_ebu_in_hcho = ebu_in_index_table( PARAM_ebu_in_hcho , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_hcho ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_hcho ) = 'ebu_in_hcho' ebu_in_desc_table( idomain, P_ebu_in_hcho ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_hcho ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_hcho )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_hcho )%stream(2) = 2 F_ebu_in_hcho = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ald , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ald = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ald , idomain ) = P_ebu_in_ald ELSE P_ebu_in_ald = ebu_in_index_table( PARAM_ebu_in_ald , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ald ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ald ) = 'ebu_in_ald' ebu_in_desc_table( idomain, P_ebu_in_ald ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ald ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ald )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ald )%stream(2) = 2 F_ebu_in_ald = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_xyl , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_xyl = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_xyl , idomain ) = P_ebu_in_xyl ELSE P_ebu_in_xyl = ebu_in_index_table( PARAM_ebu_in_xyl , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_xyl ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_xyl ) = 'ebu_in_xyl' ebu_in_desc_table( idomain, P_ebu_in_xyl ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_xyl ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_xyl )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_xyl )%stream(2) = 2 F_ebu_in_xyl = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ket , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ket = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ket , idomain ) = P_ebu_in_ket ELSE P_ebu_in_ket = ebu_in_index_table( PARAM_ebu_in_ket , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ket ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ket ) = 'ebu_in_ket' ebu_in_desc_table( idomain, P_ebu_in_ket ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ket ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ket )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ket )%stream(2) = 2 F_ebu_in_ket = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_macr , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_macr = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_macr , idomain ) = P_ebu_in_macr ELSE P_ebu_in_macr = ebu_in_index_table( PARAM_ebu_in_macr , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_macr ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_macr ) = 'ebu_in_macr' ebu_in_desc_table( idomain, P_ebu_in_macr ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_macr ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(2) = 2 F_ebu_in_macr = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ora1 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ora1 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ora1 , idomain ) = P_ebu_in_ora1 ELSE P_ebu_in_ora1 = ebu_in_index_table( PARAM_ebu_in_ora1 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ora1 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ora1 ) = 'ebu_in_ora1' ebu_in_desc_table( idomain, P_ebu_in_ora1 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ora1 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ora1 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ora1 )%stream(2) = 2 F_ebu_in_ora1 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ora2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ora2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ora2 , idomain ) = P_ebu_in_ora2 ELSE P_ebu_in_ora2 = ebu_in_index_table( PARAM_ebu_in_ora2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ora2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ora2 ) = 'ebu_in_ora2' ebu_in_desc_table( idomain, P_ebu_in_ora2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ora2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ora2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ora2 )%stream(2) = 2 F_ebu_in_ora2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_so2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) = P_ebu_in_so2 ELSE P_ebu_in_so2 = ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_so2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_so2 ) = 'ebu_in_so2' ebu_in_desc_table( idomain, P_ebu_in_so2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_so2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(2) = 2 F_ebu_in_so2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_nh3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) = P_ebu_in_nh3 ELSE P_ebu_in_nh3 = ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_nh3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_nh3 ) = 'ebu_in_nh3' ebu_in_desc_table( idomain, P_ebu_in_nh3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_nh3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(2) = 2 F_ebu_in_nh3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_oc , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_oc = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_oc , idomain ) = P_ebu_in_oc ELSE P_ebu_in_oc = ebu_in_index_table( PARAM_ebu_in_oc , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_oc ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_oc ) = 'ebu_in_oc' ebu_in_desc_table( idomain, P_ebu_in_oc ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_oc ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_oc )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_oc )%stream(2) = 2 F_ebu_in_oc = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bc , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bc = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bc , idomain ) = P_ebu_in_bc ELSE P_ebu_in_bc = ebu_in_index_table( PARAM_ebu_in_bc , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bc ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bc ) = 'ebu_in_bc' ebu_in_desc_table( idomain, P_ebu_in_bc ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bc ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_bc )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_bc )%stream(2) = 2 F_ebu_in_bc = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_sulf , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_sulf = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_sulf , idomain ) = P_ebu_in_sulf ELSE P_ebu_in_sulf = ebu_in_index_table( PARAM_ebu_in_sulf , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_sulf ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_sulf ) = 'ebu_in_sulf' ebu_in_desc_table( idomain, P_ebu_in_sulf ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_sulf ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_sulf )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_sulf )%stream(2) = 2 F_ebu_in_sulf = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_dms , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_dms = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_dms , idomain ) = P_ebu_in_dms ELSE P_ebu_in_dms = ebu_in_index_table( PARAM_ebu_in_dms , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_dms ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_dms ) = 'ebu_in_dms' ebu_in_desc_table( idomain, P_ebu_in_dms ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_dms ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_dms )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_dms )%stream(2) = 2 F_ebu_in_dms = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ash , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ash = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ash , idomain ) = P_ebu_in_ash ELSE P_ebu_in_ash = ebu_in_index_table( PARAM_ebu_in_ash , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ash ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ash ) = 'ebu_in_ash' ebu_in_desc_table( idomain, P_ebu_in_ash ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ash ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_ash )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ash )%stream(2) = 2 F_ebu_in_ash = .TRUE. END IF IF (model_config_rec%biomass_burn_opt(idomain)==2)THEN IF ( ebu_index_table( PARAM_ebu_co , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co , idomain ) = P_ebu_co ELSE P_ebu_co = ebu_index_table( PARAM_ebu_co , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co ) = .FALSE. ebu_dname_table( idomain, P_ebu_co ) = 'ebu_co' ebu_desc_table( idomain, P_ebu_co ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_co )%stream(2) = 0 F_ebu_co = .TRUE. IF ( ebu_index_table( PARAM_ebu_no , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no , idomain ) = P_ebu_no ELSE P_ebu_no = ebu_index_table( PARAM_ebu_no , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no ) = .FALSE. ebu_dname_table( idomain, P_ebu_no ) = 'ebu_no' ebu_desc_table( idomain, P_ebu_no ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_no )%stream(2) = 0 F_ebu_no = .TRUE. IF ( ebu_index_table( PARAM_ebu_no2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no2 , idomain ) = P_ebu_no2 ELSE P_ebu_no2 = ebu_index_table( PARAM_ebu_no2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_no2 ) = 'ebu_no2' ebu_desc_table( idomain, P_ebu_no2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_no2 )%stream(2) = 0 F_ebu_no2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_bigalk , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bigalk = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bigalk , idomain ) = P_ebu_bigalk ELSE P_ebu_bigalk = ebu_index_table( PARAM_ebu_bigalk , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bigalk ) = .FALSE. ebu_dname_table( idomain, P_ebu_bigalk ) = 'ebu_bigalk' ebu_desc_table( idomain, P_ebu_bigalk ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bigalk ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_bigalk )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_bigalk )%stream(2) = 0 F_ebu_bigalk = .TRUE. IF ( ebu_index_table( PARAM_ebu_bigene , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bigene = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bigene , idomain ) = P_ebu_bigene ELSE P_ebu_bigene = ebu_index_table( PARAM_ebu_bigene , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bigene ) = .FALSE. ebu_dname_table( idomain, P_ebu_bigene ) = 'ebu_bigene' ebu_desc_table( idomain, P_ebu_bigene ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bigene ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_bigene )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_bigene )%stream(2) = 0 F_ebu_bigene = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h4 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h4 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h4 , idomain ) = P_ebu_c2h4 ELSE P_ebu_c2h4 = ebu_index_table( PARAM_ebu_c2h4 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h4 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h4 ) = 'ebu_c2h4' ebu_desc_table( idomain, P_ebu_c2h4 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h4 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h4 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c2h4 )%stream(2) = 0 F_ebu_c2h4 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h5oh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h5oh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h5oh , idomain ) = P_ebu_c2h5oh ELSE P_ebu_c2h5oh = ebu_index_table( PARAM_ebu_c2h5oh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h5oh ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h5oh ) = 'ebu_c2h5oh' ebu_desc_table( idomain, P_ebu_c2h5oh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h5oh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h5oh )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c2h5oh )%stream(2) = 0 F_ebu_c2h5oh = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h6 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h6 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h6 , idomain ) = P_ebu_c2h6 ELSE P_ebu_c2h6 = ebu_index_table( PARAM_ebu_c2h6 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h6 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h6 ) = 'ebu_c2h6' ebu_desc_table( idomain, P_ebu_c2h6 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h6 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h6 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c2h6 )%stream(2) = 0 F_ebu_c2h6 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c3h6 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c3h6 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c3h6 , idomain ) = P_ebu_c3h6 ELSE P_ebu_c3h6 = ebu_index_table( PARAM_ebu_c3h6 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c3h6 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c3h6 ) = 'ebu_c3h6' ebu_desc_table( idomain, P_ebu_c3h6 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c3h6 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c3h6 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c3h6 )%stream(2) = 0 F_ebu_c3h6 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c3h8 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c3h8 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c3h8 , idomain ) = P_ebu_c3h8 ELSE P_ebu_c3h8 = ebu_index_table( PARAM_ebu_c3h8 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c3h8 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c3h8 ) = 'ebu_c3h8' ebu_desc_table( idomain, P_ebu_c3h8 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c3h8 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c3h8 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c3h8 )%stream(2) = 0 F_ebu_c3h8 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch2o , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch2o = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch2o , idomain ) = P_ebu_ch2o ELSE P_ebu_ch2o = ebu_index_table( PARAM_ebu_ch2o , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch2o ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch2o ) = 'ebu_ch2o' ebu_desc_table( idomain, P_ebu_ch2o ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch2o ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch2o )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch2o )%stream(2) = 0 F_ebu_ch2o = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3cho , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3cho = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3cho , idomain ) = P_ebu_ch3cho ELSE P_ebu_ch3cho = ebu_index_table( PARAM_ebu_ch3cho , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3cho ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3cho ) = 'ebu_ch3cho' ebu_desc_table( idomain, P_ebu_ch3cho ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3cho ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3cho )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch3cho )%stream(2) = 0 F_ebu_ch3cho = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3coch3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) = P_ebu_ch3coch3 ELSE P_ebu_ch3coch3 = ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3coch3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3coch3 ) = 'ebu_ch3coch3' ebu_desc_table( idomain, P_ebu_ch3coch3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3coch3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3coch3 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch3coch3 )%stream(2) = 0 F_ebu_ch3coch3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3oh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3oh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3oh , idomain ) = P_ebu_ch3oh ELSE P_ebu_ch3oh = ebu_index_table( PARAM_ebu_ch3oh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3oh ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3oh ) = 'ebu_ch3oh' ebu_desc_table( idomain, P_ebu_ch3oh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3oh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3oh )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch3oh )%stream(2) = 0 F_ebu_ch3oh = .TRUE. IF ( ebu_index_table( PARAM_ebu_mek , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mek = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mek , idomain ) = P_ebu_mek ELSE P_ebu_mek = ebu_index_table( PARAM_ebu_mek , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mek ) = .FALSE. ebu_dname_table( idomain, P_ebu_mek ) = 'ebu_mek' ebu_desc_table( idomain, P_ebu_mek ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mek ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mek )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_mek )%stream(2) = 0 F_ebu_mek = .TRUE. IF ( ebu_index_table( PARAM_ebu_so2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_so2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_so2 , idomain ) = P_ebu_so2 ELSE P_ebu_so2 = ebu_index_table( PARAM_ebu_so2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_so2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_so2 ) = 'ebu_so2' ebu_desc_table( idomain, P_ebu_so2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_so2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_so2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_so2 )%stream(2) = 0 F_ebu_so2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_toluene , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_toluene = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_toluene , idomain ) = P_ebu_toluene ELSE P_ebu_toluene = ebu_index_table( PARAM_ebu_toluene , idomain ) END IF ebu_boundary_table( idomain, P_ebu_toluene ) = .FALSE. ebu_dname_table( idomain, P_ebu_toluene ) = 'ebu_toluene' ebu_desc_table( idomain, P_ebu_toluene ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_toluene ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_toluene )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_toluene )%stream(2) = 0 F_ebu_toluene = .TRUE. IF ( ebu_index_table( PARAM_ebu_nh3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_nh3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_nh3 , idomain ) = P_ebu_nh3 ELSE P_ebu_nh3 = ebu_index_table( PARAM_ebu_nh3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_nh3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_nh3 ) = 'ebu_nh3' ebu_desc_table( idomain, P_ebu_nh3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_nh3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_nh3 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_nh3 )%stream(2) = 0 F_ebu_nh3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_oc , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_oc = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_oc , idomain ) = P_ebu_oc ELSE P_ebu_oc = ebu_index_table( PARAM_ebu_oc , idomain ) END IF ebu_boundary_table( idomain, P_ebu_oc ) = .FALSE. ebu_dname_table( idomain, P_ebu_oc ) = 'ebu_oc' ebu_desc_table( idomain, P_ebu_oc ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_oc ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_oc )%stream(1) = 1 ebu_streams_table( idomain, P_ebu_oc )%stream(2) = 0 F_ebu_oc = .TRUE. IF ( ebu_index_table( PARAM_ebu_bc , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bc = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bc , idomain ) = P_ebu_bc ELSE P_ebu_bc = ebu_index_table( PARAM_ebu_bc , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bc ) = .FALSE. ebu_dname_table( idomain, P_ebu_bc ) = 'ebu_bc' ebu_desc_table( idomain, P_ebu_bc ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bc ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_bc )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_bc )%stream(2) = 0 F_ebu_bc = .TRUE. IF ( ebu_index_table( PARAM_ebu_pm25 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_pm25 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_pm25 , idomain ) = P_ebu_pm25 ELSE P_ebu_pm25 = ebu_index_table( PARAM_ebu_pm25 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_pm25 ) = .FALSE. ebu_dname_table( idomain, P_ebu_pm25 ) = 'ebu_pm25' ebu_desc_table( idomain, P_ebu_pm25 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_pm25 ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_pm25 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_pm25 )%stream(2) = 0 F_ebu_pm25 = .TRUE. IF ( ebu_index_table( PARAM_ebu_pm10 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_pm10 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_pm10 , idomain ) = P_ebu_pm10 ELSE P_ebu_pm10 = ebu_index_table( PARAM_ebu_pm10 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_pm10 ) = .FALSE. ebu_dname_table( idomain, P_ebu_pm10 ) = 'ebu_pm10' ebu_desc_table( idomain, P_ebu_pm10 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_pm10 ) = 'ug/m2/s' ebu_streams_table( idomain, P_ebu_pm10 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_pm10 )%stream(2) = 0 F_ebu_pm10 = .TRUE. IF ( ebu_index_table( PARAM_ebu_open , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_open = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_open , idomain ) = P_ebu_open ELSE P_ebu_open = ebu_index_table( PARAM_ebu_open , idomain ) END IF ebu_boundary_table( idomain, P_ebu_open ) = .FALSE. ebu_dname_table( idomain, P_ebu_open ) = 'ebu_open' ebu_desc_table( idomain, P_ebu_open ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_open ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_open )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_open )%stream(2) = 0 F_ebu_open = .TRUE. IF ( ebu_index_table( PARAM_ebu_c10h16 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c10h16 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c10h16 , idomain ) = P_ebu_c10h16 ELSE P_ebu_c10h16 = ebu_index_table( PARAM_ebu_c10h16 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c10h16 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c10h16 ) = 'ebu_c10h16' ebu_desc_table( idomain, P_ebu_c10h16 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c10h16 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c10h16 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c10h16 )%stream(2) = 0 F_ebu_c10h16 = .TRUE. IF ( ebu_index_table( PARAM_ebu_mgly , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mgly = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mgly , idomain ) = P_ebu_mgly ELSE P_ebu_mgly = ebu_index_table( PARAM_ebu_mgly , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mgly ) = .FALSE. ebu_dname_table( idomain, P_ebu_mgly ) = 'ebu_mgly' ebu_desc_table( idomain, P_ebu_mgly ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mgly ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mgly )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_mgly )%stream(2) = 0 F_ebu_mgly = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3cooh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3cooh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3cooh , idomain ) = P_ebu_ch3cooh ELSE P_ebu_ch3cooh = ebu_index_table( PARAM_ebu_ch3cooh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3cooh ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3cooh ) = 'ebu_ch3cooh' ebu_desc_table( idomain, P_ebu_ch3cooh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3cooh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3cooh )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch3cooh )%stream(2) = 0 F_ebu_ch3cooh = .TRUE. IF ( ebu_index_table( PARAM_ebu_cres , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_cres = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_cres , idomain ) = P_ebu_cres ELSE P_ebu_cres = ebu_index_table( PARAM_ebu_cres , idomain ) END IF ebu_boundary_table( idomain, P_ebu_cres ) = .FALSE. ebu_dname_table( idomain, P_ebu_cres ) = 'ebu_cres' ebu_desc_table( idomain, P_ebu_cres ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_cres ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_cres )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_cres )%stream(2) = 0 F_ebu_cres = .TRUE. IF ( ebu_index_table( PARAM_ebu_glyald , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_glyald = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_glyald , idomain ) = P_ebu_glyald ELSE P_ebu_glyald = ebu_index_table( PARAM_ebu_glyald , idomain ) END IF ebu_boundary_table( idomain, P_ebu_glyald ) = .FALSE. ebu_dname_table( idomain, P_ebu_glyald ) = 'ebu_glyald' ebu_desc_table( idomain, P_ebu_glyald ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_glyald ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_glyald )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_glyald )%stream(2) = 0 F_ebu_glyald = .TRUE. IF ( ebu_index_table( PARAM_ebu_gly , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_gly = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_gly , idomain ) = P_ebu_gly ELSE P_ebu_gly = ebu_index_table( PARAM_ebu_gly , idomain ) END IF ebu_boundary_table( idomain, P_ebu_gly ) = .FALSE. ebu_dname_table( idomain, P_ebu_gly ) = 'ebu_gly' ebu_desc_table( idomain, P_ebu_gly ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_gly ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_gly )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_gly )%stream(2) = 0 F_ebu_gly = .TRUE. IF ( ebu_index_table( PARAM_ebu_acetol , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_acetol = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_acetol , idomain ) = P_ebu_acetol ELSE P_ebu_acetol = ebu_index_table( PARAM_ebu_acetol , idomain ) END IF ebu_boundary_table( idomain, P_ebu_acetol ) = .FALSE. ebu_dname_table( idomain, P_ebu_acetol ) = 'ebu_acetol' ebu_desc_table( idomain, P_ebu_acetol ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_acetol ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_acetol )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_acetol )%stream(2) = 0 F_ebu_acetol = .TRUE. IF ( ebu_index_table( PARAM_ebu_isop , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_isop = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_isop , idomain ) = P_ebu_isop ELSE P_ebu_isop = ebu_index_table( PARAM_ebu_isop , idomain ) END IF ebu_boundary_table( idomain, P_ebu_isop ) = .FALSE. ebu_dname_table( idomain, P_ebu_isop ) = 'ebu_isop' ebu_desc_table( idomain, P_ebu_isop ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_isop ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_isop )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_isop )%stream(2) = 0 F_ebu_isop = .TRUE. IF ( ebu_index_table( PARAM_ebu_macr , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_macr = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_macr , idomain ) = P_ebu_macr ELSE P_ebu_macr = ebu_index_table( PARAM_ebu_macr , idomain ) END IF ebu_boundary_table( idomain, P_ebu_macr ) = .FALSE. ebu_dname_table( idomain, P_ebu_macr ) = 'ebu_macr' ebu_desc_table( idomain, P_ebu_macr ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_macr ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_macr )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_macr )%stream(2) = 0 F_ebu_macr = .TRUE. IF ( ebu_index_table( PARAM_ebu_mvk , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mvk = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mvk , idomain ) = P_ebu_mvk ELSE P_ebu_mvk = ebu_index_table( PARAM_ebu_mvk , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mvk ) = .FALSE. ebu_dname_table( idomain, P_ebu_mvk ) = 'ebu_mvk' ebu_desc_table( idomain, P_ebu_mvk ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mvk ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mvk )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_mvk )%stream(2) = 0 F_ebu_mvk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co , idomain ) = P_ebu_in_co ELSE P_ebu_in_co = ebu_in_index_table( PARAM_ebu_in_co , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co ) = 'ebu_in_co' ebu_in_desc_table( idomain, P_ebu_in_co ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_co )%stream(2) = 2 F_ebu_in_co = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no , idomain ) = P_ebu_in_no ELSE P_ebu_in_no = ebu_in_index_table( PARAM_ebu_in_no , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no ) = 'ebu_in_no' ebu_in_desc_table( idomain, P_ebu_in_no ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_no )%stream(2) = 2 F_ebu_in_no = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bigalk = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) = P_ebu_in_bigalk ELSE P_ebu_in_bigalk = ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bigalk ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bigalk ) = 'ebu_in_bigalk' ebu_in_desc_table( idomain, P_ebu_in_bigalk ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bigalk ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_bigalk )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_bigalk )%stream(2) = 2 F_ebu_in_bigalk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bigene = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) = P_ebu_in_bigene ELSE P_ebu_in_bigene = ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bigene ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bigene ) = 'ebu_in_bigene' ebu_in_desc_table( idomain, P_ebu_in_bigene ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bigene ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_bigene )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_bigene )%stream(2) = 2 F_ebu_in_bigene = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h4 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) = P_ebu_in_c2h4 ELSE P_ebu_in_c2h4 = ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h4 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h4 ) = 'ebu_in_c2h4' ebu_in_desc_table( idomain, P_ebu_in_c2h4 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h4 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h4 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c2h4 )%stream(2) = 2 F_ebu_in_c2h4 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h5oh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) = P_ebu_in_c2h5oh ELSE P_ebu_in_c2h5oh = ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h5oh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h5oh ) = 'ebu_in_c2h5oh' ebu_in_desc_table( idomain, P_ebu_in_c2h5oh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h5oh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h5oh )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c2h5oh )%stream(2) = 2 F_ebu_in_c2h5oh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h6 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) = P_ebu_in_c2h6 ELSE P_ebu_in_c2h6 = ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h6 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h6 ) = 'ebu_in_c2h6' ebu_in_desc_table( idomain, P_ebu_in_c2h6 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h6 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h6 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c2h6 )%stream(2) = 2 F_ebu_in_c2h6 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c3h6 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) = P_ebu_in_c3h6 ELSE P_ebu_in_c3h6 = ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c3h6 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c3h6 ) = 'ebu_in_c3h6' ebu_in_desc_table( idomain, P_ebu_in_c3h6 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c3h6 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c3h6 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c3h6 )%stream(2) = 2 F_ebu_in_c3h6 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c3h8 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) = P_ebu_in_c3h8 ELSE P_ebu_in_c3h8 = ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c3h8 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c3h8 ) = 'ebu_in_c3h8' ebu_in_desc_table( idomain, P_ebu_in_c3h8 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c3h8 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c3h8 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c3h8 )%stream(2) = 2 F_ebu_in_c3h8 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch2o = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) = P_ebu_in_ch2o ELSE P_ebu_in_ch2o = ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch2o ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch2o ) = 'ebu_in_ch2o' ebu_in_desc_table( idomain, P_ebu_in_ch2o ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch2o ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch2o )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch2o )%stream(2) = 2 F_ebu_in_ch2o = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3cho = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) = P_ebu_in_ch3cho ELSE P_ebu_in_ch3cho = ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3cho ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3cho ) = 'ebu_in_ch3cho' ebu_in_desc_table( idomain, P_ebu_in_ch3cho ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3cho ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3cho )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch3cho )%stream(2) = 2 F_ebu_in_ch3cho = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3coch3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) = P_ebu_in_ch3coch3 ELSE P_ebu_in_ch3coch3 = ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3coch3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3coch3 ) = 'ebu_in_ch3coch3' ebu_in_desc_table( idomain, P_ebu_in_ch3coch3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3coch3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3coch3 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch3coch3 )%stream(2) = 2 F_ebu_in_ch3coch3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3oh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) = P_ebu_in_ch3oh ELSE P_ebu_in_ch3oh = ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3oh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3oh ) = 'ebu_in_ch3oh' ebu_in_desc_table( idomain, P_ebu_in_ch3oh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3oh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3oh )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch3oh )%stream(2) = 2 F_ebu_in_ch3oh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mek , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mek = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mek , idomain ) = P_ebu_in_mek ELSE P_ebu_in_mek = ebu_in_index_table( PARAM_ebu_in_mek , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mek ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mek ) = 'ebu_in_mek' ebu_in_desc_table( idomain, P_ebu_in_mek ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mek ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mek )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_mek )%stream(2) = 2 F_ebu_in_mek = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_so2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) = P_ebu_in_so2 ELSE P_ebu_in_so2 = ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_so2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_so2 ) = 'ebu_in_so2' ebu_in_desc_table( idomain, P_ebu_in_so2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_so2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(2) = 2 F_ebu_in_so2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_toluene = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) = P_ebu_in_toluene ELSE P_ebu_in_toluene = ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_toluene ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_toluene ) = 'ebu_in_toluene' ebu_in_desc_table( idomain, P_ebu_in_toluene ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_toluene ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_toluene )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_toluene )%stream(2) = 2 F_ebu_in_toluene = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_nh3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) = P_ebu_in_nh3 ELSE P_ebu_in_nh3 = ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_nh3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_nh3 ) = 'ebu_in_nh3' ebu_in_desc_table( idomain, P_ebu_in_nh3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_nh3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(2) = 2 F_ebu_in_nh3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) = P_ebu_in_no2 ELSE P_ebu_in_no2 = ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no2 ) = 'ebu_in_no2' ebu_in_desc_table( idomain, P_ebu_in_no2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(2) = 2 F_ebu_in_no2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_open , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_open = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_open , idomain ) = P_ebu_in_open ELSE P_ebu_in_open = ebu_in_index_table( PARAM_ebu_in_open , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_open ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_open ) = 'ebu_in_open' ebu_in_desc_table( idomain, P_ebu_in_open ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_open ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_open )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_open )%stream(2) = 2 F_ebu_in_open = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c10h16 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) = P_ebu_in_c10h16 ELSE P_ebu_in_c10h16 = ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c10h16 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c10h16 ) = 'ebu_in_c10h16' ebu_in_desc_table( idomain, P_ebu_in_c10h16 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c10h16 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c10h16 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c10h16 )%stream(2) = 2 F_ebu_in_c10h16 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mgly = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) = P_ebu_in_mgly ELSE P_ebu_in_mgly = ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mgly ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mgly ) = 'ebu_in_mgly' ebu_in_desc_table( idomain, P_ebu_in_mgly ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mgly ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mgly )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_mgly )%stream(2) = 2 F_ebu_in_mgly = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3cooh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) = P_ebu_in_ch3cooh ELSE P_ebu_in_ch3cooh = ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3cooh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3cooh ) = 'ebu_in_ch3cooh' ebu_in_desc_table( idomain, P_ebu_in_ch3cooh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3cooh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3cooh )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch3cooh )%stream(2) = 2 F_ebu_in_ch3cooh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_cres , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_cres = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_cres , idomain ) = P_ebu_in_cres ELSE P_ebu_in_cres = ebu_in_index_table( PARAM_ebu_in_cres , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_cres ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_cres ) = 'ebu_in_cres' ebu_in_desc_table( idomain, P_ebu_in_cres ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_cres ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_cres )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_cres )%stream(2) = 2 F_ebu_in_cres = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_glyald = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) = P_ebu_in_glyald ELSE P_ebu_in_glyald = ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_glyald ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_glyald ) = 'ebu_in_glyald' ebu_in_desc_table( idomain, P_ebu_in_glyald ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_glyald ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_glyald )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_glyald )%stream(2) = 2 F_ebu_in_glyald = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_gly , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_gly = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_gly , idomain ) = P_ebu_in_gly ELSE P_ebu_in_gly = ebu_in_index_table( PARAM_ebu_in_gly , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_gly ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_gly ) = 'ebu_in_gly' ebu_in_desc_table( idomain, P_ebu_in_gly ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_gly ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_gly )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_gly )%stream(2) = 2 F_ebu_in_gly = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_acetol = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) = P_ebu_in_acetol ELSE P_ebu_in_acetol = ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_acetol ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_acetol ) = 'ebu_in_acetol' ebu_in_desc_table( idomain, P_ebu_in_acetol ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_acetol ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_acetol )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_acetol )%stream(2) = 2 F_ebu_in_acetol = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_isop , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_isop = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_isop , idomain ) = P_ebu_in_isop ELSE P_ebu_in_isop = ebu_in_index_table( PARAM_ebu_in_isop , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_isop ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_isop ) = 'ebu_in_isop' ebu_in_desc_table( idomain, P_ebu_in_isop ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_isop ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_isop )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_isop )%stream(2) = 2 F_ebu_in_isop = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_macr , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_macr = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_macr , idomain ) = P_ebu_in_macr ELSE P_ebu_in_macr = ebu_in_index_table( PARAM_ebu_in_macr , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_macr ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_macr ) = 'ebu_in_macr' ebu_in_desc_table( idomain, P_ebu_in_macr ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_macr ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(2) = 2 F_ebu_in_macr = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mvk = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) = P_ebu_in_mvk ELSE P_ebu_in_mvk = ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mvk ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mvk ) = 'ebu_in_mvk' ebu_in_desc_table( idomain, P_ebu_in_mvk ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mvk ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mvk )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_mvk )%stream(2) = 2 F_ebu_in_mvk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_pm25 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) = P_ebu_in_pm25 ELSE P_ebu_in_pm25 = ebu_in_index_table( PARAM_ebu_in_pm25 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_pm25 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_pm25 ) = 'ebu_in_pm25' ebu_in_desc_table( idomain, P_ebu_in_pm25 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_pm25 ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_pm25 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_pm25 )%stream(2) = 2 F_ebu_in_pm25 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_pm10 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) = P_ebu_in_pm10 ELSE P_ebu_in_pm10 = ebu_in_index_table( PARAM_ebu_in_pm10 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_pm10 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_pm10 ) = 'ebu_in_pm10' ebu_in_desc_table( idomain, P_ebu_in_pm10 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_pm10 ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_pm10 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_pm10 )%stream(2) = 2 F_ebu_in_pm10 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_oc , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_oc = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_oc , idomain ) = P_ebu_in_oc ELSE P_ebu_in_oc = ebu_in_index_table( PARAM_ebu_in_oc , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_oc ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_oc ) = 'ebu_in_oc' ebu_in_desc_table( idomain, P_ebu_in_oc ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_oc ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_oc )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_oc )%stream(2) = 2 F_ebu_in_oc = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bc , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bc = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bc , idomain ) = P_ebu_in_bc ELSE P_ebu_in_bc = ebu_in_index_table( PARAM_ebu_in_bc , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bc ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bc ) = 'ebu_in_bc' ebu_in_desc_table( idomain, P_ebu_in_bc ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bc ) = 'ug/m2/s' ebu_in_streams_table( idomain, P_ebu_in_bc )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_bc )%stream(2) = 2 F_ebu_in_bc = .TRUE. END IF IF (model_config_rec%biomass_burn_opt(idomain)==3)THEN IF ( ebu_index_table( PARAM_ebu_co , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co , idomain ) = P_ebu_co ELSE P_ebu_co = ebu_index_table( PARAM_ebu_co , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co ) = .FALSE. ebu_dname_table( idomain, P_ebu_co ) = 'ebu_co' ebu_desc_table( idomain, P_ebu_co ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_co )%stream(2) = 0 F_ebu_co = .TRUE. IF ( ebu_index_table( PARAM_ebu_no , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no , idomain ) = P_ebu_no ELSE P_ebu_no = ebu_index_table( PARAM_ebu_no , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no ) = .FALSE. ebu_dname_table( idomain, P_ebu_no ) = 'ebu_no' ebu_desc_table( idomain, P_ebu_no ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_no )%stream(2) = 0 F_ebu_no = .TRUE. IF ( ebu_index_table( PARAM_ebu_no2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_no2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_no2 , idomain ) = P_ebu_no2 ELSE P_ebu_no2 = ebu_index_table( PARAM_ebu_no2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_no2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_no2 ) = 'ebu_no2' ebu_desc_table( idomain, P_ebu_no2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_no2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_no2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_no2 )%stream(2) = 0 F_ebu_no2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_bigalk , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bigalk = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bigalk , idomain ) = P_ebu_bigalk ELSE P_ebu_bigalk = ebu_index_table( PARAM_ebu_bigalk , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bigalk ) = .FALSE. ebu_dname_table( idomain, P_ebu_bigalk ) = 'ebu_bigalk' ebu_desc_table( idomain, P_ebu_bigalk ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bigalk ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_bigalk )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_bigalk )%stream(2) = 0 F_ebu_bigalk = .TRUE. IF ( ebu_index_table( PARAM_ebu_bigene , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_bigene = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_bigene , idomain ) = P_ebu_bigene ELSE P_ebu_bigene = ebu_index_table( PARAM_ebu_bigene , idomain ) END IF ebu_boundary_table( idomain, P_ebu_bigene ) = .FALSE. ebu_dname_table( idomain, P_ebu_bigene ) = 'ebu_bigene' ebu_desc_table( idomain, P_ebu_bigene ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_bigene ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_bigene )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_bigene )%stream(2) = 0 F_ebu_bigene = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h4 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h4 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h4 , idomain ) = P_ebu_c2h4 ELSE P_ebu_c2h4 = ebu_index_table( PARAM_ebu_c2h4 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h4 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h4 ) = 'ebu_c2h4' ebu_desc_table( idomain, P_ebu_c2h4 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h4 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h4 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c2h4 )%stream(2) = 0 F_ebu_c2h4 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h5oh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h5oh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h5oh , idomain ) = P_ebu_c2h5oh ELSE P_ebu_c2h5oh = ebu_index_table( PARAM_ebu_c2h5oh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h5oh ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h5oh ) = 'ebu_c2h5oh' ebu_desc_table( idomain, P_ebu_c2h5oh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h5oh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h5oh )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c2h5oh )%stream(2) = 0 F_ebu_c2h5oh = .TRUE. IF ( ebu_index_table( PARAM_ebu_c2h6 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c2h6 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c2h6 , idomain ) = P_ebu_c2h6 ELSE P_ebu_c2h6 = ebu_index_table( PARAM_ebu_c2h6 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c2h6 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c2h6 ) = 'ebu_c2h6' ebu_desc_table( idomain, P_ebu_c2h6 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c2h6 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c2h6 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c2h6 )%stream(2) = 0 F_ebu_c2h6 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c3h6 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c3h6 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c3h6 , idomain ) = P_ebu_c3h6 ELSE P_ebu_c3h6 = ebu_index_table( PARAM_ebu_c3h6 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c3h6 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c3h6 ) = 'ebu_c3h6' ebu_desc_table( idomain, P_ebu_c3h6 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c3h6 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c3h6 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c3h6 )%stream(2) = 0 F_ebu_c3h6 = .TRUE. IF ( ebu_index_table( PARAM_ebu_c3h8 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c3h8 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c3h8 , idomain ) = P_ebu_c3h8 ELSE P_ebu_c3h8 = ebu_index_table( PARAM_ebu_c3h8 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c3h8 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c3h8 ) = 'ebu_c3h8' ebu_desc_table( idomain, P_ebu_c3h8 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c3h8 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c3h8 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c3h8 )%stream(2) = 0 F_ebu_c3h8 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch2o , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch2o = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch2o , idomain ) = P_ebu_ch2o ELSE P_ebu_ch2o = ebu_index_table( PARAM_ebu_ch2o , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch2o ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch2o ) = 'ebu_ch2o' ebu_desc_table( idomain, P_ebu_ch2o ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch2o ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch2o )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch2o )%stream(2) = 0 F_ebu_ch2o = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3cho , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3cho = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3cho , idomain ) = P_ebu_ch3cho ELSE P_ebu_ch3cho = ebu_index_table( PARAM_ebu_ch3cho , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3cho ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3cho ) = 'ebu_ch3cho' ebu_desc_table( idomain, P_ebu_ch3cho ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3cho ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3cho )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch3cho )%stream(2) = 0 F_ebu_ch3cho = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3coch3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) = P_ebu_ch3coch3 ELSE P_ebu_ch3coch3 = ebu_index_table( PARAM_ebu_ch3coch3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3coch3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3coch3 ) = 'ebu_ch3coch3' ebu_desc_table( idomain, P_ebu_ch3coch3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3coch3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3coch3 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch3coch3 )%stream(2) = 0 F_ebu_ch3coch3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3oh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3oh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3oh , idomain ) = P_ebu_ch3oh ELSE P_ebu_ch3oh = ebu_index_table( PARAM_ebu_ch3oh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3oh ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3oh ) = 'ebu_ch3oh' ebu_desc_table( idomain, P_ebu_ch3oh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3oh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3oh )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch3oh )%stream(2) = 0 F_ebu_ch3oh = .TRUE. IF ( ebu_index_table( PARAM_ebu_mek , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mek = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mek , idomain ) = P_ebu_mek ELSE P_ebu_mek = ebu_index_table( PARAM_ebu_mek , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mek ) = .FALSE. ebu_dname_table( idomain, P_ebu_mek ) = 'ebu_mek' ebu_desc_table( idomain, P_ebu_mek ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mek ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mek )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_mek )%stream(2) = 0 F_ebu_mek = .TRUE. IF ( ebu_index_table( PARAM_ebu_so2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_so2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_so2 , idomain ) = P_ebu_so2 ELSE P_ebu_so2 = ebu_index_table( PARAM_ebu_so2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_so2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_so2 ) = 'ebu_so2' ebu_desc_table( idomain, P_ebu_so2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_so2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_so2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_so2 )%stream(2) = 0 F_ebu_so2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_toluene , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_toluene = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_toluene , idomain ) = P_ebu_toluene ELSE P_ebu_toluene = ebu_index_table( PARAM_ebu_toluene , idomain ) END IF ebu_boundary_table( idomain, P_ebu_toluene ) = .FALSE. ebu_dname_table( idomain, P_ebu_toluene ) = 'ebu_toluene' ebu_desc_table( idomain, P_ebu_toluene ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_toluene ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_toluene )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_toluene )%stream(2) = 0 F_ebu_toluene = .TRUE. IF ( ebu_index_table( PARAM_ebu_nh3 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_nh3 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_nh3 , idomain ) = P_ebu_nh3 ELSE P_ebu_nh3 = ebu_index_table( PARAM_ebu_nh3 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_nh3 ) = .FALSE. ebu_dname_table( idomain, P_ebu_nh3 ) = 'ebu_nh3' ebu_desc_table( idomain, P_ebu_nh3 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_nh3 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_nh3 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_nh3 )%stream(2) = 0 F_ebu_nh3 = .TRUE. IF ( ebu_index_table( PARAM_ebu_open , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_open = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_open , idomain ) = P_ebu_open ELSE P_ebu_open = ebu_index_table( PARAM_ebu_open , idomain ) END IF ebu_boundary_table( idomain, P_ebu_open ) = .FALSE. ebu_dname_table( idomain, P_ebu_open ) = 'ebu_open' ebu_desc_table( idomain, P_ebu_open ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_open ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_open )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_open )%stream(2) = 0 F_ebu_open = .TRUE. IF ( ebu_index_table( PARAM_ebu_c10h16 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_c10h16 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_c10h16 , idomain ) = P_ebu_c10h16 ELSE P_ebu_c10h16 = ebu_index_table( PARAM_ebu_c10h16 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_c10h16 ) = .FALSE. ebu_dname_table( idomain, P_ebu_c10h16 ) = 'ebu_c10h16' ebu_desc_table( idomain, P_ebu_c10h16 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_c10h16 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_c10h16 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_c10h16 )%stream(2) = 0 F_ebu_c10h16 = .TRUE. IF ( ebu_index_table( PARAM_ebu_mgly , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mgly = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mgly , idomain ) = P_ebu_mgly ELSE P_ebu_mgly = ebu_index_table( PARAM_ebu_mgly , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mgly ) = .FALSE. ebu_dname_table( idomain, P_ebu_mgly ) = 'ebu_mgly' ebu_desc_table( idomain, P_ebu_mgly ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mgly ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mgly )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_mgly )%stream(2) = 0 F_ebu_mgly = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch3cooh , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch3cooh = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch3cooh , idomain ) = P_ebu_ch3cooh ELSE P_ebu_ch3cooh = ebu_index_table( PARAM_ebu_ch3cooh , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch3cooh ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch3cooh ) = 'ebu_ch3cooh' ebu_desc_table( idomain, P_ebu_ch3cooh ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch3cooh ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch3cooh )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_ch3cooh )%stream(2) = 0 F_ebu_ch3cooh = .TRUE. IF ( ebu_index_table( PARAM_ebu_cres , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_cres = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_cres , idomain ) = P_ebu_cres ELSE P_ebu_cres = ebu_index_table( PARAM_ebu_cres , idomain ) END IF ebu_boundary_table( idomain, P_ebu_cres ) = .FALSE. ebu_dname_table( idomain, P_ebu_cres ) = 'ebu_cres' ebu_desc_table( idomain, P_ebu_cres ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_cres ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_cres )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_cres )%stream(2) = 0 F_ebu_cres = .TRUE. IF ( ebu_index_table( PARAM_ebu_glyald , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_glyald = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_glyald , idomain ) = P_ebu_glyald ELSE P_ebu_glyald = ebu_index_table( PARAM_ebu_glyald , idomain ) END IF ebu_boundary_table( idomain, P_ebu_glyald ) = .FALSE. ebu_dname_table( idomain, P_ebu_glyald ) = 'ebu_glyald' ebu_desc_table( idomain, P_ebu_glyald ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_glyald ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_glyald )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_glyald )%stream(2) = 0 F_ebu_glyald = .TRUE. IF ( ebu_index_table( PARAM_ebu_gly , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_gly = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_gly , idomain ) = P_ebu_gly ELSE P_ebu_gly = ebu_index_table( PARAM_ebu_gly , idomain ) END IF ebu_boundary_table( idomain, P_ebu_gly ) = .FALSE. ebu_dname_table( idomain, P_ebu_gly ) = 'ebu_gly' ebu_desc_table( idomain, P_ebu_gly ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_gly ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_gly )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_gly )%stream(2) = 0 F_ebu_gly = .TRUE. IF ( ebu_index_table( PARAM_ebu_acetol , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_acetol = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_acetol , idomain ) = P_ebu_acetol ELSE P_ebu_acetol = ebu_index_table( PARAM_ebu_acetol , idomain ) END IF ebu_boundary_table( idomain, P_ebu_acetol ) = .FALSE. ebu_dname_table( idomain, P_ebu_acetol ) = 'ebu_acetol' ebu_desc_table( idomain, P_ebu_acetol ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_acetol ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_acetol )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_acetol )%stream(2) = 0 F_ebu_acetol = .TRUE. IF ( ebu_index_table( PARAM_ebu_isop , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_isop = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_isop , idomain ) = P_ebu_isop ELSE P_ebu_isop = ebu_index_table( PARAM_ebu_isop , idomain ) END IF ebu_boundary_table( idomain, P_ebu_isop ) = .FALSE. ebu_dname_table( idomain, P_ebu_isop ) = 'ebu_isop' ebu_desc_table( idomain, P_ebu_isop ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_isop ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_isop )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_isop )%stream(2) = 0 F_ebu_isop = .TRUE. IF ( ebu_index_table( PARAM_ebu_macr , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_macr = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_macr , idomain ) = P_ebu_macr ELSE P_ebu_macr = ebu_index_table( PARAM_ebu_macr , idomain ) END IF ebu_boundary_table( idomain, P_ebu_macr ) = .FALSE. ebu_dname_table( idomain, P_ebu_macr ) = 'ebu_macr' ebu_desc_table( idomain, P_ebu_macr ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_macr ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_macr )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_macr )%stream(2) = 0 F_ebu_macr = .TRUE. IF ( ebu_index_table( PARAM_ebu_mvk , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_mvk = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_mvk , idomain ) = P_ebu_mvk ELSE P_ebu_mvk = ebu_index_table( PARAM_ebu_mvk , idomain ) END IF ebu_boundary_table( idomain, P_ebu_mvk ) = .FALSE. ebu_dname_table( idomain, P_ebu_mvk ) = 'ebu_mvk' ebu_desc_table( idomain, P_ebu_mvk ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_mvk ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_mvk )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_mvk )%stream(2) = 0 F_ebu_mvk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co , idomain ) = P_ebu_in_co ELSE P_ebu_in_co = ebu_in_index_table( PARAM_ebu_in_co , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co ) = 'ebu_in_co' ebu_in_desc_table( idomain, P_ebu_in_co ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_co )%stream(2) = 2 F_ebu_in_co = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no , idomain ) = P_ebu_in_no ELSE P_ebu_in_no = ebu_in_index_table( PARAM_ebu_in_no , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no ) = 'ebu_in_no' ebu_in_desc_table( idomain, P_ebu_in_no ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_no )%stream(2) = 2 F_ebu_in_no = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bigalk = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) = P_ebu_in_bigalk ELSE P_ebu_in_bigalk = ebu_in_index_table( PARAM_ebu_in_bigalk , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bigalk ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bigalk ) = 'ebu_in_bigalk' ebu_in_desc_table( idomain, P_ebu_in_bigalk ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bigalk ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_bigalk )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_bigalk )%stream(2) = 2 F_ebu_in_bigalk = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_bigene = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) = P_ebu_in_bigene ELSE P_ebu_in_bigene = ebu_in_index_table( PARAM_ebu_in_bigene , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_bigene ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_bigene ) = 'ebu_in_bigene' ebu_in_desc_table( idomain, P_ebu_in_bigene ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_bigene ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_bigene )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_bigene )%stream(2) = 2 F_ebu_in_bigene = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h4 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) = P_ebu_in_c2h4 ELSE P_ebu_in_c2h4 = ebu_in_index_table( PARAM_ebu_in_c2h4 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h4 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h4 ) = 'ebu_in_c2h4' ebu_in_desc_table( idomain, P_ebu_in_c2h4 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h4 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h4 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c2h4 )%stream(2) = 2 F_ebu_in_c2h4 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h5oh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) = P_ebu_in_c2h5oh ELSE P_ebu_in_c2h5oh = ebu_in_index_table( PARAM_ebu_in_c2h5oh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h5oh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h5oh ) = 'ebu_in_c2h5oh' ebu_in_desc_table( idomain, P_ebu_in_c2h5oh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h5oh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h5oh )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c2h5oh )%stream(2) = 2 F_ebu_in_c2h5oh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c2h6 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) = P_ebu_in_c2h6 ELSE P_ebu_in_c2h6 = ebu_in_index_table( PARAM_ebu_in_c2h6 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c2h6 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c2h6 ) = 'ebu_in_c2h6' ebu_in_desc_table( idomain, P_ebu_in_c2h6 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c2h6 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c2h6 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c2h6 )%stream(2) = 2 F_ebu_in_c2h6 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c3h6 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) = P_ebu_in_c3h6 ELSE P_ebu_in_c3h6 = ebu_in_index_table( PARAM_ebu_in_c3h6 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c3h6 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c3h6 ) = 'ebu_in_c3h6' ebu_in_desc_table( idomain, P_ebu_in_c3h6 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c3h6 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c3h6 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c3h6 )%stream(2) = 2 F_ebu_in_c3h6 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c3h8 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) = P_ebu_in_c3h8 ELSE P_ebu_in_c3h8 = ebu_in_index_table( PARAM_ebu_in_c3h8 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c3h8 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c3h8 ) = 'ebu_in_c3h8' ebu_in_desc_table( idomain, P_ebu_in_c3h8 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c3h8 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c3h8 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c3h8 )%stream(2) = 2 F_ebu_in_c3h8 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch2o = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) = P_ebu_in_ch2o ELSE P_ebu_in_ch2o = ebu_in_index_table( PARAM_ebu_in_ch2o , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch2o ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch2o ) = 'ebu_in_ch2o' ebu_in_desc_table( idomain, P_ebu_in_ch2o ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch2o ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch2o )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch2o )%stream(2) = 2 F_ebu_in_ch2o = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3cho = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) = P_ebu_in_ch3cho ELSE P_ebu_in_ch3cho = ebu_in_index_table( PARAM_ebu_in_ch3cho , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3cho ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3cho ) = 'ebu_in_ch3cho' ebu_in_desc_table( idomain, P_ebu_in_ch3cho ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3cho ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3cho )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch3cho )%stream(2) = 2 F_ebu_in_ch3cho = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3coch3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) = P_ebu_in_ch3coch3 ELSE P_ebu_in_ch3coch3 = ebu_in_index_table( PARAM_ebu_in_ch3coch3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3coch3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3coch3 ) = 'ebu_in_ch3coch3' ebu_in_desc_table( idomain, P_ebu_in_ch3coch3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3coch3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3coch3 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch3coch3 )%stream(2) = 2 F_ebu_in_ch3coch3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3oh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) = P_ebu_in_ch3oh ELSE P_ebu_in_ch3oh = ebu_in_index_table( PARAM_ebu_in_ch3oh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3oh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3oh ) = 'ebu_in_ch3oh' ebu_in_desc_table( idomain, P_ebu_in_ch3oh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3oh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3oh )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch3oh )%stream(2) = 2 F_ebu_in_ch3oh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mek , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mek = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mek , idomain ) = P_ebu_in_mek ELSE P_ebu_in_mek = ebu_in_index_table( PARAM_ebu_in_mek , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mek ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mek ) = 'ebu_in_mek' ebu_in_desc_table( idomain, P_ebu_in_mek ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mek ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mek )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_mek )%stream(2) = 2 F_ebu_in_mek = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_so2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) = P_ebu_in_so2 ELSE P_ebu_in_so2 = ebu_in_index_table( PARAM_ebu_in_so2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_so2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_so2 ) = 'ebu_in_so2' ebu_in_desc_table( idomain, P_ebu_in_so2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_so2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_so2 )%stream(2) = 2 F_ebu_in_so2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_toluene = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) = P_ebu_in_toluene ELSE P_ebu_in_toluene = ebu_in_index_table( PARAM_ebu_in_toluene , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_toluene ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_toluene ) = 'ebu_in_toluene' ebu_in_desc_table( idomain, P_ebu_in_toluene ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_toluene ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_toluene )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_toluene )%stream(2) = 2 F_ebu_in_toluene = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_nh3 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) = P_ebu_in_nh3 ELSE P_ebu_in_nh3 = ebu_in_index_table( PARAM_ebu_in_nh3 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_nh3 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_nh3 ) = 'ebu_in_nh3' ebu_in_desc_table( idomain, P_ebu_in_nh3 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_nh3 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_nh3 )%stream(2) = 2 F_ebu_in_nh3 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_no2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) = P_ebu_in_no2 ELSE P_ebu_in_no2 = ebu_in_index_table( PARAM_ebu_in_no2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_no2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_no2 ) = 'ebu_in_no2' ebu_in_desc_table( idomain, P_ebu_in_no2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_no2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_no2 )%stream(2) = 2 F_ebu_in_no2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_open , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_open = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_open , idomain ) = P_ebu_in_open ELSE P_ebu_in_open = ebu_in_index_table( PARAM_ebu_in_open , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_open ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_open ) = 'ebu_in_open' ebu_in_desc_table( idomain, P_ebu_in_open ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_open ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_open )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_open )%stream(2) = 2 F_ebu_in_open = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_c10h16 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) = P_ebu_in_c10h16 ELSE P_ebu_in_c10h16 = ebu_in_index_table( PARAM_ebu_in_c10h16 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_c10h16 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_c10h16 ) = 'ebu_in_c10h16' ebu_in_desc_table( idomain, P_ebu_in_c10h16 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_c10h16 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_c10h16 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_c10h16 )%stream(2) = 2 F_ebu_in_c10h16 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mgly = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) = P_ebu_in_mgly ELSE P_ebu_in_mgly = ebu_in_index_table( PARAM_ebu_in_mgly , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mgly ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mgly ) = 'ebu_in_mgly' ebu_in_desc_table( idomain, P_ebu_in_mgly ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mgly ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mgly )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_mgly )%stream(2) = 2 F_ebu_in_mgly = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch3cooh = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) = P_ebu_in_ch3cooh ELSE P_ebu_in_ch3cooh = ebu_in_index_table( PARAM_ebu_in_ch3cooh , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch3cooh ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch3cooh ) = 'ebu_in_ch3cooh' ebu_in_desc_table( idomain, P_ebu_in_ch3cooh ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch3cooh ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch3cooh )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch3cooh )%stream(2) = 2 F_ebu_in_ch3cooh = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_cres , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_cres = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_cres , idomain ) = P_ebu_in_cres ELSE P_ebu_in_cres = ebu_in_index_table( PARAM_ebu_in_cres , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_cres ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_cres ) = 'ebu_in_cres' ebu_in_desc_table( idomain, P_ebu_in_cres ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_cres ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_cres )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_cres )%stream(2) = 2 F_ebu_in_cres = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_glyald = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) = P_ebu_in_glyald ELSE P_ebu_in_glyald = ebu_in_index_table( PARAM_ebu_in_glyald , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_glyald ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_glyald ) = 'ebu_in_glyald' ebu_in_desc_table( idomain, P_ebu_in_glyald ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_glyald ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_glyald )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_glyald )%stream(2) = 2 F_ebu_in_glyald = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_gly , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_gly = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_gly , idomain ) = P_ebu_in_gly ELSE P_ebu_in_gly = ebu_in_index_table( PARAM_ebu_in_gly , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_gly ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_gly ) = 'ebu_in_gly' ebu_in_desc_table( idomain, P_ebu_in_gly ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_gly ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_gly )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_gly )%stream(2) = 2 F_ebu_in_gly = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_acetol = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) = P_ebu_in_acetol ELSE P_ebu_in_acetol = ebu_in_index_table( PARAM_ebu_in_acetol , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_acetol ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_acetol ) = 'ebu_in_acetol' ebu_in_desc_table( idomain, P_ebu_in_acetol ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_acetol ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_acetol )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_acetol )%stream(2) = 2 F_ebu_in_acetol = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_isop , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_isop = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_isop , idomain ) = P_ebu_in_isop ELSE P_ebu_in_isop = ebu_in_index_table( PARAM_ebu_in_isop , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_isop ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_isop ) = 'ebu_in_isop' ebu_in_desc_table( idomain, P_ebu_in_isop ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_isop ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_isop )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_isop )%stream(2) = 2 F_ebu_in_isop = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_macr , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_macr = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_macr , idomain ) = P_ebu_in_macr ELSE P_ebu_in_macr = ebu_in_index_table( PARAM_ebu_in_macr , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_macr ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_macr ) = 'ebu_in_macr' ebu_in_desc_table( idomain, P_ebu_in_macr ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_macr ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_macr )%stream(2) = 2 F_ebu_in_macr = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_mvk = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) = P_ebu_in_mvk ELSE P_ebu_in_mvk = ebu_in_index_table( PARAM_ebu_in_mvk , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_mvk ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_mvk ) = 'ebu_in_mvk' ebu_in_desc_table( idomain, P_ebu_in_mvk ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_mvk ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_mvk )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_mvk )%stream(2) = 2 F_ebu_in_mvk = .TRUE. END IF IF (model_config_rec%biomass_burn_opt(idomain)==5)THEN IF ( ebu_index_table( PARAM_ebu_co , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co , idomain ) = P_ebu_co ELSE P_ebu_co = ebu_index_table( PARAM_ebu_co , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co ) = .FALSE. ebu_dname_table( idomain, P_ebu_co ) = 'ebu_co' ebu_desc_table( idomain, P_ebu_co ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_co )%stream(2) = 0 F_ebu_co = .TRUE. IF ( ebu_index_table( PARAM_ebu_co2 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_co2 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_co2 , idomain ) = P_ebu_co2 ELSE P_ebu_co2 = ebu_index_table( PARAM_ebu_co2 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_co2 ) = .FALSE. ebu_dname_table( idomain, P_ebu_co2 ) = 'ebu_co2' ebu_desc_table( idomain, P_ebu_co2 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_co2 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_co2 )%stream(1) = 0 ebu_streams_table( idomain, P_ebu_co2 )%stream(2) = 0 F_ebu_co2 = .TRUE. IF ( ebu_index_table( PARAM_ebu_ch4 , idomain ) .lt. 1 ) THEN ebu_num_table(idomain) = ebu_num_table(idomain) + 1 P_ebu_ch4 = ebu_num_table(idomain) ebu_index_table( PARAM_ebu_ch4 , idomain ) = P_ebu_ch4 ELSE P_ebu_ch4 = ebu_index_table( PARAM_ebu_ch4 , idomain ) END IF ebu_boundary_table( idomain, P_ebu_ch4 ) = .FALSE. ebu_dname_table( idomain, P_ebu_ch4 ) = 'ebu_ch4' ebu_desc_table( idomain, P_ebu_ch4 ) = 'biomass burning emiss' ebu_units_table( idomain, P_ebu_ch4 ) = 'mol km^-2 hr^-1' ebu_streams_table( idomain, P_ebu_ch4 )%stream(1) = 1 ebu_streams_table( idomain, P_ebu_ch4 )%stream(2) = 0 F_ebu_ch4 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co , idomain ) = P_ebu_in_co ELSE P_ebu_in_co = ebu_in_index_table( PARAM_ebu_in_co , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co ) = 'ebu_in_co' ebu_in_desc_table( idomain, P_ebu_in_co ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_co )%stream(2) = 2 F_ebu_in_co = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_co2 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) = P_ebu_in_co2 ELSE P_ebu_in_co2 = ebu_in_index_table( PARAM_ebu_in_co2 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_co2 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_co2 ) = 'ebu_in_co2' ebu_in_desc_table( idomain, P_ebu_in_co2 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_co2 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_co2 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_co2 )%stream(2) = 2 F_ebu_in_co2 = .TRUE. IF ( ebu_in_index_table( PARAM_ebu_in_ch4 , idomain ) .lt. 1 ) THEN ebu_in_num_table(idomain) = ebu_in_num_table(idomain) + 1 P_ebu_in_ch4 = ebu_in_num_table(idomain) ebu_in_index_table( PARAM_ebu_in_ch4 , idomain ) = P_ebu_in_ch4 ELSE P_ebu_in_ch4 = ebu_in_index_table( PARAM_ebu_in_ch4 , idomain ) END IF ebu_in_boundary_table( idomain, P_ebu_in_ch4 ) = .FALSE. ebu_in_dname_table( idomain, P_ebu_in_ch4 ) = 'ebu_in_ch4' ebu_in_desc_table( idomain, P_ebu_in_ch4 ) = 'EMISSIONS' ebu_in_units_table( idomain, P_ebu_in_ch4 ) = 'mol km^-2 hr^-1' ebu_in_streams_table( idomain, P_ebu_in_ch4 )%stream(1) = 33554432 ebu_in_streams_table( idomain, P_ebu_in_ch4 )%stream(2) = 2 F_ebu_in_ch4 = .TRUE. END IF IF (model_config_rec%opt_pars_out==1)THEN IF ( ext_coef_index_table( PARAM_extcof3 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof3 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof3 , idomain ) = P_extcof3 ELSE P_extcof3 = ext_coef_index_table( PARAM_extcof3 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof3 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof3 ) = 'EXTCOF3' ext_coef_desc_table( idomain, P_extcof3 ) = 'Extinction coefficients for .3um' ext_coef_units_table( idomain, P_extcof3 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof3 )%stream(1) = 0 ext_coef_streams_table( idomain, P_extcof3 )%stream(2) = 0 F_extcof3 = .TRUE. IF ( ext_coef_index_table( PARAM_extcof55 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof55 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof55 , idomain ) = P_extcof55 ELSE P_extcof55 = ext_coef_index_table( PARAM_extcof55 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof55 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof55 ) = 'EXTCOF55' ext_coef_desc_table( idomain, P_extcof55 ) = 'Extinction coefficients for .55um' ext_coef_units_table( idomain, P_extcof55 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof55 )%stream(1) = 1 ext_coef_streams_table( idomain, P_extcof55 )%stream(2) = 0 F_extcof55 = .TRUE. IF ( ext_coef_index_table( PARAM_extcof106 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof106 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof106 , idomain ) = P_extcof106 ELSE P_extcof106 = ext_coef_index_table( PARAM_extcof106 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof106 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof106 ) = 'EXTCOF106' ext_coef_desc_table( idomain, P_extcof106 ) = 'Extinction coefficients for 1.06um' ext_coef_units_table( idomain, P_extcof106 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof106 )%stream(1) = 0 ext_coef_streams_table( idomain, P_extcof106 )%stream(2) = 0 F_extcof106 = .TRUE. IF ( ext_coef_index_table( PARAM_extcof3_5 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof3_5 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof3_5 , idomain ) = P_extcof3_5 ELSE P_extcof3_5 = ext_coef_index_table( PARAM_extcof3_5 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof3_5 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof3_5 ) = 'EXTCOF3_5' ext_coef_desc_table( idomain, P_extcof3_5 ) = 'Band averaged extinction coefficients for 3-5um' ext_coef_units_table( idomain, P_extcof3_5 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof3_5 )%stream(1) = 0 ext_coef_streams_table( idomain, P_extcof3_5 )%stream(2) = 0 F_extcof3_5 = .TRUE. IF ( ext_coef_index_table( PARAM_extcof8_12 , idomain ) .lt. 1 ) THEN ext_coef_num_table(idomain) = ext_coef_num_table(idomain) + 1 P_extcof8_12 = ext_coef_num_table(idomain) ext_coef_index_table( PARAM_extcof8_12 , idomain ) = P_extcof8_12 ELSE P_extcof8_12 = ext_coef_index_table( PARAM_extcof8_12 , idomain ) END IF ext_coef_boundary_table( idomain, P_extcof8_12 ) = .FALSE. ext_coef_dname_table( idomain, P_extcof8_12 ) = 'EXTCOF8_12' ext_coef_desc_table( idomain, P_extcof8_12 ) = 'Band averaged extinction coefficients for 8-12um' ext_coef_units_table( idomain, P_extcof8_12 ) = 'km^-1' ext_coef_streams_table( idomain, P_extcof8_12 )%stream(1) = 0 ext_coef_streams_table( idomain, P_extcof8_12 )%stream(2) = 0 F_extcof8_12 = .TRUE. IF ( bscat_coef_index_table( PARAM_bscof3 , idomain ) .lt. 1 ) THEN bscat_coef_num_table(idomain) = bscat_coef_num_table(idomain) + 1 P_bscof3 = bscat_coef_num_table(idomain) bscat_coef_index_table( PARAM_bscof3 , idomain ) = P_bscof3 ELSE P_bscof3 = bscat_coef_index_table( PARAM_bscof3 , idomain ) END IF bscat_coef_boundary_table( idomain, P_bscof3 ) = .FALSE. bscat_coef_dname_table( idomain, P_bscof3 ) = 'BSCOF3' bscat_coef_desc_table( idomain, P_bscof3 ) = 'Scatter coefficients for .3um' bscat_coef_units_table( idomain, P_bscof3 ) = 'km^-1' bscat_coef_streams_table( idomain, P_bscof3 )%stream(1) = 0 bscat_coef_streams_table( idomain, P_bscof3 )%stream(2) = 0 F_bscof3 = .TRUE. IF ( bscat_coef_index_table( PARAM_bscof55 , idomain ) .lt. 1 ) THEN bscat_coef_num_table(idomain) = bscat_coef_num_table(idomain) + 1 P_bscof55 = bscat_coef_num_table(idomain) bscat_coef_index_table( PARAM_bscof55 , idomain ) = P_bscof55 ELSE P_bscof55 = bscat_coef_index_table( PARAM_bscof55 , idomain ) END IF bscat_coef_boundary_table( idomain, P_bscof55 ) = .FALSE. bscat_coef_dname_table( idomain, P_bscof55 ) = 'BSCOF5' bscat_coef_desc_table( idomain, P_bscof55 ) = 'Scatter coefficients for .5um' bscat_coef_units_table( idomain, P_bscof55 ) = 'km^-1' bscat_coef_streams_table( idomain, P_bscof55 )%stream(1) = 0 bscat_coef_streams_table( idomain, P_bscof55 )%stream(2) = 0 F_bscof55 = .TRUE. IF ( bscat_coef_index_table( PARAM_bscof106 , idomain ) .lt. 1 ) THEN bscat_coef_num_table(idomain) = bscat_coef_num_table(idomain) + 1 P_bscof106 = bscat_coef_num_table(idomain) bscat_coef_index_table( PARAM_bscof106 , idomain ) = P_bscof106 ELSE P_bscof106 = bscat_coef_index_table( PARAM_bscof106 , idomain ) END IF bscat_coef_boundary_table( idomain, P_bscof106 ) = .FALSE. bscat_coef_dname_table( idomain, P_bscof106 ) = 'BSCOF106' bscat_coef_desc_table( idomain, P_bscof106 ) = 'Scatter coefficients for 1.06um' bscat_coef_units_table( idomain, P_bscof106 ) = 'km^-1' bscat_coef_streams_table( idomain, P_bscof106 )%stream(1) = 0 bscat_coef_streams_table( idomain, P_bscof106 )%stream(2) = 0 F_bscof106 = .TRUE. IF ( asym_par_index_table( PARAM_asympar3 , idomain ) .lt. 1 ) THEN asym_par_num_table(idomain) = asym_par_num_table(idomain) + 1 P_asympar3 = asym_par_num_table(idomain) asym_par_index_table( PARAM_asympar3 , idomain ) = P_asympar3 ELSE P_asympar3 = asym_par_index_table( PARAM_asympar3 , idomain ) END IF asym_par_boundary_table( idomain, P_asympar3 ) = .FALSE. asym_par_dname_table( idomain, P_asympar3 ) = 'ASYMPAR3' asym_par_desc_table( idomain, P_asympar3 ) = 'assymetry parameter for .3um' asym_par_units_table( idomain, P_asympar3 ) = '?' asym_par_streams_table( idomain, P_asympar3 )%stream(1) = 0 asym_par_streams_table( idomain, P_asympar3 )%stream(2) = 0 F_asympar3 = .TRUE. IF ( asym_par_index_table( PARAM_asympar55 , idomain ) .lt. 1 ) THEN asym_par_num_table(idomain) = asym_par_num_table(idomain) + 1 P_asympar55 = asym_par_num_table(idomain) asym_par_index_table( PARAM_asympar55 , idomain ) = P_asympar55 ELSE P_asympar55 = asym_par_index_table( PARAM_asympar55 , idomain ) END IF asym_par_boundary_table( idomain, P_asympar55 ) = .FALSE. asym_par_dname_table( idomain, P_asympar55 ) = 'ASYMPAR55' asym_par_desc_table( idomain, P_asympar55 ) = 'assymetry parameter for .55um' asym_par_units_table( idomain, P_asympar55 ) = '?' asym_par_streams_table( idomain, P_asympar55 )%stream(1) = 0 asym_par_streams_table( idomain, P_asympar55 )%stream(2) = 0 F_asympar55 = .TRUE. IF ( asym_par_index_table( PARAM_asympar106 , idomain ) .lt. 1 ) THEN asym_par_num_table(idomain) = asym_par_num_table(idomain) + 1 P_asympar106 = asym_par_num_table(idomain) asym_par_index_table( PARAM_asympar106 , idomain ) = P_asympar106 ELSE P_asympar106 = asym_par_index_table( PARAM_asympar106 , idomain ) END IF asym_par_boundary_table( idomain, P_asympar106 ) = .FALSE. asym_par_dname_table( idomain, P_asympar106 ) = 'ASYMPAR106' asym_par_desc_table( idomain, P_asympar106 ) = 'assymetry parameter for 1.06um' asym_par_units_table( idomain, P_asympar106 ) = '?' asym_par_streams_table( idomain, P_asympar106 )%stream(1) = 0 asym_par_streams_table( idomain, P_asympar106 )%stream(2) = 0 F_asympar106 = .TRUE. END IF IF (model_config_rec%dust_opt==1)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_opt==3)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_opt==4)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_schme==1)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_schme==2)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 F_edust5 = .TRUE. END IF IF (model_config_rec%dust_schme==3)THEN IF ( emis_dust_index_table( PARAM_edust1 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust1 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust1 , idomain ) = P_edust1 ELSE P_edust1 = emis_dust_index_table( PARAM_edust1 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust1 ) = .FALSE. emis_dust_dname_table( idomain, P_edust1 ) = 'EDUST1' emis_dust_desc_table( idomain, P_edust1 ) = 'DUST emissions bin1' emis_dust_units_table( idomain, P_edust1 ) = '' emis_dust_streams_table( idomain, P_edust1 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust1 )%stream(2) = 0 F_edust1 = .TRUE. IF ( emis_dust_index_table( PARAM_edust2 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust2 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust2 , idomain ) = P_edust2 ELSE P_edust2 = emis_dust_index_table( PARAM_edust2 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust2 ) = .FALSE. emis_dust_dname_table( idomain, P_edust2 ) = 'EDUST2' emis_dust_desc_table( idomain, P_edust2 ) = 'DUST emissions bin2' emis_dust_units_table( idomain, P_edust2 ) = '' emis_dust_streams_table( idomain, P_edust2 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust2 )%stream(2) = 0 F_edust2 = .TRUE. IF ( emis_dust_index_table( PARAM_edust3 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust3 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust3 , idomain ) = P_edust3 ELSE P_edust3 = emis_dust_index_table( PARAM_edust3 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust3 ) = .FALSE. emis_dust_dname_table( idomain, P_edust3 ) = 'EDUST3' emis_dust_desc_table( idomain, P_edust3 ) = 'DUST emissions bin3' emis_dust_units_table( idomain, P_edust3 ) = '' emis_dust_streams_table( idomain, P_edust3 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust3 )%stream(2) = 0 F_edust3 = .TRUE. IF ( emis_dust_index_table( PARAM_edust4 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust4 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust4 , idomain ) = P_edust4 ELSE P_edust4 = emis_dust_index_table( PARAM_edust4 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust4 ) = .FALSE. emis_dust_dname_table( idomain, P_edust4 ) = 'EDUST4' emis_dust_desc_table( idomain, P_edust4 ) = 'DUST emissions bin4' emis_dust_units_table( idomain, P_edust4 ) = '' emis_dust_streams_table( idomain, P_edust4 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust4 )%stream(2) = 0 F_edust4 = .TRUE. IF ( emis_dust_index_table( PARAM_edust5 , idomain ) .lt. 1 ) THEN emis_dust_num_table(idomain) = emis_dust_num_table(idomain) + 1 P_edust5 = emis_dust_num_table(idomain) emis_dust_index_table( PARAM_edust5 , idomain ) = P_edust5 ELSE P_edust5 = emis_dust_index_table( PARAM_edust5 , idomain ) END IF emis_dust_boundary_table( idomain, P_edust5 ) = .FALSE. emis_dust_dname_table( idomain, P_edust5 ) = 'EDUST5' emis_dust_desc_table( idomain, P_edust5 ) = 'DUST emissions bin5' emis_dust_units_table( idomain, P_edust5 ) = '' emis_dust_streams_table( idomain, P_edust5 )%stream(1) = 1 emis_dust_streams_table( idomain, P_edust5 )%stream(2) = 0 F_edust5 = .TRUE. END IF IF (model_config_rec%seas_opt==1)THEN IF ( emis_seas_index_table( PARAM_eseas1 , idomain ) .lt. 1 ) THEN emis_seas_num_table(idomain) = emis_seas_num_table(idomain) + 1 P_eseas1 = emis_seas_num_table(idomain) emis_seas_index_table( PARAM_eseas1 , idomain ) = P_eseas1 ELSE P_eseas1 = emis_seas_index_table( PARAM_eseas1 , idomain ) END IF emis_seas_boundary_table( idomain, P_eseas1 ) = .FALSE. emis_seas_dname_table( idomain, P_eseas1 ) = 'ESEAS1' emis_seas_desc_table( idomain, P_eseas1 ) = 'Sea-Salt emissions bin1 ' emis_seas_units_table( idomain, P_eseas1 ) = '' emis_seas_streams_table( idomain, P_eseas1 )%stream(1) = 0 emis_seas_streams_table( idomain, P_eseas1 )%stream(2) = 0 F_eseas1 = .TRUE. IF ( emis_seas_index_table( PARAM_eseas2 , idomain ) .lt. 1 ) THEN emis_seas_num_table(idomain) = emis_seas_num_table(idomain) + 1 P_eseas2 = emis_seas_num_table(idomain) emis_seas_index_table( PARAM_eseas2 , idomain ) = P_eseas2 ELSE P_eseas2 = emis_seas_index_table( PARAM_eseas2 , idomain ) END IF emis_seas_boundary_table( idomain, P_eseas2 ) = .FALSE. emis_seas_dname_table( idomain, P_eseas2 ) = 'ESEAS2' emis_seas_desc_table( idomain, P_eseas2 ) = 'Sea-Salt emissions bin2 ' emis_seas_units_table( idomain, P_eseas2 ) = '' emis_seas_streams_table( idomain, P_eseas2 )%stream(1) = 0 emis_seas_streams_table( idomain, P_eseas2 )%stream(2) = 0 F_eseas2 = .TRUE. IF ( emis_seas_index_table( PARAM_eseas3 , idomain ) .lt. 1 ) THEN emis_seas_num_table(idomain) = emis_seas_num_table(idomain) + 1 P_eseas3 = emis_seas_num_table(idomain) emis_seas_index_table( PARAM_eseas3 , idomain ) = P_eseas3 ELSE P_eseas3 = emis_seas_index_table( PARAM_eseas3 , idomain ) END IF emis_seas_boundary_table( idomain, P_eseas3 ) = .FALSE. emis_seas_dname_table( idomain, P_eseas3 ) = 'ESEAS3' emis_seas_desc_table( idomain, P_eseas3 ) = 'Sea-Salt emissions bin3 ' emis_seas_units_table( idomain, P_eseas3 ) = '' emis_seas_streams_table( idomain, P_eseas3 )%stream(1) = 0 emis_seas_streams_table( idomain, P_eseas3 )%stream(2) = 0 F_eseas3 = .TRUE. IF ( emis_seas_index_table( PARAM_eseas4 , idomain ) .lt. 1 ) THEN emis_seas_num_table(idomain) = emis_seas_num_table(idomain) + 1 P_eseas4 = emis_seas_num_table(idomain) emis_seas_index_table( PARAM_eseas4 , idomain ) = P_eseas4 ELSE P_eseas4 = emis_seas_index_table( PARAM_eseas4 , idomain ) END IF emis_seas_boundary_table( idomain, P_eseas4 ) = .FALSE. emis_seas_dname_table( idomain, P_eseas4 ) = 'ESEAS4' emis_seas_desc_table( idomain, P_eseas4 ) = 'Sea-Salt emissions bin4 ' emis_seas_units_table( idomain, P_eseas4 ) = '' emis_seas_streams_table( idomain, P_eseas4 )%stream(1) = 0 emis_seas_streams_table( idomain, P_eseas4 )%stream(2) = 0 F_eseas4 = .TRUE. END IF IF (model_config_rec%seas_opt==2)THEN IF ( emis_seas2_index_table( PARAM_eseasj , idomain ) .lt. 1 ) THEN emis_seas2_num_table(idomain) = emis_seas2_num_table(idomain) + 1 P_eseasj = emis_seas2_num_table(idomain) emis_seas2_index_table( PARAM_eseasj , idomain ) = P_eseasj ELSE P_eseasj = emis_seas2_index_table( PARAM_eseasj , idomain ) END IF emis_seas2_boundary_table( idomain, P_eseasj ) = .FALSE. emis_seas2_dname_table( idomain, P_eseasj ) = 'ESEASJ' emis_seas2_desc_table( idomain, P_eseasj ) = 'Sea-Salt emissions accu mode ' emis_seas2_units_table( idomain, P_eseasj ) = 'g/m2/s' emis_seas2_streams_table( idomain, P_eseasj )%stream(1) = 0 emis_seas2_streams_table( idomain, P_eseasj )%stream(2) = 0 F_eseasj = .TRUE. IF ( emis_seas2_index_table( PARAM_eseasc , idomain ) .lt. 1 ) THEN emis_seas2_num_table(idomain) = emis_seas2_num_table(idomain) + 1 P_eseasc = emis_seas2_num_table(idomain) emis_seas2_index_table( PARAM_eseasc , idomain ) = P_eseasc ELSE P_eseasc = emis_seas2_index_table( PARAM_eseasc , idomain ) END IF emis_seas2_boundary_table( idomain, P_eseasc ) = .FALSE. emis_seas2_dname_table( idomain, P_eseasc ) = 'ESEASC' emis_seas2_desc_table( idomain, P_eseasc ) = 'Sea-Salt emissions coarse mode ' emis_seas2_units_table( idomain, P_eseasc ) = 'g/m2/s' emis_seas2_streams_table( idomain, P_eseasc )%stream(1) = 0 emis_seas2_streams_table( idomain, P_eseasc )%stream(2) = 0 F_eseasc = .TRUE. END IF IF (model_config_rec%dmsemis_opt==1)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==1)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==2)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==3)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==4)THEN END IF IF (model_config_rec%aer_op_opt(idomain)==5)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==1)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==3)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==16)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==101)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==102)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==103)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==104)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==111)THEN END IF IF (model_config_rec%emiss_inpt_opt(idomain)==121)THEN END IF IF (model_config_rec%gas_bc_opt(idomain)==1)THEN END IF IF (model_config_rec%gas_bc_opt(idomain)==16)THEN END IF IF (model_config_rec%gas_bc_opt(idomain)==101)THEN END IF IF (model_config_rec%gas_bc_opt(idomain)==102)THEN END IF IF (model_config_rec%gas_ic_opt(idomain)==1)THEN END IF IF (model_config_rec%gas_ic_opt(idomain)==16)THEN END IF IF (model_config_rec%gas_ic_opt(idomain)==101)THEN END IF IF (model_config_rec%gas_ic_opt(idomain)==102)THEN END IF IF (model_config_rec%aer_bc_opt(idomain)==1)THEN END IF IF (model_config_rec%aer_bc_opt(idomain)==101)THEN END IF IF (model_config_rec%aer_ic_opt(idomain)==1)THEN END IF IF (model_config_rec%aer_ic_opt(idomain)==101)THEN END IF IF (model_config_rec%tracer_opt(idomain)==1)THEN IF ( tracer_index_table( PARAM_smoke , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_smoke = tracer_num_table(idomain) tracer_index_table( PARAM_smoke , idomain ) = P_smoke ELSE P_smoke = tracer_index_table( PARAM_smoke , idomain ) END IF tracer_boundary_table( idomain, P_smoke ) = .TRUE. tracer_dname_table( idomain, P_smoke ) = 'smoke' tracer_desc_table( idomain, P_smoke ) = 'tracing smoke' tracer_units_table( idomain, P_smoke ) = '-' tracer_streams_table( idomain, P_smoke )%stream(1) = 33554433 tracer_streams_table( idomain, P_smoke )%stream(2) = 2097152 F_smoke = .TRUE. END IF IF (model_config_rec%tracer_opt(idomain)==2)THEN IF ( tracer_index_table( PARAM_tr17_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_1 , idomain ) = P_tr17_1 ELSE P_tr17_1 = tracer_index_table( PARAM_tr17_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_1 ) = .TRUE. tracer_dname_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_desc_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_units_table( idomain, P_tr17_1 ) = '-' tracer_streams_table( idomain, P_tr17_1 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_1 )%stream(2) = 2097156 F_tr17_1 = .TRUE. IF ( tracer_index_table( PARAM_tr17_2 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_2 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_2 , idomain ) = P_tr17_2 ELSE P_tr17_2 = tracer_index_table( PARAM_tr17_2 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_2 ) = .TRUE. tracer_dname_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_desc_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_units_table( idomain, P_tr17_2 ) = '-' tracer_streams_table( idomain, P_tr17_2 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_2 )%stream(2) = 2097156 F_tr17_2 = .TRUE. IF ( tracer_index_table( PARAM_tr17_3 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_3 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_3 , idomain ) = P_tr17_3 ELSE P_tr17_3 = tracer_index_table( PARAM_tr17_3 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_3 ) = .TRUE. tracer_dname_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_desc_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_units_table( idomain, P_tr17_3 ) = '-' tracer_streams_table( idomain, P_tr17_3 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_3 )%stream(2) = 2097156 F_tr17_3 = .TRUE. IF ( tracer_index_table( PARAM_tr17_4 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_4 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_4 , idomain ) = P_tr17_4 ELSE P_tr17_4 = tracer_index_table( PARAM_tr17_4 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_4 ) = .TRUE. tracer_dname_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_desc_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_units_table( idomain, P_tr17_4 ) = '-' tracer_streams_table( idomain, P_tr17_4 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_4 )%stream(2) = 2097156 F_tr17_4 = .TRUE. IF ( tracer_index_table( PARAM_tr17_5 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_5 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_5 , idomain ) = P_tr17_5 ELSE P_tr17_5 = tracer_index_table( PARAM_tr17_5 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_5 ) = .TRUE. tracer_dname_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_desc_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_units_table( idomain, P_tr17_5 ) = '-' tracer_streams_table( idomain, P_tr17_5 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_5 )%stream(2) = 2097156 F_tr17_5 = .TRUE. IF ( tracer_index_table( PARAM_tr17_6 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_6 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_6 , idomain ) = P_tr17_6 ELSE P_tr17_6 = tracer_index_table( PARAM_tr17_6 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_6 ) = .TRUE. tracer_dname_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_desc_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_units_table( idomain, P_tr17_6 ) = '-' tracer_streams_table( idomain, P_tr17_6 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_6 )%stream(2) = 2097156 F_tr17_6 = .TRUE. IF ( tracer_index_table( PARAM_tr17_7 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_7 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_7 , idomain ) = P_tr17_7 ELSE P_tr17_7 = tracer_index_table( PARAM_tr17_7 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_7 ) = .TRUE. tracer_dname_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_desc_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_units_table( idomain, P_tr17_7 ) = '-' tracer_streams_table( idomain, P_tr17_7 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_7 )%stream(2) = 2097156 F_tr17_7 = .TRUE. IF ( tracer_index_table( PARAM_tr17_8 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_8 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_8 , idomain ) = P_tr17_8 ELSE P_tr17_8 = tracer_index_table( PARAM_tr17_8 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_8 ) = .TRUE. tracer_dname_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_desc_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_units_table( idomain, P_tr17_8 ) = '-' tracer_streams_table( idomain, P_tr17_8 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_8 )%stream(2) = 2097156 F_tr17_8 = .TRUE. END IF IF (model_config_rec%tracer_opt(idomain)==3)THEN IF ( tracer_index_table( PARAM_tr17_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_1 , idomain ) = P_tr17_1 ELSE P_tr17_1 = tracer_index_table( PARAM_tr17_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_1 ) = .TRUE. tracer_dname_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_desc_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_units_table( idomain, P_tr17_1 ) = '-' tracer_streams_table( idomain, P_tr17_1 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_1 )%stream(2) = 2097156 F_tr17_1 = .TRUE. IF ( tracer_index_table( PARAM_tr17_2 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_2 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_2 , idomain ) = P_tr17_2 ELSE P_tr17_2 = tracer_index_table( PARAM_tr17_2 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_2 ) = .TRUE. tracer_dname_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_desc_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_units_table( idomain, P_tr17_2 ) = '-' tracer_streams_table( idomain, P_tr17_2 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_2 )%stream(2) = 2097156 F_tr17_2 = .TRUE. IF ( tracer_index_table( PARAM_tr17_3 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_3 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_3 , idomain ) = P_tr17_3 ELSE P_tr17_3 = tracer_index_table( PARAM_tr17_3 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_3 ) = .TRUE. tracer_dname_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_desc_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_units_table( idomain, P_tr17_3 ) = '-' tracer_streams_table( idomain, P_tr17_3 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_3 )%stream(2) = 2097156 F_tr17_3 = .TRUE. IF ( tracer_index_table( PARAM_tr17_4 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_4 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_4 , idomain ) = P_tr17_4 ELSE P_tr17_4 = tracer_index_table( PARAM_tr17_4 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_4 ) = .TRUE. tracer_dname_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_desc_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_units_table( idomain, P_tr17_4 ) = '-' tracer_streams_table( idomain, P_tr17_4 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_4 )%stream(2) = 2097156 F_tr17_4 = .TRUE. IF ( tracer_index_table( PARAM_tr17_5 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_5 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_5 , idomain ) = P_tr17_5 ELSE P_tr17_5 = tracer_index_table( PARAM_tr17_5 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_5 ) = .TRUE. tracer_dname_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_desc_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_units_table( idomain, P_tr17_5 ) = '-' tracer_streams_table( idomain, P_tr17_5 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_5 )%stream(2) = 2097156 F_tr17_5 = .TRUE. IF ( tracer_index_table( PARAM_tr17_6 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_6 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_6 , idomain ) = P_tr17_6 ELSE P_tr17_6 = tracer_index_table( PARAM_tr17_6 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_6 ) = .TRUE. tracer_dname_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_desc_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_units_table( idomain, P_tr17_6 ) = '-' tracer_streams_table( idomain, P_tr17_6 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_6 )%stream(2) = 2097156 F_tr17_6 = .TRUE. IF ( tracer_index_table( PARAM_tr17_7 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_7 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_7 , idomain ) = P_tr17_7 ELSE P_tr17_7 = tracer_index_table( PARAM_tr17_7 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_7 ) = .TRUE. tracer_dname_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_desc_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_units_table( idomain, P_tr17_7 ) = '-' tracer_streams_table( idomain, P_tr17_7 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_7 )%stream(2) = 2097156 F_tr17_7 = .TRUE. IF ( tracer_index_table( PARAM_tr17_8 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_8 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_8 , idomain ) = P_tr17_8 ELSE P_tr17_8 = tracer_index_table( PARAM_tr17_8 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_8 ) = .TRUE. tracer_dname_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_desc_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_units_table( idomain, P_tr17_8 ) = '-' tracer_streams_table( idomain, P_tr17_8 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_8 )%stream(2) = 2097156 F_tr17_8 = .TRUE. END IF IF (model_config_rec%tracer_opt(idomain)==4)THEN IF ( tracer_index_table( PARAM_tr17_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_1 , idomain ) = P_tr17_1 ELSE P_tr17_1 = tracer_index_table( PARAM_tr17_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_1 ) = .TRUE. tracer_dname_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_desc_table( idomain, P_tr17_1 ) = 'tr17_1' tracer_units_table( idomain, P_tr17_1 ) = '-' tracer_streams_table( idomain, P_tr17_1 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_1 )%stream(2) = 2097156 F_tr17_1 = .TRUE. IF ( tracer_index_table( PARAM_tr17_2 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_2 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_2 , idomain ) = P_tr17_2 ELSE P_tr17_2 = tracer_index_table( PARAM_tr17_2 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_2 ) = .TRUE. tracer_dname_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_desc_table( idomain, P_tr17_2 ) = 'tr17_2' tracer_units_table( idomain, P_tr17_2 ) = '-' tracer_streams_table( idomain, P_tr17_2 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_2 )%stream(2) = 2097156 F_tr17_2 = .TRUE. IF ( tracer_index_table( PARAM_tr17_3 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_3 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_3 , idomain ) = P_tr17_3 ELSE P_tr17_3 = tracer_index_table( PARAM_tr17_3 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_3 ) = .TRUE. tracer_dname_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_desc_table( idomain, P_tr17_3 ) = 'tr17_3' tracer_units_table( idomain, P_tr17_3 ) = '-' tracer_streams_table( idomain, P_tr17_3 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_3 )%stream(2) = 2097156 F_tr17_3 = .TRUE. IF ( tracer_index_table( PARAM_tr17_4 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_4 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_4 , idomain ) = P_tr17_4 ELSE P_tr17_4 = tracer_index_table( PARAM_tr17_4 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_4 ) = .TRUE. tracer_dname_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_desc_table( idomain, P_tr17_4 ) = 'tr17_4' tracer_units_table( idomain, P_tr17_4 ) = '-' tracer_streams_table( idomain, P_tr17_4 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_4 )%stream(2) = 2097156 F_tr17_4 = .TRUE. IF ( tracer_index_table( PARAM_tr17_5 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_5 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_5 , idomain ) = P_tr17_5 ELSE P_tr17_5 = tracer_index_table( PARAM_tr17_5 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_5 ) = .TRUE. tracer_dname_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_desc_table( idomain, P_tr17_5 ) = 'tr17_5' tracer_units_table( idomain, P_tr17_5 ) = '-' tracer_streams_table( idomain, P_tr17_5 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_5 )%stream(2) = 2097156 F_tr17_5 = .TRUE. IF ( tracer_index_table( PARAM_tr17_6 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_6 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_6 , idomain ) = P_tr17_6 ELSE P_tr17_6 = tracer_index_table( PARAM_tr17_6 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_6 ) = .TRUE. tracer_dname_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_desc_table( idomain, P_tr17_6 ) = 'tr17_6' tracer_units_table( idomain, P_tr17_6 ) = '-' tracer_streams_table( idomain, P_tr17_6 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_6 )%stream(2) = 2097156 F_tr17_6 = .TRUE. IF ( tracer_index_table( PARAM_tr17_7 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_7 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_7 , idomain ) = P_tr17_7 ELSE P_tr17_7 = tracer_index_table( PARAM_tr17_7 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_7 ) = .TRUE. tracer_dname_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_desc_table( idomain, P_tr17_7 ) = 'tr17_7' tracer_units_table( idomain, P_tr17_7 ) = '-' tracer_streams_table( idomain, P_tr17_7 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_7 )%stream(2) = 2097156 F_tr17_7 = .TRUE. IF ( tracer_index_table( PARAM_tr17_8 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr17_8 = tracer_num_table(idomain) tracer_index_table( PARAM_tr17_8 , idomain ) = P_tr17_8 ELSE P_tr17_8 = tracer_index_table( PARAM_tr17_8 , idomain ) END IF tracer_boundary_table( idomain, P_tr17_8 ) = .TRUE. tracer_dname_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_desc_table( idomain, P_tr17_8 ) = 'tr17_8' tracer_units_table( idomain, P_tr17_8 ) = '-' tracer_streams_table( idomain, P_tr17_8 )%stream(1) = 1 tracer_streams_table( idomain, P_tr17_8 )%stream(2) = 2097156 F_tr17_8 = .TRUE. IF ( tracer_index_table( PARAM_tr18_1 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr18_1 = tracer_num_table(idomain) tracer_index_table( PARAM_tr18_1 , idomain ) = P_tr18_1 ELSE P_tr18_1 = tracer_index_table( PARAM_tr18_1 , idomain ) END IF tracer_boundary_table( idomain, P_tr18_1 ) = .TRUE. tracer_dname_table( idomain, P_tr18_1 ) = 'tr18_1' tracer_desc_table( idomain, P_tr18_1 ) = 'tr18_1' tracer_units_table( idomain, P_tr18_1 ) = '-' tracer_streams_table( idomain, P_tr18_1 )%stream(1) = 1 tracer_streams_table( idomain, P_tr18_1 )%stream(2) = 2097156 F_tr18_1 = .TRUE. IF ( tracer_index_table( PARAM_tr18_2 , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_tr18_2 = tracer_num_table(idomain) tracer_index_table( PARAM_tr18_2 , idomain ) = P_tr18_2 ELSE P_tr18_2 = tracer_index_table( PARAM_tr18_2 , idomain ) END IF tracer_boundary_table( idomain, P_tr18_2 ) = .TRUE. tracer_dname_table( idomain, P_tr18_2 ) = 'tr18_2' tracer_desc_table( idomain, P_tr18_2 ) = 'tr18_2' tracer_units_table( idomain, P_tr18_2 ) = '-' tracer_streams_table( idomain, P_tr18_2 )%stream(1) = 1 tracer_streams_table( idomain, P_tr18_2 )%stream(2) = 2097156 F_tr18_2 = .TRUE. END IF IF (model_config_rec%aircraft_emiss_opt(idomain)==1)THEN IF ( emis_aircraft_index_table( PARAM_eac_no , idomain ) .lt. 1 ) THEN emis_aircraft_num_table(idomain) = emis_aircraft_num_table(idomain) + 1 P_eac_no = emis_aircraft_num_table(idomain) emis_aircraft_index_table( PARAM_eac_no , idomain ) = P_eac_no ELSE P_eac_no = emis_aircraft_index_table( PARAM_eac_no , idomain ) END IF emis_aircraft_boundary_table( idomain, P_eac_no ) = .FALSE. emis_aircraft_dname_table( idomain, P_eac_no ) = 'EAC_NO' emis_aircraft_desc_table( idomain, P_eac_no ) = 'EMISSIONS' emis_aircraft_units_table( idomain, P_eac_no ) = 'mol km^-2 hr^-1' emis_aircraft_streams_table( idomain, P_eac_no )%stream(1) = 0 emis_aircraft_streams_table( idomain, P_eac_no )%stream(2) = 256 F_eac_no = .TRUE. IF ( emis_aircraft_index_table( PARAM_eac_co , idomain ) .lt. 1 ) THEN emis_aircraft_num_table(idomain) = emis_aircraft_num_table(idomain) + 1 P_eac_co = emis_aircraft_num_table(idomain) emis_aircraft_index_table( PARAM_eac_co , idomain ) = P_eac_co ELSE P_eac_co = emis_aircraft_index_table( PARAM_eac_co , idomain ) END IF emis_aircraft_boundary_table( idomain, P_eac_co ) = .FALSE. emis_aircraft_dname_table( idomain, P_eac_co ) = 'EAC_CO' emis_aircraft_desc_table( idomain, P_eac_co ) = 'EMISSIONS' emis_aircraft_units_table( idomain, P_eac_co ) = 'mol km^-2 hr^-1' emis_aircraft_streams_table( idomain, P_eac_co )%stream(1) = 0 emis_aircraft_streams_table( idomain, P_eac_co )%stream(2) = 256 F_eac_co = .TRUE. IF ( emis_aircraft_index_table( PARAM_eac_so2 , idomain ) .lt. 1 ) THEN emis_aircraft_num_table(idomain) = emis_aircraft_num_table(idomain) + 1 P_eac_so2 = emis_aircraft_num_table(idomain) emis_aircraft_index_table( PARAM_eac_so2 , idomain ) = P_eac_so2 ELSE P_eac_so2 = emis_aircraft_index_table( PARAM_eac_so2 , idomain ) END IF emis_aircraft_boundary_table( idomain, P_eac_so2 ) = .FALSE. emis_aircraft_dname_table( idomain, P_eac_so2 ) = 'EAC_SO2' emis_aircraft_desc_table( idomain, P_eac_so2 ) = 'EMISSIONS' emis_aircraft_units_table( idomain, P_eac_so2 ) = 'mol km^-2 hr^-1' emis_aircraft_streams_table( idomain, P_eac_so2 )%stream(1) = 0 emis_aircraft_streams_table( idomain, P_eac_so2 )%stream(2) = 256 F_eac_so2 = .TRUE. IF ( emis_aircraft_index_table( PARAM_eac_ch4 , idomain ) .lt. 1 ) THEN emis_aircraft_num_table(idomain) = emis_aircraft_num_table(idomain) + 1 P_eac_ch4 = emis_aircraft_num_table(idomain) emis_aircraft_index_table( PARAM_eac_ch4 , idomain ) = P_eac_ch4 ELSE P_eac_ch4 = emis_aircraft_index_table( PARAM_eac_ch4 , idomain ) END IF emis_aircraft_boundary_table( idomain, P_eac_ch4 ) = .FALSE. emis_aircraft_dname_table( idomain, P_eac_ch4 ) = 'EAC_CH4' emis_aircraft_desc_table( idomain, P_eac_ch4 ) = 'EMISSIONS' emis_aircraft_units_table( idomain, P_eac_ch4 ) = 'mol km^-2 hr^-1' emis_aircraft_streams_table( idomain, P_eac_ch4 )%stream(1) = 0 emis_aircraft_streams_table( idomain, P_eac_ch4 )%stream(2) = 256 F_eac_ch4 = .TRUE. END IF IF (model_config_rec%chemdiag(idomain)==0)THEN END IF IF (model_config_rec%chemdiag(idomain)==1)THEN IF ( conv_ct_index_table( PARAM_conv_co , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_co = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_co , idomain ) = P_conv_co ELSE P_conv_co = conv_ct_index_table( PARAM_conv_co , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_co ) = .FALSE. conv_ct_dname_table( idomain, P_conv_co ) = 'conv_co' conv_ct_desc_table( idomain, P_conv_co ) = 'ACCUMULATED CONV TRANSPORT FOR CO' conv_ct_units_table( idomain, P_conv_co ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_co )%stream(1) = 0 conv_ct_streams_table( idomain, P_conv_co )%stream(2) = 2097152 F_conv_co = .TRUE. IF ( conv_ct_index_table( PARAM_conv_o3 , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_o3 = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_o3 , idomain ) = P_conv_o3 ELSE P_conv_o3 = conv_ct_index_table( PARAM_conv_o3 , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_o3 ) = .FALSE. conv_ct_dname_table( idomain, P_conv_o3 ) = 'conv_o3' conv_ct_desc_table( idomain, P_conv_o3 ) = 'ACCUMULATED CONV TRANSPORT FOR O3' conv_ct_units_table( idomain, P_conv_o3 ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_o3 )%stream(1) = 0 conv_ct_streams_table( idomain, P_conv_o3 )%stream(2) = 2097152 F_conv_o3 = .TRUE. IF ( conv_ct_index_table( PARAM_conv_no , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_no = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_no , idomain ) = P_conv_no ELSE P_conv_no = conv_ct_index_table( PARAM_conv_no , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_no ) = .FALSE. conv_ct_dname_table( idomain, P_conv_no ) = 'conv_no' conv_ct_desc_table( idomain, P_conv_no ) = 'ACCUMULATED CONV TRANSPORT FOR NO' conv_ct_units_table( idomain, P_conv_no ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_no )%stream(1) = 0 conv_ct_streams_table( idomain, P_conv_no )%stream(2) = 2097152 F_conv_no = .TRUE. IF ( conv_ct_index_table( PARAM_conv_no2 , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_no2 = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_no2 , idomain ) = P_conv_no2 ELSE P_conv_no2 = conv_ct_index_table( PARAM_conv_no2 , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_no2 ) = .FALSE. conv_ct_dname_table( idomain, P_conv_no2 ) = 'conv_no2' conv_ct_desc_table( idomain, P_conv_no2 ) = 'ACCUMULATED CONV TRANSPORT FOR NO2' conv_ct_units_table( idomain, P_conv_no2 ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_no2 )%stream(1) = 0 conv_ct_streams_table( idomain, P_conv_no2 )%stream(2) = 2097152 F_conv_no2 = .TRUE. IF ( conv_ct_index_table( PARAM_conv_hno3 , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_hno3 = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_hno3 , idomain ) = P_conv_hno3 ELSE P_conv_hno3 = conv_ct_index_table( PARAM_conv_hno3 , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_hno3 ) = .FALSE. conv_ct_dname_table( idomain, P_conv_hno3 ) = 'conv_hno3' conv_ct_desc_table( idomain, P_conv_hno3 ) = 'ACCUMULATED CONV TRANSPORT FOR HNO3' conv_ct_units_table( idomain, P_conv_hno3 ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_hno3 )%stream(1) = 0 conv_ct_streams_table( idomain, P_conv_hno3 )%stream(2) = 2097152 F_conv_hno3 = .TRUE. IF ( conv_ct_index_table( PARAM_conv_iso , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_iso = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_iso , idomain ) = P_conv_iso ELSE P_conv_iso = conv_ct_index_table( PARAM_conv_iso , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_iso ) = .FALSE. conv_ct_dname_table( idomain, P_conv_iso ) = 'conv_iso' conv_ct_desc_table( idomain, P_conv_iso ) = 'ACCUMULATED CONV TRANSPORT FOR ISO' conv_ct_units_table( idomain, P_conv_iso ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_iso )%stream(1) = 0 conv_ct_streams_table( idomain, P_conv_iso )%stream(2) = 2097152 F_conv_iso = .TRUE. IF ( conv_ct_index_table( PARAM_conv_ho , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_ho = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_ho , idomain ) = P_conv_ho ELSE P_conv_ho = conv_ct_index_table( PARAM_conv_ho , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_ho ) = .FALSE. conv_ct_dname_table( idomain, P_conv_ho ) = 'conv_ho' conv_ct_desc_table( idomain, P_conv_ho ) = 'ACCUMULATED CONV TRANSPORT FOR HO' conv_ct_units_table( idomain, P_conv_ho ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_ho )%stream(1) = 0 conv_ct_streams_table( idomain, P_conv_ho )%stream(2) = 2097152 F_conv_ho = .TRUE. IF ( conv_ct_index_table( PARAM_conv_ho2 , idomain ) .lt. 1 ) THEN conv_ct_num_table(idomain) = conv_ct_num_table(idomain) + 1 P_conv_ho2 = conv_ct_num_table(idomain) conv_ct_index_table( PARAM_conv_ho2 , idomain ) = P_conv_ho2 ELSE P_conv_ho2 = conv_ct_index_table( PARAM_conv_ho2 , idomain ) END IF conv_ct_boundary_table( idomain, P_conv_ho2 ) = .FALSE. conv_ct_dname_table( idomain, P_conv_ho2 ) = 'conv_ho2' conv_ct_desc_table( idomain, P_conv_ho2 ) = 'ACCUMULATED CONV TRANSPORT FOR HO2' conv_ct_units_table( idomain, P_conv_ho2 ) = 'ppmv' conv_ct_streams_table( idomain, P_conv_ho2 )%stream(1) = 0 conv_ct_streams_table( idomain, P_conv_ho2 )%stream(2) = 2097152 F_conv_ho2 = .TRUE. IF ( chem_ct_index_table( PARAM_chem_co , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_co = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_co , idomain ) = P_chem_co ELSE P_chem_co = chem_ct_index_table( PARAM_chem_co , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_co ) = .FALSE. chem_ct_dname_table( idomain, P_chem_co ) = 'chem_co' chem_ct_desc_table( idomain, P_chem_co ) = 'ACCUMULATED CHEM TENDENCY FOR CO' chem_ct_units_table( idomain, P_chem_co ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_co )%stream(1) = 0 chem_ct_streams_table( idomain, P_chem_co )%stream(2) = 2097152 F_chem_co = .TRUE. IF ( chem_ct_index_table( PARAM_chem_o3 , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_o3 = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_o3 , idomain ) = P_chem_o3 ELSE P_chem_o3 = chem_ct_index_table( PARAM_chem_o3 , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_o3 ) = .FALSE. chem_ct_dname_table( idomain, P_chem_o3 ) = 'chem_o3' chem_ct_desc_table( idomain, P_chem_o3 ) = 'ACCUMULATED CHEM TENDENCY FOR O3' chem_ct_units_table( idomain, P_chem_o3 ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_o3 )%stream(1) = 0 chem_ct_streams_table( idomain, P_chem_o3 )%stream(2) = 2097152 F_chem_o3 = .TRUE. IF ( chem_ct_index_table( PARAM_chem_no , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_no = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_no , idomain ) = P_chem_no ELSE P_chem_no = chem_ct_index_table( PARAM_chem_no , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_no ) = .FALSE. chem_ct_dname_table( idomain, P_chem_no ) = 'chem_no' chem_ct_desc_table( idomain, P_chem_no ) = 'ACCUMULATED CHEM TENDENCY FOR NO' chem_ct_units_table( idomain, P_chem_no ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_no )%stream(1) = 0 chem_ct_streams_table( idomain, P_chem_no )%stream(2) = 2097152 F_chem_no = .TRUE. IF ( chem_ct_index_table( PARAM_chem_no2 , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_no2 = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_no2 , idomain ) = P_chem_no2 ELSE P_chem_no2 = chem_ct_index_table( PARAM_chem_no2 , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_no2 ) = .FALSE. chem_ct_dname_table( idomain, P_chem_no2 ) = 'chem_no2' chem_ct_desc_table( idomain, P_chem_no2 ) = 'ACCUMULATED CHEM TENDENCY FOR NO2' chem_ct_units_table( idomain, P_chem_no2 ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_no2 )%stream(1) = 0 chem_ct_streams_table( idomain, P_chem_no2 )%stream(2) = 2097152 F_chem_no2 = .TRUE. IF ( chem_ct_index_table( PARAM_chem_hno3 , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_hno3 = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_hno3 , idomain ) = P_chem_hno3 ELSE P_chem_hno3 = chem_ct_index_table( PARAM_chem_hno3 , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_hno3 ) = .FALSE. chem_ct_dname_table( idomain, P_chem_hno3 ) = 'chem_hno3' chem_ct_desc_table( idomain, P_chem_hno3 ) = 'ACCUMULATED CHEM TENDENCY FOR HNO3' chem_ct_units_table( idomain, P_chem_hno3 ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_hno3 )%stream(1) = 0 chem_ct_streams_table( idomain, P_chem_hno3 )%stream(2) = 2097152 F_chem_hno3 = .TRUE. IF ( chem_ct_index_table( PARAM_chem_iso , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_iso = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_iso , idomain ) = P_chem_iso ELSE P_chem_iso = chem_ct_index_table( PARAM_chem_iso , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_iso ) = .FALSE. chem_ct_dname_table( idomain, P_chem_iso ) = 'chem_iso' chem_ct_desc_table( idomain, P_chem_iso ) = 'ACCUMULATED CHEM TENDENCY FOR ISO' chem_ct_units_table( idomain, P_chem_iso ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_iso )%stream(1) = 0 chem_ct_streams_table( idomain, P_chem_iso )%stream(2) = 2097152 F_chem_iso = .TRUE. IF ( chem_ct_index_table( PARAM_chem_ho , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_ho = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_ho , idomain ) = P_chem_ho ELSE P_chem_ho = chem_ct_index_table( PARAM_chem_ho , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_ho ) = .FALSE. chem_ct_dname_table( idomain, P_chem_ho ) = 'chem_ho' chem_ct_desc_table( idomain, P_chem_ho ) = 'ACCUMULATED CHEM TENDENCY FOR HO' chem_ct_units_table( idomain, P_chem_ho ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_ho )%stream(1) = 0 chem_ct_streams_table( idomain, P_chem_ho )%stream(2) = 2097152 F_chem_ho = .TRUE. IF ( chem_ct_index_table( PARAM_chem_ho2 , idomain ) .lt. 1 ) THEN chem_ct_num_table(idomain) = chem_ct_num_table(idomain) + 1 P_chem_ho2 = chem_ct_num_table(idomain) chem_ct_index_table( PARAM_chem_ho2 , idomain ) = P_chem_ho2 ELSE P_chem_ho2 = chem_ct_index_table( PARAM_chem_ho2 , idomain ) END IF chem_ct_boundary_table( idomain, P_chem_ho2 ) = .FALSE. chem_ct_dname_table( idomain, P_chem_ho2 ) = 'chem_ho2' chem_ct_desc_table( idomain, P_chem_ho2 ) = 'ACCUMULATED CHEM TENDENCY FOR HO2' chem_ct_units_table( idomain, P_chem_ho2 ) = 'ppmv' chem_ct_streams_table( idomain, P_chem_ho2 )%stream(1) = 0 chem_ct_streams_table( idomain, P_chem_ho2 )%stream(2) = 2097152 F_chem_ho2 = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_co , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_co = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_co , idomain ) = P_vmix_co ELSE P_vmix_co = vmix_ct_index_table( PARAM_vmix_co , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_co ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_co ) = 'vmix_co' vmix_ct_desc_table( idomain, P_vmix_co ) = 'ACCUMULATED TENDENCY FOR CO BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_co ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_co )%stream(1) = 0 vmix_ct_streams_table( idomain, P_vmix_co )%stream(2) = 2097152 F_vmix_co = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_o3 , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_o3 = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_o3 , idomain ) = P_vmix_o3 ELSE P_vmix_o3 = vmix_ct_index_table( PARAM_vmix_o3 , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_o3 ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_o3 ) = 'vmix_o3' vmix_ct_desc_table( idomain, P_vmix_o3 ) = 'ACCUMULATED TENDENCY FOR O3 BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_o3 ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_o3 )%stream(1) = 0 vmix_ct_streams_table( idomain, P_vmix_o3 )%stream(2) = 2097152 F_vmix_o3 = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_no , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_no = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_no , idomain ) = P_vmix_no ELSE P_vmix_no = vmix_ct_index_table( PARAM_vmix_no , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_no ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_no ) = 'vmix_no' vmix_ct_desc_table( idomain, P_vmix_no ) = 'ACCUMULATED TENDENCY FOR NO BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_no ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_no )%stream(1) = 0 vmix_ct_streams_table( idomain, P_vmix_no )%stream(2) = 2097152 F_vmix_no = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_no2 , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_no2 = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_no2 , idomain ) = P_vmix_no2 ELSE P_vmix_no2 = vmix_ct_index_table( PARAM_vmix_no2 , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_no2 ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_no2 ) = 'vmix_no2' vmix_ct_desc_table( idomain, P_vmix_no2 ) = 'ACCUMULATED TENDENCY FOR NO2 BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_no2 ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_no2 )%stream(1) = 0 vmix_ct_streams_table( idomain, P_vmix_no2 )%stream(2) = 2097152 F_vmix_no2 = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_hno3 , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_hno3 = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_hno3 , idomain ) = P_vmix_hno3 ELSE P_vmix_hno3 = vmix_ct_index_table( PARAM_vmix_hno3 , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_hno3 ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_hno3 ) = 'vmix_hno3' vmix_ct_desc_table( idomain, P_vmix_hno3 ) = 'ACCUMULATED TENDENCY FOR HNO3 BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_hno3 ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_hno3 )%stream(1) = 0 vmix_ct_streams_table( idomain, P_vmix_hno3 )%stream(2) = 2097152 F_vmix_hno3 = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_iso , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_iso = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_iso , idomain ) = P_vmix_iso ELSE P_vmix_iso = vmix_ct_index_table( PARAM_vmix_iso , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_iso ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_iso ) = 'vmix_iso' vmix_ct_desc_table( idomain, P_vmix_iso ) = 'ACCUMULATED TENDENCY FOR ISO BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_iso ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_iso )%stream(1) = 0 vmix_ct_streams_table( idomain, P_vmix_iso )%stream(2) = 2097152 F_vmix_iso = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_ho , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_ho = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_ho , idomain ) = P_vmix_ho ELSE P_vmix_ho = vmix_ct_index_table( PARAM_vmix_ho , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_ho ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_ho ) = 'vmix_ho' vmix_ct_desc_table( idomain, P_vmix_ho ) = 'ACCUMULATED TENDENCY FOR HO BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_ho ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_ho )%stream(1) = 0 vmix_ct_streams_table( idomain, P_vmix_ho )%stream(2) = 2097152 F_vmix_ho = .TRUE. IF ( vmix_ct_index_table( PARAM_vmix_ho2 , idomain ) .lt. 1 ) THEN vmix_ct_num_table(idomain) = vmix_ct_num_table(idomain) + 1 P_vmix_ho2 = vmix_ct_num_table(idomain) vmix_ct_index_table( PARAM_vmix_ho2 , idomain ) = P_vmix_ho2 ELSE P_vmix_ho2 = vmix_ct_index_table( PARAM_vmix_ho2 , idomain ) END IF vmix_ct_boundary_table( idomain, P_vmix_ho2 ) = .FALSE. vmix_ct_dname_table( idomain, P_vmix_ho2 ) = 'vmix_ho2' vmix_ct_desc_table( idomain, P_vmix_ho2 ) = 'ACCUMULATED TENDENCY FOR HO2 BY VERTICAL MIXING' vmix_ct_units_table( idomain, P_vmix_ho2 ) = 'ppmv' vmix_ct_streams_table( idomain, P_vmix_ho2 )%stream(1) = 0 vmix_ct_streams_table( idomain, P_vmix_ho2 )%stream(2) = 2097152 F_vmix_ho2 = .TRUE. IF ( advh_ct_index_table( PARAM_advh_co , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_co = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_co , idomain ) = P_advh_co ELSE P_advh_co = advh_ct_index_table( PARAM_advh_co , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_co ) = .FALSE. advh_ct_dname_table( idomain, P_advh_co ) = 'advh_co' advh_ct_desc_table( idomain, P_advh_co ) = 'ACCUMULATED TENDENCY FOR CO BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_co ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_co )%stream(1) = 0 advh_ct_streams_table( idomain, P_advh_co )%stream(2) = 2097152 F_advh_co = .TRUE. IF ( advh_ct_index_table( PARAM_advh_o3 , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_o3 = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_o3 , idomain ) = P_advh_o3 ELSE P_advh_o3 = advh_ct_index_table( PARAM_advh_o3 , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_o3 ) = .FALSE. advh_ct_dname_table( idomain, P_advh_o3 ) = 'advh_o3' advh_ct_desc_table( idomain, P_advh_o3 ) = 'ACCUMULATED TENDENCY FOR O3 BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_o3 ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_o3 )%stream(1) = 0 advh_ct_streams_table( idomain, P_advh_o3 )%stream(2) = 2097152 F_advh_o3 = .TRUE. IF ( advh_ct_index_table( PARAM_advh_no , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_no = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_no , idomain ) = P_advh_no ELSE P_advh_no = advh_ct_index_table( PARAM_advh_no , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_no ) = .FALSE. advh_ct_dname_table( idomain, P_advh_no ) = 'advh_no' advh_ct_desc_table( idomain, P_advh_no ) = 'ACCUMULATED TENDENCY FOR NO BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_no ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_no )%stream(1) = 0 advh_ct_streams_table( idomain, P_advh_no )%stream(2) = 2097152 F_advh_no = .TRUE. IF ( advh_ct_index_table( PARAM_advh_no2 , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_no2 = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_no2 , idomain ) = P_advh_no2 ELSE P_advh_no2 = advh_ct_index_table( PARAM_advh_no2 , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_no2 ) = .FALSE. advh_ct_dname_table( idomain, P_advh_no2 ) = 'advh_no2' advh_ct_desc_table( idomain, P_advh_no2 ) = 'ACCUMULATED TENDENCY FOR NO2 BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_no2 ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_no2 )%stream(1) = 0 advh_ct_streams_table( idomain, P_advh_no2 )%stream(2) = 2097152 F_advh_no2 = .TRUE. IF ( advh_ct_index_table( PARAM_advh_hno3 , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_hno3 = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_hno3 , idomain ) = P_advh_hno3 ELSE P_advh_hno3 = advh_ct_index_table( PARAM_advh_hno3 , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_hno3 ) = .FALSE. advh_ct_dname_table( idomain, P_advh_hno3 ) = 'advh_hno3' advh_ct_desc_table( idomain, P_advh_hno3 ) = 'ACCUMULATED TENDENCY FOR HNO3 BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_hno3 ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_hno3 )%stream(1) = 0 advh_ct_streams_table( idomain, P_advh_hno3 )%stream(2) = 2097152 F_advh_hno3 = .TRUE. IF ( advh_ct_index_table( PARAM_advh_iso , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_iso = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_iso , idomain ) = P_advh_iso ELSE P_advh_iso = advh_ct_index_table( PARAM_advh_iso , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_iso ) = .FALSE. advh_ct_dname_table( idomain, P_advh_iso ) = 'advh_iso' advh_ct_desc_table( idomain, P_advh_iso ) = 'ACCUMULATED TENDENCY FOR ISO BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_iso ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_iso )%stream(1) = 0 advh_ct_streams_table( idomain, P_advh_iso )%stream(2) = 2097152 F_advh_iso = .TRUE. IF ( advh_ct_index_table( PARAM_advh_ho , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_ho = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_ho , idomain ) = P_advh_ho ELSE P_advh_ho = advh_ct_index_table( PARAM_advh_ho , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_ho ) = .FALSE. advh_ct_dname_table( idomain, P_advh_ho ) = 'advh_ho' advh_ct_desc_table( idomain, P_advh_ho ) = 'ACCUMULATED TENDENCY FOR HO BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_ho ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_ho )%stream(1) = 0 advh_ct_streams_table( idomain, P_advh_ho )%stream(2) = 2097152 F_advh_ho = .TRUE. IF ( advh_ct_index_table( PARAM_advh_ho2 , idomain ) .lt. 1 ) THEN advh_ct_num_table(idomain) = advh_ct_num_table(idomain) + 1 P_advh_ho2 = advh_ct_num_table(idomain) advh_ct_index_table( PARAM_advh_ho2 , idomain ) = P_advh_ho2 ELSE P_advh_ho2 = advh_ct_index_table( PARAM_advh_ho2 , idomain ) END IF advh_ct_boundary_table( idomain, P_advh_ho2 ) = .FALSE. advh_ct_dname_table( idomain, P_advh_ho2 ) = 'advh_ho2' advh_ct_desc_table( idomain, P_advh_ho2 ) = 'ACCUMULATED TENDENCY FOR HO2 BY HORIZONTAL ADVECTION' advh_ct_units_table( idomain, P_advh_ho2 ) = 'ppmv' advh_ct_streams_table( idomain, P_advh_ho2 )%stream(1) = 0 advh_ct_streams_table( idomain, P_advh_ho2 )%stream(2) = 2097152 F_advh_ho2 = .TRUE. IF ( advz_ct_index_table( PARAM_advz_co , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_co = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_co , idomain ) = P_advz_co ELSE P_advz_co = advz_ct_index_table( PARAM_advz_co , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_co ) = .FALSE. advz_ct_dname_table( idomain, P_advz_co ) = 'advz_co' advz_ct_desc_table( idomain, P_advz_co ) = 'ACCUMULATED TENDENCY FOR CO BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_co ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_co )%stream(1) = 0 advz_ct_streams_table( idomain, P_advz_co )%stream(2) = 2097152 F_advz_co = .TRUE. IF ( advz_ct_index_table( PARAM_advz_o3 , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_o3 = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_o3 , idomain ) = P_advz_o3 ELSE P_advz_o3 = advz_ct_index_table( PARAM_advz_o3 , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_o3 ) = .FALSE. advz_ct_dname_table( idomain, P_advz_o3 ) = 'advz_o3' advz_ct_desc_table( idomain, P_advz_o3 ) = 'ACCUMULATED TENDENCY FOR O3 BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_o3 ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_o3 )%stream(1) = 0 advz_ct_streams_table( idomain, P_advz_o3 )%stream(2) = 2097152 F_advz_o3 = .TRUE. IF ( advz_ct_index_table( PARAM_advz_no , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_no = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_no , idomain ) = P_advz_no ELSE P_advz_no = advz_ct_index_table( PARAM_advz_no , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_no ) = .FALSE. advz_ct_dname_table( idomain, P_advz_no ) = 'advz_no' advz_ct_desc_table( idomain, P_advz_no ) = 'ACCUMULATED TENDENCY FOR NO BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_no ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_no )%stream(1) = 0 advz_ct_streams_table( idomain, P_advz_no )%stream(2) = 2097152 F_advz_no = .TRUE. IF ( advz_ct_index_table( PARAM_advz_no2 , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_no2 = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_no2 , idomain ) = P_advz_no2 ELSE P_advz_no2 = advz_ct_index_table( PARAM_advz_no2 , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_no2 ) = .FALSE. advz_ct_dname_table( idomain, P_advz_no2 ) = 'advz_no2' advz_ct_desc_table( idomain, P_advz_no2 ) = 'ACCUMULATED TENDENCY FOR NO2 BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_no2 ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_no2 )%stream(1) = 0 advz_ct_streams_table( idomain, P_advz_no2 )%stream(2) = 2097152 F_advz_no2 = .TRUE. IF ( advz_ct_index_table( PARAM_advz_hno3 , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_hno3 = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_hno3 , idomain ) = P_advz_hno3 ELSE P_advz_hno3 = advz_ct_index_table( PARAM_advz_hno3 , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_hno3 ) = .FALSE. advz_ct_dname_table( idomain, P_advz_hno3 ) = 'advz_hno3' advz_ct_desc_table( idomain, P_advz_hno3 ) = 'ACCUMULATED TENDENCY FOR HNO3 BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_hno3 ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_hno3 )%stream(1) = 0 advz_ct_streams_table( idomain, P_advz_hno3 )%stream(2) = 2097152 F_advz_hno3 = .TRUE. IF ( advz_ct_index_table( PARAM_advz_iso , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_iso = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_iso , idomain ) = P_advz_iso ELSE P_advz_iso = advz_ct_index_table( PARAM_advz_iso , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_iso ) = .FALSE. advz_ct_dname_table( idomain, P_advz_iso ) = 'advz_iso' advz_ct_desc_table( idomain, P_advz_iso ) = 'ACCUMULATED TENDENCY FOR ISO BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_iso ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_iso )%stream(1) = 0 advz_ct_streams_table( idomain, P_advz_iso )%stream(2) = 2097152 F_advz_iso = .TRUE. IF ( advz_ct_index_table( PARAM_advz_ho , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_ho = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_ho , idomain ) = P_advz_ho ELSE P_advz_ho = advz_ct_index_table( PARAM_advz_ho , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_ho ) = .FALSE. advz_ct_dname_table( idomain, P_advz_ho ) = 'advz_ho' advz_ct_desc_table( idomain, P_advz_ho ) = 'ACCUMULATED TENDENCY FOR HO BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_ho ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_ho )%stream(1) = 0 advz_ct_streams_table( idomain, P_advz_ho )%stream(2) = 2097152 F_advz_ho = .TRUE. IF ( advz_ct_index_table( PARAM_advz_ho2 , idomain ) .lt. 1 ) THEN advz_ct_num_table(idomain) = advz_ct_num_table(idomain) + 1 P_advz_ho2 = advz_ct_num_table(idomain) advz_ct_index_table( PARAM_advz_ho2 , idomain ) = P_advz_ho2 ELSE P_advz_ho2 = advz_ct_index_table( PARAM_advz_ho2 , idomain ) END IF advz_ct_boundary_table( idomain, P_advz_ho2 ) = .FALSE. advz_ct_dname_table( idomain, P_advz_ho2 ) = 'advz_ho2' advz_ct_desc_table( idomain, P_advz_ho2 ) = 'ACCUMULATED TENDENCY FOR HO2 BY VERTICAL ADVECTION' advz_ct_units_table( idomain, P_advz_ho2 ) = 'ppmv' advz_ct_streams_table( idomain, P_advz_ho2 )%stream(1) = 0 advz_ct_streams_table( idomain, P_advz_ho2 )%stream(2) = 2097152 F_advz_ho2 = .TRUE. END IF IF (model_config_rec%lnox_opt(idomain)==0)THEN END IF IF (model_config_rec%lnox_opt(idomain)==1)THEN IF ( tracer_index_table( PARAM_lnox_total , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_lnox_total = tracer_num_table(idomain) tracer_index_table( PARAM_lnox_total , idomain ) = P_lnox_total ELSE P_lnox_total = tracer_index_table( PARAM_lnox_total , idomain ) END IF tracer_boundary_table( idomain, P_lnox_total ) = .TRUE. tracer_dname_table( idomain, P_lnox_total ) = 'lnox_total' tracer_desc_table( idomain, P_lnox_total ) = 'Total LNOx tracer' tracer_units_table( idomain, P_lnox_total ) = 'ppmv' tracer_streams_table( idomain, P_lnox_total )%stream(1) = 1 tracer_streams_table( idomain, P_lnox_total )%stream(2) = 2097156 F_lnox_total = .TRUE. END IF IF (model_config_rec%lnox_opt(idomain)==2)THEN IF ( tracer_index_table( PARAM_lnox_ic , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_lnox_ic = tracer_num_table(idomain) tracer_index_table( PARAM_lnox_ic , idomain ) = P_lnox_ic ELSE P_lnox_ic = tracer_index_table( PARAM_lnox_ic , idomain ) END IF tracer_boundary_table( idomain, P_lnox_ic ) = .TRUE. tracer_dname_table( idomain, P_lnox_ic ) = 'lnox_ic' tracer_desc_table( idomain, P_lnox_ic ) = 'IC LNOx tracer' tracer_units_table( idomain, P_lnox_ic ) = 'ppmv' tracer_streams_table( idomain, P_lnox_ic )%stream(1) = 1 tracer_streams_table( idomain, P_lnox_ic )%stream(2) = 2097156 F_lnox_ic = .TRUE. IF ( tracer_index_table( PARAM_lnox_cg , idomain ) .lt. 1 ) THEN tracer_num_table(idomain) = tracer_num_table(idomain) + 1 P_lnox_cg = tracer_num_table(idomain) tracer_index_table( PARAM_lnox_cg , idomain ) = P_lnox_cg ELSE P_lnox_cg = tracer_index_table( PARAM_lnox_cg , idomain ) END IF tracer_boundary_table( idomain, P_lnox_cg ) = .TRUE. tracer_dname_table( idomain, P_lnox_cg ) = 'lnox_cg' tracer_desc_table( idomain, P_lnox_cg ) = 'CG LNOx tracer' tracer_units_table( idomain, P_lnox_cg ) = 'ppmv' tracer_streams_table( idomain, P_lnox_cg )%stream(1) = 1 tracer_streams_table( idomain, P_lnox_cg )%stream(2) = 2097156 F_lnox_cg = .TRUE. END IF IF (model_config_rec%ifire(idomain)==2)THEN END IF IF (model_config_rec%do_avgflx_em(idomain)==0)THEN END IF IF (model_config_rec%do_avgflx_em(idomain)==1)THEN END IF IF (model_config_rec%do_avgflx_cugd(idomain)==0)THEN END IF IF (model_config_rec%do_avgflx_cugd(idomain)==1)THEN END IF IF (model_config_rec%sppt_on==1)THEN END IF IF (model_config_rec%skebs_on==1)THEN END IF IF (model_config_rec%rand_perturb_on==1)THEN END IF IF (model_config_rec%spp_on==1)THEN END IF IF (model_config_rec%sfs_opt(idomain)==0)THEN END IF IF (model_config_rec%sfs_opt(idomain)==1)THEN IF ( nba_mij_index_table( PARAM_m11 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m11 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m11 , idomain ) = P_m11 ELSE P_m11 = nba_mij_index_table( PARAM_m11 , idomain ) END IF nba_mij_boundary_table( idomain, P_m11 ) = .FALSE. nba_mij_dname_table( idomain, P_m11 ) = 'm11' nba_mij_desc_table( idomain, P_m11 ) = '11 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m11 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m11 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m11 )%stream(2) = 0 F_m11 = .TRUE. IF ( nba_mij_index_table( PARAM_m22 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m22 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m22 , idomain ) = P_m22 ELSE P_m22 = nba_mij_index_table( PARAM_m22 , idomain ) END IF nba_mij_boundary_table( idomain, P_m22 ) = .FALSE. nba_mij_dname_table( idomain, P_m22 ) = 'm22' nba_mij_desc_table( idomain, P_m22 ) = '22 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m22 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m22 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m22 )%stream(2) = 0 F_m22 = .TRUE. IF ( nba_mij_index_table( PARAM_m33 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m33 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m33 , idomain ) = P_m33 ELSE P_m33 = nba_mij_index_table( PARAM_m33 , idomain ) END IF nba_mij_boundary_table( idomain, P_m33 ) = .FALSE. nba_mij_dname_table( idomain, P_m33 ) = 'm33' nba_mij_desc_table( idomain, P_m33 ) = '33 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m33 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m33 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m33 )%stream(2) = 0 F_m33 = .TRUE. IF ( nba_mij_index_table( PARAM_m12 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m12 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m12 , idomain ) = P_m12 ELSE P_m12 = nba_mij_index_table( PARAM_m12 , idomain ) END IF nba_mij_boundary_table( idomain, P_m12 ) = .FALSE. nba_mij_dname_table( idomain, P_m12 ) = 'm12' nba_mij_desc_table( idomain, P_m12 ) = '12 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m12 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m12 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m12 )%stream(2) = 0 F_m12 = .TRUE. IF ( nba_mij_index_table( PARAM_m13 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m13 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m13 , idomain ) = P_m13 ELSE P_m13 = nba_mij_index_table( PARAM_m13 , idomain ) END IF nba_mij_boundary_table( idomain, P_m13 ) = .FALSE. nba_mij_dname_table( idomain, P_m13 ) = 'm13' nba_mij_desc_table( idomain, P_m13 ) = '13 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m13 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m13 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m13 )%stream(2) = 0 F_m13 = .TRUE. IF ( nba_mij_index_table( PARAM_m23 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m23 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m23 , idomain ) = P_m23 ELSE P_m23 = nba_mij_index_table( PARAM_m23 , idomain ) END IF nba_mij_boundary_table( idomain, P_m23 ) = .FALSE. nba_mij_dname_table( idomain, P_m23 ) = 'm23' nba_mij_desc_table( idomain, P_m23 ) = '23 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m23 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m23 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m23 )%stream(2) = 0 F_m23 = .TRUE. IF ( nba_rij_index_table( PARAM_r12 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r12 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r12 , idomain ) = P_r12 ELSE P_r12 = nba_rij_index_table( PARAM_r12 , idomain ) END IF nba_rij_boundary_table( idomain, P_r12 ) = .FALSE. nba_rij_dname_table( idomain, P_r12 ) = 'r12' nba_rij_desc_table( idomain, P_r12 ) = '12 component of rotation tensor' nba_rij_units_table( idomain, P_r12 ) = 's-1' nba_rij_streams_table( idomain, P_r12 )%stream(1) = 0 nba_rij_streams_table( idomain, P_r12 )%stream(2) = 0 F_r12 = .TRUE. IF ( nba_rij_index_table( PARAM_r13 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r13 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r13 , idomain ) = P_r13 ELSE P_r13 = nba_rij_index_table( PARAM_r13 , idomain ) END IF nba_rij_boundary_table( idomain, P_r13 ) = .FALSE. nba_rij_dname_table( idomain, P_r13 ) = 'r13' nba_rij_desc_table( idomain, P_r13 ) = '13 component of rotation tensor' nba_rij_units_table( idomain, P_r13 ) = 's-1' nba_rij_streams_table( idomain, P_r13 )%stream(1) = 0 nba_rij_streams_table( idomain, P_r13 )%stream(2) = 0 F_r13 = .TRUE. IF ( nba_rij_index_table( PARAM_r23 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r23 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r23 , idomain ) = P_r23 ELSE P_r23 = nba_rij_index_table( PARAM_r23 , idomain ) END IF nba_rij_boundary_table( idomain, P_r23 ) = .FALSE. nba_rij_dname_table( idomain, P_r23 ) = 'r23' nba_rij_desc_table( idomain, P_r23 ) = '23 component of rotation tensor' nba_rij_units_table( idomain, P_r23 ) = 's-1' nba_rij_streams_table( idomain, P_r23 )%stream(1) = 0 nba_rij_streams_table( idomain, P_r23 )%stream(2) = 0 F_r23 = .TRUE. IF ( nba_rij_index_table( PARAM_smnsmn , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_smnsmn = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_smnsmn , idomain ) = P_smnsmn ELSE P_smnsmn = nba_rij_index_table( PARAM_smnsmn , idomain ) END IF nba_rij_boundary_table( idomain, P_smnsmn ) = .FALSE. nba_rij_dname_table( idomain, P_smnsmn ) = 'smnsmn' nba_rij_desc_table( idomain, P_smnsmn ) = 'Smn*Smn' nba_rij_units_table( idomain, P_smnsmn ) = 's-2' nba_rij_streams_table( idomain, P_smnsmn )%stream(1) = 0 nba_rij_streams_table( idomain, P_smnsmn )%stream(2) = 0 F_smnsmn = .TRUE. END IF IF (model_config_rec%sfs_opt(idomain)==2)THEN IF ( nba_mij_index_table( PARAM_m11 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m11 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m11 , idomain ) = P_m11 ELSE P_m11 = nba_mij_index_table( PARAM_m11 , idomain ) END IF nba_mij_boundary_table( idomain, P_m11 ) = .FALSE. nba_mij_dname_table( idomain, P_m11 ) = 'm11' nba_mij_desc_table( idomain, P_m11 ) = '11 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m11 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m11 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m11 )%stream(2) = 0 F_m11 = .TRUE. IF ( nba_mij_index_table( PARAM_m22 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m22 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m22 , idomain ) = P_m22 ELSE P_m22 = nba_mij_index_table( PARAM_m22 , idomain ) END IF nba_mij_boundary_table( idomain, P_m22 ) = .FALSE. nba_mij_dname_table( idomain, P_m22 ) = 'm22' nba_mij_desc_table( idomain, P_m22 ) = '22 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m22 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m22 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m22 )%stream(2) = 0 F_m22 = .TRUE. IF ( nba_mij_index_table( PARAM_m33 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m33 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m33 , idomain ) = P_m33 ELSE P_m33 = nba_mij_index_table( PARAM_m33 , idomain ) END IF nba_mij_boundary_table( idomain, P_m33 ) = .FALSE. nba_mij_dname_table( idomain, P_m33 ) = 'm33' nba_mij_desc_table( idomain, P_m33 ) = '33 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m33 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m33 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m33 )%stream(2) = 0 F_m33 = .TRUE. IF ( nba_mij_index_table( PARAM_m12 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m12 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m12 , idomain ) = P_m12 ELSE P_m12 = nba_mij_index_table( PARAM_m12 , idomain ) END IF nba_mij_boundary_table( idomain, P_m12 ) = .FALSE. nba_mij_dname_table( idomain, P_m12 ) = 'm12' nba_mij_desc_table( idomain, P_m12 ) = '12 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m12 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m12 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m12 )%stream(2) = 0 F_m12 = .TRUE. IF ( nba_mij_index_table( PARAM_m13 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m13 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m13 , idomain ) = P_m13 ELSE P_m13 = nba_mij_index_table( PARAM_m13 , idomain ) END IF nba_mij_boundary_table( idomain, P_m13 ) = .FALSE. nba_mij_dname_table( idomain, P_m13 ) = 'm13' nba_mij_desc_table( idomain, P_m13 ) = '13 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m13 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m13 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m13 )%stream(2) = 0 F_m13 = .TRUE. IF ( nba_mij_index_table( PARAM_m23 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m23 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m23 , idomain ) = P_m23 ELSE P_m23 = nba_mij_index_table( PARAM_m23 , idomain ) END IF nba_mij_boundary_table( idomain, P_m23 ) = .FALSE. nba_mij_dname_table( idomain, P_m23 ) = 'm23' nba_mij_desc_table( idomain, P_m23 ) = '23 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m23 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m23 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m23 )%stream(2) = 0 F_m23 = .TRUE. IF ( nba_rij_index_table( PARAM_r12 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r12 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r12 , idomain ) = P_r12 ELSE P_r12 = nba_rij_index_table( PARAM_r12 , idomain ) END IF nba_rij_boundary_table( idomain, P_r12 ) = .FALSE. nba_rij_dname_table( idomain, P_r12 ) = 'r12' nba_rij_desc_table( idomain, P_r12 ) = '12 component of rotation tensor' nba_rij_units_table( idomain, P_r12 ) = 's-1' nba_rij_streams_table( idomain, P_r12 )%stream(1) = 0 nba_rij_streams_table( idomain, P_r12 )%stream(2) = 0 F_r12 = .TRUE. IF ( nba_rij_index_table( PARAM_r13 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r13 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r13 , idomain ) = P_r13 ELSE P_r13 = nba_rij_index_table( PARAM_r13 , idomain ) END IF nba_rij_boundary_table( idomain, P_r13 ) = .FALSE. nba_rij_dname_table( idomain, P_r13 ) = 'r13' nba_rij_desc_table( idomain, P_r13 ) = '13 component of rotation tensor' nba_rij_units_table( idomain, P_r13 ) = 's-1' nba_rij_streams_table( idomain, P_r13 )%stream(1) = 0 nba_rij_streams_table( idomain, P_r13 )%stream(2) = 0 F_r13 = .TRUE. IF ( nba_rij_index_table( PARAM_r23 , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_r23 = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_r23 , idomain ) = P_r23 ELSE P_r23 = nba_rij_index_table( PARAM_r23 , idomain ) END IF nba_rij_boundary_table( idomain, P_r23 ) = .FALSE. nba_rij_dname_table( idomain, P_r23 ) = 'r23' nba_rij_desc_table( idomain, P_r23 ) = '23 component of rotation tensor' nba_rij_units_table( idomain, P_r23 ) = 's-1' nba_rij_streams_table( idomain, P_r23 )%stream(1) = 0 nba_rij_streams_table( idomain, P_r23 )%stream(2) = 0 F_r23 = .TRUE. IF ( nba_rij_index_table( PARAM_smnsmn , idomain ) .lt. 1 ) THEN nba_rij_num_table(idomain) = nba_rij_num_table(idomain) + 1 P_smnsmn = nba_rij_num_table(idomain) nba_rij_index_table( PARAM_smnsmn , idomain ) = P_smnsmn ELSE P_smnsmn = nba_rij_index_table( PARAM_smnsmn , idomain ) END IF nba_rij_boundary_table( idomain, P_smnsmn ) = .FALSE. nba_rij_dname_table( idomain, P_smnsmn ) = 'smnsmn' nba_rij_desc_table( idomain, P_smnsmn ) = 'Smn*Smn' nba_rij_units_table( idomain, P_smnsmn ) = 's-2' nba_rij_streams_table( idomain, P_smnsmn )%stream(1) = 0 nba_rij_streams_table( idomain, P_smnsmn )%stream(2) = 0 F_smnsmn = .TRUE. END IF IF (model_config_rec%m_opt(idomain)==1)THEN IF ( nba_mij_index_table( PARAM_m11 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m11 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m11 , idomain ) = P_m11 ELSE P_m11 = nba_mij_index_table( PARAM_m11 , idomain ) END IF nba_mij_boundary_table( idomain, P_m11 ) = .FALSE. nba_mij_dname_table( idomain, P_m11 ) = 'm11' nba_mij_desc_table( idomain, P_m11 ) = '11 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m11 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m11 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m11 )%stream(2) = 0 F_m11 = .TRUE. IF ( nba_mij_index_table( PARAM_m22 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m22 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m22 , idomain ) = P_m22 ELSE P_m22 = nba_mij_index_table( PARAM_m22 , idomain ) END IF nba_mij_boundary_table( idomain, P_m22 ) = .FALSE. nba_mij_dname_table( idomain, P_m22 ) = 'm22' nba_mij_desc_table( idomain, P_m22 ) = '22 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m22 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m22 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m22 )%stream(2) = 0 F_m22 = .TRUE. IF ( nba_mij_index_table( PARAM_m33 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m33 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m33 , idomain ) = P_m33 ELSE P_m33 = nba_mij_index_table( PARAM_m33 , idomain ) END IF nba_mij_boundary_table( idomain, P_m33 ) = .FALSE. nba_mij_dname_table( idomain, P_m33 ) = 'm33' nba_mij_desc_table( idomain, P_m33 ) = '33 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m33 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m33 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m33 )%stream(2) = 0 F_m33 = .TRUE. IF ( nba_mij_index_table( PARAM_m12 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m12 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m12 , idomain ) = P_m12 ELSE P_m12 = nba_mij_index_table( PARAM_m12 , idomain ) END IF nba_mij_boundary_table( idomain, P_m12 ) = .FALSE. nba_mij_dname_table( idomain, P_m12 ) = 'm12' nba_mij_desc_table( idomain, P_m12 ) = '12 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m12 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m12 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m12 )%stream(2) = 0 F_m12 = .TRUE. IF ( nba_mij_index_table( PARAM_m13 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m13 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m13 , idomain ) = P_m13 ELSE P_m13 = nba_mij_index_table( PARAM_m13 , idomain ) END IF nba_mij_boundary_table( idomain, P_m13 ) = .FALSE. nba_mij_dname_table( idomain, P_m13 ) = 'm13' nba_mij_desc_table( idomain, P_m13 ) = '13 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m13 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m13 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m13 )%stream(2) = 0 F_m13 = .TRUE. IF ( nba_mij_index_table( PARAM_m23 , idomain ) .lt. 1 ) THEN nba_mij_num_table(idomain) = nba_mij_num_table(idomain) + 1 P_m23 = nba_mij_num_table(idomain) nba_mij_index_table( PARAM_m23 , idomain ) = P_m23 ELSE P_m23 = nba_mij_index_table( PARAM_m23 , idomain ) END IF nba_mij_boundary_table( idomain, P_m23 ) = .FALSE. nba_mij_dname_table( idomain, P_m23 ) = 'm23' nba_mij_desc_table( idomain, P_m23 ) = '23 component of NBA subgrid stress tensor' nba_mij_units_table( idomain, P_m23 ) = 'm2 s-2' nba_mij_streams_table( idomain, P_m23 )%stream(1) = 1 nba_mij_streams_table( idomain, P_m23 )%stream(2) = 0 F_m23 = .TRUE. END IF IF (model_config_rec%sf_lake_physics(idomain)==0)THEN END IF IF (model_config_rec%sf_lake_physics(idomain)==1)THEN END IF IF (model_config_rec%mp_physics(idomain)==30)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( scalar_index_table( PARAM_ff1i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i01 , idomain ) = P_ff1i01 ELSE P_ff1i01 = scalar_index_table( PARAM_ff1i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i01 ) = .TRUE. scalar_dname_table( idomain, P_ff1i01 ) = 'ff1i01' scalar_desc_table( idomain, P_ff1i01 ) = 'cloud/rain bin 1' scalar_units_table( idomain, P_ff1i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i01 )%stream(2) = 2097152 F_ff1i01 = .TRUE. IF ( scalar_index_table( PARAM_ff1i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i02 , idomain ) = P_ff1i02 ELSE P_ff1i02 = scalar_index_table( PARAM_ff1i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i02 ) = .TRUE. scalar_dname_table( idomain, P_ff1i02 ) = 'ff1i02' scalar_desc_table( idomain, P_ff1i02 ) = 'cloud/rain bin 2' scalar_units_table( idomain, P_ff1i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i02 )%stream(2) = 2097152 F_ff1i02 = .TRUE. IF ( scalar_index_table( PARAM_ff1i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i03 , idomain ) = P_ff1i03 ELSE P_ff1i03 = scalar_index_table( PARAM_ff1i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i03 ) = .TRUE. scalar_dname_table( idomain, P_ff1i03 ) = 'ff1i03' scalar_desc_table( idomain, P_ff1i03 ) = 'cloud/rain bin 3' scalar_units_table( idomain, P_ff1i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i03 )%stream(2) = 2097152 F_ff1i03 = .TRUE. IF ( scalar_index_table( PARAM_ff1i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i04 , idomain ) = P_ff1i04 ELSE P_ff1i04 = scalar_index_table( PARAM_ff1i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i04 ) = .TRUE. scalar_dname_table( idomain, P_ff1i04 ) = 'ff1i04' scalar_desc_table( idomain, P_ff1i04 ) = 'cloud/rain bin 4' scalar_units_table( idomain, P_ff1i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i04 )%stream(2) = 2097152 F_ff1i04 = .TRUE. IF ( scalar_index_table( PARAM_ff1i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i05 , idomain ) = P_ff1i05 ELSE P_ff1i05 = scalar_index_table( PARAM_ff1i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i05 ) = .TRUE. scalar_dname_table( idomain, P_ff1i05 ) = 'ff1i05' scalar_desc_table( idomain, P_ff1i05 ) = 'cloud/rain bin 5' scalar_units_table( idomain, P_ff1i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i05 )%stream(2) = 2097152 F_ff1i05 = .TRUE. IF ( scalar_index_table( PARAM_ff1i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i06 , idomain ) = P_ff1i06 ELSE P_ff1i06 = scalar_index_table( PARAM_ff1i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i06 ) = .TRUE. scalar_dname_table( idomain, P_ff1i06 ) = 'ff1i06' scalar_desc_table( idomain, P_ff1i06 ) = 'cloud/rain bin 6' scalar_units_table( idomain, P_ff1i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i06 )%stream(2) = 2097152 F_ff1i06 = .TRUE. IF ( scalar_index_table( PARAM_ff1i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i07 , idomain ) = P_ff1i07 ELSE P_ff1i07 = scalar_index_table( PARAM_ff1i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i07 ) = .TRUE. scalar_dname_table( idomain, P_ff1i07 ) = 'ff1i07' scalar_desc_table( idomain, P_ff1i07 ) = 'cloud/rain bin 7' scalar_units_table( idomain, P_ff1i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i07 )%stream(2) = 2097152 F_ff1i07 = .TRUE. IF ( scalar_index_table( PARAM_ff1i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i08 , idomain ) = P_ff1i08 ELSE P_ff1i08 = scalar_index_table( PARAM_ff1i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i08 ) = .TRUE. scalar_dname_table( idomain, P_ff1i08 ) = 'ff1i08' scalar_desc_table( idomain, P_ff1i08 ) = 'cloud/rain bin 8' scalar_units_table( idomain, P_ff1i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i08 )%stream(2) = 2097152 F_ff1i08 = .TRUE. IF ( scalar_index_table( PARAM_ff1i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i09 , idomain ) = P_ff1i09 ELSE P_ff1i09 = scalar_index_table( PARAM_ff1i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i09 ) = .TRUE. scalar_dname_table( idomain, P_ff1i09 ) = 'ff1i09' scalar_desc_table( idomain, P_ff1i09 ) = 'cloud/rain bin 9' scalar_units_table( idomain, P_ff1i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i09 )%stream(2) = 2097152 F_ff1i09 = .TRUE. IF ( scalar_index_table( PARAM_ff1i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i10 , idomain ) = P_ff1i10 ELSE P_ff1i10 = scalar_index_table( PARAM_ff1i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i10 ) = .TRUE. scalar_dname_table( idomain, P_ff1i10 ) = 'ff1i10' scalar_desc_table( idomain, P_ff1i10 ) = 'cloud/rain bin 10' scalar_units_table( idomain, P_ff1i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i10 )%stream(2) = 2097152 F_ff1i10 = .TRUE. IF ( scalar_index_table( PARAM_ff1i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i11 , idomain ) = P_ff1i11 ELSE P_ff1i11 = scalar_index_table( PARAM_ff1i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i11 ) = .TRUE. scalar_dname_table( idomain, P_ff1i11 ) = 'ff1i11' scalar_desc_table( idomain, P_ff1i11 ) = 'cloud/rain bin 11' scalar_units_table( idomain, P_ff1i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i11 )%stream(2) = 2097152 F_ff1i11 = .TRUE. IF ( scalar_index_table( PARAM_ff1i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i12 , idomain ) = P_ff1i12 ELSE P_ff1i12 = scalar_index_table( PARAM_ff1i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i12 ) = .TRUE. scalar_dname_table( idomain, P_ff1i12 ) = 'ff1i12' scalar_desc_table( idomain, P_ff1i12 ) = 'cloud/rain bin 12' scalar_units_table( idomain, P_ff1i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i12 )%stream(2) = 2097152 F_ff1i12 = .TRUE. IF ( scalar_index_table( PARAM_ff1i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i13 , idomain ) = P_ff1i13 ELSE P_ff1i13 = scalar_index_table( PARAM_ff1i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i13 ) = .TRUE. scalar_dname_table( idomain, P_ff1i13 ) = 'ff1i13' scalar_desc_table( idomain, P_ff1i13 ) = 'cloud/rain bin 13' scalar_units_table( idomain, P_ff1i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i13 )%stream(2) = 2097152 F_ff1i13 = .TRUE. IF ( scalar_index_table( PARAM_ff1i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i14 , idomain ) = P_ff1i14 ELSE P_ff1i14 = scalar_index_table( PARAM_ff1i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i14 ) = .TRUE. scalar_dname_table( idomain, P_ff1i14 ) = 'ff1i14' scalar_desc_table( idomain, P_ff1i14 ) = 'cloud/rain bin 14' scalar_units_table( idomain, P_ff1i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i14 )%stream(2) = 2097152 F_ff1i14 = .TRUE. IF ( scalar_index_table( PARAM_ff1i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i15 , idomain ) = P_ff1i15 ELSE P_ff1i15 = scalar_index_table( PARAM_ff1i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i15 ) = .TRUE. scalar_dname_table( idomain, P_ff1i15 ) = 'ff1i15' scalar_desc_table( idomain, P_ff1i15 ) = 'cloud/rain bin 15' scalar_units_table( idomain, P_ff1i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i15 )%stream(2) = 2097152 F_ff1i15 = .TRUE. IF ( scalar_index_table( PARAM_ff1i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i16 , idomain ) = P_ff1i16 ELSE P_ff1i16 = scalar_index_table( PARAM_ff1i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i16 ) = .TRUE. scalar_dname_table( idomain, P_ff1i16 ) = 'ff1i16' scalar_desc_table( idomain, P_ff1i16 ) = 'cloud/rain bin 16' scalar_units_table( idomain, P_ff1i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i16 )%stream(2) = 2097152 F_ff1i16 = .TRUE. IF ( scalar_index_table( PARAM_ff1i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i17 , idomain ) = P_ff1i17 ELSE P_ff1i17 = scalar_index_table( PARAM_ff1i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i17 ) = .TRUE. scalar_dname_table( idomain, P_ff1i17 ) = 'ff1i17' scalar_desc_table( idomain, P_ff1i17 ) = 'cloud/rain bin 17' scalar_units_table( idomain, P_ff1i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i17 )%stream(2) = 2097152 F_ff1i17 = .TRUE. IF ( scalar_index_table( PARAM_ff1i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i18 , idomain ) = P_ff1i18 ELSE P_ff1i18 = scalar_index_table( PARAM_ff1i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i18 ) = .TRUE. scalar_dname_table( idomain, P_ff1i18 ) = 'ff1i18' scalar_desc_table( idomain, P_ff1i18 ) = 'cloud/rain bin 18' scalar_units_table( idomain, P_ff1i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i18 )%stream(2) = 2097152 F_ff1i18 = .TRUE. IF ( scalar_index_table( PARAM_ff1i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i19 , idomain ) = P_ff1i19 ELSE P_ff1i19 = scalar_index_table( PARAM_ff1i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i19 ) = .TRUE. scalar_dname_table( idomain, P_ff1i19 ) = 'ff1i19' scalar_desc_table( idomain, P_ff1i19 ) = 'cloud/rain bin 19' scalar_units_table( idomain, P_ff1i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i19 )%stream(2) = 2097152 F_ff1i19 = .TRUE. IF ( scalar_index_table( PARAM_ff1i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i20 , idomain ) = P_ff1i20 ELSE P_ff1i20 = scalar_index_table( PARAM_ff1i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i20 ) = .TRUE. scalar_dname_table( idomain, P_ff1i20 ) = 'ff1i20' scalar_desc_table( idomain, P_ff1i20 ) = 'cloud/rain bin 20' scalar_units_table( idomain, P_ff1i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i20 )%stream(2) = 2097152 F_ff1i20 = .TRUE. IF ( scalar_index_table( PARAM_ff1i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i21 , idomain ) = P_ff1i21 ELSE P_ff1i21 = scalar_index_table( PARAM_ff1i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i21 ) = .TRUE. scalar_dname_table( idomain, P_ff1i21 ) = 'ff1i21' scalar_desc_table( idomain, P_ff1i21 ) = 'cloud/rain bin 21' scalar_units_table( idomain, P_ff1i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i21 )%stream(2) = 2097152 F_ff1i21 = .TRUE. IF ( scalar_index_table( PARAM_ff1i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i22 , idomain ) = P_ff1i22 ELSE P_ff1i22 = scalar_index_table( PARAM_ff1i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i22 ) = .TRUE. scalar_dname_table( idomain, P_ff1i22 ) = 'ff1i22' scalar_desc_table( idomain, P_ff1i22 ) = 'cloud/rain bin 22' scalar_units_table( idomain, P_ff1i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i22 )%stream(2) = 2097152 F_ff1i22 = .TRUE. IF ( scalar_index_table( PARAM_ff1i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i23 , idomain ) = P_ff1i23 ELSE P_ff1i23 = scalar_index_table( PARAM_ff1i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i23 ) = .TRUE. scalar_dname_table( idomain, P_ff1i23 ) = 'ff1i23' scalar_desc_table( idomain, P_ff1i23 ) = 'cloud/rain bin 23' scalar_units_table( idomain, P_ff1i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i23 )%stream(2) = 2097152 F_ff1i23 = .TRUE. IF ( scalar_index_table( PARAM_ff1i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i24 , idomain ) = P_ff1i24 ELSE P_ff1i24 = scalar_index_table( PARAM_ff1i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i24 ) = .TRUE. scalar_dname_table( idomain, P_ff1i24 ) = 'ff1i24' scalar_desc_table( idomain, P_ff1i24 ) = 'cloud/rain bin 24' scalar_units_table( idomain, P_ff1i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i24 )%stream(2) = 2097152 F_ff1i24 = .TRUE. IF ( scalar_index_table( PARAM_ff1i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i25 , idomain ) = P_ff1i25 ELSE P_ff1i25 = scalar_index_table( PARAM_ff1i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i25 ) = .TRUE. scalar_dname_table( idomain, P_ff1i25 ) = 'ff1i25' scalar_desc_table( idomain, P_ff1i25 ) = 'cloud/rain bin 25' scalar_units_table( idomain, P_ff1i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i25 )%stream(2) = 2097152 F_ff1i25 = .TRUE. IF ( scalar_index_table( PARAM_ff1i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i26 , idomain ) = P_ff1i26 ELSE P_ff1i26 = scalar_index_table( PARAM_ff1i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i26 ) = .TRUE. scalar_dname_table( idomain, P_ff1i26 ) = 'ff1i26' scalar_desc_table( idomain, P_ff1i26 ) = 'cloud/rain bin 26' scalar_units_table( idomain, P_ff1i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i26 )%stream(2) = 2097152 F_ff1i26 = .TRUE. IF ( scalar_index_table( PARAM_ff1i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i27 , idomain ) = P_ff1i27 ELSE P_ff1i27 = scalar_index_table( PARAM_ff1i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i27 ) = .TRUE. scalar_dname_table( idomain, P_ff1i27 ) = 'ff1i27' scalar_desc_table( idomain, P_ff1i27 ) = 'cloud/rain bin 27' scalar_units_table( idomain, P_ff1i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i27 )%stream(2) = 2097152 F_ff1i27 = .TRUE. IF ( scalar_index_table( PARAM_ff1i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i28 , idomain ) = P_ff1i28 ELSE P_ff1i28 = scalar_index_table( PARAM_ff1i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i28 ) = .TRUE. scalar_dname_table( idomain, P_ff1i28 ) = 'ff1i28' scalar_desc_table( idomain, P_ff1i28 ) = 'cloud/rain bin 28' scalar_units_table( idomain, P_ff1i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i28 )%stream(2) = 2097152 F_ff1i28 = .TRUE. IF ( scalar_index_table( PARAM_ff1i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i29 , idomain ) = P_ff1i29 ELSE P_ff1i29 = scalar_index_table( PARAM_ff1i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i29 ) = .TRUE. scalar_dname_table( idomain, P_ff1i29 ) = 'ff1i29' scalar_desc_table( idomain, P_ff1i29 ) = 'cloud/rain bin 29' scalar_units_table( idomain, P_ff1i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i29 )%stream(2) = 2097152 F_ff1i29 = .TRUE. IF ( scalar_index_table( PARAM_ff1i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i30 , idomain ) = P_ff1i30 ELSE P_ff1i30 = scalar_index_table( PARAM_ff1i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i30 ) = .TRUE. scalar_dname_table( idomain, P_ff1i30 ) = 'ff1i30' scalar_desc_table( idomain, P_ff1i30 ) = 'cloud/rain bin 30' scalar_units_table( idomain, P_ff1i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i30 )%stream(2) = 2097152 F_ff1i30 = .TRUE. IF ( scalar_index_table( PARAM_ff1i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i31 , idomain ) = P_ff1i31 ELSE P_ff1i31 = scalar_index_table( PARAM_ff1i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i31 ) = .TRUE. scalar_dname_table( idomain, P_ff1i31 ) = 'ff1i31' scalar_desc_table( idomain, P_ff1i31 ) = 'cloud/rain bin 31' scalar_units_table( idomain, P_ff1i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i31 )%stream(2) = 2097152 F_ff1i31 = .TRUE. IF ( scalar_index_table( PARAM_ff1i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i32 , idomain ) = P_ff1i32 ELSE P_ff1i32 = scalar_index_table( PARAM_ff1i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i32 ) = .TRUE. scalar_dname_table( idomain, P_ff1i32 ) = 'ff1i32' scalar_desc_table( idomain, P_ff1i32 ) = 'cloud/rain bin 32' scalar_units_table( idomain, P_ff1i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i32 )%stream(2) = 2097152 F_ff1i32 = .TRUE. IF ( scalar_index_table( PARAM_ff1i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i33 , idomain ) = P_ff1i33 ELSE P_ff1i33 = scalar_index_table( PARAM_ff1i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i33 ) = .TRUE. scalar_dname_table( idomain, P_ff1i33 ) = 'ff1i33' scalar_desc_table( idomain, P_ff1i33 ) = 'cloud/rain bin 33' scalar_units_table( idomain, P_ff1i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i33 )%stream(2) = 2097152 F_ff1i33 = .TRUE. IF ( scalar_index_table( PARAM_ff5i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i01 , idomain ) = P_ff5i01 ELSE P_ff5i01 = scalar_index_table( PARAM_ff5i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i01 ) = .TRUE. scalar_dname_table( idomain, P_ff5i01 ) = 'ff5i01' scalar_desc_table( idomain, P_ff5i01 ) = 'snow bin 1' scalar_units_table( idomain, P_ff5i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i01 )%stream(2) = 2097152 F_ff5i01 = .TRUE. IF ( scalar_index_table( PARAM_ff5i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i02 , idomain ) = P_ff5i02 ELSE P_ff5i02 = scalar_index_table( PARAM_ff5i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i02 ) = .TRUE. scalar_dname_table( idomain, P_ff5i02 ) = 'ff5i02' scalar_desc_table( idomain, P_ff5i02 ) = 'snow bin 2' scalar_units_table( idomain, P_ff5i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i02 )%stream(2) = 2097152 F_ff5i02 = .TRUE. IF ( scalar_index_table( PARAM_ff5i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i03 , idomain ) = P_ff5i03 ELSE P_ff5i03 = scalar_index_table( PARAM_ff5i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i03 ) = .TRUE. scalar_dname_table( idomain, P_ff5i03 ) = 'ff5i03' scalar_desc_table( idomain, P_ff5i03 ) = 'snow bin 3' scalar_units_table( idomain, P_ff5i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i03 )%stream(2) = 2097152 F_ff5i03 = .TRUE. IF ( scalar_index_table( PARAM_ff5i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i04 , idomain ) = P_ff5i04 ELSE P_ff5i04 = scalar_index_table( PARAM_ff5i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i04 ) = .TRUE. scalar_dname_table( idomain, P_ff5i04 ) = 'ff5i04' scalar_desc_table( idomain, P_ff5i04 ) = 'snow bin 4' scalar_units_table( idomain, P_ff5i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i04 )%stream(2) = 2097152 F_ff5i04 = .TRUE. IF ( scalar_index_table( PARAM_ff5i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i05 , idomain ) = P_ff5i05 ELSE P_ff5i05 = scalar_index_table( PARAM_ff5i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i05 ) = .TRUE. scalar_dname_table( idomain, P_ff5i05 ) = 'ff5i05' scalar_desc_table( idomain, P_ff5i05 ) = 'snow bin 5' scalar_units_table( idomain, P_ff5i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i05 )%stream(2) = 2097152 F_ff5i05 = .TRUE. IF ( scalar_index_table( PARAM_ff5i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i06 , idomain ) = P_ff5i06 ELSE P_ff5i06 = scalar_index_table( PARAM_ff5i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i06 ) = .TRUE. scalar_dname_table( idomain, P_ff5i06 ) = 'ff5i06' scalar_desc_table( idomain, P_ff5i06 ) = 'snow bin 6' scalar_units_table( idomain, P_ff5i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i06 )%stream(2) = 2097152 F_ff5i06 = .TRUE. IF ( scalar_index_table( PARAM_ff5i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i07 , idomain ) = P_ff5i07 ELSE P_ff5i07 = scalar_index_table( PARAM_ff5i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i07 ) = .TRUE. scalar_dname_table( idomain, P_ff5i07 ) = 'ff5i07' scalar_desc_table( idomain, P_ff5i07 ) = 'snow bin 7' scalar_units_table( idomain, P_ff5i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i07 )%stream(2) = 2097152 F_ff5i07 = .TRUE. IF ( scalar_index_table( PARAM_ff5i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i08 , idomain ) = P_ff5i08 ELSE P_ff5i08 = scalar_index_table( PARAM_ff5i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i08 ) = .TRUE. scalar_dname_table( idomain, P_ff5i08 ) = 'ff5i08' scalar_desc_table( idomain, P_ff5i08 ) = 'snow bin 8' scalar_units_table( idomain, P_ff5i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i08 )%stream(2) = 2097152 F_ff5i08 = .TRUE. IF ( scalar_index_table( PARAM_ff5i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i09 , idomain ) = P_ff5i09 ELSE P_ff5i09 = scalar_index_table( PARAM_ff5i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i09 ) = .TRUE. scalar_dname_table( idomain, P_ff5i09 ) = 'ff5i09' scalar_desc_table( idomain, P_ff5i09 ) = 'snow bin 9' scalar_units_table( idomain, P_ff5i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i09 )%stream(2) = 2097152 F_ff5i09 = .TRUE. IF ( scalar_index_table( PARAM_ff5i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i10 , idomain ) = P_ff5i10 ELSE P_ff5i10 = scalar_index_table( PARAM_ff5i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i10 ) = .TRUE. scalar_dname_table( idomain, P_ff5i10 ) = 'ff5i10' scalar_desc_table( idomain, P_ff5i10 ) = 'snow bin 10' scalar_units_table( idomain, P_ff5i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i10 )%stream(2) = 2097152 F_ff5i10 = .TRUE. IF ( scalar_index_table( PARAM_ff5i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i11 , idomain ) = P_ff5i11 ELSE P_ff5i11 = scalar_index_table( PARAM_ff5i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i11 ) = .TRUE. scalar_dname_table( idomain, P_ff5i11 ) = 'ff5i11' scalar_desc_table( idomain, P_ff5i11 ) = 'snow bin 11' scalar_units_table( idomain, P_ff5i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i11 )%stream(2) = 2097152 F_ff5i11 = .TRUE. IF ( scalar_index_table( PARAM_ff5i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i12 , idomain ) = P_ff5i12 ELSE P_ff5i12 = scalar_index_table( PARAM_ff5i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i12 ) = .TRUE. scalar_dname_table( idomain, P_ff5i12 ) = 'ff5i12' scalar_desc_table( idomain, P_ff5i12 ) = 'snow bin 12' scalar_units_table( idomain, P_ff5i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i12 )%stream(2) = 2097152 F_ff5i12 = .TRUE. IF ( scalar_index_table( PARAM_ff5i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i13 , idomain ) = P_ff5i13 ELSE P_ff5i13 = scalar_index_table( PARAM_ff5i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i13 ) = .TRUE. scalar_dname_table( idomain, P_ff5i13 ) = 'ff5i13' scalar_desc_table( idomain, P_ff5i13 ) = 'snow bin 13' scalar_units_table( idomain, P_ff5i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i13 )%stream(2) = 2097152 F_ff5i13 = .TRUE. IF ( scalar_index_table( PARAM_ff5i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i14 , idomain ) = P_ff5i14 ELSE P_ff5i14 = scalar_index_table( PARAM_ff5i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i14 ) = .TRUE. scalar_dname_table( idomain, P_ff5i14 ) = 'ff5i14' scalar_desc_table( idomain, P_ff5i14 ) = 'snow bin 14' scalar_units_table( idomain, P_ff5i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i14 )%stream(2) = 2097152 F_ff5i14 = .TRUE. IF ( scalar_index_table( PARAM_ff5i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i15 , idomain ) = P_ff5i15 ELSE P_ff5i15 = scalar_index_table( PARAM_ff5i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i15 ) = .TRUE. scalar_dname_table( idomain, P_ff5i15 ) = 'ff5i15' scalar_desc_table( idomain, P_ff5i15 ) = 'snow bin 15' scalar_units_table( idomain, P_ff5i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i15 )%stream(2) = 2097152 F_ff5i15 = .TRUE. IF ( scalar_index_table( PARAM_ff5i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i16 , idomain ) = P_ff5i16 ELSE P_ff5i16 = scalar_index_table( PARAM_ff5i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i16 ) = .TRUE. scalar_dname_table( idomain, P_ff5i16 ) = 'ff5i16' scalar_desc_table( idomain, P_ff5i16 ) = 'snow bin 16' scalar_units_table( idomain, P_ff5i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i16 )%stream(2) = 2097152 F_ff5i16 = .TRUE. IF ( scalar_index_table( PARAM_ff5i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i17 , idomain ) = P_ff5i17 ELSE P_ff5i17 = scalar_index_table( PARAM_ff5i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i17 ) = .TRUE. scalar_dname_table( idomain, P_ff5i17 ) = 'ff5i17' scalar_desc_table( idomain, P_ff5i17 ) = 'snow bin 17' scalar_units_table( idomain, P_ff5i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i17 )%stream(2) = 2097152 F_ff5i17 = .TRUE. IF ( scalar_index_table( PARAM_ff5i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i18 , idomain ) = P_ff5i18 ELSE P_ff5i18 = scalar_index_table( PARAM_ff5i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i18 ) = .TRUE. scalar_dname_table( idomain, P_ff5i18 ) = 'ff5i18' scalar_desc_table( idomain, P_ff5i18 ) = 'snow bin 18' scalar_units_table( idomain, P_ff5i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i18 )%stream(2) = 2097152 F_ff5i18 = .TRUE. IF ( scalar_index_table( PARAM_ff5i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i19 , idomain ) = P_ff5i19 ELSE P_ff5i19 = scalar_index_table( PARAM_ff5i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i19 ) = .TRUE. scalar_dname_table( idomain, P_ff5i19 ) = 'ff5i19' scalar_desc_table( idomain, P_ff5i19 ) = 'snow bin 19' scalar_units_table( idomain, P_ff5i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i19 )%stream(2) = 2097152 F_ff5i19 = .TRUE. IF ( scalar_index_table( PARAM_ff5i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i20 , idomain ) = P_ff5i20 ELSE P_ff5i20 = scalar_index_table( PARAM_ff5i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i20 ) = .TRUE. scalar_dname_table( idomain, P_ff5i20 ) = 'ff5i20' scalar_desc_table( idomain, P_ff5i20 ) = 'snow bin 20' scalar_units_table( idomain, P_ff5i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i20 )%stream(2) = 2097152 F_ff5i20 = .TRUE. IF ( scalar_index_table( PARAM_ff5i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i21 , idomain ) = P_ff5i21 ELSE P_ff5i21 = scalar_index_table( PARAM_ff5i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i21 ) = .TRUE. scalar_dname_table( idomain, P_ff5i21 ) = 'ff5i21' scalar_desc_table( idomain, P_ff5i21 ) = 'snow bin 21' scalar_units_table( idomain, P_ff5i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i21 )%stream(2) = 2097152 F_ff5i21 = .TRUE. IF ( scalar_index_table( PARAM_ff5i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i22 , idomain ) = P_ff5i22 ELSE P_ff5i22 = scalar_index_table( PARAM_ff5i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i22 ) = .TRUE. scalar_dname_table( idomain, P_ff5i22 ) = 'ff5i22' scalar_desc_table( idomain, P_ff5i22 ) = 'snow bin 22' scalar_units_table( idomain, P_ff5i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i22 )%stream(2) = 2097152 F_ff5i22 = .TRUE. IF ( scalar_index_table( PARAM_ff5i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i23 , idomain ) = P_ff5i23 ELSE P_ff5i23 = scalar_index_table( PARAM_ff5i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i23 ) = .TRUE. scalar_dname_table( idomain, P_ff5i23 ) = 'ff5i23' scalar_desc_table( idomain, P_ff5i23 ) = 'snow bin 23' scalar_units_table( idomain, P_ff5i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i23 )%stream(2) = 2097152 F_ff5i23 = .TRUE. IF ( scalar_index_table( PARAM_ff5i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i24 , idomain ) = P_ff5i24 ELSE P_ff5i24 = scalar_index_table( PARAM_ff5i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i24 ) = .TRUE. scalar_dname_table( idomain, P_ff5i24 ) = 'ff5i24' scalar_desc_table( idomain, P_ff5i24 ) = 'snow bin 24' scalar_units_table( idomain, P_ff5i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i24 )%stream(2) = 2097152 F_ff5i24 = .TRUE. IF ( scalar_index_table( PARAM_ff5i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i25 , idomain ) = P_ff5i25 ELSE P_ff5i25 = scalar_index_table( PARAM_ff5i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i25 ) = .TRUE. scalar_dname_table( idomain, P_ff5i25 ) = 'ff5i25' scalar_desc_table( idomain, P_ff5i25 ) = 'snow bin 25' scalar_units_table( idomain, P_ff5i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i25 )%stream(2) = 2097152 F_ff5i25 = .TRUE. IF ( scalar_index_table( PARAM_ff5i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i26 , idomain ) = P_ff5i26 ELSE P_ff5i26 = scalar_index_table( PARAM_ff5i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i26 ) = .TRUE. scalar_dname_table( idomain, P_ff5i26 ) = 'ff5i26' scalar_desc_table( idomain, P_ff5i26 ) = 'snow bin 26' scalar_units_table( idomain, P_ff5i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i26 )%stream(2) = 2097152 F_ff5i26 = .TRUE. IF ( scalar_index_table( PARAM_ff5i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i27 , idomain ) = P_ff5i27 ELSE P_ff5i27 = scalar_index_table( PARAM_ff5i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i27 ) = .TRUE. scalar_dname_table( idomain, P_ff5i27 ) = 'ff5i27' scalar_desc_table( idomain, P_ff5i27 ) = 'snow bin 27' scalar_units_table( idomain, P_ff5i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i27 )%stream(2) = 2097152 F_ff5i27 = .TRUE. IF ( scalar_index_table( PARAM_ff5i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i28 , idomain ) = P_ff5i28 ELSE P_ff5i28 = scalar_index_table( PARAM_ff5i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i28 ) = .TRUE. scalar_dname_table( idomain, P_ff5i28 ) = 'ff5i28' scalar_desc_table( idomain, P_ff5i28 ) = 'snow bin 28' scalar_units_table( idomain, P_ff5i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i28 )%stream(2) = 2097152 F_ff5i28 = .TRUE. IF ( scalar_index_table( PARAM_ff5i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i29 , idomain ) = P_ff5i29 ELSE P_ff5i29 = scalar_index_table( PARAM_ff5i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i29 ) = .TRUE. scalar_dname_table( idomain, P_ff5i29 ) = 'ff5i29' scalar_desc_table( idomain, P_ff5i29 ) = 'snow bin 29' scalar_units_table( idomain, P_ff5i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i29 )%stream(2) = 2097152 F_ff5i29 = .TRUE. IF ( scalar_index_table( PARAM_ff5i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i30 , idomain ) = P_ff5i30 ELSE P_ff5i30 = scalar_index_table( PARAM_ff5i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i30 ) = .TRUE. scalar_dname_table( idomain, P_ff5i30 ) = 'ff5i30' scalar_desc_table( idomain, P_ff5i30 ) = 'snow bin 30' scalar_units_table( idomain, P_ff5i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i30 )%stream(2) = 2097152 F_ff5i30 = .TRUE. IF ( scalar_index_table( PARAM_ff5i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i31 , idomain ) = P_ff5i31 ELSE P_ff5i31 = scalar_index_table( PARAM_ff5i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i31 ) = .TRUE. scalar_dname_table( idomain, P_ff5i31 ) = 'ff5i31' scalar_desc_table( idomain, P_ff5i31 ) = 'snow bin 31' scalar_units_table( idomain, P_ff5i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i31 )%stream(2) = 2097152 F_ff5i31 = .TRUE. IF ( scalar_index_table( PARAM_ff5i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i32 , idomain ) = P_ff5i32 ELSE P_ff5i32 = scalar_index_table( PARAM_ff5i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i32 ) = .TRUE. scalar_dname_table( idomain, P_ff5i32 ) = 'ff5i32' scalar_desc_table( idomain, P_ff5i32 ) = 'snow bin 32' scalar_units_table( idomain, P_ff5i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i32 )%stream(2) = 2097152 F_ff5i32 = .TRUE. IF ( scalar_index_table( PARAM_ff5i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i33 , idomain ) = P_ff5i33 ELSE P_ff5i33 = scalar_index_table( PARAM_ff5i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i33 ) = .TRUE. scalar_dname_table( idomain, P_ff5i33 ) = 'ff5i33' scalar_desc_table( idomain, P_ff5i33 ) = 'snow bin 33' scalar_units_table( idomain, P_ff5i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i33 )%stream(2) = 2097152 F_ff5i33 = .TRUE. IF ( scalar_index_table( PARAM_ff6i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i01 , idomain ) = P_ff6i01 ELSE P_ff6i01 = scalar_index_table( PARAM_ff6i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i01 ) = .TRUE. scalar_dname_table( idomain, P_ff6i01 ) = 'ff6i01' scalar_desc_table( idomain, P_ff6i01 ) = 'graupel bin 1' scalar_units_table( idomain, P_ff6i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i01 )%stream(2) = 2097152 F_ff6i01 = .TRUE. IF ( scalar_index_table( PARAM_ff6i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i02 , idomain ) = P_ff6i02 ELSE P_ff6i02 = scalar_index_table( PARAM_ff6i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i02 ) = .TRUE. scalar_dname_table( idomain, P_ff6i02 ) = 'ff6i02' scalar_desc_table( idomain, P_ff6i02 ) = 'graupel bin 2' scalar_units_table( idomain, P_ff6i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i02 )%stream(2) = 2097152 F_ff6i02 = .TRUE. IF ( scalar_index_table( PARAM_ff6i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i03 , idomain ) = P_ff6i03 ELSE P_ff6i03 = scalar_index_table( PARAM_ff6i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i03 ) = .TRUE. scalar_dname_table( idomain, P_ff6i03 ) = 'ff6i03' scalar_desc_table( idomain, P_ff6i03 ) = 'graupel bin 3' scalar_units_table( idomain, P_ff6i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i03 )%stream(2) = 2097152 F_ff6i03 = .TRUE. IF ( scalar_index_table( PARAM_ff6i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i04 , idomain ) = P_ff6i04 ELSE P_ff6i04 = scalar_index_table( PARAM_ff6i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i04 ) = .TRUE. scalar_dname_table( idomain, P_ff6i04 ) = 'ff6i04' scalar_desc_table( idomain, P_ff6i04 ) = 'graupel bin 4' scalar_units_table( idomain, P_ff6i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i04 )%stream(2) = 2097152 F_ff6i04 = .TRUE. IF ( scalar_index_table( PARAM_ff6i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i05 , idomain ) = P_ff6i05 ELSE P_ff6i05 = scalar_index_table( PARAM_ff6i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i05 ) = .TRUE. scalar_dname_table( idomain, P_ff6i05 ) = 'ff6i05' scalar_desc_table( idomain, P_ff6i05 ) = 'graupel bin 5' scalar_units_table( idomain, P_ff6i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i05 )%stream(2) = 2097152 F_ff6i05 = .TRUE. IF ( scalar_index_table( PARAM_ff6i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i06 , idomain ) = P_ff6i06 ELSE P_ff6i06 = scalar_index_table( PARAM_ff6i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i06 ) = .TRUE. scalar_dname_table( idomain, P_ff6i06 ) = 'ff6i06' scalar_desc_table( idomain, P_ff6i06 ) = 'graupel bin 6' scalar_units_table( idomain, P_ff6i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i06 )%stream(2) = 2097152 F_ff6i06 = .TRUE. IF ( scalar_index_table( PARAM_ff6i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i07 , idomain ) = P_ff6i07 ELSE P_ff6i07 = scalar_index_table( PARAM_ff6i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i07 ) = .TRUE. scalar_dname_table( idomain, P_ff6i07 ) = 'ff6i07' scalar_desc_table( idomain, P_ff6i07 ) = 'graupel bin 7' scalar_units_table( idomain, P_ff6i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i07 )%stream(2) = 2097152 F_ff6i07 = .TRUE. IF ( scalar_index_table( PARAM_ff6i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i08 , idomain ) = P_ff6i08 ELSE P_ff6i08 = scalar_index_table( PARAM_ff6i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i08 ) = .TRUE. scalar_dname_table( idomain, P_ff6i08 ) = 'ff6i08' scalar_desc_table( idomain, P_ff6i08 ) = 'graupel bin 8' scalar_units_table( idomain, P_ff6i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i08 )%stream(2) = 2097152 F_ff6i08 = .TRUE. IF ( scalar_index_table( PARAM_ff6i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i09 , idomain ) = P_ff6i09 ELSE P_ff6i09 = scalar_index_table( PARAM_ff6i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i09 ) = .TRUE. scalar_dname_table( idomain, P_ff6i09 ) = 'ff6i09' scalar_desc_table( idomain, P_ff6i09 ) = 'graupel bin 9' scalar_units_table( idomain, P_ff6i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i09 )%stream(2) = 2097152 F_ff6i09 = .TRUE. IF ( scalar_index_table( PARAM_ff6i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i10 , idomain ) = P_ff6i10 ELSE P_ff6i10 = scalar_index_table( PARAM_ff6i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i10 ) = .TRUE. scalar_dname_table( idomain, P_ff6i10 ) = 'ff6i10' scalar_desc_table( idomain, P_ff6i10 ) = 'graupel bin 10' scalar_units_table( idomain, P_ff6i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i10 )%stream(2) = 2097152 F_ff6i10 = .TRUE. IF ( scalar_index_table( PARAM_ff6i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i11 , idomain ) = P_ff6i11 ELSE P_ff6i11 = scalar_index_table( PARAM_ff6i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i11 ) = .TRUE. scalar_dname_table( idomain, P_ff6i11 ) = 'ff6i11' scalar_desc_table( idomain, P_ff6i11 ) = 'graupel bin 11' scalar_units_table( idomain, P_ff6i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i11 )%stream(2) = 2097152 F_ff6i11 = .TRUE. IF ( scalar_index_table( PARAM_ff6i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i12 , idomain ) = P_ff6i12 ELSE P_ff6i12 = scalar_index_table( PARAM_ff6i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i12 ) = .TRUE. scalar_dname_table( idomain, P_ff6i12 ) = 'ff6i12' scalar_desc_table( idomain, P_ff6i12 ) = 'graupel bin 12' scalar_units_table( idomain, P_ff6i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i12 )%stream(2) = 2097152 F_ff6i12 = .TRUE. IF ( scalar_index_table( PARAM_ff6i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i13 , idomain ) = P_ff6i13 ELSE P_ff6i13 = scalar_index_table( PARAM_ff6i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i13 ) = .TRUE. scalar_dname_table( idomain, P_ff6i13 ) = 'ff6i13' scalar_desc_table( idomain, P_ff6i13 ) = 'graupel bin 13' scalar_units_table( idomain, P_ff6i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i13 )%stream(2) = 2097152 F_ff6i13 = .TRUE. IF ( scalar_index_table( PARAM_ff6i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i14 , idomain ) = P_ff6i14 ELSE P_ff6i14 = scalar_index_table( PARAM_ff6i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i14 ) = .TRUE. scalar_dname_table( idomain, P_ff6i14 ) = 'ff6i14' scalar_desc_table( idomain, P_ff6i14 ) = 'graupel bin 14' scalar_units_table( idomain, P_ff6i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i14 )%stream(2) = 2097152 F_ff6i14 = .TRUE. IF ( scalar_index_table( PARAM_ff6i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i15 , idomain ) = P_ff6i15 ELSE P_ff6i15 = scalar_index_table( PARAM_ff6i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i15 ) = .TRUE. scalar_dname_table( idomain, P_ff6i15 ) = 'ff6i15' scalar_desc_table( idomain, P_ff6i15 ) = 'graupel bin 15' scalar_units_table( idomain, P_ff6i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i15 )%stream(2) = 2097152 F_ff6i15 = .TRUE. IF ( scalar_index_table( PARAM_ff6i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i16 , idomain ) = P_ff6i16 ELSE P_ff6i16 = scalar_index_table( PARAM_ff6i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i16 ) = .TRUE. scalar_dname_table( idomain, P_ff6i16 ) = 'ff6i16' scalar_desc_table( idomain, P_ff6i16 ) = 'graupel bin 16' scalar_units_table( idomain, P_ff6i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i16 )%stream(2) = 2097152 F_ff6i16 = .TRUE. IF ( scalar_index_table( PARAM_ff6i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i17 , idomain ) = P_ff6i17 ELSE P_ff6i17 = scalar_index_table( PARAM_ff6i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i17 ) = .TRUE. scalar_dname_table( idomain, P_ff6i17 ) = 'ff6i17' scalar_desc_table( idomain, P_ff6i17 ) = 'graupel bin 17' scalar_units_table( idomain, P_ff6i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i17 )%stream(2) = 2097152 F_ff6i17 = .TRUE. IF ( scalar_index_table( PARAM_ff6i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i18 , idomain ) = P_ff6i18 ELSE P_ff6i18 = scalar_index_table( PARAM_ff6i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i18 ) = .TRUE. scalar_dname_table( idomain, P_ff6i18 ) = 'ff6i18' scalar_desc_table( idomain, P_ff6i18 ) = 'graupel bin 18' scalar_units_table( idomain, P_ff6i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i18 )%stream(2) = 2097152 F_ff6i18 = .TRUE. IF ( scalar_index_table( PARAM_ff6i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i19 , idomain ) = P_ff6i19 ELSE P_ff6i19 = scalar_index_table( PARAM_ff6i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i19 ) = .TRUE. scalar_dname_table( idomain, P_ff6i19 ) = 'ff6i19' scalar_desc_table( idomain, P_ff6i19 ) = 'graupel bin 19' scalar_units_table( idomain, P_ff6i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i19 )%stream(2) = 2097152 F_ff6i19 = .TRUE. IF ( scalar_index_table( PARAM_ff6i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i20 , idomain ) = P_ff6i20 ELSE P_ff6i20 = scalar_index_table( PARAM_ff6i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i20 ) = .TRUE. scalar_dname_table( idomain, P_ff6i20 ) = 'ff6i20' scalar_desc_table( idomain, P_ff6i20 ) = 'graupel bin 20' scalar_units_table( idomain, P_ff6i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i20 )%stream(2) = 2097152 F_ff6i20 = .TRUE. IF ( scalar_index_table( PARAM_ff6i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i21 , idomain ) = P_ff6i21 ELSE P_ff6i21 = scalar_index_table( PARAM_ff6i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i21 ) = .TRUE. scalar_dname_table( idomain, P_ff6i21 ) = 'ff6i21' scalar_desc_table( idomain, P_ff6i21 ) = 'graupel bin 21' scalar_units_table( idomain, P_ff6i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i21 )%stream(2) = 2097152 F_ff6i21 = .TRUE. IF ( scalar_index_table( PARAM_ff6i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i22 , idomain ) = P_ff6i22 ELSE P_ff6i22 = scalar_index_table( PARAM_ff6i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i22 ) = .TRUE. scalar_dname_table( idomain, P_ff6i22 ) = 'ff6i22' scalar_desc_table( idomain, P_ff6i22 ) = 'graupel bin 22' scalar_units_table( idomain, P_ff6i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i22 )%stream(2) = 2097152 F_ff6i22 = .TRUE. IF ( scalar_index_table( PARAM_ff6i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i23 , idomain ) = P_ff6i23 ELSE P_ff6i23 = scalar_index_table( PARAM_ff6i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i23 ) = .TRUE. scalar_dname_table( idomain, P_ff6i23 ) = 'ff6i23' scalar_desc_table( idomain, P_ff6i23 ) = 'graupel bin 23' scalar_units_table( idomain, P_ff6i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i23 )%stream(2) = 2097152 F_ff6i23 = .TRUE. IF ( scalar_index_table( PARAM_ff6i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i24 , idomain ) = P_ff6i24 ELSE P_ff6i24 = scalar_index_table( PARAM_ff6i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i24 ) = .TRUE. scalar_dname_table( idomain, P_ff6i24 ) = 'ff6i24' scalar_desc_table( idomain, P_ff6i24 ) = 'graupel bin 24' scalar_units_table( idomain, P_ff6i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i24 )%stream(2) = 2097152 F_ff6i24 = .TRUE. IF ( scalar_index_table( PARAM_ff6i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i25 , idomain ) = P_ff6i25 ELSE P_ff6i25 = scalar_index_table( PARAM_ff6i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i25 ) = .TRUE. scalar_dname_table( idomain, P_ff6i25 ) = 'ff6i25' scalar_desc_table( idomain, P_ff6i25 ) = 'graupel bin 25' scalar_units_table( idomain, P_ff6i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i25 )%stream(2) = 2097152 F_ff6i25 = .TRUE. IF ( scalar_index_table( PARAM_ff6i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i26 , idomain ) = P_ff6i26 ELSE P_ff6i26 = scalar_index_table( PARAM_ff6i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i26 ) = .TRUE. scalar_dname_table( idomain, P_ff6i26 ) = 'ff6i26' scalar_desc_table( idomain, P_ff6i26 ) = 'graupel bin 26' scalar_units_table( idomain, P_ff6i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i26 )%stream(2) = 2097152 F_ff6i26 = .TRUE. IF ( scalar_index_table( PARAM_ff6i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i27 , idomain ) = P_ff6i27 ELSE P_ff6i27 = scalar_index_table( PARAM_ff6i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i27 ) = .TRUE. scalar_dname_table( idomain, P_ff6i27 ) = 'ff6i27' scalar_desc_table( idomain, P_ff6i27 ) = 'graupel bin 27' scalar_units_table( idomain, P_ff6i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i27 )%stream(2) = 2097152 F_ff6i27 = .TRUE. IF ( scalar_index_table( PARAM_ff6i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i28 , idomain ) = P_ff6i28 ELSE P_ff6i28 = scalar_index_table( PARAM_ff6i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i28 ) = .TRUE. scalar_dname_table( idomain, P_ff6i28 ) = 'ff6i28' scalar_desc_table( idomain, P_ff6i28 ) = 'graupel bin 28' scalar_units_table( idomain, P_ff6i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i28 )%stream(2) = 2097152 F_ff6i28 = .TRUE. IF ( scalar_index_table( PARAM_ff6i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i29 , idomain ) = P_ff6i29 ELSE P_ff6i29 = scalar_index_table( PARAM_ff6i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i29 ) = .TRUE. scalar_dname_table( idomain, P_ff6i29 ) = 'ff6i29' scalar_desc_table( idomain, P_ff6i29 ) = 'graupel bin 29' scalar_units_table( idomain, P_ff6i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i29 )%stream(2) = 2097152 F_ff6i29 = .TRUE. IF ( scalar_index_table( PARAM_ff6i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i30 , idomain ) = P_ff6i30 ELSE P_ff6i30 = scalar_index_table( PARAM_ff6i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i30 ) = .TRUE. scalar_dname_table( idomain, P_ff6i30 ) = 'ff6i30' scalar_desc_table( idomain, P_ff6i30 ) = 'graupel bin 30' scalar_units_table( idomain, P_ff6i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i30 )%stream(2) = 2097152 F_ff6i30 = .TRUE. IF ( scalar_index_table( PARAM_ff6i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i31 , idomain ) = P_ff6i31 ELSE P_ff6i31 = scalar_index_table( PARAM_ff6i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i31 ) = .TRUE. scalar_dname_table( idomain, P_ff6i31 ) = 'ff6i31' scalar_desc_table( idomain, P_ff6i31 ) = 'graupel bin 31' scalar_units_table( idomain, P_ff6i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i31 )%stream(2) = 2097152 F_ff6i31 = .TRUE. IF ( scalar_index_table( PARAM_ff6i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i32 , idomain ) = P_ff6i32 ELSE P_ff6i32 = scalar_index_table( PARAM_ff6i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i32 ) = .TRUE. scalar_dname_table( idomain, P_ff6i32 ) = 'ff6i32' scalar_desc_table( idomain, P_ff6i32 ) = 'graupel bin 32' scalar_units_table( idomain, P_ff6i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i32 )%stream(2) = 2097152 F_ff6i32 = .TRUE. IF ( scalar_index_table( PARAM_ff6i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i33 , idomain ) = P_ff6i33 ELSE P_ff6i33 = scalar_index_table( PARAM_ff6i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i33 ) = .TRUE. scalar_dname_table( idomain, P_ff6i33 ) = 'ff6i33' scalar_desc_table( idomain, P_ff6i33 ) = 'graupel bin 33' scalar_units_table( idomain, P_ff6i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i33 )%stream(2) = 2097152 F_ff6i33 = .TRUE. IF ( scalar_index_table( PARAM_ff8i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i01 , idomain ) = P_ff8i01 ELSE P_ff8i01 = scalar_index_table( PARAM_ff8i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i01 ) = .TRUE. scalar_dname_table( idomain, P_ff8i01 ) = 'ff8i01' scalar_desc_table( idomain, P_ff8i01 ) = 'aerosols bin 1' scalar_units_table( idomain, P_ff8i01 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i01 )%stream(2) = 2097152 F_ff8i01 = .TRUE. IF ( scalar_index_table( PARAM_ff8i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i02 , idomain ) = P_ff8i02 ELSE P_ff8i02 = scalar_index_table( PARAM_ff8i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i02 ) = .TRUE. scalar_dname_table( idomain, P_ff8i02 ) = 'ff8i02' scalar_desc_table( idomain, P_ff8i02 ) = 'aerosols bin 2' scalar_units_table( idomain, P_ff8i02 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i02 )%stream(2) = 2097152 F_ff8i02 = .TRUE. IF ( scalar_index_table( PARAM_ff8i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i03 , idomain ) = P_ff8i03 ELSE P_ff8i03 = scalar_index_table( PARAM_ff8i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i03 ) = .TRUE. scalar_dname_table( idomain, P_ff8i03 ) = 'ff8i03' scalar_desc_table( idomain, P_ff8i03 ) = 'aerosols bin 3' scalar_units_table( idomain, P_ff8i03 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i03 )%stream(2) = 2097152 F_ff8i03 = .TRUE. IF ( scalar_index_table( PARAM_ff8i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i04 , idomain ) = P_ff8i04 ELSE P_ff8i04 = scalar_index_table( PARAM_ff8i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i04 ) = .TRUE. scalar_dname_table( idomain, P_ff8i04 ) = 'ff8i04' scalar_desc_table( idomain, P_ff8i04 ) = 'aerosols bin 4' scalar_units_table( idomain, P_ff8i04 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i04 )%stream(2) = 2097152 F_ff8i04 = .TRUE. IF ( scalar_index_table( PARAM_ff8i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i05 , idomain ) = P_ff8i05 ELSE P_ff8i05 = scalar_index_table( PARAM_ff8i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i05 ) = .TRUE. scalar_dname_table( idomain, P_ff8i05 ) = 'ff8i05' scalar_desc_table( idomain, P_ff8i05 ) = 'aerosols bin 5' scalar_units_table( idomain, P_ff8i05 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i05 )%stream(2) = 2097152 F_ff8i05 = .TRUE. IF ( scalar_index_table( PARAM_ff8i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i06 , idomain ) = P_ff8i06 ELSE P_ff8i06 = scalar_index_table( PARAM_ff8i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i06 ) = .TRUE. scalar_dname_table( idomain, P_ff8i06 ) = 'ff8i06' scalar_desc_table( idomain, P_ff8i06 ) = 'aerosols bin 6' scalar_units_table( idomain, P_ff8i06 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i06 )%stream(2) = 2097152 F_ff8i06 = .TRUE. IF ( scalar_index_table( PARAM_ff8i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i07 , idomain ) = P_ff8i07 ELSE P_ff8i07 = scalar_index_table( PARAM_ff8i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i07 ) = .TRUE. scalar_dname_table( idomain, P_ff8i07 ) = 'ff8i07' scalar_desc_table( idomain, P_ff8i07 ) = 'aerosols bin 7' scalar_units_table( idomain, P_ff8i07 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i07 )%stream(2) = 2097152 F_ff8i07 = .TRUE. IF ( scalar_index_table( PARAM_ff8i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i08 , idomain ) = P_ff8i08 ELSE P_ff8i08 = scalar_index_table( PARAM_ff8i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i08 ) = .TRUE. scalar_dname_table( idomain, P_ff8i08 ) = 'ff8i08' scalar_desc_table( idomain, P_ff8i08 ) = 'aerosols bin 8' scalar_units_table( idomain, P_ff8i08 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i08 )%stream(2) = 2097152 F_ff8i08 = .TRUE. IF ( scalar_index_table( PARAM_ff8i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i09 , idomain ) = P_ff8i09 ELSE P_ff8i09 = scalar_index_table( PARAM_ff8i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i09 ) = .TRUE. scalar_dname_table( idomain, P_ff8i09 ) = 'ff8i09' scalar_desc_table( idomain, P_ff8i09 ) = 'aerosols bin 9' scalar_units_table( idomain, P_ff8i09 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i09 )%stream(2) = 2097152 F_ff8i09 = .TRUE. IF ( scalar_index_table( PARAM_ff8i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i10 , idomain ) = P_ff8i10 ELSE P_ff8i10 = scalar_index_table( PARAM_ff8i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i10 ) = .TRUE. scalar_dname_table( idomain, P_ff8i10 ) = 'ff8i10' scalar_desc_table( idomain, P_ff8i10 ) = 'aerosols bin 10' scalar_units_table( idomain, P_ff8i10 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i10 )%stream(2) = 2097152 F_ff8i10 = .TRUE. IF ( scalar_index_table( PARAM_ff8i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i11 , idomain ) = P_ff8i11 ELSE P_ff8i11 = scalar_index_table( PARAM_ff8i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i11 ) = .TRUE. scalar_dname_table( idomain, P_ff8i11 ) = 'ff8i11' scalar_desc_table( idomain, P_ff8i11 ) = 'aerosols bin 11' scalar_units_table( idomain, P_ff8i11 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i11 )%stream(2) = 2097152 F_ff8i11 = .TRUE. IF ( scalar_index_table( PARAM_ff8i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i12 , idomain ) = P_ff8i12 ELSE P_ff8i12 = scalar_index_table( PARAM_ff8i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i12 ) = .TRUE. scalar_dname_table( idomain, P_ff8i12 ) = 'ff8i12' scalar_desc_table( idomain, P_ff8i12 ) = 'aerosols bin 12' scalar_units_table( idomain, P_ff8i12 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i12 )%stream(2) = 2097152 F_ff8i12 = .TRUE. IF ( scalar_index_table( PARAM_ff8i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i13 , idomain ) = P_ff8i13 ELSE P_ff8i13 = scalar_index_table( PARAM_ff8i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i13 ) = .TRUE. scalar_dname_table( idomain, P_ff8i13 ) = 'ff8i13' scalar_desc_table( idomain, P_ff8i13 ) = 'aerosols bin 13' scalar_units_table( idomain, P_ff8i13 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i13 )%stream(2) = 2097152 F_ff8i13 = .TRUE. IF ( scalar_index_table( PARAM_ff8i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i14 , idomain ) = P_ff8i14 ELSE P_ff8i14 = scalar_index_table( PARAM_ff8i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i14 ) = .TRUE. scalar_dname_table( idomain, P_ff8i14 ) = 'ff8i14' scalar_desc_table( idomain, P_ff8i14 ) = 'aerosols bin 14' scalar_units_table( idomain, P_ff8i14 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i14 )%stream(2) = 2097152 F_ff8i14 = .TRUE. IF ( scalar_index_table( PARAM_ff8i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i15 , idomain ) = P_ff8i15 ELSE P_ff8i15 = scalar_index_table( PARAM_ff8i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i15 ) = .TRUE. scalar_dname_table( idomain, P_ff8i15 ) = 'ff8i15' scalar_desc_table( idomain, P_ff8i15 ) = 'aerosols bin 15' scalar_units_table( idomain, P_ff8i15 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i15 )%stream(2) = 2097152 F_ff8i15 = .TRUE. IF ( scalar_index_table( PARAM_ff8i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i16 , idomain ) = P_ff8i16 ELSE P_ff8i16 = scalar_index_table( PARAM_ff8i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i16 ) = .TRUE. scalar_dname_table( idomain, P_ff8i16 ) = 'ff8i16' scalar_desc_table( idomain, P_ff8i16 ) = 'aerosols bin 16' scalar_units_table( idomain, P_ff8i16 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i16 )%stream(2) = 2097152 F_ff8i16 = .TRUE. IF ( scalar_index_table( PARAM_ff8i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i17 , idomain ) = P_ff8i17 ELSE P_ff8i17 = scalar_index_table( PARAM_ff8i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i17 ) = .TRUE. scalar_dname_table( idomain, P_ff8i17 ) = 'ff8i17' scalar_desc_table( idomain, P_ff8i17 ) = 'aerosols bin 17' scalar_units_table( idomain, P_ff8i17 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i17 )%stream(2) = 2097152 F_ff8i17 = .TRUE. IF ( scalar_index_table( PARAM_ff8i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i18 , idomain ) = P_ff8i18 ELSE P_ff8i18 = scalar_index_table( PARAM_ff8i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i18 ) = .TRUE. scalar_dname_table( idomain, P_ff8i18 ) = 'ff8i18' scalar_desc_table( idomain, P_ff8i18 ) = 'aerosols bin 18' scalar_units_table( idomain, P_ff8i18 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i18 )%stream(2) = 2097152 F_ff8i18 = .TRUE. IF ( scalar_index_table( PARAM_ff8i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i19 , idomain ) = P_ff8i19 ELSE P_ff8i19 = scalar_index_table( PARAM_ff8i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i19 ) = .TRUE. scalar_dname_table( idomain, P_ff8i19 ) = 'ff8i19' scalar_desc_table( idomain, P_ff8i19 ) = 'aerosols bin 19' scalar_units_table( idomain, P_ff8i19 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i19 )%stream(2) = 2097152 F_ff8i19 = .TRUE. IF ( scalar_index_table( PARAM_ff8i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i20 , idomain ) = P_ff8i20 ELSE P_ff8i20 = scalar_index_table( PARAM_ff8i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i20 ) = .TRUE. scalar_dname_table( idomain, P_ff8i20 ) = 'ff8i20' scalar_desc_table( idomain, P_ff8i20 ) = 'aerosols bin 20' scalar_units_table( idomain, P_ff8i20 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i20 )%stream(2) = 2097152 F_ff8i20 = .TRUE. IF ( scalar_index_table( PARAM_ff8i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i21 , idomain ) = P_ff8i21 ELSE P_ff8i21 = scalar_index_table( PARAM_ff8i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i21 ) = .TRUE. scalar_dname_table( idomain, P_ff8i21 ) = 'ff8i21' scalar_desc_table( idomain, P_ff8i21 ) = 'aerosols bin 21' scalar_units_table( idomain, P_ff8i21 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i21 )%stream(2) = 2097152 F_ff8i21 = .TRUE. IF ( scalar_index_table( PARAM_ff8i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i22 , idomain ) = P_ff8i22 ELSE P_ff8i22 = scalar_index_table( PARAM_ff8i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i22 ) = .TRUE. scalar_dname_table( idomain, P_ff8i22 ) = 'ff8i22' scalar_desc_table( idomain, P_ff8i22 ) = 'aerosols bin 22' scalar_units_table( idomain, P_ff8i22 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i22 )%stream(2) = 2097152 F_ff8i22 = .TRUE. IF ( scalar_index_table( PARAM_ff8i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i23 , idomain ) = P_ff8i23 ELSE P_ff8i23 = scalar_index_table( PARAM_ff8i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i23 ) = .TRUE. scalar_dname_table( idomain, P_ff8i23 ) = 'ff8i23' scalar_desc_table( idomain, P_ff8i23 ) = 'aerosols bin 23' scalar_units_table( idomain, P_ff8i23 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i23 )%stream(2) = 2097152 F_ff8i23 = .TRUE. IF ( scalar_index_table( PARAM_ff8i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i24 , idomain ) = P_ff8i24 ELSE P_ff8i24 = scalar_index_table( PARAM_ff8i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i24 ) = .TRUE. scalar_dname_table( idomain, P_ff8i24 ) = 'ff8i24' scalar_desc_table( idomain, P_ff8i24 ) = 'aerosols bin 24' scalar_units_table( idomain, P_ff8i24 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i24 )%stream(2) = 2097152 F_ff8i24 = .TRUE. IF ( scalar_index_table( PARAM_ff8i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i25 , idomain ) = P_ff8i25 ELSE P_ff8i25 = scalar_index_table( PARAM_ff8i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i25 ) = .TRUE. scalar_dname_table( idomain, P_ff8i25 ) = 'ff8i25' scalar_desc_table( idomain, P_ff8i25 ) = 'aerosols bin 25' scalar_units_table( idomain, P_ff8i25 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i25 )%stream(2) = 2097152 F_ff8i25 = .TRUE. IF ( scalar_index_table( PARAM_ff8i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i26 , idomain ) = P_ff8i26 ELSE P_ff8i26 = scalar_index_table( PARAM_ff8i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i26 ) = .TRUE. scalar_dname_table( idomain, P_ff8i26 ) = 'ff8i26' scalar_desc_table( idomain, P_ff8i26 ) = 'aerosols bin 26' scalar_units_table( idomain, P_ff8i26 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i26 )%stream(2) = 2097152 F_ff8i26 = .TRUE. IF ( scalar_index_table( PARAM_ff8i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i27 , idomain ) = P_ff8i27 ELSE P_ff8i27 = scalar_index_table( PARAM_ff8i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i27 ) = .TRUE. scalar_dname_table( idomain, P_ff8i27 ) = 'ff8i27' scalar_desc_table( idomain, P_ff8i27 ) = 'aerosols bin 27' scalar_units_table( idomain, P_ff8i27 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i27 )%stream(2) = 2097152 F_ff8i27 = .TRUE. IF ( scalar_index_table( PARAM_ff8i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i28 , idomain ) = P_ff8i28 ELSE P_ff8i28 = scalar_index_table( PARAM_ff8i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i28 ) = .TRUE. scalar_dname_table( idomain, P_ff8i28 ) = 'ff8i28' scalar_desc_table( idomain, P_ff8i28 ) = 'aerosols bin 28' scalar_units_table( idomain, P_ff8i28 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i28 )%stream(2) = 2097152 F_ff8i28 = .TRUE. IF ( scalar_index_table( PARAM_ff8i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i29 , idomain ) = P_ff8i29 ELSE P_ff8i29 = scalar_index_table( PARAM_ff8i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i29 ) = .TRUE. scalar_dname_table( idomain, P_ff8i29 ) = 'ff8i29' scalar_desc_table( idomain, P_ff8i29 ) = 'aerosols bin 29' scalar_units_table( idomain, P_ff8i29 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i29 )%stream(2) = 2097152 F_ff8i29 = .TRUE. IF ( scalar_index_table( PARAM_ff8i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i30 , idomain ) = P_ff8i30 ELSE P_ff8i30 = scalar_index_table( PARAM_ff8i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i30 ) = .TRUE. scalar_dname_table( idomain, P_ff8i30 ) = 'ff8i30' scalar_desc_table( idomain, P_ff8i30 ) = 'aerosols bin 30' scalar_units_table( idomain, P_ff8i30 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i30 )%stream(2) = 2097152 F_ff8i30 = .TRUE. IF ( scalar_index_table( PARAM_ff8i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i31 , idomain ) = P_ff8i31 ELSE P_ff8i31 = scalar_index_table( PARAM_ff8i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i31 ) = .TRUE. scalar_dname_table( idomain, P_ff8i31 ) = 'ff8i31' scalar_desc_table( idomain, P_ff8i31 ) = 'aerosols bin 31' scalar_units_table( idomain, P_ff8i31 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i31 )%stream(2) = 2097152 F_ff8i31 = .TRUE. IF ( scalar_index_table( PARAM_ff8i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i32 , idomain ) = P_ff8i32 ELSE P_ff8i32 = scalar_index_table( PARAM_ff8i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i32 ) = .TRUE. scalar_dname_table( idomain, P_ff8i32 ) = 'ff8i32' scalar_desc_table( idomain, P_ff8i32 ) = 'aerosols bin 32' scalar_units_table( idomain, P_ff8i32 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i32 )%stream(2) = 2097152 F_ff8i32 = .TRUE. IF ( scalar_index_table( PARAM_ff8i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i33 , idomain ) = P_ff8i33 ELSE P_ff8i33 = scalar_index_table( PARAM_ff8i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i33 ) = .TRUE. scalar_dname_table( idomain, P_ff8i33 ) = 'ff8i33' scalar_desc_table( idomain, P_ff8i33 ) = 'aerosols bin 33' scalar_units_table( idomain, P_ff8i33 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i33 )%stream(2) = 2097152 F_ff8i33 = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 F_qng = .TRUE. IF ( scalar_index_table( PARAM_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_effr = scalar_num_table(idomain) scalar_index_table( PARAM_effr , idomain ) = P_effr ELSE P_effr = scalar_index_table( PARAM_effr , idomain ) END IF scalar_boundary_table( idomain, P_effr ) = .TRUE. scalar_dname_table( idomain, P_effr ) = 'EFF_RADIUS' scalar_desc_table( idomain, P_effr ) = 'Effective Radius' scalar_units_table( idomain, P_effr ) = 'Microns' scalar_streams_table( idomain, P_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_effr )%stream(2) = 2097152 F_effr = .TRUE. IF ( scalar_index_table( PARAM_ice_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ice_effr = scalar_num_table(idomain) scalar_index_table( PARAM_ice_effr , idomain ) = P_ice_effr ELSE P_ice_effr = scalar_index_table( PARAM_ice_effr , idomain ) END IF scalar_boundary_table( idomain, P_ice_effr ) = .TRUE. scalar_dname_table( idomain, P_ice_effr ) = 'ICE_EFF_RADIUS' scalar_desc_table( idomain, P_ice_effr ) = 'Ice Effective Radius' scalar_units_table( idomain, P_ice_effr ) = 'Microns' scalar_streams_table( idomain, P_ice_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_ice_effr )%stream(2) = 2097152 F_ice_effr = .TRUE. IF ( scalar_index_table( PARAM_tot_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_tot_effr = scalar_num_table(idomain) scalar_index_table( PARAM_tot_effr , idomain ) = P_tot_effr ELSE P_tot_effr = scalar_index_table( PARAM_tot_effr , idomain ) END IF scalar_boundary_table( idomain, P_tot_effr ) = .TRUE. scalar_dname_table( idomain, P_tot_effr ) = 'TOT_EFF_RADIUS' scalar_desc_table( idomain, P_tot_effr ) = 'Tot Effective Radius' scalar_units_table( idomain, P_tot_effr ) = 'Microns' scalar_streams_table( idomain, P_tot_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_tot_effr )%stream(2) = 2097152 F_tot_effr = .TRUE. END IF IF (model_config_rec%mp_physics(idomain)==32)THEN IF ( moist_index_table( PARAM_qv , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qv = moist_num_table(idomain) moist_index_table( PARAM_qv , idomain ) = P_qv ELSE P_qv = moist_index_table( PARAM_qv , idomain ) END IF moist_boundary_table( idomain, P_qv ) = .TRUE. moist_dname_table( idomain, P_qv ) = 'QVAPOR' moist_desc_table( idomain, P_qv ) = 'Water vapor mixing ratio' moist_units_table( idomain, P_qv ) = 'kg kg-1' moist_streams_table( idomain, P_qv )%stream(1) = 33554433 moist_streams_table( idomain, P_qv )%stream(2) = 2097152 F_qv = .TRUE. IF ( moist_index_table( PARAM_qc , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qc = moist_num_table(idomain) moist_index_table( PARAM_qc , idomain ) = P_qc ELSE P_qc = moist_index_table( PARAM_qc , idomain ) END IF moist_boundary_table( idomain, P_qc ) = .TRUE. moist_dname_table( idomain, P_qc ) = 'QCLOUD' moist_desc_table( idomain, P_qc ) = 'Cloud water mixing ratio' moist_units_table( idomain, P_qc ) = 'kg kg-1' moist_streams_table( idomain, P_qc )%stream(1) = 33554433 moist_streams_table( idomain, P_qc )%stream(2) = 2097152 F_qc = .TRUE. IF ( moist_index_table( PARAM_qr , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qr = moist_num_table(idomain) moist_index_table( PARAM_qr , idomain ) = P_qr ELSE P_qr = moist_index_table( PARAM_qr , idomain ) END IF moist_boundary_table( idomain, P_qr ) = .TRUE. moist_dname_table( idomain, P_qr ) = 'QRAIN' moist_desc_table( idomain, P_qr ) = 'Rain water mixing ratio' moist_units_table( idomain, P_qr ) = 'kg kg-1' moist_streams_table( idomain, P_qr )%stream(1) = 33554433 moist_streams_table( idomain, P_qr )%stream(2) = 2097152 F_qr = .TRUE. IF ( moist_index_table( PARAM_qi , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qi = moist_num_table(idomain) moist_index_table( PARAM_qi , idomain ) = P_qi ELSE P_qi = moist_index_table( PARAM_qi , idomain ) END IF moist_boundary_table( idomain, P_qi ) = .TRUE. moist_dname_table( idomain, P_qi ) = 'QICE' moist_desc_table( idomain, P_qi ) = 'Ice mixing ratio' moist_units_table( idomain, P_qi ) = 'kg kg-1' moist_streams_table( idomain, P_qi )%stream(1) = 33554433 moist_streams_table( idomain, P_qi )%stream(2) = 2097152 F_qi = .TRUE. IF ( moist_index_table( PARAM_qic , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qic = moist_num_table(idomain) moist_index_table( PARAM_qic , idomain ) = P_qic ELSE P_qic = moist_index_table( PARAM_qic , idomain ) END IF moist_boundary_table( idomain, P_qic ) = .TRUE. moist_dname_table( idomain, P_qic ) = 'QICEC' moist_desc_table( idomain, P_qic ) = 'Column Ice mixing ratio' moist_units_table( idomain, P_qic ) = 'kg kg-1' moist_streams_table( idomain, P_qic )%stream(1) = 33554433 moist_streams_table( idomain, P_qic )%stream(2) = 2097152 F_qic = .TRUE. IF ( moist_index_table( PARAM_qip , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qip = moist_num_table(idomain) moist_index_table( PARAM_qip , idomain ) = P_qip ELSE P_qip = moist_index_table( PARAM_qip , idomain ) END IF moist_boundary_table( idomain, P_qip ) = .TRUE. moist_dname_table( idomain, P_qip ) = 'QICEP' moist_desc_table( idomain, P_qip ) = 'Plate Ice mixing ratio' moist_units_table( idomain, P_qip ) = 'kg kg-1' moist_streams_table( idomain, P_qip )%stream(1) = 33554433 moist_streams_table( idomain, P_qip )%stream(2) = 2097152 F_qip = .TRUE. IF ( moist_index_table( PARAM_qid , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qid = moist_num_table(idomain) moist_index_table( PARAM_qid , idomain ) = P_qid ELSE P_qid = moist_index_table( PARAM_qid , idomain ) END IF moist_boundary_table( idomain, P_qid ) = .TRUE. moist_dname_table( idomain, P_qid ) = 'QICED' moist_desc_table( idomain, P_qid ) = 'Dendrite Ice mixing ratio' moist_units_table( idomain, P_qid ) = 'kg kg-1' moist_streams_table( idomain, P_qid )%stream(1) = 33554433 moist_streams_table( idomain, P_qid )%stream(2) = 2097152 F_qid = .TRUE. IF ( moist_index_table( PARAM_qs , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qs = moist_num_table(idomain) moist_index_table( PARAM_qs , idomain ) = P_qs ELSE P_qs = moist_index_table( PARAM_qs , idomain ) END IF moist_boundary_table( idomain, P_qs ) = .TRUE. moist_dname_table( idomain, P_qs ) = 'QSNOW' moist_desc_table( idomain, P_qs ) = 'Snow mixing ratio' moist_units_table( idomain, P_qs ) = 'kg kg-1' moist_streams_table( idomain, P_qs )%stream(1) = 33554433 moist_streams_table( idomain, P_qs )%stream(2) = 2097152 F_qs = .TRUE. IF ( moist_index_table( PARAM_qg , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qg = moist_num_table(idomain) moist_index_table( PARAM_qg , idomain ) = P_qg ELSE P_qg = moist_index_table( PARAM_qg , idomain ) END IF moist_boundary_table( idomain, P_qg ) = .TRUE. moist_dname_table( idomain, P_qg ) = 'QGRAUP' moist_desc_table( idomain, P_qg ) = 'Graupel mixing ratio' moist_units_table( idomain, P_qg ) = 'kg kg-1' moist_streams_table( idomain, P_qg )%stream(1) = 33554433 moist_streams_table( idomain, P_qg )%stream(2) = 2097152 F_qg = .TRUE. IF ( moist_index_table( PARAM_qh , idomain ) .lt. 1 ) THEN moist_num_table(idomain) = moist_num_table(idomain) + 1 P_qh = moist_num_table(idomain) moist_index_table( PARAM_qh , idomain ) = P_qh ELSE P_qh = moist_index_table( PARAM_qh , idomain ) END IF moist_boundary_table( idomain, P_qh ) = .TRUE. moist_dname_table( idomain, P_qh ) = 'QHAIL' moist_desc_table( idomain, P_qh ) = 'Hail mixing ratio' moist_units_table( idomain, P_qh ) = 'kg kg-1' moist_streams_table( idomain, P_qh )%stream(1) = 33554433 moist_streams_table( idomain, P_qh )%stream(2) = 2097152 F_qh = .TRUE. IF ( scalar_index_table( PARAM_ff1i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i01 , idomain ) = P_ff1i01 ELSE P_ff1i01 = scalar_index_table( PARAM_ff1i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i01 ) = .TRUE. scalar_dname_table( idomain, P_ff1i01 ) = 'ff1i01' scalar_desc_table( idomain, P_ff1i01 ) = 'cloud/rain bin 1' scalar_units_table( idomain, P_ff1i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i01 )%stream(2) = 2097152 F_ff1i01 = .TRUE. IF ( scalar_index_table( PARAM_ff1i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i02 , idomain ) = P_ff1i02 ELSE P_ff1i02 = scalar_index_table( PARAM_ff1i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i02 ) = .TRUE. scalar_dname_table( idomain, P_ff1i02 ) = 'ff1i02' scalar_desc_table( idomain, P_ff1i02 ) = 'cloud/rain bin 2' scalar_units_table( idomain, P_ff1i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i02 )%stream(2) = 2097152 F_ff1i02 = .TRUE. IF ( scalar_index_table( PARAM_ff1i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i03 , idomain ) = P_ff1i03 ELSE P_ff1i03 = scalar_index_table( PARAM_ff1i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i03 ) = .TRUE. scalar_dname_table( idomain, P_ff1i03 ) = 'ff1i03' scalar_desc_table( idomain, P_ff1i03 ) = 'cloud/rain bin 3' scalar_units_table( idomain, P_ff1i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i03 )%stream(2) = 2097152 F_ff1i03 = .TRUE. IF ( scalar_index_table( PARAM_ff1i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i04 , idomain ) = P_ff1i04 ELSE P_ff1i04 = scalar_index_table( PARAM_ff1i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i04 ) = .TRUE. scalar_dname_table( idomain, P_ff1i04 ) = 'ff1i04' scalar_desc_table( idomain, P_ff1i04 ) = 'cloud/rain bin 4' scalar_units_table( idomain, P_ff1i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i04 )%stream(2) = 2097152 F_ff1i04 = .TRUE. IF ( scalar_index_table( PARAM_ff1i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i05 , idomain ) = P_ff1i05 ELSE P_ff1i05 = scalar_index_table( PARAM_ff1i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i05 ) = .TRUE. scalar_dname_table( idomain, P_ff1i05 ) = 'ff1i05' scalar_desc_table( idomain, P_ff1i05 ) = 'cloud/rain bin 5' scalar_units_table( idomain, P_ff1i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i05 )%stream(2) = 2097152 F_ff1i05 = .TRUE. IF ( scalar_index_table( PARAM_ff1i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i06 , idomain ) = P_ff1i06 ELSE P_ff1i06 = scalar_index_table( PARAM_ff1i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i06 ) = .TRUE. scalar_dname_table( idomain, P_ff1i06 ) = 'ff1i06' scalar_desc_table( idomain, P_ff1i06 ) = 'cloud/rain bin 6' scalar_units_table( idomain, P_ff1i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i06 )%stream(2) = 2097152 F_ff1i06 = .TRUE. IF ( scalar_index_table( PARAM_ff1i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i07 , idomain ) = P_ff1i07 ELSE P_ff1i07 = scalar_index_table( PARAM_ff1i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i07 ) = .TRUE. scalar_dname_table( idomain, P_ff1i07 ) = 'ff1i07' scalar_desc_table( idomain, P_ff1i07 ) = 'cloud/rain bin 7' scalar_units_table( idomain, P_ff1i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i07 )%stream(2) = 2097152 F_ff1i07 = .TRUE. IF ( scalar_index_table( PARAM_ff1i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i08 , idomain ) = P_ff1i08 ELSE P_ff1i08 = scalar_index_table( PARAM_ff1i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i08 ) = .TRUE. scalar_dname_table( idomain, P_ff1i08 ) = 'ff1i08' scalar_desc_table( idomain, P_ff1i08 ) = 'cloud/rain bin 8' scalar_units_table( idomain, P_ff1i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i08 )%stream(2) = 2097152 F_ff1i08 = .TRUE. IF ( scalar_index_table( PARAM_ff1i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i09 , idomain ) = P_ff1i09 ELSE P_ff1i09 = scalar_index_table( PARAM_ff1i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i09 ) = .TRUE. scalar_dname_table( idomain, P_ff1i09 ) = 'ff1i09' scalar_desc_table( idomain, P_ff1i09 ) = 'cloud/rain bin 9' scalar_units_table( idomain, P_ff1i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i09 )%stream(2) = 2097152 F_ff1i09 = .TRUE. IF ( scalar_index_table( PARAM_ff1i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i10 , idomain ) = P_ff1i10 ELSE P_ff1i10 = scalar_index_table( PARAM_ff1i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i10 ) = .TRUE. scalar_dname_table( idomain, P_ff1i10 ) = 'ff1i10' scalar_desc_table( idomain, P_ff1i10 ) = 'cloud/rain bin 10' scalar_units_table( idomain, P_ff1i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i10 )%stream(2) = 2097152 F_ff1i10 = .TRUE. IF ( scalar_index_table( PARAM_ff1i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i11 , idomain ) = P_ff1i11 ELSE P_ff1i11 = scalar_index_table( PARAM_ff1i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i11 ) = .TRUE. scalar_dname_table( idomain, P_ff1i11 ) = 'ff1i11' scalar_desc_table( idomain, P_ff1i11 ) = 'cloud/rain bin 11' scalar_units_table( idomain, P_ff1i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i11 )%stream(2) = 2097152 F_ff1i11 = .TRUE. IF ( scalar_index_table( PARAM_ff1i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i12 , idomain ) = P_ff1i12 ELSE P_ff1i12 = scalar_index_table( PARAM_ff1i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i12 ) = .TRUE. scalar_dname_table( idomain, P_ff1i12 ) = 'ff1i12' scalar_desc_table( idomain, P_ff1i12 ) = 'cloud/rain bin 12' scalar_units_table( idomain, P_ff1i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i12 )%stream(2) = 2097152 F_ff1i12 = .TRUE. IF ( scalar_index_table( PARAM_ff1i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i13 , idomain ) = P_ff1i13 ELSE P_ff1i13 = scalar_index_table( PARAM_ff1i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i13 ) = .TRUE. scalar_dname_table( idomain, P_ff1i13 ) = 'ff1i13' scalar_desc_table( idomain, P_ff1i13 ) = 'cloud/rain bin 13' scalar_units_table( idomain, P_ff1i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i13 )%stream(2) = 2097152 F_ff1i13 = .TRUE. IF ( scalar_index_table( PARAM_ff1i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i14 , idomain ) = P_ff1i14 ELSE P_ff1i14 = scalar_index_table( PARAM_ff1i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i14 ) = .TRUE. scalar_dname_table( idomain, P_ff1i14 ) = 'ff1i14' scalar_desc_table( idomain, P_ff1i14 ) = 'cloud/rain bin 14' scalar_units_table( idomain, P_ff1i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i14 )%stream(2) = 2097152 F_ff1i14 = .TRUE. IF ( scalar_index_table( PARAM_ff1i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i15 , idomain ) = P_ff1i15 ELSE P_ff1i15 = scalar_index_table( PARAM_ff1i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i15 ) = .TRUE. scalar_dname_table( idomain, P_ff1i15 ) = 'ff1i15' scalar_desc_table( idomain, P_ff1i15 ) = 'cloud/rain bin 15' scalar_units_table( idomain, P_ff1i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i15 )%stream(2) = 2097152 F_ff1i15 = .TRUE. IF ( scalar_index_table( PARAM_ff1i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i16 , idomain ) = P_ff1i16 ELSE P_ff1i16 = scalar_index_table( PARAM_ff1i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i16 ) = .TRUE. scalar_dname_table( idomain, P_ff1i16 ) = 'ff1i16' scalar_desc_table( idomain, P_ff1i16 ) = 'cloud/rain bin 16' scalar_units_table( idomain, P_ff1i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i16 )%stream(2) = 2097152 F_ff1i16 = .TRUE. IF ( scalar_index_table( PARAM_ff1i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i17 , idomain ) = P_ff1i17 ELSE P_ff1i17 = scalar_index_table( PARAM_ff1i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i17 ) = .TRUE. scalar_dname_table( idomain, P_ff1i17 ) = 'ff1i17' scalar_desc_table( idomain, P_ff1i17 ) = 'cloud/rain bin 17' scalar_units_table( idomain, P_ff1i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i17 )%stream(2) = 2097152 F_ff1i17 = .TRUE. IF ( scalar_index_table( PARAM_ff1i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i18 , idomain ) = P_ff1i18 ELSE P_ff1i18 = scalar_index_table( PARAM_ff1i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i18 ) = .TRUE. scalar_dname_table( idomain, P_ff1i18 ) = 'ff1i18' scalar_desc_table( idomain, P_ff1i18 ) = 'cloud/rain bin 18' scalar_units_table( idomain, P_ff1i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i18 )%stream(2) = 2097152 F_ff1i18 = .TRUE. IF ( scalar_index_table( PARAM_ff1i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i19 , idomain ) = P_ff1i19 ELSE P_ff1i19 = scalar_index_table( PARAM_ff1i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i19 ) = .TRUE. scalar_dname_table( idomain, P_ff1i19 ) = 'ff1i19' scalar_desc_table( idomain, P_ff1i19 ) = 'cloud/rain bin 19' scalar_units_table( idomain, P_ff1i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i19 )%stream(2) = 2097152 F_ff1i19 = .TRUE. IF ( scalar_index_table( PARAM_ff1i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i20 , idomain ) = P_ff1i20 ELSE P_ff1i20 = scalar_index_table( PARAM_ff1i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i20 ) = .TRUE. scalar_dname_table( idomain, P_ff1i20 ) = 'ff1i20' scalar_desc_table( idomain, P_ff1i20 ) = 'cloud/rain bin 20' scalar_units_table( idomain, P_ff1i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i20 )%stream(2) = 2097152 F_ff1i20 = .TRUE. IF ( scalar_index_table( PARAM_ff1i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i21 , idomain ) = P_ff1i21 ELSE P_ff1i21 = scalar_index_table( PARAM_ff1i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i21 ) = .TRUE. scalar_dname_table( idomain, P_ff1i21 ) = 'ff1i21' scalar_desc_table( idomain, P_ff1i21 ) = 'cloud/rain bin 21' scalar_units_table( idomain, P_ff1i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i21 )%stream(2) = 2097152 F_ff1i21 = .TRUE. IF ( scalar_index_table( PARAM_ff1i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i22 , idomain ) = P_ff1i22 ELSE P_ff1i22 = scalar_index_table( PARAM_ff1i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i22 ) = .TRUE. scalar_dname_table( idomain, P_ff1i22 ) = 'ff1i22' scalar_desc_table( idomain, P_ff1i22 ) = 'cloud/rain bin 22' scalar_units_table( idomain, P_ff1i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i22 )%stream(2) = 2097152 F_ff1i22 = .TRUE. IF ( scalar_index_table( PARAM_ff1i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i23 , idomain ) = P_ff1i23 ELSE P_ff1i23 = scalar_index_table( PARAM_ff1i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i23 ) = .TRUE. scalar_dname_table( idomain, P_ff1i23 ) = 'ff1i23' scalar_desc_table( idomain, P_ff1i23 ) = 'cloud/rain bin 23' scalar_units_table( idomain, P_ff1i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i23 )%stream(2) = 2097152 F_ff1i23 = .TRUE. IF ( scalar_index_table( PARAM_ff1i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i24 , idomain ) = P_ff1i24 ELSE P_ff1i24 = scalar_index_table( PARAM_ff1i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i24 ) = .TRUE. scalar_dname_table( idomain, P_ff1i24 ) = 'ff1i24' scalar_desc_table( idomain, P_ff1i24 ) = 'cloud/rain bin 24' scalar_units_table( idomain, P_ff1i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i24 )%stream(2) = 2097152 F_ff1i24 = .TRUE. IF ( scalar_index_table( PARAM_ff1i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i25 , idomain ) = P_ff1i25 ELSE P_ff1i25 = scalar_index_table( PARAM_ff1i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i25 ) = .TRUE. scalar_dname_table( idomain, P_ff1i25 ) = 'ff1i25' scalar_desc_table( idomain, P_ff1i25 ) = 'cloud/rain bin 25' scalar_units_table( idomain, P_ff1i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i25 )%stream(2) = 2097152 F_ff1i25 = .TRUE. IF ( scalar_index_table( PARAM_ff1i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i26 , idomain ) = P_ff1i26 ELSE P_ff1i26 = scalar_index_table( PARAM_ff1i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i26 ) = .TRUE. scalar_dname_table( idomain, P_ff1i26 ) = 'ff1i26' scalar_desc_table( idomain, P_ff1i26 ) = 'cloud/rain bin 26' scalar_units_table( idomain, P_ff1i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i26 )%stream(2) = 2097152 F_ff1i26 = .TRUE. IF ( scalar_index_table( PARAM_ff1i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i27 , idomain ) = P_ff1i27 ELSE P_ff1i27 = scalar_index_table( PARAM_ff1i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i27 ) = .TRUE. scalar_dname_table( idomain, P_ff1i27 ) = 'ff1i27' scalar_desc_table( idomain, P_ff1i27 ) = 'cloud/rain bin 27' scalar_units_table( idomain, P_ff1i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i27 )%stream(2) = 2097152 F_ff1i27 = .TRUE. IF ( scalar_index_table( PARAM_ff1i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i28 , idomain ) = P_ff1i28 ELSE P_ff1i28 = scalar_index_table( PARAM_ff1i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i28 ) = .TRUE. scalar_dname_table( idomain, P_ff1i28 ) = 'ff1i28' scalar_desc_table( idomain, P_ff1i28 ) = 'cloud/rain bin 28' scalar_units_table( idomain, P_ff1i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i28 )%stream(2) = 2097152 F_ff1i28 = .TRUE. IF ( scalar_index_table( PARAM_ff1i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i29 , idomain ) = P_ff1i29 ELSE P_ff1i29 = scalar_index_table( PARAM_ff1i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i29 ) = .TRUE. scalar_dname_table( idomain, P_ff1i29 ) = 'ff1i29' scalar_desc_table( idomain, P_ff1i29 ) = 'cloud/rain bin 29' scalar_units_table( idomain, P_ff1i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i29 )%stream(2) = 2097152 F_ff1i29 = .TRUE. IF ( scalar_index_table( PARAM_ff1i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i30 , idomain ) = P_ff1i30 ELSE P_ff1i30 = scalar_index_table( PARAM_ff1i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i30 ) = .TRUE. scalar_dname_table( idomain, P_ff1i30 ) = 'ff1i30' scalar_desc_table( idomain, P_ff1i30 ) = 'cloud/rain bin 30' scalar_units_table( idomain, P_ff1i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i30 )%stream(2) = 2097152 F_ff1i30 = .TRUE. IF ( scalar_index_table( PARAM_ff1i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i31 , idomain ) = P_ff1i31 ELSE P_ff1i31 = scalar_index_table( PARAM_ff1i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i31 ) = .TRUE. scalar_dname_table( idomain, P_ff1i31 ) = 'ff1i31' scalar_desc_table( idomain, P_ff1i31 ) = 'cloud/rain bin 31' scalar_units_table( idomain, P_ff1i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i31 )%stream(2) = 2097152 F_ff1i31 = .TRUE. IF ( scalar_index_table( PARAM_ff1i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i32 , idomain ) = P_ff1i32 ELSE P_ff1i32 = scalar_index_table( PARAM_ff1i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i32 ) = .TRUE. scalar_dname_table( idomain, P_ff1i32 ) = 'ff1i32' scalar_desc_table( idomain, P_ff1i32 ) = 'cloud/rain bin 32' scalar_units_table( idomain, P_ff1i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i32 )%stream(2) = 2097152 F_ff1i32 = .TRUE. IF ( scalar_index_table( PARAM_ff1i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff1i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff1i33 , idomain ) = P_ff1i33 ELSE P_ff1i33 = scalar_index_table( PARAM_ff1i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff1i33 ) = .TRUE. scalar_dname_table( idomain, P_ff1i33 ) = 'ff1i33' scalar_desc_table( idomain, P_ff1i33 ) = 'cloud/rain bin 33' scalar_units_table( idomain, P_ff1i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff1i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff1i33 )%stream(2) = 2097152 F_ff1i33 = .TRUE. IF ( scalar_index_table( PARAM_ff5i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i01 , idomain ) = P_ff5i01 ELSE P_ff5i01 = scalar_index_table( PARAM_ff5i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i01 ) = .TRUE. scalar_dname_table( idomain, P_ff5i01 ) = 'ff5i01' scalar_desc_table( idomain, P_ff5i01 ) = 'snow bin 1' scalar_units_table( idomain, P_ff5i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i01 )%stream(2) = 2097152 F_ff5i01 = .TRUE. IF ( scalar_index_table( PARAM_ff5i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i02 , idomain ) = P_ff5i02 ELSE P_ff5i02 = scalar_index_table( PARAM_ff5i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i02 ) = .TRUE. scalar_dname_table( idomain, P_ff5i02 ) = 'ff5i02' scalar_desc_table( idomain, P_ff5i02 ) = 'snow bin 2' scalar_units_table( idomain, P_ff5i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i02 )%stream(2) = 2097152 F_ff5i02 = .TRUE. IF ( scalar_index_table( PARAM_ff5i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i03 , idomain ) = P_ff5i03 ELSE P_ff5i03 = scalar_index_table( PARAM_ff5i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i03 ) = .TRUE. scalar_dname_table( idomain, P_ff5i03 ) = 'ff5i03' scalar_desc_table( idomain, P_ff5i03 ) = 'snow bin 3' scalar_units_table( idomain, P_ff5i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i03 )%stream(2) = 2097152 F_ff5i03 = .TRUE. IF ( scalar_index_table( PARAM_ff5i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i04 , idomain ) = P_ff5i04 ELSE P_ff5i04 = scalar_index_table( PARAM_ff5i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i04 ) = .TRUE. scalar_dname_table( idomain, P_ff5i04 ) = 'ff5i04' scalar_desc_table( idomain, P_ff5i04 ) = 'snow bin 4' scalar_units_table( idomain, P_ff5i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i04 )%stream(2) = 2097152 F_ff5i04 = .TRUE. IF ( scalar_index_table( PARAM_ff5i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i05 , idomain ) = P_ff5i05 ELSE P_ff5i05 = scalar_index_table( PARAM_ff5i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i05 ) = .TRUE. scalar_dname_table( idomain, P_ff5i05 ) = 'ff5i05' scalar_desc_table( idomain, P_ff5i05 ) = 'snow bin 5' scalar_units_table( idomain, P_ff5i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i05 )%stream(2) = 2097152 F_ff5i05 = .TRUE. IF ( scalar_index_table( PARAM_ff5i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i06 , idomain ) = P_ff5i06 ELSE P_ff5i06 = scalar_index_table( PARAM_ff5i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i06 ) = .TRUE. scalar_dname_table( idomain, P_ff5i06 ) = 'ff5i06' scalar_desc_table( idomain, P_ff5i06 ) = 'snow bin 6' scalar_units_table( idomain, P_ff5i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i06 )%stream(2) = 2097152 F_ff5i06 = .TRUE. IF ( scalar_index_table( PARAM_ff5i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i07 , idomain ) = P_ff5i07 ELSE P_ff5i07 = scalar_index_table( PARAM_ff5i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i07 ) = .TRUE. scalar_dname_table( idomain, P_ff5i07 ) = 'ff5i07' scalar_desc_table( idomain, P_ff5i07 ) = 'snow bin 7' scalar_units_table( idomain, P_ff5i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i07 )%stream(2) = 2097152 F_ff5i07 = .TRUE. IF ( scalar_index_table( PARAM_ff5i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i08 , idomain ) = P_ff5i08 ELSE P_ff5i08 = scalar_index_table( PARAM_ff5i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i08 ) = .TRUE. scalar_dname_table( idomain, P_ff5i08 ) = 'ff5i08' scalar_desc_table( idomain, P_ff5i08 ) = 'snow bin 8' scalar_units_table( idomain, P_ff5i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i08 )%stream(2) = 2097152 F_ff5i08 = .TRUE. IF ( scalar_index_table( PARAM_ff5i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i09 , idomain ) = P_ff5i09 ELSE P_ff5i09 = scalar_index_table( PARAM_ff5i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i09 ) = .TRUE. scalar_dname_table( idomain, P_ff5i09 ) = 'ff5i09' scalar_desc_table( idomain, P_ff5i09 ) = 'snow bin 9' scalar_units_table( idomain, P_ff5i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i09 )%stream(2) = 2097152 F_ff5i09 = .TRUE. IF ( scalar_index_table( PARAM_ff5i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i10 , idomain ) = P_ff5i10 ELSE P_ff5i10 = scalar_index_table( PARAM_ff5i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i10 ) = .TRUE. scalar_dname_table( idomain, P_ff5i10 ) = 'ff5i10' scalar_desc_table( idomain, P_ff5i10 ) = 'snow bin 10' scalar_units_table( idomain, P_ff5i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i10 )%stream(2) = 2097152 F_ff5i10 = .TRUE. IF ( scalar_index_table( PARAM_ff5i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i11 , idomain ) = P_ff5i11 ELSE P_ff5i11 = scalar_index_table( PARAM_ff5i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i11 ) = .TRUE. scalar_dname_table( idomain, P_ff5i11 ) = 'ff5i11' scalar_desc_table( idomain, P_ff5i11 ) = 'snow bin 11' scalar_units_table( idomain, P_ff5i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i11 )%stream(2) = 2097152 F_ff5i11 = .TRUE. IF ( scalar_index_table( PARAM_ff5i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i12 , idomain ) = P_ff5i12 ELSE P_ff5i12 = scalar_index_table( PARAM_ff5i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i12 ) = .TRUE. scalar_dname_table( idomain, P_ff5i12 ) = 'ff5i12' scalar_desc_table( idomain, P_ff5i12 ) = 'snow bin 12' scalar_units_table( idomain, P_ff5i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i12 )%stream(2) = 2097152 F_ff5i12 = .TRUE. IF ( scalar_index_table( PARAM_ff5i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i13 , idomain ) = P_ff5i13 ELSE P_ff5i13 = scalar_index_table( PARAM_ff5i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i13 ) = .TRUE. scalar_dname_table( idomain, P_ff5i13 ) = 'ff5i13' scalar_desc_table( idomain, P_ff5i13 ) = 'snow bin 13' scalar_units_table( idomain, P_ff5i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i13 )%stream(2) = 2097152 F_ff5i13 = .TRUE. IF ( scalar_index_table( PARAM_ff5i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i14 , idomain ) = P_ff5i14 ELSE P_ff5i14 = scalar_index_table( PARAM_ff5i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i14 ) = .TRUE. scalar_dname_table( idomain, P_ff5i14 ) = 'ff5i14' scalar_desc_table( idomain, P_ff5i14 ) = 'snow bin 14' scalar_units_table( idomain, P_ff5i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i14 )%stream(2) = 2097152 F_ff5i14 = .TRUE. IF ( scalar_index_table( PARAM_ff5i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i15 , idomain ) = P_ff5i15 ELSE P_ff5i15 = scalar_index_table( PARAM_ff5i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i15 ) = .TRUE. scalar_dname_table( idomain, P_ff5i15 ) = 'ff5i15' scalar_desc_table( idomain, P_ff5i15 ) = 'snow bin 15' scalar_units_table( idomain, P_ff5i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i15 )%stream(2) = 2097152 F_ff5i15 = .TRUE. IF ( scalar_index_table( PARAM_ff5i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i16 , idomain ) = P_ff5i16 ELSE P_ff5i16 = scalar_index_table( PARAM_ff5i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i16 ) = .TRUE. scalar_dname_table( idomain, P_ff5i16 ) = 'ff5i16' scalar_desc_table( idomain, P_ff5i16 ) = 'snow bin 16' scalar_units_table( idomain, P_ff5i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i16 )%stream(2) = 2097152 F_ff5i16 = .TRUE. IF ( scalar_index_table( PARAM_ff5i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i17 , idomain ) = P_ff5i17 ELSE P_ff5i17 = scalar_index_table( PARAM_ff5i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i17 ) = .TRUE. scalar_dname_table( idomain, P_ff5i17 ) = 'ff5i17' scalar_desc_table( idomain, P_ff5i17 ) = 'snow bin 17' scalar_units_table( idomain, P_ff5i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i17 )%stream(2) = 2097152 F_ff5i17 = .TRUE. IF ( scalar_index_table( PARAM_ff5i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i18 , idomain ) = P_ff5i18 ELSE P_ff5i18 = scalar_index_table( PARAM_ff5i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i18 ) = .TRUE. scalar_dname_table( idomain, P_ff5i18 ) = 'ff5i18' scalar_desc_table( idomain, P_ff5i18 ) = 'snow bin 18' scalar_units_table( idomain, P_ff5i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i18 )%stream(2) = 2097152 F_ff5i18 = .TRUE. IF ( scalar_index_table( PARAM_ff5i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i19 , idomain ) = P_ff5i19 ELSE P_ff5i19 = scalar_index_table( PARAM_ff5i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i19 ) = .TRUE. scalar_dname_table( idomain, P_ff5i19 ) = 'ff5i19' scalar_desc_table( idomain, P_ff5i19 ) = 'snow bin 19' scalar_units_table( idomain, P_ff5i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i19 )%stream(2) = 2097152 F_ff5i19 = .TRUE. IF ( scalar_index_table( PARAM_ff5i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i20 , idomain ) = P_ff5i20 ELSE P_ff5i20 = scalar_index_table( PARAM_ff5i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i20 ) = .TRUE. scalar_dname_table( idomain, P_ff5i20 ) = 'ff5i20' scalar_desc_table( idomain, P_ff5i20 ) = 'snow bin 20' scalar_units_table( idomain, P_ff5i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i20 )%stream(2) = 2097152 F_ff5i20 = .TRUE. IF ( scalar_index_table( PARAM_ff5i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i21 , idomain ) = P_ff5i21 ELSE P_ff5i21 = scalar_index_table( PARAM_ff5i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i21 ) = .TRUE. scalar_dname_table( idomain, P_ff5i21 ) = 'ff5i21' scalar_desc_table( idomain, P_ff5i21 ) = 'snow bin 21' scalar_units_table( idomain, P_ff5i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i21 )%stream(2) = 2097152 F_ff5i21 = .TRUE. IF ( scalar_index_table( PARAM_ff5i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i22 , idomain ) = P_ff5i22 ELSE P_ff5i22 = scalar_index_table( PARAM_ff5i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i22 ) = .TRUE. scalar_dname_table( idomain, P_ff5i22 ) = 'ff5i22' scalar_desc_table( idomain, P_ff5i22 ) = 'snow bin 22' scalar_units_table( idomain, P_ff5i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i22 )%stream(2) = 2097152 F_ff5i22 = .TRUE. IF ( scalar_index_table( PARAM_ff5i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i23 , idomain ) = P_ff5i23 ELSE P_ff5i23 = scalar_index_table( PARAM_ff5i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i23 ) = .TRUE. scalar_dname_table( idomain, P_ff5i23 ) = 'ff5i23' scalar_desc_table( idomain, P_ff5i23 ) = 'snow bin 23' scalar_units_table( idomain, P_ff5i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i23 )%stream(2) = 2097152 F_ff5i23 = .TRUE. IF ( scalar_index_table( PARAM_ff5i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i24 , idomain ) = P_ff5i24 ELSE P_ff5i24 = scalar_index_table( PARAM_ff5i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i24 ) = .TRUE. scalar_dname_table( idomain, P_ff5i24 ) = 'ff5i24' scalar_desc_table( idomain, P_ff5i24 ) = 'snow bin 24' scalar_units_table( idomain, P_ff5i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i24 )%stream(2) = 2097152 F_ff5i24 = .TRUE. IF ( scalar_index_table( PARAM_ff5i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i25 , idomain ) = P_ff5i25 ELSE P_ff5i25 = scalar_index_table( PARAM_ff5i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i25 ) = .TRUE. scalar_dname_table( idomain, P_ff5i25 ) = 'ff5i25' scalar_desc_table( idomain, P_ff5i25 ) = 'snow bin 25' scalar_units_table( idomain, P_ff5i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i25 )%stream(2) = 2097152 F_ff5i25 = .TRUE. IF ( scalar_index_table( PARAM_ff5i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i26 , idomain ) = P_ff5i26 ELSE P_ff5i26 = scalar_index_table( PARAM_ff5i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i26 ) = .TRUE. scalar_dname_table( idomain, P_ff5i26 ) = 'ff5i26' scalar_desc_table( idomain, P_ff5i26 ) = 'snow bin 26' scalar_units_table( idomain, P_ff5i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i26 )%stream(2) = 2097152 F_ff5i26 = .TRUE. IF ( scalar_index_table( PARAM_ff5i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i27 , idomain ) = P_ff5i27 ELSE P_ff5i27 = scalar_index_table( PARAM_ff5i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i27 ) = .TRUE. scalar_dname_table( idomain, P_ff5i27 ) = 'ff5i27' scalar_desc_table( idomain, P_ff5i27 ) = 'snow bin 27' scalar_units_table( idomain, P_ff5i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i27 )%stream(2) = 2097152 F_ff5i27 = .TRUE. IF ( scalar_index_table( PARAM_ff5i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i28 , idomain ) = P_ff5i28 ELSE P_ff5i28 = scalar_index_table( PARAM_ff5i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i28 ) = .TRUE. scalar_dname_table( idomain, P_ff5i28 ) = 'ff5i28' scalar_desc_table( idomain, P_ff5i28 ) = 'snow bin 28' scalar_units_table( idomain, P_ff5i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i28 )%stream(2) = 2097152 F_ff5i28 = .TRUE. IF ( scalar_index_table( PARAM_ff5i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i29 , idomain ) = P_ff5i29 ELSE P_ff5i29 = scalar_index_table( PARAM_ff5i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i29 ) = .TRUE. scalar_dname_table( idomain, P_ff5i29 ) = 'ff5i29' scalar_desc_table( idomain, P_ff5i29 ) = 'snow bin 29' scalar_units_table( idomain, P_ff5i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i29 )%stream(2) = 2097152 F_ff5i29 = .TRUE. IF ( scalar_index_table( PARAM_ff5i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i30 , idomain ) = P_ff5i30 ELSE P_ff5i30 = scalar_index_table( PARAM_ff5i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i30 ) = .TRUE. scalar_dname_table( idomain, P_ff5i30 ) = 'ff5i30' scalar_desc_table( idomain, P_ff5i30 ) = 'snow bin 30' scalar_units_table( idomain, P_ff5i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i30 )%stream(2) = 2097152 F_ff5i30 = .TRUE. IF ( scalar_index_table( PARAM_ff5i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i31 , idomain ) = P_ff5i31 ELSE P_ff5i31 = scalar_index_table( PARAM_ff5i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i31 ) = .TRUE. scalar_dname_table( idomain, P_ff5i31 ) = 'ff5i31' scalar_desc_table( idomain, P_ff5i31 ) = 'snow bin 31' scalar_units_table( idomain, P_ff5i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i31 )%stream(2) = 2097152 F_ff5i31 = .TRUE. IF ( scalar_index_table( PARAM_ff5i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i32 , idomain ) = P_ff5i32 ELSE P_ff5i32 = scalar_index_table( PARAM_ff5i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i32 ) = .TRUE. scalar_dname_table( idomain, P_ff5i32 ) = 'ff5i32' scalar_desc_table( idomain, P_ff5i32 ) = 'snow bin 32' scalar_units_table( idomain, P_ff5i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i32 )%stream(2) = 2097152 F_ff5i32 = .TRUE. IF ( scalar_index_table( PARAM_ff5i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff5i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff5i33 , idomain ) = P_ff5i33 ELSE P_ff5i33 = scalar_index_table( PARAM_ff5i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff5i33 ) = .TRUE. scalar_dname_table( idomain, P_ff5i33 ) = 'ff5i33' scalar_desc_table( idomain, P_ff5i33 ) = 'snow bin 33' scalar_units_table( idomain, P_ff5i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff5i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff5i33 )%stream(2) = 2097152 F_ff5i33 = .TRUE. IF ( scalar_index_table( PARAM_ff6i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i01 , idomain ) = P_ff6i01 ELSE P_ff6i01 = scalar_index_table( PARAM_ff6i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i01 ) = .TRUE. scalar_dname_table( idomain, P_ff6i01 ) = 'ff6i01' scalar_desc_table( idomain, P_ff6i01 ) = 'graupel bin 1' scalar_units_table( idomain, P_ff6i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i01 )%stream(2) = 2097152 F_ff6i01 = .TRUE. IF ( scalar_index_table( PARAM_ff6i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i02 , idomain ) = P_ff6i02 ELSE P_ff6i02 = scalar_index_table( PARAM_ff6i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i02 ) = .TRUE. scalar_dname_table( idomain, P_ff6i02 ) = 'ff6i02' scalar_desc_table( idomain, P_ff6i02 ) = 'graupel bin 2' scalar_units_table( idomain, P_ff6i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i02 )%stream(2) = 2097152 F_ff6i02 = .TRUE. IF ( scalar_index_table( PARAM_ff6i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i03 , idomain ) = P_ff6i03 ELSE P_ff6i03 = scalar_index_table( PARAM_ff6i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i03 ) = .TRUE. scalar_dname_table( idomain, P_ff6i03 ) = 'ff6i03' scalar_desc_table( idomain, P_ff6i03 ) = 'graupel bin 3' scalar_units_table( idomain, P_ff6i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i03 )%stream(2) = 2097152 F_ff6i03 = .TRUE. IF ( scalar_index_table( PARAM_ff6i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i04 , idomain ) = P_ff6i04 ELSE P_ff6i04 = scalar_index_table( PARAM_ff6i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i04 ) = .TRUE. scalar_dname_table( idomain, P_ff6i04 ) = 'ff6i04' scalar_desc_table( idomain, P_ff6i04 ) = 'graupel bin 4' scalar_units_table( idomain, P_ff6i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i04 )%stream(2) = 2097152 F_ff6i04 = .TRUE. IF ( scalar_index_table( PARAM_ff6i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i05 , idomain ) = P_ff6i05 ELSE P_ff6i05 = scalar_index_table( PARAM_ff6i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i05 ) = .TRUE. scalar_dname_table( idomain, P_ff6i05 ) = 'ff6i05' scalar_desc_table( idomain, P_ff6i05 ) = 'graupel bin 5' scalar_units_table( idomain, P_ff6i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i05 )%stream(2) = 2097152 F_ff6i05 = .TRUE. IF ( scalar_index_table( PARAM_ff6i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i06 , idomain ) = P_ff6i06 ELSE P_ff6i06 = scalar_index_table( PARAM_ff6i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i06 ) = .TRUE. scalar_dname_table( idomain, P_ff6i06 ) = 'ff6i06' scalar_desc_table( idomain, P_ff6i06 ) = 'graupel bin 6' scalar_units_table( idomain, P_ff6i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i06 )%stream(2) = 2097152 F_ff6i06 = .TRUE. IF ( scalar_index_table( PARAM_ff6i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i07 , idomain ) = P_ff6i07 ELSE P_ff6i07 = scalar_index_table( PARAM_ff6i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i07 ) = .TRUE. scalar_dname_table( idomain, P_ff6i07 ) = 'ff6i07' scalar_desc_table( idomain, P_ff6i07 ) = 'graupel bin 7' scalar_units_table( idomain, P_ff6i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i07 )%stream(2) = 2097152 F_ff6i07 = .TRUE. IF ( scalar_index_table( PARAM_ff6i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i08 , idomain ) = P_ff6i08 ELSE P_ff6i08 = scalar_index_table( PARAM_ff6i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i08 ) = .TRUE. scalar_dname_table( idomain, P_ff6i08 ) = 'ff6i08' scalar_desc_table( idomain, P_ff6i08 ) = 'graupel bin 8' scalar_units_table( idomain, P_ff6i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i08 )%stream(2) = 2097152 F_ff6i08 = .TRUE. IF ( scalar_index_table( PARAM_ff6i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i09 , idomain ) = P_ff6i09 ELSE P_ff6i09 = scalar_index_table( PARAM_ff6i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i09 ) = .TRUE. scalar_dname_table( idomain, P_ff6i09 ) = 'ff6i09' scalar_desc_table( idomain, P_ff6i09 ) = 'graupel bin 9' scalar_units_table( idomain, P_ff6i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i09 )%stream(2) = 2097152 F_ff6i09 = .TRUE. IF ( scalar_index_table( PARAM_ff6i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i10 , idomain ) = P_ff6i10 ELSE P_ff6i10 = scalar_index_table( PARAM_ff6i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i10 ) = .TRUE. scalar_dname_table( idomain, P_ff6i10 ) = 'ff6i10' scalar_desc_table( idomain, P_ff6i10 ) = 'graupel bin 10' scalar_units_table( idomain, P_ff6i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i10 )%stream(2) = 2097152 F_ff6i10 = .TRUE. IF ( scalar_index_table( PARAM_ff6i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i11 , idomain ) = P_ff6i11 ELSE P_ff6i11 = scalar_index_table( PARAM_ff6i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i11 ) = .TRUE. scalar_dname_table( idomain, P_ff6i11 ) = 'ff6i11' scalar_desc_table( idomain, P_ff6i11 ) = 'graupel bin 11' scalar_units_table( idomain, P_ff6i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i11 )%stream(2) = 2097152 F_ff6i11 = .TRUE. IF ( scalar_index_table( PARAM_ff6i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i12 , idomain ) = P_ff6i12 ELSE P_ff6i12 = scalar_index_table( PARAM_ff6i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i12 ) = .TRUE. scalar_dname_table( idomain, P_ff6i12 ) = 'ff6i12' scalar_desc_table( idomain, P_ff6i12 ) = 'graupel bin 12' scalar_units_table( idomain, P_ff6i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i12 )%stream(2) = 2097152 F_ff6i12 = .TRUE. IF ( scalar_index_table( PARAM_ff6i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i13 , idomain ) = P_ff6i13 ELSE P_ff6i13 = scalar_index_table( PARAM_ff6i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i13 ) = .TRUE. scalar_dname_table( idomain, P_ff6i13 ) = 'ff6i13' scalar_desc_table( idomain, P_ff6i13 ) = 'graupel bin 13' scalar_units_table( idomain, P_ff6i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i13 )%stream(2) = 2097152 F_ff6i13 = .TRUE. IF ( scalar_index_table( PARAM_ff6i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i14 , idomain ) = P_ff6i14 ELSE P_ff6i14 = scalar_index_table( PARAM_ff6i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i14 ) = .TRUE. scalar_dname_table( idomain, P_ff6i14 ) = 'ff6i14' scalar_desc_table( idomain, P_ff6i14 ) = 'graupel bin 14' scalar_units_table( idomain, P_ff6i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i14 )%stream(2) = 2097152 F_ff6i14 = .TRUE. IF ( scalar_index_table( PARAM_ff6i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i15 , idomain ) = P_ff6i15 ELSE P_ff6i15 = scalar_index_table( PARAM_ff6i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i15 ) = .TRUE. scalar_dname_table( idomain, P_ff6i15 ) = 'ff6i15' scalar_desc_table( idomain, P_ff6i15 ) = 'graupel bin 15' scalar_units_table( idomain, P_ff6i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i15 )%stream(2) = 2097152 F_ff6i15 = .TRUE. IF ( scalar_index_table( PARAM_ff6i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i16 , idomain ) = P_ff6i16 ELSE P_ff6i16 = scalar_index_table( PARAM_ff6i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i16 ) = .TRUE. scalar_dname_table( idomain, P_ff6i16 ) = 'ff6i16' scalar_desc_table( idomain, P_ff6i16 ) = 'graupel bin 16' scalar_units_table( idomain, P_ff6i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i16 )%stream(2) = 2097152 F_ff6i16 = .TRUE. IF ( scalar_index_table( PARAM_ff6i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i17 , idomain ) = P_ff6i17 ELSE P_ff6i17 = scalar_index_table( PARAM_ff6i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i17 ) = .TRUE. scalar_dname_table( idomain, P_ff6i17 ) = 'ff6i17' scalar_desc_table( idomain, P_ff6i17 ) = 'graupel bin 17' scalar_units_table( idomain, P_ff6i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i17 )%stream(2) = 2097152 F_ff6i17 = .TRUE. IF ( scalar_index_table( PARAM_ff6i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i18 , idomain ) = P_ff6i18 ELSE P_ff6i18 = scalar_index_table( PARAM_ff6i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i18 ) = .TRUE. scalar_dname_table( idomain, P_ff6i18 ) = 'ff6i18' scalar_desc_table( idomain, P_ff6i18 ) = 'graupel bin 18' scalar_units_table( idomain, P_ff6i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i18 )%stream(2) = 2097152 F_ff6i18 = .TRUE. IF ( scalar_index_table( PARAM_ff6i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i19 , idomain ) = P_ff6i19 ELSE P_ff6i19 = scalar_index_table( PARAM_ff6i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i19 ) = .TRUE. scalar_dname_table( idomain, P_ff6i19 ) = 'ff6i19' scalar_desc_table( idomain, P_ff6i19 ) = 'graupel bin 19' scalar_units_table( idomain, P_ff6i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i19 )%stream(2) = 2097152 F_ff6i19 = .TRUE. IF ( scalar_index_table( PARAM_ff6i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i20 , idomain ) = P_ff6i20 ELSE P_ff6i20 = scalar_index_table( PARAM_ff6i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i20 ) = .TRUE. scalar_dname_table( idomain, P_ff6i20 ) = 'ff6i20' scalar_desc_table( idomain, P_ff6i20 ) = 'graupel bin 20' scalar_units_table( idomain, P_ff6i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i20 )%stream(2) = 2097152 F_ff6i20 = .TRUE. IF ( scalar_index_table( PARAM_ff6i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i21 , idomain ) = P_ff6i21 ELSE P_ff6i21 = scalar_index_table( PARAM_ff6i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i21 ) = .TRUE. scalar_dname_table( idomain, P_ff6i21 ) = 'ff6i21' scalar_desc_table( idomain, P_ff6i21 ) = 'graupel bin 21' scalar_units_table( idomain, P_ff6i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i21 )%stream(2) = 2097152 F_ff6i21 = .TRUE. IF ( scalar_index_table( PARAM_ff6i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i22 , idomain ) = P_ff6i22 ELSE P_ff6i22 = scalar_index_table( PARAM_ff6i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i22 ) = .TRUE. scalar_dname_table( idomain, P_ff6i22 ) = 'ff6i22' scalar_desc_table( idomain, P_ff6i22 ) = 'graupel bin 22' scalar_units_table( idomain, P_ff6i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i22 )%stream(2) = 2097152 F_ff6i22 = .TRUE. IF ( scalar_index_table( PARAM_ff6i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i23 , idomain ) = P_ff6i23 ELSE P_ff6i23 = scalar_index_table( PARAM_ff6i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i23 ) = .TRUE. scalar_dname_table( idomain, P_ff6i23 ) = 'ff6i23' scalar_desc_table( idomain, P_ff6i23 ) = 'graupel bin 23' scalar_units_table( idomain, P_ff6i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i23 )%stream(2) = 2097152 F_ff6i23 = .TRUE. IF ( scalar_index_table( PARAM_ff6i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i24 , idomain ) = P_ff6i24 ELSE P_ff6i24 = scalar_index_table( PARAM_ff6i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i24 ) = .TRUE. scalar_dname_table( idomain, P_ff6i24 ) = 'ff6i24' scalar_desc_table( idomain, P_ff6i24 ) = 'graupel bin 24' scalar_units_table( idomain, P_ff6i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i24 )%stream(2) = 2097152 F_ff6i24 = .TRUE. IF ( scalar_index_table( PARAM_ff6i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i25 , idomain ) = P_ff6i25 ELSE P_ff6i25 = scalar_index_table( PARAM_ff6i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i25 ) = .TRUE. scalar_dname_table( idomain, P_ff6i25 ) = 'ff6i25' scalar_desc_table( idomain, P_ff6i25 ) = 'graupel bin 25' scalar_units_table( idomain, P_ff6i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i25 )%stream(2) = 2097152 F_ff6i25 = .TRUE. IF ( scalar_index_table( PARAM_ff6i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i26 , idomain ) = P_ff6i26 ELSE P_ff6i26 = scalar_index_table( PARAM_ff6i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i26 ) = .TRUE. scalar_dname_table( idomain, P_ff6i26 ) = 'ff6i26' scalar_desc_table( idomain, P_ff6i26 ) = 'graupel bin 26' scalar_units_table( idomain, P_ff6i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i26 )%stream(2) = 2097152 F_ff6i26 = .TRUE. IF ( scalar_index_table( PARAM_ff6i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i27 , idomain ) = P_ff6i27 ELSE P_ff6i27 = scalar_index_table( PARAM_ff6i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i27 ) = .TRUE. scalar_dname_table( idomain, P_ff6i27 ) = 'ff6i27' scalar_desc_table( idomain, P_ff6i27 ) = 'graupel bin 27' scalar_units_table( idomain, P_ff6i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i27 )%stream(2) = 2097152 F_ff6i27 = .TRUE. IF ( scalar_index_table( PARAM_ff6i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i28 , idomain ) = P_ff6i28 ELSE P_ff6i28 = scalar_index_table( PARAM_ff6i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i28 ) = .TRUE. scalar_dname_table( idomain, P_ff6i28 ) = 'ff6i28' scalar_desc_table( idomain, P_ff6i28 ) = 'graupel bin 28' scalar_units_table( idomain, P_ff6i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i28 )%stream(2) = 2097152 F_ff6i28 = .TRUE. IF ( scalar_index_table( PARAM_ff6i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i29 , idomain ) = P_ff6i29 ELSE P_ff6i29 = scalar_index_table( PARAM_ff6i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i29 ) = .TRUE. scalar_dname_table( idomain, P_ff6i29 ) = 'ff6i29' scalar_desc_table( idomain, P_ff6i29 ) = 'graupel bin 29' scalar_units_table( idomain, P_ff6i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i29 )%stream(2) = 2097152 F_ff6i29 = .TRUE. IF ( scalar_index_table( PARAM_ff6i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i30 , idomain ) = P_ff6i30 ELSE P_ff6i30 = scalar_index_table( PARAM_ff6i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i30 ) = .TRUE. scalar_dname_table( idomain, P_ff6i30 ) = 'ff6i30' scalar_desc_table( idomain, P_ff6i30 ) = 'graupel bin 30' scalar_units_table( idomain, P_ff6i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i30 )%stream(2) = 2097152 F_ff6i30 = .TRUE. IF ( scalar_index_table( PARAM_ff6i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i31 , idomain ) = P_ff6i31 ELSE P_ff6i31 = scalar_index_table( PARAM_ff6i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i31 ) = .TRUE. scalar_dname_table( idomain, P_ff6i31 ) = 'ff6i31' scalar_desc_table( idomain, P_ff6i31 ) = 'graupel bin 31' scalar_units_table( idomain, P_ff6i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i31 )%stream(2) = 2097152 F_ff6i31 = .TRUE. IF ( scalar_index_table( PARAM_ff6i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i32 , idomain ) = P_ff6i32 ELSE P_ff6i32 = scalar_index_table( PARAM_ff6i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i32 ) = .TRUE. scalar_dname_table( idomain, P_ff6i32 ) = 'ff6i32' scalar_desc_table( idomain, P_ff6i32 ) = 'graupel bin 32' scalar_units_table( idomain, P_ff6i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i32 )%stream(2) = 2097152 F_ff6i32 = .TRUE. IF ( scalar_index_table( PARAM_ff6i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff6i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff6i33 , idomain ) = P_ff6i33 ELSE P_ff6i33 = scalar_index_table( PARAM_ff6i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff6i33 ) = .TRUE. scalar_dname_table( idomain, P_ff6i33 ) = 'ff6i33' scalar_desc_table( idomain, P_ff6i33 ) = 'graupel bin 33' scalar_units_table( idomain, P_ff6i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff6i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff6i33 )%stream(2) = 2097152 F_ff6i33 = .TRUE. IF ( scalar_index_table( PARAM_ff8i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i01 , idomain ) = P_ff8i01 ELSE P_ff8i01 = scalar_index_table( PARAM_ff8i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i01 ) = .TRUE. scalar_dname_table( idomain, P_ff8i01 ) = 'ff8i01' scalar_desc_table( idomain, P_ff8i01 ) = 'aerosols bin 1' scalar_units_table( idomain, P_ff8i01 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i01 )%stream(2) = 2097152 F_ff8i01 = .TRUE. IF ( scalar_index_table( PARAM_ff8i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i02 , idomain ) = P_ff8i02 ELSE P_ff8i02 = scalar_index_table( PARAM_ff8i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i02 ) = .TRUE. scalar_dname_table( idomain, P_ff8i02 ) = 'ff8i02' scalar_desc_table( idomain, P_ff8i02 ) = 'aerosols bin 2' scalar_units_table( idomain, P_ff8i02 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i02 )%stream(2) = 2097152 F_ff8i02 = .TRUE. IF ( scalar_index_table( PARAM_ff8i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i03 , idomain ) = P_ff8i03 ELSE P_ff8i03 = scalar_index_table( PARAM_ff8i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i03 ) = .TRUE. scalar_dname_table( idomain, P_ff8i03 ) = 'ff8i03' scalar_desc_table( idomain, P_ff8i03 ) = 'aerosols bin 3' scalar_units_table( idomain, P_ff8i03 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i03 )%stream(2) = 2097152 F_ff8i03 = .TRUE. IF ( scalar_index_table( PARAM_ff8i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i04 , idomain ) = P_ff8i04 ELSE P_ff8i04 = scalar_index_table( PARAM_ff8i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i04 ) = .TRUE. scalar_dname_table( idomain, P_ff8i04 ) = 'ff8i04' scalar_desc_table( idomain, P_ff8i04 ) = 'aerosols bin 4' scalar_units_table( idomain, P_ff8i04 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i04 )%stream(2) = 2097152 F_ff8i04 = .TRUE. IF ( scalar_index_table( PARAM_ff8i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i05 , idomain ) = P_ff8i05 ELSE P_ff8i05 = scalar_index_table( PARAM_ff8i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i05 ) = .TRUE. scalar_dname_table( idomain, P_ff8i05 ) = 'ff8i05' scalar_desc_table( idomain, P_ff8i05 ) = 'aerosols bin 5' scalar_units_table( idomain, P_ff8i05 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i05 )%stream(2) = 2097152 F_ff8i05 = .TRUE. IF ( scalar_index_table( PARAM_ff8i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i06 , idomain ) = P_ff8i06 ELSE P_ff8i06 = scalar_index_table( PARAM_ff8i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i06 ) = .TRUE. scalar_dname_table( idomain, P_ff8i06 ) = 'ff8i06' scalar_desc_table( idomain, P_ff8i06 ) = 'aerosols bin 6' scalar_units_table( idomain, P_ff8i06 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i06 )%stream(2) = 2097152 F_ff8i06 = .TRUE. IF ( scalar_index_table( PARAM_ff8i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i07 , idomain ) = P_ff8i07 ELSE P_ff8i07 = scalar_index_table( PARAM_ff8i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i07 ) = .TRUE. scalar_dname_table( idomain, P_ff8i07 ) = 'ff8i07' scalar_desc_table( idomain, P_ff8i07 ) = 'aerosols bin 7' scalar_units_table( idomain, P_ff8i07 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i07 )%stream(2) = 2097152 F_ff8i07 = .TRUE. IF ( scalar_index_table( PARAM_ff8i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i08 , idomain ) = P_ff8i08 ELSE P_ff8i08 = scalar_index_table( PARAM_ff8i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i08 ) = .TRUE. scalar_dname_table( idomain, P_ff8i08 ) = 'ff8i08' scalar_desc_table( idomain, P_ff8i08 ) = 'aerosols bin 8' scalar_units_table( idomain, P_ff8i08 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i08 )%stream(2) = 2097152 F_ff8i08 = .TRUE. IF ( scalar_index_table( PARAM_ff8i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i09 , idomain ) = P_ff8i09 ELSE P_ff8i09 = scalar_index_table( PARAM_ff8i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i09 ) = .TRUE. scalar_dname_table( idomain, P_ff8i09 ) = 'ff8i09' scalar_desc_table( idomain, P_ff8i09 ) = 'aerosols bin 9' scalar_units_table( idomain, P_ff8i09 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i09 )%stream(2) = 2097152 F_ff8i09 = .TRUE. IF ( scalar_index_table( PARAM_ff8i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i10 , idomain ) = P_ff8i10 ELSE P_ff8i10 = scalar_index_table( PARAM_ff8i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i10 ) = .TRUE. scalar_dname_table( idomain, P_ff8i10 ) = 'ff8i10' scalar_desc_table( idomain, P_ff8i10 ) = 'aerosols bin 10' scalar_units_table( idomain, P_ff8i10 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i10 )%stream(2) = 2097152 F_ff8i10 = .TRUE. IF ( scalar_index_table( PARAM_ff8i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i11 , idomain ) = P_ff8i11 ELSE P_ff8i11 = scalar_index_table( PARAM_ff8i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i11 ) = .TRUE. scalar_dname_table( idomain, P_ff8i11 ) = 'ff8i11' scalar_desc_table( idomain, P_ff8i11 ) = 'aerosols bin 11' scalar_units_table( idomain, P_ff8i11 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i11 )%stream(2) = 2097152 F_ff8i11 = .TRUE. IF ( scalar_index_table( PARAM_ff8i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i12 , idomain ) = P_ff8i12 ELSE P_ff8i12 = scalar_index_table( PARAM_ff8i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i12 ) = .TRUE. scalar_dname_table( idomain, P_ff8i12 ) = 'ff8i12' scalar_desc_table( idomain, P_ff8i12 ) = 'aerosols bin 12' scalar_units_table( idomain, P_ff8i12 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i12 )%stream(2) = 2097152 F_ff8i12 = .TRUE. IF ( scalar_index_table( PARAM_ff8i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i13 , idomain ) = P_ff8i13 ELSE P_ff8i13 = scalar_index_table( PARAM_ff8i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i13 ) = .TRUE. scalar_dname_table( idomain, P_ff8i13 ) = 'ff8i13' scalar_desc_table( idomain, P_ff8i13 ) = 'aerosols bin 13' scalar_units_table( idomain, P_ff8i13 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i13 )%stream(2) = 2097152 F_ff8i13 = .TRUE. IF ( scalar_index_table( PARAM_ff8i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i14 , idomain ) = P_ff8i14 ELSE P_ff8i14 = scalar_index_table( PARAM_ff8i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i14 ) = .TRUE. scalar_dname_table( idomain, P_ff8i14 ) = 'ff8i14' scalar_desc_table( idomain, P_ff8i14 ) = 'aerosols bin 14' scalar_units_table( idomain, P_ff8i14 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i14 )%stream(2) = 2097152 F_ff8i14 = .TRUE. IF ( scalar_index_table( PARAM_ff8i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i15 , idomain ) = P_ff8i15 ELSE P_ff8i15 = scalar_index_table( PARAM_ff8i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i15 ) = .TRUE. scalar_dname_table( idomain, P_ff8i15 ) = 'ff8i15' scalar_desc_table( idomain, P_ff8i15 ) = 'aerosols bin 15' scalar_units_table( idomain, P_ff8i15 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i15 )%stream(2) = 2097152 F_ff8i15 = .TRUE. IF ( scalar_index_table( PARAM_ff8i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i16 , idomain ) = P_ff8i16 ELSE P_ff8i16 = scalar_index_table( PARAM_ff8i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i16 ) = .TRUE. scalar_dname_table( idomain, P_ff8i16 ) = 'ff8i16' scalar_desc_table( idomain, P_ff8i16 ) = 'aerosols bin 16' scalar_units_table( idomain, P_ff8i16 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i16 )%stream(2) = 2097152 F_ff8i16 = .TRUE. IF ( scalar_index_table( PARAM_ff8i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i17 , idomain ) = P_ff8i17 ELSE P_ff8i17 = scalar_index_table( PARAM_ff8i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i17 ) = .TRUE. scalar_dname_table( idomain, P_ff8i17 ) = 'ff8i17' scalar_desc_table( idomain, P_ff8i17 ) = 'aerosols bin 17' scalar_units_table( idomain, P_ff8i17 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i17 )%stream(2) = 2097152 F_ff8i17 = .TRUE. IF ( scalar_index_table( PARAM_ff8i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i18 , idomain ) = P_ff8i18 ELSE P_ff8i18 = scalar_index_table( PARAM_ff8i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i18 ) = .TRUE. scalar_dname_table( idomain, P_ff8i18 ) = 'ff8i18' scalar_desc_table( idomain, P_ff8i18 ) = 'aerosols bin 18' scalar_units_table( idomain, P_ff8i18 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i18 )%stream(2) = 2097152 F_ff8i18 = .TRUE. IF ( scalar_index_table( PARAM_ff8i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i19 , idomain ) = P_ff8i19 ELSE P_ff8i19 = scalar_index_table( PARAM_ff8i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i19 ) = .TRUE. scalar_dname_table( idomain, P_ff8i19 ) = 'ff8i19' scalar_desc_table( idomain, P_ff8i19 ) = 'aerosols bin 19' scalar_units_table( idomain, P_ff8i19 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i19 )%stream(2) = 2097152 F_ff8i19 = .TRUE. IF ( scalar_index_table( PARAM_ff8i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i20 , idomain ) = P_ff8i20 ELSE P_ff8i20 = scalar_index_table( PARAM_ff8i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i20 ) = .TRUE. scalar_dname_table( idomain, P_ff8i20 ) = 'ff8i20' scalar_desc_table( idomain, P_ff8i20 ) = 'aerosols bin 20' scalar_units_table( idomain, P_ff8i20 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i20 )%stream(2) = 2097152 F_ff8i20 = .TRUE. IF ( scalar_index_table( PARAM_ff8i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i21 , idomain ) = P_ff8i21 ELSE P_ff8i21 = scalar_index_table( PARAM_ff8i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i21 ) = .TRUE. scalar_dname_table( idomain, P_ff8i21 ) = 'ff8i21' scalar_desc_table( idomain, P_ff8i21 ) = 'aerosols bin 21' scalar_units_table( idomain, P_ff8i21 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i21 )%stream(2) = 2097152 F_ff8i21 = .TRUE. IF ( scalar_index_table( PARAM_ff8i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i22 , idomain ) = P_ff8i22 ELSE P_ff8i22 = scalar_index_table( PARAM_ff8i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i22 ) = .TRUE. scalar_dname_table( idomain, P_ff8i22 ) = 'ff8i22' scalar_desc_table( idomain, P_ff8i22 ) = 'aerosols bin 22' scalar_units_table( idomain, P_ff8i22 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i22 )%stream(2) = 2097152 F_ff8i22 = .TRUE. IF ( scalar_index_table( PARAM_ff8i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i23 , idomain ) = P_ff8i23 ELSE P_ff8i23 = scalar_index_table( PARAM_ff8i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i23 ) = .TRUE. scalar_dname_table( idomain, P_ff8i23 ) = 'ff8i23' scalar_desc_table( idomain, P_ff8i23 ) = 'aerosols bin 23' scalar_units_table( idomain, P_ff8i23 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i23 )%stream(2) = 2097152 F_ff8i23 = .TRUE. IF ( scalar_index_table( PARAM_ff8i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i24 , idomain ) = P_ff8i24 ELSE P_ff8i24 = scalar_index_table( PARAM_ff8i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i24 ) = .TRUE. scalar_dname_table( idomain, P_ff8i24 ) = 'ff8i24' scalar_desc_table( idomain, P_ff8i24 ) = 'aerosols bin 24' scalar_units_table( idomain, P_ff8i24 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i24 )%stream(2) = 2097152 F_ff8i24 = .TRUE. IF ( scalar_index_table( PARAM_ff8i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i25 , idomain ) = P_ff8i25 ELSE P_ff8i25 = scalar_index_table( PARAM_ff8i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i25 ) = .TRUE. scalar_dname_table( idomain, P_ff8i25 ) = 'ff8i25' scalar_desc_table( idomain, P_ff8i25 ) = 'aerosols bin 25' scalar_units_table( idomain, P_ff8i25 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i25 )%stream(2) = 2097152 F_ff8i25 = .TRUE. IF ( scalar_index_table( PARAM_ff8i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i26 , idomain ) = P_ff8i26 ELSE P_ff8i26 = scalar_index_table( PARAM_ff8i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i26 ) = .TRUE. scalar_dname_table( idomain, P_ff8i26 ) = 'ff8i26' scalar_desc_table( idomain, P_ff8i26 ) = 'aerosols bin 26' scalar_units_table( idomain, P_ff8i26 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i26 )%stream(2) = 2097152 F_ff8i26 = .TRUE. IF ( scalar_index_table( PARAM_ff8i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i27 , idomain ) = P_ff8i27 ELSE P_ff8i27 = scalar_index_table( PARAM_ff8i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i27 ) = .TRUE. scalar_dname_table( idomain, P_ff8i27 ) = 'ff8i27' scalar_desc_table( idomain, P_ff8i27 ) = 'aerosols bin 27' scalar_units_table( idomain, P_ff8i27 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i27 )%stream(2) = 2097152 F_ff8i27 = .TRUE. IF ( scalar_index_table( PARAM_ff8i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i28 , idomain ) = P_ff8i28 ELSE P_ff8i28 = scalar_index_table( PARAM_ff8i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i28 ) = .TRUE. scalar_dname_table( idomain, P_ff8i28 ) = 'ff8i28' scalar_desc_table( idomain, P_ff8i28 ) = 'aerosols bin 28' scalar_units_table( idomain, P_ff8i28 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i28 )%stream(2) = 2097152 F_ff8i28 = .TRUE. IF ( scalar_index_table( PARAM_ff8i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i29 , idomain ) = P_ff8i29 ELSE P_ff8i29 = scalar_index_table( PARAM_ff8i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i29 ) = .TRUE. scalar_dname_table( idomain, P_ff8i29 ) = 'ff8i29' scalar_desc_table( idomain, P_ff8i29 ) = 'aerosols bin 29' scalar_units_table( idomain, P_ff8i29 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i29 )%stream(2) = 2097152 F_ff8i29 = .TRUE. IF ( scalar_index_table( PARAM_ff8i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i30 , idomain ) = P_ff8i30 ELSE P_ff8i30 = scalar_index_table( PARAM_ff8i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i30 ) = .TRUE. scalar_dname_table( idomain, P_ff8i30 ) = 'ff8i30' scalar_desc_table( idomain, P_ff8i30 ) = 'aerosols bin 30' scalar_units_table( idomain, P_ff8i30 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i30 )%stream(2) = 2097152 F_ff8i30 = .TRUE. IF ( scalar_index_table( PARAM_ff8i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i31 , idomain ) = P_ff8i31 ELSE P_ff8i31 = scalar_index_table( PARAM_ff8i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i31 ) = .TRUE. scalar_dname_table( idomain, P_ff8i31 ) = 'ff8i31' scalar_desc_table( idomain, P_ff8i31 ) = 'aerosols bin 31' scalar_units_table( idomain, P_ff8i31 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i31 )%stream(2) = 2097152 F_ff8i31 = .TRUE. IF ( scalar_index_table( PARAM_ff8i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i32 , idomain ) = P_ff8i32 ELSE P_ff8i32 = scalar_index_table( PARAM_ff8i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i32 ) = .TRUE. scalar_dname_table( idomain, P_ff8i32 ) = 'ff8i32' scalar_desc_table( idomain, P_ff8i32 ) = 'aerosols bin 32' scalar_units_table( idomain, P_ff8i32 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i32 )%stream(2) = 2097152 F_ff8i32 = .TRUE. IF ( scalar_index_table( PARAM_ff8i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff8i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff8i33 , idomain ) = P_ff8i33 ELSE P_ff8i33 = scalar_index_table( PARAM_ff8i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff8i33 ) = .TRUE. scalar_dname_table( idomain, P_ff8i33 ) = 'ff8i33' scalar_desc_table( idomain, P_ff8i33 ) = 'aerosols bin 33' scalar_units_table( idomain, P_ff8i33 ) = ' kg-1' scalar_streams_table( idomain, P_ff8i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff8i33 )%stream(2) = 2097152 F_ff8i33 = .TRUE. IF ( scalar_index_table( PARAM_ff2i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i01 , idomain ) = P_ff2i01 ELSE P_ff2i01 = scalar_index_table( PARAM_ff2i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i01 ) = .TRUE. scalar_dname_table( idomain, P_ff2i01 ) = 'ff2i01' scalar_desc_table( idomain, P_ff2i01 ) = 'ice/columns bin 1' scalar_units_table( idomain, P_ff2i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i01 )%stream(2) = 2097152 F_ff2i01 = .TRUE. IF ( scalar_index_table( PARAM_ff2i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i02 , idomain ) = P_ff2i02 ELSE P_ff2i02 = scalar_index_table( PARAM_ff2i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i02 ) = .TRUE. scalar_dname_table( idomain, P_ff2i02 ) = 'ff2i02' scalar_desc_table( idomain, P_ff2i02 ) = 'ice/columns bin 2' scalar_units_table( idomain, P_ff2i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i02 )%stream(2) = 2097152 F_ff2i02 = .TRUE. IF ( scalar_index_table( PARAM_ff2i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i03 , idomain ) = P_ff2i03 ELSE P_ff2i03 = scalar_index_table( PARAM_ff2i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i03 ) = .TRUE. scalar_dname_table( idomain, P_ff2i03 ) = 'ff2i03' scalar_desc_table( idomain, P_ff2i03 ) = 'ice/columns bin 3' scalar_units_table( idomain, P_ff2i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i03 )%stream(2) = 2097152 F_ff2i03 = .TRUE. IF ( scalar_index_table( PARAM_ff2i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i04 , idomain ) = P_ff2i04 ELSE P_ff2i04 = scalar_index_table( PARAM_ff2i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i04 ) = .TRUE. scalar_dname_table( idomain, P_ff2i04 ) = 'ff2i04' scalar_desc_table( idomain, P_ff2i04 ) = 'ice/columns bin 4' scalar_units_table( idomain, P_ff2i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i04 )%stream(2) = 2097152 F_ff2i04 = .TRUE. IF ( scalar_index_table( PARAM_ff2i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i05 , idomain ) = P_ff2i05 ELSE P_ff2i05 = scalar_index_table( PARAM_ff2i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i05 ) = .TRUE. scalar_dname_table( idomain, P_ff2i05 ) = 'ff2i05' scalar_desc_table( idomain, P_ff2i05 ) = 'ice/columns bin 5' scalar_units_table( idomain, P_ff2i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i05 )%stream(2) = 2097152 F_ff2i05 = .TRUE. IF ( scalar_index_table( PARAM_ff2i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i06 , idomain ) = P_ff2i06 ELSE P_ff2i06 = scalar_index_table( PARAM_ff2i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i06 ) = .TRUE. scalar_dname_table( idomain, P_ff2i06 ) = 'ff2i06' scalar_desc_table( idomain, P_ff2i06 ) = 'ice/columns bin 6' scalar_units_table( idomain, P_ff2i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i06 )%stream(2) = 2097152 F_ff2i06 = .TRUE. IF ( scalar_index_table( PARAM_ff2i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i07 , idomain ) = P_ff2i07 ELSE P_ff2i07 = scalar_index_table( PARAM_ff2i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i07 ) = .TRUE. scalar_dname_table( idomain, P_ff2i07 ) = 'ff2i07' scalar_desc_table( idomain, P_ff2i07 ) = 'ice/columns bin 7' scalar_units_table( idomain, P_ff2i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i07 )%stream(2) = 2097152 F_ff2i07 = .TRUE. IF ( scalar_index_table( PARAM_ff2i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i08 , idomain ) = P_ff2i08 ELSE P_ff2i08 = scalar_index_table( PARAM_ff2i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i08 ) = .TRUE. scalar_dname_table( idomain, P_ff2i08 ) = 'ff2i08' scalar_desc_table( idomain, P_ff2i08 ) = 'ice/columns bin 8' scalar_units_table( idomain, P_ff2i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i08 )%stream(2) = 2097152 F_ff2i08 = .TRUE. IF ( scalar_index_table( PARAM_ff2i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i09 , idomain ) = P_ff2i09 ELSE P_ff2i09 = scalar_index_table( PARAM_ff2i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i09 ) = .TRUE. scalar_dname_table( idomain, P_ff2i09 ) = 'ff2i09' scalar_desc_table( idomain, P_ff2i09 ) = 'ice/columns bin 9' scalar_units_table( idomain, P_ff2i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i09 )%stream(2) = 2097152 F_ff2i09 = .TRUE. IF ( scalar_index_table( PARAM_ff2i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i10 , idomain ) = P_ff2i10 ELSE P_ff2i10 = scalar_index_table( PARAM_ff2i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i10 ) = .TRUE. scalar_dname_table( idomain, P_ff2i10 ) = 'ff2i10' scalar_desc_table( idomain, P_ff2i10 ) = 'ice/columns bin 10' scalar_units_table( idomain, P_ff2i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i10 )%stream(2) = 2097152 F_ff2i10 = .TRUE. IF ( scalar_index_table( PARAM_ff2i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i11 , idomain ) = P_ff2i11 ELSE P_ff2i11 = scalar_index_table( PARAM_ff2i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i11 ) = .TRUE. scalar_dname_table( idomain, P_ff2i11 ) = 'ff2i11' scalar_desc_table( idomain, P_ff2i11 ) = 'ice/columns bin 11' scalar_units_table( idomain, P_ff2i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i11 )%stream(2) = 2097152 F_ff2i11 = .TRUE. IF ( scalar_index_table( PARAM_ff2i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i12 , idomain ) = P_ff2i12 ELSE P_ff2i12 = scalar_index_table( PARAM_ff2i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i12 ) = .TRUE. scalar_dname_table( idomain, P_ff2i12 ) = 'ff2i12' scalar_desc_table( idomain, P_ff2i12 ) = 'ice/columns bin 12' scalar_units_table( idomain, P_ff2i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i12 )%stream(2) = 2097152 F_ff2i12 = .TRUE. IF ( scalar_index_table( PARAM_ff2i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i13 , idomain ) = P_ff2i13 ELSE P_ff2i13 = scalar_index_table( PARAM_ff2i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i13 ) = .TRUE. scalar_dname_table( idomain, P_ff2i13 ) = 'ff2i13' scalar_desc_table( idomain, P_ff2i13 ) = 'ice/columns bin 13' scalar_units_table( idomain, P_ff2i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i13 )%stream(2) = 2097152 F_ff2i13 = .TRUE. IF ( scalar_index_table( PARAM_ff2i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i14 , idomain ) = P_ff2i14 ELSE P_ff2i14 = scalar_index_table( PARAM_ff2i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i14 ) = .TRUE. scalar_dname_table( idomain, P_ff2i14 ) = 'ff2i14' scalar_desc_table( idomain, P_ff2i14 ) = 'ice/columns bin 14' scalar_units_table( idomain, P_ff2i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i14 )%stream(2) = 2097152 F_ff2i14 = .TRUE. IF ( scalar_index_table( PARAM_ff2i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i15 , idomain ) = P_ff2i15 ELSE P_ff2i15 = scalar_index_table( PARAM_ff2i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i15 ) = .TRUE. scalar_dname_table( idomain, P_ff2i15 ) = 'ff2i15' scalar_desc_table( idomain, P_ff2i15 ) = 'ice/columns bin 15' scalar_units_table( idomain, P_ff2i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i15 )%stream(2) = 2097152 F_ff2i15 = .TRUE. IF ( scalar_index_table( PARAM_ff2i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i16 , idomain ) = P_ff2i16 ELSE P_ff2i16 = scalar_index_table( PARAM_ff2i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i16 ) = .TRUE. scalar_dname_table( idomain, P_ff2i16 ) = 'ff2i16' scalar_desc_table( idomain, P_ff2i16 ) = 'ice/columns bin 16' scalar_units_table( idomain, P_ff2i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i16 )%stream(2) = 2097152 F_ff2i16 = .TRUE. IF ( scalar_index_table( PARAM_ff2i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i17 , idomain ) = P_ff2i17 ELSE P_ff2i17 = scalar_index_table( PARAM_ff2i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i17 ) = .TRUE. scalar_dname_table( idomain, P_ff2i17 ) = 'ff2i17' scalar_desc_table( idomain, P_ff2i17 ) = 'ice/columns bin 17' scalar_units_table( idomain, P_ff2i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i17 )%stream(2) = 2097152 F_ff2i17 = .TRUE. IF ( scalar_index_table( PARAM_ff2i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i18 , idomain ) = P_ff2i18 ELSE P_ff2i18 = scalar_index_table( PARAM_ff2i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i18 ) = .TRUE. scalar_dname_table( idomain, P_ff2i18 ) = 'ff2i18' scalar_desc_table( idomain, P_ff2i18 ) = 'ice/columns bin 18' scalar_units_table( idomain, P_ff2i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i18 )%stream(2) = 2097152 F_ff2i18 = .TRUE. IF ( scalar_index_table( PARAM_ff2i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i19 , idomain ) = P_ff2i19 ELSE P_ff2i19 = scalar_index_table( PARAM_ff2i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i19 ) = .TRUE. scalar_dname_table( idomain, P_ff2i19 ) = 'ff2i19' scalar_desc_table( idomain, P_ff2i19 ) = 'ice/columns bin 19' scalar_units_table( idomain, P_ff2i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i19 )%stream(2) = 2097152 F_ff2i19 = .TRUE. IF ( scalar_index_table( PARAM_ff2i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i20 , idomain ) = P_ff2i20 ELSE P_ff2i20 = scalar_index_table( PARAM_ff2i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i20 ) = .TRUE. scalar_dname_table( idomain, P_ff2i20 ) = 'ff2i20' scalar_desc_table( idomain, P_ff2i20 ) = 'ice/columns bin 20' scalar_units_table( idomain, P_ff2i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i20 )%stream(2) = 2097152 F_ff2i20 = .TRUE. IF ( scalar_index_table( PARAM_ff2i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i21 , idomain ) = P_ff2i21 ELSE P_ff2i21 = scalar_index_table( PARAM_ff2i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i21 ) = .TRUE. scalar_dname_table( idomain, P_ff2i21 ) = 'ff2i21' scalar_desc_table( idomain, P_ff2i21 ) = 'ice/columns bin 21' scalar_units_table( idomain, P_ff2i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i21 )%stream(2) = 2097152 F_ff2i21 = .TRUE. IF ( scalar_index_table( PARAM_ff2i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i22 , idomain ) = P_ff2i22 ELSE P_ff2i22 = scalar_index_table( PARAM_ff2i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i22 ) = .TRUE. scalar_dname_table( idomain, P_ff2i22 ) = 'ff2i22' scalar_desc_table( idomain, P_ff2i22 ) = 'ice/columns bin 22' scalar_units_table( idomain, P_ff2i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i22 )%stream(2) = 2097152 F_ff2i22 = .TRUE. IF ( scalar_index_table( PARAM_ff2i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i23 , idomain ) = P_ff2i23 ELSE P_ff2i23 = scalar_index_table( PARAM_ff2i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i23 ) = .TRUE. scalar_dname_table( idomain, P_ff2i23 ) = 'ff2i23' scalar_desc_table( idomain, P_ff2i23 ) = 'ice/columns bin 23' scalar_units_table( idomain, P_ff2i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i23 )%stream(2) = 2097152 F_ff2i23 = .TRUE. IF ( scalar_index_table( PARAM_ff2i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i24 , idomain ) = P_ff2i24 ELSE P_ff2i24 = scalar_index_table( PARAM_ff2i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i24 ) = .TRUE. scalar_dname_table( idomain, P_ff2i24 ) = 'ff2i24' scalar_desc_table( idomain, P_ff2i24 ) = 'ice/columns bin 24' scalar_units_table( idomain, P_ff2i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i24 )%stream(2) = 2097152 F_ff2i24 = .TRUE. IF ( scalar_index_table( PARAM_ff2i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i25 , idomain ) = P_ff2i25 ELSE P_ff2i25 = scalar_index_table( PARAM_ff2i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i25 ) = .TRUE. scalar_dname_table( idomain, P_ff2i25 ) = 'ff2i25' scalar_desc_table( idomain, P_ff2i25 ) = 'ice/columns bin 25' scalar_units_table( idomain, P_ff2i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i25 )%stream(2) = 2097152 F_ff2i25 = .TRUE. IF ( scalar_index_table( PARAM_ff2i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i26 , idomain ) = P_ff2i26 ELSE P_ff2i26 = scalar_index_table( PARAM_ff2i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i26 ) = .TRUE. scalar_dname_table( idomain, P_ff2i26 ) = 'ff2i26' scalar_desc_table( idomain, P_ff2i26 ) = 'ice/columns bin 26' scalar_units_table( idomain, P_ff2i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i26 )%stream(2) = 2097152 F_ff2i26 = .TRUE. IF ( scalar_index_table( PARAM_ff2i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i27 , idomain ) = P_ff2i27 ELSE P_ff2i27 = scalar_index_table( PARAM_ff2i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i27 ) = .TRUE. scalar_dname_table( idomain, P_ff2i27 ) = 'ff2i27' scalar_desc_table( idomain, P_ff2i27 ) = 'ice/columns bin 27' scalar_units_table( idomain, P_ff2i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i27 )%stream(2) = 2097152 F_ff2i27 = .TRUE. IF ( scalar_index_table( PARAM_ff2i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i28 , idomain ) = P_ff2i28 ELSE P_ff2i28 = scalar_index_table( PARAM_ff2i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i28 ) = .TRUE. scalar_dname_table( idomain, P_ff2i28 ) = 'ff2i28' scalar_desc_table( idomain, P_ff2i28 ) = 'ice/columns bin 28' scalar_units_table( idomain, P_ff2i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i28 )%stream(2) = 2097152 F_ff2i28 = .TRUE. IF ( scalar_index_table( PARAM_ff2i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i29 , idomain ) = P_ff2i29 ELSE P_ff2i29 = scalar_index_table( PARAM_ff2i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i29 ) = .TRUE. scalar_dname_table( idomain, P_ff2i29 ) = 'ff2i29' scalar_desc_table( idomain, P_ff2i29 ) = 'ice/columns bin 29' scalar_units_table( idomain, P_ff2i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i29 )%stream(2) = 2097152 F_ff2i29 = .TRUE. IF ( scalar_index_table( PARAM_ff2i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i30 , idomain ) = P_ff2i30 ELSE P_ff2i30 = scalar_index_table( PARAM_ff2i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i30 ) = .TRUE. scalar_dname_table( idomain, P_ff2i30 ) = 'ff2i30' scalar_desc_table( idomain, P_ff2i30 ) = 'ice/columns bin 30' scalar_units_table( idomain, P_ff2i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i30 )%stream(2) = 2097152 F_ff2i30 = .TRUE. IF ( scalar_index_table( PARAM_ff2i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i31 , idomain ) = P_ff2i31 ELSE P_ff2i31 = scalar_index_table( PARAM_ff2i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i31 ) = .TRUE. scalar_dname_table( idomain, P_ff2i31 ) = 'ff2i31' scalar_desc_table( idomain, P_ff2i31 ) = 'ice/columns bin 31' scalar_units_table( idomain, P_ff2i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i31 )%stream(2) = 2097152 F_ff2i31 = .TRUE. IF ( scalar_index_table( PARAM_ff2i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i32 , idomain ) = P_ff2i32 ELSE P_ff2i32 = scalar_index_table( PARAM_ff2i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i32 ) = .TRUE. scalar_dname_table( idomain, P_ff2i32 ) = 'ff2i32' scalar_desc_table( idomain, P_ff2i32 ) = 'ice/columns bin 32' scalar_units_table( idomain, P_ff2i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i32 )%stream(2) = 2097152 F_ff2i32 = .TRUE. IF ( scalar_index_table( PARAM_ff2i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff2i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff2i33 , idomain ) = P_ff2i33 ELSE P_ff2i33 = scalar_index_table( PARAM_ff2i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff2i33 ) = .TRUE. scalar_dname_table( idomain, P_ff2i33 ) = 'ff2i33' scalar_desc_table( idomain, P_ff2i33 ) = 'ice/columns bin 33' scalar_units_table( idomain, P_ff2i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff2i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff2i33 )%stream(2) = 2097152 F_ff2i33 = .TRUE. IF ( scalar_index_table( PARAM_ff3i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i01 , idomain ) = P_ff3i01 ELSE P_ff3i01 = scalar_index_table( PARAM_ff3i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i01 ) = .TRUE. scalar_dname_table( idomain, P_ff3i01 ) = 'ff3i01' scalar_desc_table( idomain, P_ff3i01 ) = 'ice/plates bin 1' scalar_units_table( idomain, P_ff3i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i01 )%stream(2) = 2097152 F_ff3i01 = .TRUE. IF ( scalar_index_table( PARAM_ff3i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i02 , idomain ) = P_ff3i02 ELSE P_ff3i02 = scalar_index_table( PARAM_ff3i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i02 ) = .TRUE. scalar_dname_table( idomain, P_ff3i02 ) = 'ff3i02' scalar_desc_table( idomain, P_ff3i02 ) = 'ice/plates bin 2' scalar_units_table( idomain, P_ff3i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i02 )%stream(2) = 2097152 F_ff3i02 = .TRUE. IF ( scalar_index_table( PARAM_ff3i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i03 , idomain ) = P_ff3i03 ELSE P_ff3i03 = scalar_index_table( PARAM_ff3i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i03 ) = .TRUE. scalar_dname_table( idomain, P_ff3i03 ) = 'ff3i03' scalar_desc_table( idomain, P_ff3i03 ) = 'ice/plates bin 3' scalar_units_table( idomain, P_ff3i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i03 )%stream(2) = 2097152 F_ff3i03 = .TRUE. IF ( scalar_index_table( PARAM_ff3i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i04 , idomain ) = P_ff3i04 ELSE P_ff3i04 = scalar_index_table( PARAM_ff3i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i04 ) = .TRUE. scalar_dname_table( idomain, P_ff3i04 ) = 'ff3i04' scalar_desc_table( idomain, P_ff3i04 ) = 'ice/plates bin 4' scalar_units_table( idomain, P_ff3i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i04 )%stream(2) = 2097152 F_ff3i04 = .TRUE. IF ( scalar_index_table( PARAM_ff3i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i05 , idomain ) = P_ff3i05 ELSE P_ff3i05 = scalar_index_table( PARAM_ff3i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i05 ) = .TRUE. scalar_dname_table( idomain, P_ff3i05 ) = 'ff3i05' scalar_desc_table( idomain, P_ff3i05 ) = 'ice/plates bin 5' scalar_units_table( idomain, P_ff3i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i05 )%stream(2) = 2097152 F_ff3i05 = .TRUE. IF ( scalar_index_table( PARAM_ff3i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i06 , idomain ) = P_ff3i06 ELSE P_ff3i06 = scalar_index_table( PARAM_ff3i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i06 ) = .TRUE. scalar_dname_table( idomain, P_ff3i06 ) = 'ff3i06' scalar_desc_table( idomain, P_ff3i06 ) = 'ice/plates bin 6' scalar_units_table( idomain, P_ff3i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i06 )%stream(2) = 2097152 F_ff3i06 = .TRUE. IF ( scalar_index_table( PARAM_ff3i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i07 , idomain ) = P_ff3i07 ELSE P_ff3i07 = scalar_index_table( PARAM_ff3i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i07 ) = .TRUE. scalar_dname_table( idomain, P_ff3i07 ) = 'ff3i07' scalar_desc_table( idomain, P_ff3i07 ) = 'ice/plates bin 7' scalar_units_table( idomain, P_ff3i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i07 )%stream(2) = 2097152 F_ff3i07 = .TRUE. IF ( scalar_index_table( PARAM_ff3i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i08 , idomain ) = P_ff3i08 ELSE P_ff3i08 = scalar_index_table( PARAM_ff3i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i08 ) = .TRUE. scalar_dname_table( idomain, P_ff3i08 ) = 'ff3i08' scalar_desc_table( idomain, P_ff3i08 ) = 'ice/plates bin 8' scalar_units_table( idomain, P_ff3i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i08 )%stream(2) = 2097152 F_ff3i08 = .TRUE. IF ( scalar_index_table( PARAM_ff3i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i09 , idomain ) = P_ff3i09 ELSE P_ff3i09 = scalar_index_table( PARAM_ff3i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i09 ) = .TRUE. scalar_dname_table( idomain, P_ff3i09 ) = 'ff3i09' scalar_desc_table( idomain, P_ff3i09 ) = 'ice/plates bin 9' scalar_units_table( idomain, P_ff3i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i09 )%stream(2) = 2097152 F_ff3i09 = .TRUE. IF ( scalar_index_table( PARAM_ff3i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i10 , idomain ) = P_ff3i10 ELSE P_ff3i10 = scalar_index_table( PARAM_ff3i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i10 ) = .TRUE. scalar_dname_table( idomain, P_ff3i10 ) = 'ff3i10' scalar_desc_table( idomain, P_ff3i10 ) = 'ice/plates bin 10' scalar_units_table( idomain, P_ff3i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i10 )%stream(2) = 2097152 F_ff3i10 = .TRUE. IF ( scalar_index_table( PARAM_ff3i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i11 , idomain ) = P_ff3i11 ELSE P_ff3i11 = scalar_index_table( PARAM_ff3i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i11 ) = .TRUE. scalar_dname_table( idomain, P_ff3i11 ) = 'ff3i11' scalar_desc_table( idomain, P_ff3i11 ) = 'ice/plates bin 11' scalar_units_table( idomain, P_ff3i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i11 )%stream(2) = 2097152 F_ff3i11 = .TRUE. IF ( scalar_index_table( PARAM_ff3i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i12 , idomain ) = P_ff3i12 ELSE P_ff3i12 = scalar_index_table( PARAM_ff3i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i12 ) = .TRUE. scalar_dname_table( idomain, P_ff3i12 ) = 'ff3i12' scalar_desc_table( idomain, P_ff3i12 ) = 'ice/plates bin 12' scalar_units_table( idomain, P_ff3i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i12 )%stream(2) = 2097152 F_ff3i12 = .TRUE. IF ( scalar_index_table( PARAM_ff3i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i13 , idomain ) = P_ff3i13 ELSE P_ff3i13 = scalar_index_table( PARAM_ff3i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i13 ) = .TRUE. scalar_dname_table( idomain, P_ff3i13 ) = 'ff3i13' scalar_desc_table( idomain, P_ff3i13 ) = 'ice/plates bin 13' scalar_units_table( idomain, P_ff3i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i13 )%stream(2) = 2097152 F_ff3i13 = .TRUE. IF ( scalar_index_table( PARAM_ff3i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i14 , idomain ) = P_ff3i14 ELSE P_ff3i14 = scalar_index_table( PARAM_ff3i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i14 ) = .TRUE. scalar_dname_table( idomain, P_ff3i14 ) = 'ff3i14' scalar_desc_table( idomain, P_ff3i14 ) = 'ice/plates bin 14' scalar_units_table( idomain, P_ff3i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i14 )%stream(2) = 2097152 F_ff3i14 = .TRUE. IF ( scalar_index_table( PARAM_ff3i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i15 , idomain ) = P_ff3i15 ELSE P_ff3i15 = scalar_index_table( PARAM_ff3i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i15 ) = .TRUE. scalar_dname_table( idomain, P_ff3i15 ) = 'ff3i15' scalar_desc_table( idomain, P_ff3i15 ) = 'ice/plates bin 15' scalar_units_table( idomain, P_ff3i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i15 )%stream(2) = 2097152 F_ff3i15 = .TRUE. IF ( scalar_index_table( PARAM_ff3i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i16 , idomain ) = P_ff3i16 ELSE P_ff3i16 = scalar_index_table( PARAM_ff3i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i16 ) = .TRUE. scalar_dname_table( idomain, P_ff3i16 ) = 'ff3i16' scalar_desc_table( idomain, P_ff3i16 ) = 'ice/plates bin 16' scalar_units_table( idomain, P_ff3i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i16 )%stream(2) = 2097152 F_ff3i16 = .TRUE. IF ( scalar_index_table( PARAM_ff3i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i17 , idomain ) = P_ff3i17 ELSE P_ff3i17 = scalar_index_table( PARAM_ff3i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i17 ) = .TRUE. scalar_dname_table( idomain, P_ff3i17 ) = 'ff3i17' scalar_desc_table( idomain, P_ff3i17 ) = 'ice/plates bin 17' scalar_units_table( idomain, P_ff3i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i17 )%stream(2) = 2097152 F_ff3i17 = .TRUE. IF ( scalar_index_table( PARAM_ff3i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i18 , idomain ) = P_ff3i18 ELSE P_ff3i18 = scalar_index_table( PARAM_ff3i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i18 ) = .TRUE. scalar_dname_table( idomain, P_ff3i18 ) = 'ff3i18' scalar_desc_table( idomain, P_ff3i18 ) = 'ice/plates bin 18' scalar_units_table( idomain, P_ff3i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i18 )%stream(2) = 2097152 F_ff3i18 = .TRUE. IF ( scalar_index_table( PARAM_ff3i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i19 , idomain ) = P_ff3i19 ELSE P_ff3i19 = scalar_index_table( PARAM_ff3i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i19 ) = .TRUE. scalar_dname_table( idomain, P_ff3i19 ) = 'ff3i19' scalar_desc_table( idomain, P_ff3i19 ) = 'ice/plates bin 19' scalar_units_table( idomain, P_ff3i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i19 )%stream(2) = 2097152 F_ff3i19 = .TRUE. IF ( scalar_index_table( PARAM_ff3i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i20 , idomain ) = P_ff3i20 ELSE P_ff3i20 = scalar_index_table( PARAM_ff3i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i20 ) = .TRUE. scalar_dname_table( idomain, P_ff3i20 ) = 'ff3i20' scalar_desc_table( idomain, P_ff3i20 ) = 'ice/plates bin 20' scalar_units_table( idomain, P_ff3i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i20 )%stream(2) = 2097152 F_ff3i20 = .TRUE. IF ( scalar_index_table( PARAM_ff3i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i21 , idomain ) = P_ff3i21 ELSE P_ff3i21 = scalar_index_table( PARAM_ff3i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i21 ) = .TRUE. scalar_dname_table( idomain, P_ff3i21 ) = 'ff3i21' scalar_desc_table( idomain, P_ff3i21 ) = 'ice/plates bin 21' scalar_units_table( idomain, P_ff3i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i21 )%stream(2) = 2097152 F_ff3i21 = .TRUE. IF ( scalar_index_table( PARAM_ff3i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i22 , idomain ) = P_ff3i22 ELSE P_ff3i22 = scalar_index_table( PARAM_ff3i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i22 ) = .TRUE. scalar_dname_table( idomain, P_ff3i22 ) = 'ff3i22' scalar_desc_table( idomain, P_ff3i22 ) = 'ice/plates bin 22' scalar_units_table( idomain, P_ff3i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i22 )%stream(2) = 2097152 F_ff3i22 = .TRUE. IF ( scalar_index_table( PARAM_ff3i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i23 , idomain ) = P_ff3i23 ELSE P_ff3i23 = scalar_index_table( PARAM_ff3i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i23 ) = .TRUE. scalar_dname_table( idomain, P_ff3i23 ) = 'ff3i23' scalar_desc_table( idomain, P_ff3i23 ) = 'ice/plates bin 23' scalar_units_table( idomain, P_ff3i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i23 )%stream(2) = 2097152 F_ff3i23 = .TRUE. IF ( scalar_index_table( PARAM_ff3i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i24 , idomain ) = P_ff3i24 ELSE P_ff3i24 = scalar_index_table( PARAM_ff3i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i24 ) = .TRUE. scalar_dname_table( idomain, P_ff3i24 ) = 'ff3i24' scalar_desc_table( idomain, P_ff3i24 ) = 'ice/plates bin 24' scalar_units_table( idomain, P_ff3i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i24 )%stream(2) = 2097152 F_ff3i24 = .TRUE. IF ( scalar_index_table( PARAM_ff3i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i25 , idomain ) = P_ff3i25 ELSE P_ff3i25 = scalar_index_table( PARAM_ff3i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i25 ) = .TRUE. scalar_dname_table( idomain, P_ff3i25 ) = 'ff3i25' scalar_desc_table( idomain, P_ff3i25 ) = 'ice/plates bin 25' scalar_units_table( idomain, P_ff3i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i25 )%stream(2) = 2097152 F_ff3i25 = .TRUE. IF ( scalar_index_table( PARAM_ff3i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i26 , idomain ) = P_ff3i26 ELSE P_ff3i26 = scalar_index_table( PARAM_ff3i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i26 ) = .TRUE. scalar_dname_table( idomain, P_ff3i26 ) = 'ff3i26' scalar_desc_table( idomain, P_ff3i26 ) = 'ice/plates bin 26' scalar_units_table( idomain, P_ff3i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i26 )%stream(2) = 2097152 F_ff3i26 = .TRUE. IF ( scalar_index_table( PARAM_ff3i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i27 , idomain ) = P_ff3i27 ELSE P_ff3i27 = scalar_index_table( PARAM_ff3i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i27 ) = .TRUE. scalar_dname_table( idomain, P_ff3i27 ) = 'ff3i27' scalar_desc_table( idomain, P_ff3i27 ) = 'ice/plates bin 27' scalar_units_table( idomain, P_ff3i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i27 )%stream(2) = 2097152 F_ff3i27 = .TRUE. IF ( scalar_index_table( PARAM_ff3i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i28 , idomain ) = P_ff3i28 ELSE P_ff3i28 = scalar_index_table( PARAM_ff3i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i28 ) = .TRUE. scalar_dname_table( idomain, P_ff3i28 ) = 'ff3i28' scalar_desc_table( idomain, P_ff3i28 ) = 'ice/plates bin 28' scalar_units_table( idomain, P_ff3i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i28 )%stream(2) = 2097152 F_ff3i28 = .TRUE. IF ( scalar_index_table( PARAM_ff3i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i29 , idomain ) = P_ff3i29 ELSE P_ff3i29 = scalar_index_table( PARAM_ff3i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i29 ) = .TRUE. scalar_dname_table( idomain, P_ff3i29 ) = 'ff3i29' scalar_desc_table( idomain, P_ff3i29 ) = 'ice/plates bin 29' scalar_units_table( idomain, P_ff3i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i29 )%stream(2) = 2097152 F_ff3i29 = .TRUE. IF ( scalar_index_table( PARAM_ff3i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i30 , idomain ) = P_ff3i30 ELSE P_ff3i30 = scalar_index_table( PARAM_ff3i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i30 ) = .TRUE. scalar_dname_table( idomain, P_ff3i30 ) = 'ff3i30' scalar_desc_table( idomain, P_ff3i30 ) = 'ice/plates bin 30' scalar_units_table( idomain, P_ff3i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i30 )%stream(2) = 2097152 F_ff3i30 = .TRUE. IF ( scalar_index_table( PARAM_ff3i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i31 , idomain ) = P_ff3i31 ELSE P_ff3i31 = scalar_index_table( PARAM_ff3i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i31 ) = .TRUE. scalar_dname_table( idomain, P_ff3i31 ) = 'ff3i31' scalar_desc_table( idomain, P_ff3i31 ) = 'ice/plates bin 31' scalar_units_table( idomain, P_ff3i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i31 )%stream(2) = 2097152 F_ff3i31 = .TRUE. IF ( scalar_index_table( PARAM_ff3i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i32 , idomain ) = P_ff3i32 ELSE P_ff3i32 = scalar_index_table( PARAM_ff3i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i32 ) = .TRUE. scalar_dname_table( idomain, P_ff3i32 ) = 'ff3i32' scalar_desc_table( idomain, P_ff3i32 ) = 'ice/plates bin 32' scalar_units_table( idomain, P_ff3i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i32 )%stream(2) = 2097152 F_ff3i32 = .TRUE. IF ( scalar_index_table( PARAM_ff3i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff3i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff3i33 , idomain ) = P_ff3i33 ELSE P_ff3i33 = scalar_index_table( PARAM_ff3i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff3i33 ) = .TRUE. scalar_dname_table( idomain, P_ff3i33 ) = 'ff3i33' scalar_desc_table( idomain, P_ff3i33 ) = 'ice/plates bin 33' scalar_units_table( idomain, P_ff3i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff3i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff3i33 )%stream(2) = 2097152 F_ff3i33 = .TRUE. IF ( scalar_index_table( PARAM_ff4i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i01 , idomain ) = P_ff4i01 ELSE P_ff4i01 = scalar_index_table( PARAM_ff4i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i01 ) = .TRUE. scalar_dname_table( idomain, P_ff4i01 ) = 'ff4i01' scalar_desc_table( idomain, P_ff4i01 ) = 'ice/dendrites bin 1' scalar_units_table( idomain, P_ff4i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i01 )%stream(2) = 2097152 F_ff4i01 = .TRUE. IF ( scalar_index_table( PARAM_ff4i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i02 , idomain ) = P_ff4i02 ELSE P_ff4i02 = scalar_index_table( PARAM_ff4i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i02 ) = .TRUE. scalar_dname_table( idomain, P_ff4i02 ) = 'ff4i02' scalar_desc_table( idomain, P_ff4i02 ) = 'ice/dendrites bin 2' scalar_units_table( idomain, P_ff4i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i02 )%stream(2) = 2097152 F_ff4i02 = .TRUE. IF ( scalar_index_table( PARAM_ff4i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i03 , idomain ) = P_ff4i03 ELSE P_ff4i03 = scalar_index_table( PARAM_ff4i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i03 ) = .TRUE. scalar_dname_table( idomain, P_ff4i03 ) = 'ff4i03' scalar_desc_table( idomain, P_ff4i03 ) = 'ice/dendrites bin 3' scalar_units_table( idomain, P_ff4i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i03 )%stream(2) = 2097152 F_ff4i03 = .TRUE. IF ( scalar_index_table( PARAM_ff4i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i04 , idomain ) = P_ff4i04 ELSE P_ff4i04 = scalar_index_table( PARAM_ff4i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i04 ) = .TRUE. scalar_dname_table( idomain, P_ff4i04 ) = 'ff4i04' scalar_desc_table( idomain, P_ff4i04 ) = 'ice/dendrites bin 4' scalar_units_table( idomain, P_ff4i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i04 )%stream(2) = 2097152 F_ff4i04 = .TRUE. IF ( scalar_index_table( PARAM_ff4i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i05 , idomain ) = P_ff4i05 ELSE P_ff4i05 = scalar_index_table( PARAM_ff4i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i05 ) = .TRUE. scalar_dname_table( idomain, P_ff4i05 ) = 'ff4i05' scalar_desc_table( idomain, P_ff4i05 ) = 'ice/dendrites bin 5' scalar_units_table( idomain, P_ff4i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i05 )%stream(2) = 2097152 F_ff4i05 = .TRUE. IF ( scalar_index_table( PARAM_ff4i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i06 , idomain ) = P_ff4i06 ELSE P_ff4i06 = scalar_index_table( PARAM_ff4i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i06 ) = .TRUE. scalar_dname_table( idomain, P_ff4i06 ) = 'ff4i06' scalar_desc_table( idomain, P_ff4i06 ) = 'ice/dendrites bin 6' scalar_units_table( idomain, P_ff4i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i06 )%stream(2) = 2097152 F_ff4i06 = .TRUE. IF ( scalar_index_table( PARAM_ff4i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i07 , idomain ) = P_ff4i07 ELSE P_ff4i07 = scalar_index_table( PARAM_ff4i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i07 ) = .TRUE. scalar_dname_table( idomain, P_ff4i07 ) = 'ff4i07' scalar_desc_table( idomain, P_ff4i07 ) = 'ice/dendrites bin 7' scalar_units_table( idomain, P_ff4i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i07 )%stream(2) = 2097152 F_ff4i07 = .TRUE. IF ( scalar_index_table( PARAM_ff4i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i08 , idomain ) = P_ff4i08 ELSE P_ff4i08 = scalar_index_table( PARAM_ff4i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i08 ) = .TRUE. scalar_dname_table( idomain, P_ff4i08 ) = 'ff4i08' scalar_desc_table( idomain, P_ff4i08 ) = 'ice/dendrites bin 8' scalar_units_table( idomain, P_ff4i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i08 )%stream(2) = 2097152 F_ff4i08 = .TRUE. IF ( scalar_index_table( PARAM_ff4i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i09 , idomain ) = P_ff4i09 ELSE P_ff4i09 = scalar_index_table( PARAM_ff4i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i09 ) = .TRUE. scalar_dname_table( idomain, P_ff4i09 ) = 'ff4i09' scalar_desc_table( idomain, P_ff4i09 ) = 'ice/dendrites bin 9' scalar_units_table( idomain, P_ff4i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i09 )%stream(2) = 2097152 F_ff4i09 = .TRUE. IF ( scalar_index_table( PARAM_ff4i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i10 , idomain ) = P_ff4i10 ELSE P_ff4i10 = scalar_index_table( PARAM_ff4i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i10 ) = .TRUE. scalar_dname_table( idomain, P_ff4i10 ) = 'ff4i10' scalar_desc_table( idomain, P_ff4i10 ) = 'ice/dendrites bin 10' scalar_units_table( idomain, P_ff4i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i10 )%stream(2) = 2097152 F_ff4i10 = .TRUE. IF ( scalar_index_table( PARAM_ff4i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i11 , idomain ) = P_ff4i11 ELSE P_ff4i11 = scalar_index_table( PARAM_ff4i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i11 ) = .TRUE. scalar_dname_table( idomain, P_ff4i11 ) = 'ff4i11' scalar_desc_table( idomain, P_ff4i11 ) = 'ice/dendrites bin 11' scalar_units_table( idomain, P_ff4i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i11 )%stream(2) = 2097152 F_ff4i11 = .TRUE. IF ( scalar_index_table( PARAM_ff4i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i12 , idomain ) = P_ff4i12 ELSE P_ff4i12 = scalar_index_table( PARAM_ff4i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i12 ) = .TRUE. scalar_dname_table( idomain, P_ff4i12 ) = 'ff4i12' scalar_desc_table( idomain, P_ff4i12 ) = 'ice/dendrites bin 12' scalar_units_table( idomain, P_ff4i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i12 )%stream(2) = 2097152 F_ff4i12 = .TRUE. IF ( scalar_index_table( PARAM_ff4i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i13 , idomain ) = P_ff4i13 ELSE P_ff4i13 = scalar_index_table( PARAM_ff4i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i13 ) = .TRUE. scalar_dname_table( idomain, P_ff4i13 ) = 'ff4i13' scalar_desc_table( idomain, P_ff4i13 ) = 'ice/dendrites bin 13' scalar_units_table( idomain, P_ff4i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i13 )%stream(2) = 2097152 F_ff4i13 = .TRUE. IF ( scalar_index_table( PARAM_ff4i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i14 , idomain ) = P_ff4i14 ELSE P_ff4i14 = scalar_index_table( PARAM_ff4i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i14 ) = .TRUE. scalar_dname_table( idomain, P_ff4i14 ) = 'ff4i14' scalar_desc_table( idomain, P_ff4i14 ) = 'ice/dendrites bin 14' scalar_units_table( idomain, P_ff4i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i14 )%stream(2) = 2097152 F_ff4i14 = .TRUE. IF ( scalar_index_table( PARAM_ff4i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i15 , idomain ) = P_ff4i15 ELSE P_ff4i15 = scalar_index_table( PARAM_ff4i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i15 ) = .TRUE. scalar_dname_table( idomain, P_ff4i15 ) = 'ff4i15' scalar_desc_table( idomain, P_ff4i15 ) = 'ice/dendrites bin 15' scalar_units_table( idomain, P_ff4i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i15 )%stream(2) = 2097152 F_ff4i15 = .TRUE. IF ( scalar_index_table( PARAM_ff4i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i16 , idomain ) = P_ff4i16 ELSE P_ff4i16 = scalar_index_table( PARAM_ff4i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i16 ) = .TRUE. scalar_dname_table( idomain, P_ff4i16 ) = 'ff4i16' scalar_desc_table( idomain, P_ff4i16 ) = 'ice/dendrites bin 16' scalar_units_table( idomain, P_ff4i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i16 )%stream(2) = 2097152 F_ff4i16 = .TRUE. IF ( scalar_index_table( PARAM_ff4i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i17 , idomain ) = P_ff4i17 ELSE P_ff4i17 = scalar_index_table( PARAM_ff4i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i17 ) = .TRUE. scalar_dname_table( idomain, P_ff4i17 ) = 'ff4i17' scalar_desc_table( idomain, P_ff4i17 ) = 'ice/dendrites bin 17' scalar_units_table( idomain, P_ff4i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i17 )%stream(2) = 2097152 F_ff4i17 = .TRUE. IF ( scalar_index_table( PARAM_ff4i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i18 , idomain ) = P_ff4i18 ELSE P_ff4i18 = scalar_index_table( PARAM_ff4i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i18 ) = .TRUE. scalar_dname_table( idomain, P_ff4i18 ) = 'ff4i18' scalar_desc_table( idomain, P_ff4i18 ) = 'ice/dendrites bin 18' scalar_units_table( idomain, P_ff4i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i18 )%stream(2) = 2097152 F_ff4i18 = .TRUE. IF ( scalar_index_table( PARAM_ff4i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i19 , idomain ) = P_ff4i19 ELSE P_ff4i19 = scalar_index_table( PARAM_ff4i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i19 ) = .TRUE. scalar_dname_table( idomain, P_ff4i19 ) = 'ff4i19' scalar_desc_table( idomain, P_ff4i19 ) = 'ice/dendrites bin 19' scalar_units_table( idomain, P_ff4i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i19 )%stream(2) = 2097152 F_ff4i19 = .TRUE. IF ( scalar_index_table( PARAM_ff4i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i20 , idomain ) = P_ff4i20 ELSE P_ff4i20 = scalar_index_table( PARAM_ff4i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i20 ) = .TRUE. scalar_dname_table( idomain, P_ff4i20 ) = 'ff4i20' scalar_desc_table( idomain, P_ff4i20 ) = 'ice/dendrites bin 20' scalar_units_table( idomain, P_ff4i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i20 )%stream(2) = 2097152 F_ff4i20 = .TRUE. IF ( scalar_index_table( PARAM_ff4i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i21 , idomain ) = P_ff4i21 ELSE P_ff4i21 = scalar_index_table( PARAM_ff4i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i21 ) = .TRUE. scalar_dname_table( idomain, P_ff4i21 ) = 'ff4i21' scalar_desc_table( idomain, P_ff4i21 ) = 'ice/dendrites bin 21' scalar_units_table( idomain, P_ff4i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i21 )%stream(2) = 2097152 F_ff4i21 = .TRUE. IF ( scalar_index_table( PARAM_ff4i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i22 , idomain ) = P_ff4i22 ELSE P_ff4i22 = scalar_index_table( PARAM_ff4i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i22 ) = .TRUE. scalar_dname_table( idomain, P_ff4i22 ) = 'ff4i22' scalar_desc_table( idomain, P_ff4i22 ) = 'ice/dendrites bin 22' scalar_units_table( idomain, P_ff4i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i22 )%stream(2) = 2097152 F_ff4i22 = .TRUE. IF ( scalar_index_table( PARAM_ff4i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i23 , idomain ) = P_ff4i23 ELSE P_ff4i23 = scalar_index_table( PARAM_ff4i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i23 ) = .TRUE. scalar_dname_table( idomain, P_ff4i23 ) = 'ff4i23' scalar_desc_table( idomain, P_ff4i23 ) = 'ice/dendrites bin 23' scalar_units_table( idomain, P_ff4i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i23 )%stream(2) = 2097152 F_ff4i23 = .TRUE. IF ( scalar_index_table( PARAM_ff4i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i24 , idomain ) = P_ff4i24 ELSE P_ff4i24 = scalar_index_table( PARAM_ff4i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i24 ) = .TRUE. scalar_dname_table( idomain, P_ff4i24 ) = 'ff4i24' scalar_desc_table( idomain, P_ff4i24 ) = 'ice/dendrites bin 24' scalar_units_table( idomain, P_ff4i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i24 )%stream(2) = 2097152 F_ff4i24 = .TRUE. IF ( scalar_index_table( PARAM_ff4i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i25 , idomain ) = P_ff4i25 ELSE P_ff4i25 = scalar_index_table( PARAM_ff4i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i25 ) = .TRUE. scalar_dname_table( idomain, P_ff4i25 ) = 'ff4i25' scalar_desc_table( idomain, P_ff4i25 ) = 'ice/dendrites bin 25' scalar_units_table( idomain, P_ff4i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i25 )%stream(2) = 2097152 F_ff4i25 = .TRUE. IF ( scalar_index_table( PARAM_ff4i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i26 , idomain ) = P_ff4i26 ELSE P_ff4i26 = scalar_index_table( PARAM_ff4i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i26 ) = .TRUE. scalar_dname_table( idomain, P_ff4i26 ) = 'ff4i26' scalar_desc_table( idomain, P_ff4i26 ) = 'ice/dendrites bin 26' scalar_units_table( idomain, P_ff4i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i26 )%stream(2) = 2097152 F_ff4i26 = .TRUE. IF ( scalar_index_table( PARAM_ff4i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i27 , idomain ) = P_ff4i27 ELSE P_ff4i27 = scalar_index_table( PARAM_ff4i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i27 ) = .TRUE. scalar_dname_table( idomain, P_ff4i27 ) = 'ff4i27' scalar_desc_table( idomain, P_ff4i27 ) = 'ice/dendrites bin 27' scalar_units_table( idomain, P_ff4i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i27 )%stream(2) = 2097152 F_ff4i27 = .TRUE. IF ( scalar_index_table( PARAM_ff4i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i28 , idomain ) = P_ff4i28 ELSE P_ff4i28 = scalar_index_table( PARAM_ff4i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i28 ) = .TRUE. scalar_dname_table( idomain, P_ff4i28 ) = 'ff4i28' scalar_desc_table( idomain, P_ff4i28 ) = 'ice/dendrites bin 28' scalar_units_table( idomain, P_ff4i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i28 )%stream(2) = 2097152 F_ff4i28 = .TRUE. IF ( scalar_index_table( PARAM_ff4i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i29 , idomain ) = P_ff4i29 ELSE P_ff4i29 = scalar_index_table( PARAM_ff4i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i29 ) = .TRUE. scalar_dname_table( idomain, P_ff4i29 ) = 'ff4i29' scalar_desc_table( idomain, P_ff4i29 ) = 'ice/dendrites bin 29' scalar_units_table( idomain, P_ff4i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i29 )%stream(2) = 2097152 F_ff4i29 = .TRUE. IF ( scalar_index_table( PARAM_ff4i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i30 , idomain ) = P_ff4i30 ELSE P_ff4i30 = scalar_index_table( PARAM_ff4i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i30 ) = .TRUE. scalar_dname_table( idomain, P_ff4i30 ) = 'ff4i30' scalar_desc_table( idomain, P_ff4i30 ) = 'ice/dendrites bin 30' scalar_units_table( idomain, P_ff4i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i30 )%stream(2) = 2097152 F_ff4i30 = .TRUE. IF ( scalar_index_table( PARAM_ff4i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i31 , idomain ) = P_ff4i31 ELSE P_ff4i31 = scalar_index_table( PARAM_ff4i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i31 ) = .TRUE. scalar_dname_table( idomain, P_ff4i31 ) = 'ff4i31' scalar_desc_table( idomain, P_ff4i31 ) = 'ice/dendrites bin 31' scalar_units_table( idomain, P_ff4i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i31 )%stream(2) = 2097152 F_ff4i31 = .TRUE. IF ( scalar_index_table( PARAM_ff4i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i32 , idomain ) = P_ff4i32 ELSE P_ff4i32 = scalar_index_table( PARAM_ff4i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i32 ) = .TRUE. scalar_dname_table( idomain, P_ff4i32 ) = 'ff4i32' scalar_desc_table( idomain, P_ff4i32 ) = 'ice/dendrites bin 32' scalar_units_table( idomain, P_ff4i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i32 )%stream(2) = 2097152 F_ff4i32 = .TRUE. IF ( scalar_index_table( PARAM_ff4i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff4i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff4i33 , idomain ) = P_ff4i33 ELSE P_ff4i33 = scalar_index_table( PARAM_ff4i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff4i33 ) = .TRUE. scalar_dname_table( idomain, P_ff4i33 ) = 'ff4i33' scalar_desc_table( idomain, P_ff4i33 ) = 'ice/dendrites bin 33' scalar_units_table( idomain, P_ff4i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff4i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff4i33 )%stream(2) = 2097152 F_ff4i33 = .TRUE. IF ( scalar_index_table( PARAM_ff7i01 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i01 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i01 , idomain ) = P_ff7i01 ELSE P_ff7i01 = scalar_index_table( PARAM_ff7i01 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i01 ) = .TRUE. scalar_dname_table( idomain, P_ff7i01 ) = 'ff7i01' scalar_desc_table( idomain, P_ff7i01 ) = 'hail bin 1' scalar_units_table( idomain, P_ff7i01 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i01 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i01 )%stream(2) = 2097152 F_ff7i01 = .TRUE. IF ( scalar_index_table( PARAM_ff7i02 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i02 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i02 , idomain ) = P_ff7i02 ELSE P_ff7i02 = scalar_index_table( PARAM_ff7i02 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i02 ) = .TRUE. scalar_dname_table( idomain, P_ff7i02 ) = 'ff7i02' scalar_desc_table( idomain, P_ff7i02 ) = 'hail bin 2' scalar_units_table( idomain, P_ff7i02 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i02 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i02 )%stream(2) = 2097152 F_ff7i02 = .TRUE. IF ( scalar_index_table( PARAM_ff7i03 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i03 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i03 , idomain ) = P_ff7i03 ELSE P_ff7i03 = scalar_index_table( PARAM_ff7i03 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i03 ) = .TRUE. scalar_dname_table( idomain, P_ff7i03 ) = 'ff7i03' scalar_desc_table( idomain, P_ff7i03 ) = 'hail bin 3' scalar_units_table( idomain, P_ff7i03 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i03 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i03 )%stream(2) = 2097152 F_ff7i03 = .TRUE. IF ( scalar_index_table( PARAM_ff7i04 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i04 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i04 , idomain ) = P_ff7i04 ELSE P_ff7i04 = scalar_index_table( PARAM_ff7i04 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i04 ) = .TRUE. scalar_dname_table( idomain, P_ff7i04 ) = 'ff7i04' scalar_desc_table( idomain, P_ff7i04 ) = 'hail bin 4' scalar_units_table( idomain, P_ff7i04 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i04 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i04 )%stream(2) = 2097152 F_ff7i04 = .TRUE. IF ( scalar_index_table( PARAM_ff7i05 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i05 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i05 , idomain ) = P_ff7i05 ELSE P_ff7i05 = scalar_index_table( PARAM_ff7i05 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i05 ) = .TRUE. scalar_dname_table( idomain, P_ff7i05 ) = 'ff7i05' scalar_desc_table( idomain, P_ff7i05 ) = 'hail bin 5' scalar_units_table( idomain, P_ff7i05 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i05 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i05 )%stream(2) = 2097152 F_ff7i05 = .TRUE. IF ( scalar_index_table( PARAM_ff7i06 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i06 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i06 , idomain ) = P_ff7i06 ELSE P_ff7i06 = scalar_index_table( PARAM_ff7i06 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i06 ) = .TRUE. scalar_dname_table( idomain, P_ff7i06 ) = 'ff7i06' scalar_desc_table( idomain, P_ff7i06 ) = 'hail bin 6' scalar_units_table( idomain, P_ff7i06 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i06 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i06 )%stream(2) = 2097152 F_ff7i06 = .TRUE. IF ( scalar_index_table( PARAM_ff7i07 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i07 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i07 , idomain ) = P_ff7i07 ELSE P_ff7i07 = scalar_index_table( PARAM_ff7i07 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i07 ) = .TRUE. scalar_dname_table( idomain, P_ff7i07 ) = 'ff7i07' scalar_desc_table( idomain, P_ff7i07 ) = 'hail bin 7' scalar_units_table( idomain, P_ff7i07 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i07 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i07 )%stream(2) = 2097152 F_ff7i07 = .TRUE. IF ( scalar_index_table( PARAM_ff7i08 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i08 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i08 , idomain ) = P_ff7i08 ELSE P_ff7i08 = scalar_index_table( PARAM_ff7i08 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i08 ) = .TRUE. scalar_dname_table( idomain, P_ff7i08 ) = 'ff7i08' scalar_desc_table( idomain, P_ff7i08 ) = 'hail bin 8' scalar_units_table( idomain, P_ff7i08 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i08 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i08 )%stream(2) = 2097152 F_ff7i08 = .TRUE. IF ( scalar_index_table( PARAM_ff7i09 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i09 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i09 , idomain ) = P_ff7i09 ELSE P_ff7i09 = scalar_index_table( PARAM_ff7i09 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i09 ) = .TRUE. scalar_dname_table( idomain, P_ff7i09 ) = 'ff7i09' scalar_desc_table( idomain, P_ff7i09 ) = 'hail bin 9' scalar_units_table( idomain, P_ff7i09 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i09 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i09 )%stream(2) = 2097152 F_ff7i09 = .TRUE. IF ( scalar_index_table( PARAM_ff7i10 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i10 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i10 , idomain ) = P_ff7i10 ELSE P_ff7i10 = scalar_index_table( PARAM_ff7i10 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i10 ) = .TRUE. scalar_dname_table( idomain, P_ff7i10 ) = 'ff7i10' scalar_desc_table( idomain, P_ff7i10 ) = 'hail bin 10' scalar_units_table( idomain, P_ff7i10 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i10 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i10 )%stream(2) = 2097152 F_ff7i10 = .TRUE. IF ( scalar_index_table( PARAM_ff7i11 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i11 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i11 , idomain ) = P_ff7i11 ELSE P_ff7i11 = scalar_index_table( PARAM_ff7i11 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i11 ) = .TRUE. scalar_dname_table( idomain, P_ff7i11 ) = 'ff7i11' scalar_desc_table( idomain, P_ff7i11 ) = 'hail bin 11' scalar_units_table( idomain, P_ff7i11 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i11 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i11 )%stream(2) = 2097152 F_ff7i11 = .TRUE. IF ( scalar_index_table( PARAM_ff7i12 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i12 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i12 , idomain ) = P_ff7i12 ELSE P_ff7i12 = scalar_index_table( PARAM_ff7i12 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i12 ) = .TRUE. scalar_dname_table( idomain, P_ff7i12 ) = 'ff7i12' scalar_desc_table( idomain, P_ff7i12 ) = 'hail bin 12' scalar_units_table( idomain, P_ff7i12 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i12 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i12 )%stream(2) = 2097152 F_ff7i12 = .TRUE. IF ( scalar_index_table( PARAM_ff7i13 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i13 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i13 , idomain ) = P_ff7i13 ELSE P_ff7i13 = scalar_index_table( PARAM_ff7i13 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i13 ) = .TRUE. scalar_dname_table( idomain, P_ff7i13 ) = 'ff7i13' scalar_desc_table( idomain, P_ff7i13 ) = 'hail bin 13' scalar_units_table( idomain, P_ff7i13 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i13 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i13 )%stream(2) = 2097152 F_ff7i13 = .TRUE. IF ( scalar_index_table( PARAM_ff7i14 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i14 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i14 , idomain ) = P_ff7i14 ELSE P_ff7i14 = scalar_index_table( PARAM_ff7i14 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i14 ) = .TRUE. scalar_dname_table( idomain, P_ff7i14 ) = 'ff7i14' scalar_desc_table( idomain, P_ff7i14 ) = 'hail bin 14' scalar_units_table( idomain, P_ff7i14 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i14 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i14 )%stream(2) = 2097152 F_ff7i14 = .TRUE. IF ( scalar_index_table( PARAM_ff7i15 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i15 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i15 , idomain ) = P_ff7i15 ELSE P_ff7i15 = scalar_index_table( PARAM_ff7i15 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i15 ) = .TRUE. scalar_dname_table( idomain, P_ff7i15 ) = 'ff7i15' scalar_desc_table( idomain, P_ff7i15 ) = 'hail bin 15' scalar_units_table( idomain, P_ff7i15 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i15 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i15 )%stream(2) = 2097152 F_ff7i15 = .TRUE. IF ( scalar_index_table( PARAM_ff7i16 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i16 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i16 , idomain ) = P_ff7i16 ELSE P_ff7i16 = scalar_index_table( PARAM_ff7i16 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i16 ) = .TRUE. scalar_dname_table( idomain, P_ff7i16 ) = 'ff7i16' scalar_desc_table( idomain, P_ff7i16 ) = 'hail bin 16' scalar_units_table( idomain, P_ff7i16 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i16 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i16 )%stream(2) = 2097152 F_ff7i16 = .TRUE. IF ( scalar_index_table( PARAM_ff7i17 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i17 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i17 , idomain ) = P_ff7i17 ELSE P_ff7i17 = scalar_index_table( PARAM_ff7i17 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i17 ) = .TRUE. scalar_dname_table( idomain, P_ff7i17 ) = 'ff7i17' scalar_desc_table( idomain, P_ff7i17 ) = 'hail bin 17' scalar_units_table( idomain, P_ff7i17 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i17 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i17 )%stream(2) = 2097152 F_ff7i17 = .TRUE. IF ( scalar_index_table( PARAM_ff7i18 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i18 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i18 , idomain ) = P_ff7i18 ELSE P_ff7i18 = scalar_index_table( PARAM_ff7i18 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i18 ) = .TRUE. scalar_dname_table( idomain, P_ff7i18 ) = 'ff7i18' scalar_desc_table( idomain, P_ff7i18 ) = 'hail bin 18' scalar_units_table( idomain, P_ff7i18 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i18 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i18 )%stream(2) = 2097152 F_ff7i18 = .TRUE. IF ( scalar_index_table( PARAM_ff7i19 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i19 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i19 , idomain ) = P_ff7i19 ELSE P_ff7i19 = scalar_index_table( PARAM_ff7i19 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i19 ) = .TRUE. scalar_dname_table( idomain, P_ff7i19 ) = 'ff7i19' scalar_desc_table( idomain, P_ff7i19 ) = 'hail bin 19' scalar_units_table( idomain, P_ff7i19 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i19 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i19 )%stream(2) = 2097152 F_ff7i19 = .TRUE. IF ( scalar_index_table( PARAM_ff7i20 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i20 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i20 , idomain ) = P_ff7i20 ELSE P_ff7i20 = scalar_index_table( PARAM_ff7i20 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i20 ) = .TRUE. scalar_dname_table( idomain, P_ff7i20 ) = 'ff7i20' scalar_desc_table( idomain, P_ff7i20 ) = 'hail bin 20' scalar_units_table( idomain, P_ff7i20 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i20 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i20 )%stream(2) = 2097152 F_ff7i20 = .TRUE. IF ( scalar_index_table( PARAM_ff7i21 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i21 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i21 , idomain ) = P_ff7i21 ELSE P_ff7i21 = scalar_index_table( PARAM_ff7i21 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i21 ) = .TRUE. scalar_dname_table( idomain, P_ff7i21 ) = 'ff7i21' scalar_desc_table( idomain, P_ff7i21 ) = 'hail bin 21' scalar_units_table( idomain, P_ff7i21 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i21 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i21 )%stream(2) = 2097152 F_ff7i21 = .TRUE. IF ( scalar_index_table( PARAM_ff7i22 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i22 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i22 , idomain ) = P_ff7i22 ELSE P_ff7i22 = scalar_index_table( PARAM_ff7i22 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i22 ) = .TRUE. scalar_dname_table( idomain, P_ff7i22 ) = 'ff7i22' scalar_desc_table( idomain, P_ff7i22 ) = 'hail bin 22' scalar_units_table( idomain, P_ff7i22 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i22 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i22 )%stream(2) = 2097152 F_ff7i22 = .TRUE. IF ( scalar_index_table( PARAM_ff7i23 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i23 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i23 , idomain ) = P_ff7i23 ELSE P_ff7i23 = scalar_index_table( PARAM_ff7i23 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i23 ) = .TRUE. scalar_dname_table( idomain, P_ff7i23 ) = 'ff7i23' scalar_desc_table( idomain, P_ff7i23 ) = 'hail bin 23' scalar_units_table( idomain, P_ff7i23 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i23 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i23 )%stream(2) = 2097152 F_ff7i23 = .TRUE. IF ( scalar_index_table( PARAM_ff7i24 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i24 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i24 , idomain ) = P_ff7i24 ELSE P_ff7i24 = scalar_index_table( PARAM_ff7i24 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i24 ) = .TRUE. scalar_dname_table( idomain, P_ff7i24 ) = 'ff7i24' scalar_desc_table( idomain, P_ff7i24 ) = 'hail bin 24' scalar_units_table( idomain, P_ff7i24 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i24 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i24 )%stream(2) = 2097152 F_ff7i24 = .TRUE. IF ( scalar_index_table( PARAM_ff7i25 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i25 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i25 , idomain ) = P_ff7i25 ELSE P_ff7i25 = scalar_index_table( PARAM_ff7i25 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i25 ) = .TRUE. scalar_dname_table( idomain, P_ff7i25 ) = 'ff7i25' scalar_desc_table( idomain, P_ff7i25 ) = 'hail bin 25' scalar_units_table( idomain, P_ff7i25 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i25 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i25 )%stream(2) = 2097152 F_ff7i25 = .TRUE. IF ( scalar_index_table( PARAM_ff7i26 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i26 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i26 , idomain ) = P_ff7i26 ELSE P_ff7i26 = scalar_index_table( PARAM_ff7i26 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i26 ) = .TRUE. scalar_dname_table( idomain, P_ff7i26 ) = 'ff7i26' scalar_desc_table( idomain, P_ff7i26 ) = 'hail bin 26' scalar_units_table( idomain, P_ff7i26 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i26 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i26 )%stream(2) = 2097152 F_ff7i26 = .TRUE. IF ( scalar_index_table( PARAM_ff7i27 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i27 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i27 , idomain ) = P_ff7i27 ELSE P_ff7i27 = scalar_index_table( PARAM_ff7i27 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i27 ) = .TRUE. scalar_dname_table( idomain, P_ff7i27 ) = 'ff7i27' scalar_desc_table( idomain, P_ff7i27 ) = 'hail bin 27' scalar_units_table( idomain, P_ff7i27 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i27 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i27 )%stream(2) = 2097152 F_ff7i27 = .TRUE. IF ( scalar_index_table( PARAM_ff7i28 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i28 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i28 , idomain ) = P_ff7i28 ELSE P_ff7i28 = scalar_index_table( PARAM_ff7i28 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i28 ) = .TRUE. scalar_dname_table( idomain, P_ff7i28 ) = 'ff7i28' scalar_desc_table( idomain, P_ff7i28 ) = 'hail bin 28' scalar_units_table( idomain, P_ff7i28 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i28 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i28 )%stream(2) = 2097152 F_ff7i28 = .TRUE. IF ( scalar_index_table( PARAM_ff7i29 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i29 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i29 , idomain ) = P_ff7i29 ELSE P_ff7i29 = scalar_index_table( PARAM_ff7i29 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i29 ) = .TRUE. scalar_dname_table( idomain, P_ff7i29 ) = 'ff7i29' scalar_desc_table( idomain, P_ff7i29 ) = 'hail bin 29' scalar_units_table( idomain, P_ff7i29 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i29 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i29 )%stream(2) = 2097152 F_ff7i29 = .TRUE. IF ( scalar_index_table( PARAM_ff7i30 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i30 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i30 , idomain ) = P_ff7i30 ELSE P_ff7i30 = scalar_index_table( PARAM_ff7i30 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i30 ) = .TRUE. scalar_dname_table( idomain, P_ff7i30 ) = 'ff7i30' scalar_desc_table( idomain, P_ff7i30 ) = 'hail bin 30' scalar_units_table( idomain, P_ff7i30 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i30 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i30 )%stream(2) = 2097152 F_ff7i30 = .TRUE. IF ( scalar_index_table( PARAM_ff7i31 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i31 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i31 , idomain ) = P_ff7i31 ELSE P_ff7i31 = scalar_index_table( PARAM_ff7i31 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i31 ) = .TRUE. scalar_dname_table( idomain, P_ff7i31 ) = 'ff7i31' scalar_desc_table( idomain, P_ff7i31 ) = 'hail bin 31' scalar_units_table( idomain, P_ff7i31 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i31 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i31 )%stream(2) = 2097152 F_ff7i31 = .TRUE. IF ( scalar_index_table( PARAM_ff7i32 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i32 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i32 , idomain ) = P_ff7i32 ELSE P_ff7i32 = scalar_index_table( PARAM_ff7i32 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i32 ) = .TRUE. scalar_dname_table( idomain, P_ff7i32 ) = 'ff7i32' scalar_desc_table( idomain, P_ff7i32 ) = 'hail bin 32' scalar_units_table( idomain, P_ff7i32 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i32 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i32 )%stream(2) = 2097152 F_ff7i32 = .TRUE. IF ( scalar_index_table( PARAM_ff7i33 , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ff7i33 = scalar_num_table(idomain) scalar_index_table( PARAM_ff7i33 , idomain ) = P_ff7i33 ELSE P_ff7i33 = scalar_index_table( PARAM_ff7i33 , idomain ) END IF scalar_boundary_table( idomain, P_ff7i33 ) = .TRUE. scalar_dname_table( idomain, P_ff7i33 ) = 'ff7i33' scalar_desc_table( idomain, P_ff7i33 ) = 'hail bin 33' scalar_units_table( idomain, P_ff7i33 ) = ' kg kg-1' scalar_streams_table( idomain, P_ff7i33 )%stream(1) = 8 scalar_streams_table( idomain, P_ff7i33 )%stream(2) = 2097152 F_ff7i33 = .TRUE. IF ( scalar_index_table( PARAM_qnn , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnn = scalar_num_table(idomain) scalar_index_table( PARAM_qnn , idomain ) = P_qnn ELSE P_qnn = scalar_index_table( PARAM_qnn , idomain ) END IF scalar_boundary_table( idomain, P_qnn ) = .TRUE. scalar_dname_table( idomain, P_qnn ) = 'QNCCN' scalar_desc_table( idomain, P_qnn ) = 'CCN Number concentration' scalar_units_table( idomain, P_qnn ) = ' kg(-1)' scalar_streams_table( idomain, P_qnn )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnn )%stream(2) = 2097152 F_qnn = .TRUE. IF ( scalar_index_table( PARAM_qnc , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnc = scalar_num_table(idomain) scalar_index_table( PARAM_qnc , idomain ) = P_qnc ELSE P_qnc = scalar_index_table( PARAM_qnc , idomain ) END IF scalar_boundary_table( idomain, P_qnc ) = .TRUE. scalar_dname_table( idomain, P_qnc ) = 'QNCLOUD' scalar_desc_table( idomain, P_qnc ) = 'cloud water Number concentration' scalar_units_table( idomain, P_qnc ) = ' kg(-1)' scalar_streams_table( idomain, P_qnc )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnc )%stream(2) = 2097152 F_qnc = .TRUE. IF ( scalar_index_table( PARAM_qnr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnr = scalar_num_table(idomain) scalar_index_table( PARAM_qnr , idomain ) = P_qnr ELSE P_qnr = scalar_index_table( PARAM_qnr , idomain ) END IF scalar_boundary_table( idomain, P_qnr ) = .TRUE. scalar_dname_table( idomain, P_qnr ) = 'QNRAIN' scalar_desc_table( idomain, P_qnr ) = 'Rain Number concentration' scalar_units_table( idomain, P_qnr ) = ' kg(-1)' scalar_streams_table( idomain, P_qnr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnr )%stream(2) = 2097152 F_qnr = .TRUE. IF ( scalar_index_table( PARAM_qni , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qni = scalar_num_table(idomain) scalar_index_table( PARAM_qni , idomain ) = P_qni ELSE P_qni = scalar_index_table( PARAM_qni , idomain ) END IF scalar_boundary_table( idomain, P_qni ) = .TRUE. scalar_dname_table( idomain, P_qni ) = 'QNICE' scalar_desc_table( idomain, P_qni ) = 'Ice Number concentration' scalar_units_table( idomain, P_qni ) = ' kg-1' scalar_streams_table( idomain, P_qni )%stream(1) = 33554433 scalar_streams_table( idomain, P_qni )%stream(2) = 2097152 F_qni = .TRUE. IF ( scalar_index_table( PARAM_qnic , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnic = scalar_num_table(idomain) scalar_index_table( PARAM_qnic , idomain ) = P_qnic ELSE P_qnic = scalar_index_table( PARAM_qnic , idomain ) END IF scalar_boundary_table( idomain, P_qnic ) = .TRUE. scalar_dname_table( idomain, P_qnic ) = 'QNICEC' scalar_desc_table( idomain, P_qnic ) = 'Column Ice Number concentration' scalar_units_table( idomain, P_qnic ) = ' kg-1' scalar_streams_table( idomain, P_qnic )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnic )%stream(2) = 2097152 F_qnic = .TRUE. IF ( scalar_index_table( PARAM_qnip , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnip = scalar_num_table(idomain) scalar_index_table( PARAM_qnip , idomain ) = P_qnip ELSE P_qnip = scalar_index_table( PARAM_qnip , idomain ) END IF scalar_boundary_table( idomain, P_qnip ) = .TRUE. scalar_dname_table( idomain, P_qnip ) = 'QNICEP' scalar_desc_table( idomain, P_qnip ) = 'Plate Ice Number concentration' scalar_units_table( idomain, P_qnip ) = ' kg-1' scalar_streams_table( idomain, P_qnip )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnip )%stream(2) = 2097152 F_qnip = .TRUE. IF ( scalar_index_table( PARAM_qnid , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnid = scalar_num_table(idomain) scalar_index_table( PARAM_qnid , idomain ) = P_qnid ELSE P_qnid = scalar_index_table( PARAM_qnid , idomain ) END IF scalar_boundary_table( idomain, P_qnid ) = .TRUE. scalar_dname_table( idomain, P_qnid ) = 'QNICED' scalar_desc_table( idomain, P_qnid ) = 'Dendrite Ice Number concentration' scalar_units_table( idomain, P_qnid ) = ' kg-1' scalar_streams_table( idomain, P_qnid )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnid )%stream(2) = 2097152 F_qnid = .TRUE. IF ( scalar_index_table( PARAM_qns , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qns = scalar_num_table(idomain) scalar_index_table( PARAM_qns , idomain ) = P_qns ELSE P_qns = scalar_index_table( PARAM_qns , idomain ) END IF scalar_boundary_table( idomain, P_qns ) = .TRUE. scalar_dname_table( idomain, P_qns ) = 'QNSNOW' scalar_desc_table( idomain, P_qns ) = 'Snow Number concentration' scalar_units_table( idomain, P_qns ) = ' kg(-1)' scalar_streams_table( idomain, P_qns )%stream(1) = 33554433 scalar_streams_table( idomain, P_qns )%stream(2) = 2097152 F_qns = .TRUE. IF ( scalar_index_table( PARAM_qng , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qng = scalar_num_table(idomain) scalar_index_table( PARAM_qng , idomain ) = P_qng ELSE P_qng = scalar_index_table( PARAM_qng , idomain ) END IF scalar_boundary_table( idomain, P_qng ) = .TRUE. scalar_dname_table( idomain, P_qng ) = 'QNGRAUPEL' scalar_desc_table( idomain, P_qng ) = 'Graupel Number concentration' scalar_units_table( idomain, P_qng ) = ' kg(-1)' scalar_streams_table( idomain, P_qng )%stream(1) = 33554433 scalar_streams_table( idomain, P_qng )%stream(2) = 2097152 F_qng = .TRUE. IF ( scalar_index_table( PARAM_qnh , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qnh = scalar_num_table(idomain) scalar_index_table( PARAM_qnh , idomain ) = P_qnh ELSE P_qnh = scalar_index_table( PARAM_qnh , idomain ) END IF scalar_boundary_table( idomain, P_qnh ) = .TRUE. scalar_dname_table( idomain, P_qnh ) = 'QNHAIL' scalar_desc_table( idomain, P_qnh ) = 'Hail Number concentration' scalar_units_table( idomain, P_qnh ) = ' kg(-1)' scalar_streams_table( idomain, P_qnh )%stream(1) = 33554433 scalar_streams_table( idomain, P_qnh )%stream(2) = 2097152 F_qnh = .TRUE. IF ( scalar_index_table( PARAM_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_effr = scalar_num_table(idomain) scalar_index_table( PARAM_effr , idomain ) = P_effr ELSE P_effr = scalar_index_table( PARAM_effr , idomain ) END IF scalar_boundary_table( idomain, P_effr ) = .TRUE. scalar_dname_table( idomain, P_effr ) = 'EFF_RADIUS' scalar_desc_table( idomain, P_effr ) = 'Effective Radius' scalar_units_table( idomain, P_effr ) = 'Microns' scalar_streams_table( idomain, P_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_effr )%stream(2) = 2097152 F_effr = .TRUE. IF ( scalar_index_table( PARAM_ice_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_ice_effr = scalar_num_table(idomain) scalar_index_table( PARAM_ice_effr , idomain ) = P_ice_effr ELSE P_ice_effr = scalar_index_table( PARAM_ice_effr , idomain ) END IF scalar_boundary_table( idomain, P_ice_effr ) = .TRUE. scalar_dname_table( idomain, P_ice_effr ) = 'ICE_EFF_RADIUS' scalar_desc_table( idomain, P_ice_effr ) = 'Ice Effective Radius' scalar_units_table( idomain, P_ice_effr ) = 'Microns' scalar_streams_table( idomain, P_ice_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_ice_effr )%stream(2) = 2097152 F_ice_effr = .TRUE. IF ( scalar_index_table( PARAM_tot_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_tot_effr = scalar_num_table(idomain) scalar_index_table( PARAM_tot_effr , idomain ) = P_tot_effr ELSE P_tot_effr = scalar_index_table( PARAM_tot_effr , idomain ) END IF scalar_boundary_table( idomain, P_tot_effr ) = .TRUE. scalar_dname_table( idomain, P_tot_effr ) = 'TOT_EFF_RADIUS' scalar_desc_table( idomain, P_tot_effr ) = 'Tot Effective Radius' scalar_units_table( idomain, P_tot_effr ) = 'Microns' scalar_streams_table( idomain, P_tot_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_tot_effr )%stream(2) = 2097152 F_tot_effr = .TRUE. IF ( scalar_index_table( PARAM_qic_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qic_effr = scalar_num_table(idomain) scalar_index_table( PARAM_qic_effr , idomain ) = P_qic_effr ELSE P_qic_effr = scalar_index_table( PARAM_qic_effr , idomain ) END IF scalar_boundary_table( idomain, P_qic_effr ) = .TRUE. scalar_dname_table( idomain, P_qic_effr ) = 'QIC_EFF_RADIUS' scalar_desc_table( idomain, P_qic_effr ) = 'QIC Effective Radius' scalar_units_table( idomain, P_qic_effr ) = 'Microns' scalar_streams_table( idomain, P_qic_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qic_effr )%stream(2) = 2097152 F_qic_effr = .TRUE. IF ( scalar_index_table( PARAM_qip_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qip_effr = scalar_num_table(idomain) scalar_index_table( PARAM_qip_effr , idomain ) = P_qip_effr ELSE P_qip_effr = scalar_index_table( PARAM_qip_effr , idomain ) END IF scalar_boundary_table( idomain, P_qip_effr ) = .TRUE. scalar_dname_table( idomain, P_qip_effr ) = 'QIP_EFF_RADIUS' scalar_desc_table( idomain, P_qip_effr ) = 'QIP Effective Radius' scalar_units_table( idomain, P_qip_effr ) = 'Microns' scalar_streams_table( idomain, P_qip_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qip_effr )%stream(2) = 2097152 F_qip_effr = .TRUE. IF ( scalar_index_table( PARAM_qid_effr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_qid_effr = scalar_num_table(idomain) scalar_index_table( PARAM_qid_effr , idomain ) = P_qid_effr ELSE P_qid_effr = scalar_index_table( PARAM_qid_effr , idomain ) END IF scalar_boundary_table( idomain, P_qid_effr ) = .TRUE. scalar_dname_table( idomain, P_qid_effr ) = 'QID_EFF_RADIUS' scalar_desc_table( idomain, P_qid_effr ) = 'QID Effective Radius' scalar_units_table( idomain, P_qid_effr ) = 'Microns' scalar_streams_table( idomain, P_qid_effr )%stream(1) = 33554433 scalar_streams_table( idomain, P_qid_effr )%stream(2) = 2097152 F_qid_effr = .TRUE. END IF IF (model_config_rec%p_lev_diags==0)THEN END IF IF (model_config_rec%p_lev_diags==1)THEN END IF IF (model_config_rec%z_lev_diags==0)THEN END IF IF (model_config_rec%z_lev_diags==1)THEN END IF IF (model_config_rec%afwa_diag_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_ptype_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_vil_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_radar_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_severe_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_icing_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_cloud_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_vis_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_therm_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_turb_opt(idomain)==1)THEN END IF IF (model_config_rec%afwa_buoy_opt(idomain)==1)THEN END IF IF (model_config_rec%mean_diag==0)THEN END IF IF (model_config_rec%mean_diag==1)THEN END IF IF (model_config_rec%diurnal_diag==0)THEN END IF IF (model_config_rec%diurnal_diag==1)THEN END IF IF (model_config_rec%elec_physics==0)THEN END IF IF (model_config_rec%elec_physics==1)THEN IF ( scalar_index_table( PARAM_scr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scr = scalar_num_table(idomain) scalar_index_table( PARAM_scr , idomain ) = P_scr ELSE P_scr = scalar_index_table( PARAM_scr , idomain ) END IF scalar_boundary_table( idomain, P_scr ) = .TRUE. scalar_dname_table( idomain, P_scr ) = 'SCR' scalar_desc_table( idomain, P_scr ) = 'Rain space charge mixing ratio' scalar_units_table( idomain, P_scr ) = ' C kg(-1)' scalar_streams_table( idomain, P_scr )%stream(1) = 33554433 scalar_streams_table( idomain, P_scr )%stream(2) = 2097152 F_scr = .TRUE. IF ( scalar_index_table( PARAM_scw , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scw = scalar_num_table(idomain) scalar_index_table( PARAM_scw , idomain ) = P_scw ELSE P_scw = scalar_index_table( PARAM_scw , idomain ) END IF scalar_boundary_table( idomain, P_scw ) = .TRUE. scalar_dname_table( idomain, P_scw ) = 'SCW' scalar_desc_table( idomain, P_scw ) = 'cloud water space charge mixing ratio' scalar_units_table( idomain, P_scw ) = ' C kg(-1)' scalar_streams_table( idomain, P_scw )%stream(1) = 33554433 scalar_streams_table( idomain, P_scw )%stream(2) = 2097152 F_scw = .TRUE. IF ( scalar_index_table( PARAM_sci , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sci = scalar_num_table(idomain) scalar_index_table( PARAM_sci , idomain ) = P_sci ELSE P_sci = scalar_index_table( PARAM_sci , idomain ) END IF scalar_boundary_table( idomain, P_sci ) = .TRUE. scalar_dname_table( idomain, P_sci ) = 'SCI' scalar_desc_table( idomain, P_sci ) = 'cloud ice space charge mixing ratio' scalar_units_table( idomain, P_sci ) = ' C kg(-1)' scalar_streams_table( idomain, P_sci )%stream(1) = 33554433 scalar_streams_table( idomain, P_sci )%stream(2) = 2097152 F_sci = .TRUE. IF ( scalar_index_table( PARAM_scs , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scs = scalar_num_table(idomain) scalar_index_table( PARAM_scs , idomain ) = P_scs ELSE P_scs = scalar_index_table( PARAM_scs , idomain ) END IF scalar_boundary_table( idomain, P_scs ) = .TRUE. scalar_dname_table( idomain, P_scs ) = 'SCS' scalar_desc_table( idomain, P_scs ) = 'snow space charge mixing ratio' scalar_units_table( idomain, P_scs ) = ' C kg(-1)' scalar_streams_table( idomain, P_scs )%stream(1) = 33554433 scalar_streams_table( idomain, P_scs )%stream(2) = 2097152 F_scs = .TRUE. IF ( scalar_index_table( PARAM_sch , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sch = scalar_num_table(idomain) scalar_index_table( PARAM_sch , idomain ) = P_sch ELSE P_sch = scalar_index_table( PARAM_sch , idomain ) END IF scalar_boundary_table( idomain, P_sch ) = .TRUE. scalar_dname_table( idomain, P_sch ) = 'SCH' scalar_desc_table( idomain, P_sch ) = 'graupel water space charge mixing ratio' scalar_units_table( idomain, P_sch ) = ' C kg(-1)' scalar_streams_table( idomain, P_sch )%stream(1) = 33554433 scalar_streams_table( idomain, P_sch )%stream(2) = 2097152 F_sch = .TRUE. IF ( scalar_index_table( PARAM_schl , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_schl = scalar_num_table(idomain) scalar_index_table( PARAM_schl , idomain ) = P_schl ELSE P_schl = scalar_index_table( PARAM_schl , idomain ) END IF scalar_boundary_table( idomain, P_schl ) = .TRUE. scalar_dname_table( idomain, P_schl ) = 'SCHL' scalar_desc_table( idomain, P_schl ) = 'hail water space charge mixing ratio' scalar_units_table( idomain, P_schl ) = ' C kg(-1)' scalar_streams_table( idomain, P_schl )%stream(1) = 33554433 scalar_streams_table( idomain, P_schl )%stream(2) = 2097152 F_schl = .TRUE. IF ( scalar_index_table( PARAM_sciona , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sciona = scalar_num_table(idomain) scalar_index_table( PARAM_sciona , idomain ) = P_sciona ELSE P_sciona = scalar_index_table( PARAM_sciona , idomain ) END IF scalar_boundary_table( idomain, P_sciona ) = .TRUE. scalar_dname_table( idomain, P_sciona ) = 'SCIONA' scalar_desc_table( idomain, P_sciona ) = 'Passive net ion space charge' scalar_units_table( idomain, P_sciona ) = ' C kg(-1)' scalar_streams_table( idomain, P_sciona )%stream(1) = 33554433 scalar_streams_table( idomain, P_sciona )%stream(2) = 2097152 F_sciona = .TRUE. END IF IF (model_config_rec%elec_physics==2)THEN IF ( scalar_index_table( PARAM_scr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scr = scalar_num_table(idomain) scalar_index_table( PARAM_scr , idomain ) = P_scr ELSE P_scr = scalar_index_table( PARAM_scr , idomain ) END IF scalar_boundary_table( idomain, P_scr ) = .TRUE. scalar_dname_table( idomain, P_scr ) = 'SCR' scalar_desc_table( idomain, P_scr ) = 'Rain space charge mixing ratio' scalar_units_table( idomain, P_scr ) = ' C kg(-1)' scalar_streams_table( idomain, P_scr )%stream(1) = 33554433 scalar_streams_table( idomain, P_scr )%stream(2) = 2097152 F_scr = .TRUE. IF ( scalar_index_table( PARAM_scw , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scw = scalar_num_table(idomain) scalar_index_table( PARAM_scw , idomain ) = P_scw ELSE P_scw = scalar_index_table( PARAM_scw , idomain ) END IF scalar_boundary_table( idomain, P_scw ) = .TRUE. scalar_dname_table( idomain, P_scw ) = 'SCW' scalar_desc_table( idomain, P_scw ) = 'cloud water space charge mixing ratio' scalar_units_table( idomain, P_scw ) = ' C kg(-1)' scalar_streams_table( idomain, P_scw )%stream(1) = 33554433 scalar_streams_table( idomain, P_scw )%stream(2) = 2097152 F_scw = .TRUE. IF ( scalar_index_table( PARAM_sci , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sci = scalar_num_table(idomain) scalar_index_table( PARAM_sci , idomain ) = P_sci ELSE P_sci = scalar_index_table( PARAM_sci , idomain ) END IF scalar_boundary_table( idomain, P_sci ) = .TRUE. scalar_dname_table( idomain, P_sci ) = 'SCI' scalar_desc_table( idomain, P_sci ) = 'cloud ice space charge mixing ratio' scalar_units_table( idomain, P_sci ) = ' C kg(-1)' scalar_streams_table( idomain, P_sci )%stream(1) = 33554433 scalar_streams_table( idomain, P_sci )%stream(2) = 2097152 F_sci = .TRUE. IF ( scalar_index_table( PARAM_scs , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scs = scalar_num_table(idomain) scalar_index_table( PARAM_scs , idomain ) = P_scs ELSE P_scs = scalar_index_table( PARAM_scs , idomain ) END IF scalar_boundary_table( idomain, P_scs ) = .TRUE. scalar_dname_table( idomain, P_scs ) = 'SCS' scalar_desc_table( idomain, P_scs ) = 'snow space charge mixing ratio' scalar_units_table( idomain, P_scs ) = ' C kg(-1)' scalar_streams_table( idomain, P_scs )%stream(1) = 33554433 scalar_streams_table( idomain, P_scs )%stream(2) = 2097152 F_scs = .TRUE. IF ( scalar_index_table( PARAM_sch , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sch = scalar_num_table(idomain) scalar_index_table( PARAM_sch , idomain ) = P_sch ELSE P_sch = scalar_index_table( PARAM_sch , idomain ) END IF scalar_boundary_table( idomain, P_sch ) = .TRUE. scalar_dname_table( idomain, P_sch ) = 'SCH' scalar_desc_table( idomain, P_sch ) = 'graupel water space charge mixing ratio' scalar_units_table( idomain, P_sch ) = ' C kg(-1)' scalar_streams_table( idomain, P_sch )%stream(1) = 33554433 scalar_streams_table( idomain, P_sch )%stream(2) = 2097152 F_sch = .TRUE. IF ( scalar_index_table( PARAM_schl , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_schl = scalar_num_table(idomain) scalar_index_table( PARAM_schl , idomain ) = P_schl ELSE P_schl = scalar_index_table( PARAM_schl , idomain ) END IF scalar_boundary_table( idomain, P_schl ) = .TRUE. scalar_dname_table( idomain, P_schl ) = 'SCHL' scalar_desc_table( idomain, P_schl ) = 'hail water space charge mixing ratio' scalar_units_table( idomain, P_schl ) = ' C kg(-1)' scalar_streams_table( idomain, P_schl )%stream(1) = 33554433 scalar_streams_table( idomain, P_schl )%stream(2) = 2097152 F_schl = .TRUE. IF ( scalar_index_table( PARAM_sciona , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sciona = scalar_num_table(idomain) scalar_index_table( PARAM_sciona , idomain ) = P_sciona ELSE P_sciona = scalar_index_table( PARAM_sciona , idomain ) END IF scalar_boundary_table( idomain, P_sciona ) = .TRUE. scalar_dname_table( idomain, P_sciona ) = 'SCIONA' scalar_desc_table( idomain, P_sciona ) = 'Passive net ion space charge' scalar_units_table( idomain, P_sciona ) = ' C kg(-1)' scalar_streams_table( idomain, P_sciona )%stream(1) = 33554433 scalar_streams_table( idomain, P_sciona )%stream(2) = 2097152 F_sciona = .TRUE. END IF IF (model_config_rec%elec_physics==3)THEN IF ( scalar_index_table( PARAM_scr , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scr = scalar_num_table(idomain) scalar_index_table( PARAM_scr , idomain ) = P_scr ELSE P_scr = scalar_index_table( PARAM_scr , idomain ) END IF scalar_boundary_table( idomain, P_scr ) = .TRUE. scalar_dname_table( idomain, P_scr ) = 'SCR' scalar_desc_table( idomain, P_scr ) = 'Rain space charge mixing ratio' scalar_units_table( idomain, P_scr ) = ' C kg(-1)' scalar_streams_table( idomain, P_scr )%stream(1) = 33554433 scalar_streams_table( idomain, P_scr )%stream(2) = 2097152 F_scr = .TRUE. IF ( scalar_index_table( PARAM_scw , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scw = scalar_num_table(idomain) scalar_index_table( PARAM_scw , idomain ) = P_scw ELSE P_scw = scalar_index_table( PARAM_scw , idomain ) END IF scalar_boundary_table( idomain, P_scw ) = .TRUE. scalar_dname_table( idomain, P_scw ) = 'SCW' scalar_desc_table( idomain, P_scw ) = 'cloud water space charge mixing ratio' scalar_units_table( idomain, P_scw ) = ' C kg(-1)' scalar_streams_table( idomain, P_scw )%stream(1) = 33554433 scalar_streams_table( idomain, P_scw )%stream(2) = 2097152 F_scw = .TRUE. IF ( scalar_index_table( PARAM_sci , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sci = scalar_num_table(idomain) scalar_index_table( PARAM_sci , idomain ) = P_sci ELSE P_sci = scalar_index_table( PARAM_sci , idomain ) END IF scalar_boundary_table( idomain, P_sci ) = .TRUE. scalar_dname_table( idomain, P_sci ) = 'SCI' scalar_desc_table( idomain, P_sci ) = 'cloud ice space charge mixing ratio' scalar_units_table( idomain, P_sci ) = ' C kg(-1)' scalar_streams_table( idomain, P_sci )%stream(1) = 33554433 scalar_streams_table( idomain, P_sci )%stream(2) = 2097152 F_sci = .TRUE. IF ( scalar_index_table( PARAM_scs , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_scs = scalar_num_table(idomain) scalar_index_table( PARAM_scs , idomain ) = P_scs ELSE P_scs = scalar_index_table( PARAM_scs , idomain ) END IF scalar_boundary_table( idomain, P_scs ) = .TRUE. scalar_dname_table( idomain, P_scs ) = 'SCS' scalar_desc_table( idomain, P_scs ) = 'snow space charge mixing ratio' scalar_units_table( idomain, P_scs ) = ' C kg(-1)' scalar_streams_table( idomain, P_scs )%stream(1) = 33554433 scalar_streams_table( idomain, P_scs )%stream(2) = 2097152 F_scs = .TRUE. IF ( scalar_index_table( PARAM_sch , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sch = scalar_num_table(idomain) scalar_index_table( PARAM_sch , idomain ) = P_sch ELSE P_sch = scalar_index_table( PARAM_sch , idomain ) END IF scalar_boundary_table( idomain, P_sch ) = .TRUE. scalar_dname_table( idomain, P_sch ) = 'SCH' scalar_desc_table( idomain, P_sch ) = 'graupel water space charge mixing ratio' scalar_units_table( idomain, P_sch ) = ' C kg(-1)' scalar_streams_table( idomain, P_sch )%stream(1) = 33554433 scalar_streams_table( idomain, P_sch )%stream(2) = 2097152 F_sch = .TRUE. IF ( scalar_index_table( PARAM_schl , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_schl = scalar_num_table(idomain) scalar_index_table( PARAM_schl , idomain ) = P_schl ELSE P_schl = scalar_index_table( PARAM_schl , idomain ) END IF scalar_boundary_table( idomain, P_schl ) = .TRUE. scalar_dname_table( idomain, P_schl ) = 'SCHL' scalar_desc_table( idomain, P_schl ) = 'hail water space charge mixing ratio' scalar_units_table( idomain, P_schl ) = ' C kg(-1)' scalar_streams_table( idomain, P_schl )%stream(1) = 33554433 scalar_streams_table( idomain, P_schl )%stream(2) = 2097152 F_schl = .TRUE. IF ( scalar_index_table( PARAM_sciona , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_sciona = scalar_num_table(idomain) scalar_index_table( PARAM_sciona , idomain ) = P_sciona ELSE P_sciona = scalar_index_table( PARAM_sciona , idomain ) END IF scalar_boundary_table( idomain, P_sciona ) = .TRUE. scalar_dname_table( idomain, P_sciona ) = 'SCIONA' scalar_desc_table( idomain, P_sciona ) = 'Passive net ion space charge' scalar_units_table( idomain, P_sciona ) = ' C kg(-1)' scalar_streams_table( idomain, P_sciona )%stream(1) = 33554433 scalar_streams_table( idomain, P_sciona )%stream(2) = 2097152 F_sciona = .TRUE. IF ( scalar_index_table( PARAM_clnox , idomain ) .lt. 1 ) THEN scalar_num_table(idomain) = scalar_num_table(idomain) + 1 P_clnox = scalar_num_table(idomain) scalar_index_table( PARAM_clnox , idomain ) = P_clnox ELSE P_clnox = scalar_index_table( PARAM_clnox , idomain ) END IF scalar_boundary_table( idomain, P_clnox ) = .TRUE. scalar_dname_table( idomain, P_clnox ) = 'CLNOX' scalar_desc_table( idomain, P_clnox ) = 'Lightning NOx concentration' scalar_units_table( idomain, P_clnox ) = ' moles kg(-1)' scalar_streams_table( idomain, P_clnox )%stream(1) = 33554433 scalar_streams_table( idomain, P_clnox )%stream(2) = 2097152 F_clnox = .TRUE. END IF IF (model_config_rec%perturb_bdy==0)THEN END IF IF (model_config_rec%perturb_bdy==1)THEN END IF IF (model_config_rec%perturb_bdy==2)THEN END IF IF (model_config_rec%perturb_chem_bdy==1)THEN END IF IF (model_config_rec%gca_input_opt==1)THEN END IF IF (model_config_rec%wif_input_opt==1)THEN END IF IF (model_config_rec%use_wps_input==0)THEN END IF IF (model_config_rec%use_wps_input==1)THEN END IF IF (model_config_rec%use_wps_input==2)THEN END IF chm_opts_cnt(:nchm_opts) = (/ 196 ,292 ,346 /) chm_opts_name(:nchm_opts) = (/ 'mozcart' ,'mozart_mosaic_4bin' ,'mozart_mosaic_4bin_aq' /) chm_opts_ndx(:nchm_opts) = (/ mozcart_kpp ,mozart_mosaic_4bin_kpp ,mozart_mosaic_4bin_aq_kpp /) rxtsym(:196,1) = (/ & 'M+HV','O3+HV','O3+HV_a','N2O+HV','NO2+HV','N2O5+HV','HNO3+HV','NO3+HV','HO2NO2+HV','CH3OOH+HV','CH2O+HV','CH2O+HV_a' & ,'H2O2+HV','CH3CHO+HV','POOH+HV','CH3COOOH+HV','PAN+HV','MPAN+HV','MACR+HV','MVK+HV','C2H5OOH+HV','C3H7OOH+HV','ROOH+HV' & ,'CH3COCH3+HV','CH3COCHO+HV','XOOH+HV','ONITR+HV','ISOPOOH+HV','HYAC+HV','GLYALD+HV','MEK+HV','BIGALD+HV','GLYOXAL+HV' & ,'ALKOOH+HV','MEKOOH+HV','TOLOOH+HV','TERPOOH+HV','O+M','O+O3','O1D_CB4+M','O1D_CB4+H2O','O1D_CB4+H2','OH+H2','O+OH','O+HO2' & ,'OH+O3','HO2+O3','HO2+HO2+H2O','H2O2+OH','OH+HO2','OH+OH','OH+OH_a','N2O+O1D_CB4','N2O+O1D_CB4_a','NO+HO2','O3+NO','O+NO2' & ,'O3+NO2','NO3+HO2','NO3+NO2','N2O5','OH+NO2','OH+HNO3','NO3+NO','HO2+NO2','OH+HO2NO2','HO2NO2','N2O5+M','NO3','NO2','CH4+OH' & ,'CH4+O1D_CB4','CH3O2+NO','CH3O2+CH3O2','CH3O2+CH3O2_a','CH3O2+HO2','CH3OOH+OH','CH2O+NO3','CH2O+OH','CO+OH','C2H4+OH' & ,'C2H4+O3','SO2+OH','GLYOXAL+OH','EO2+NO','EO+M','EO','C2H6+OH','C2H5O2+NO','C2H5O2+HO2','C2H5O2+CH3O2','C2H5OOH+OH' & ,'C3H6+OH','C3H6+O3','C3H6+NO3','PO2+NO','PO2+HO2','POOH+OH','CH3CHO+OH','CH3CHO+NO3','CH3CO3+NO','CH3CO3+NO2','CH3CO3+HO2' & ,'CH3CO3+CH3O2','CH3COOOH+OH','PAN','CH3CO3+CH3CO3','C3H8+OH','C3H7O2+NO','C3H7O2+HO2','C3H7O2+CH3O2','C3H7OOH+OH' & ,'CH3COCH3+OH','RO2+NO','RO2+HO2','RO2+CH3O2','ROOH+OH','BIGENE+OH','ENEO2+NO','BIGALK+OH','ALKO2+NO','ALKO2+HO2','ALKOOH+OH' & ,'ONIT+OH','MEK+OH','MEKO2+NO','MEKO2+HO2','MEKOOH+OH','TOLUENE+OH','CRESOL+OH','XOH+NO2','TOLO2+NO','TOLO2+HO2','TOLOOH+OH' & ,'ISOP+OH','ISOP+O3','ISOPO2+NO','ISOPO2+NO3','ISOPO2+HO2','ISOPOOH+OH','ISOPO2+CH3O2','ISOPO2+CH3CO3','MVK+OH','MVK+O3' & ,'MACR+OH','MACR+O3','MACRO2+NO','MACRO2+NO_a','MACRO2+NO3','MACRO2+HO2','MACRO2+CH3O2','MACRO2+CH3CO3','MACROOH+OH' & ,'MCO3+NO','MCO3+NO3','MCO3+HO2','MCO3+CH3O2','MCO3+CH3CO3','MCO3+MCO3','MCO3+NO2+M','MPAN+M','C10H16+OH','C10H16+O3' & ,'C10H16+NO3','TERPO2+NO','TERPO2+HO2','TERPOOH+OH','CH3COOH+OH','ISOP+NO3','ISOPNO3+NO','ISOPNO3+NO3','ISOPNO3+HO2' & ,'CH3COCHO+OH','CH3COCHO+NO3','ONITR+OH','ONITR+NO3','HYDRALD+OH','XO2+NO','XO2+NO3','XO2+HO2','XO2+CH3O2','XO2+CH3CO3' & ,'XOOH+OH','XOOH+OH_a','CH3OH+OH','C2H5OH+OH','MPAN+OH','PAN+OH','HYAC+OH','GLYALD+OH','DMS+OH','DMS+OH_a','DMS+NO3','NH3+OH' & ,'HO2','C2H5O2+C2H5O2' /) rxtsym(:292,2) = (/ & 'M+HV','O3+HV','O3+HV_a','N2O+HV','NO2+HV','N2O5+HV','HNO3+HV','NO3+HV','HO2NO2+HV','CH3OOH+HV','CH2O+HV','CH2O+HV_a' & ,'H2O2+HV','CH3CHO+HV','POOH+HV','CH3COOOH+HV','PAN+HV','MPAN+HV','MACR+HV','MVK+HV','C2H5OOH+HV','C3H7OOH+HV','ROOH+HV' & ,'CH3COCH3+HV','CH3COCHO+HV','XOOH+HV','ONITR+HV','ISOPOOH+HV','HYAC+HV','GLYALD+HV','MEK+HV','BIGALD+HV','GLYOXAL+HV' & ,'ALKOOH+HV','MEKOOH+HV','TOLOOH+HV','BIGALD1+HV','BEPOMUC+HV','TEPOMUC+HV','BIGALD2+HV','BIGALD3+HV','BIGALD4+HV' & ,'MBOOOH+HV','HMPROP+HV','TERPROD1+HV','TERPROD2+HV','TERPOOH+HV','TERP2OOH+HV','HONO+HV','O+M','O+O3','O1D_CB4+M' & ,'O1D_CB4+H2O','O1D_CB4+H2','OH+H2','O+OH','O+HO2','OH+O3','HO2+O3','HO2+HO2+H2O','H2O2+OH','OH+HO2','OH+OH','OH+OH_a' & ,'N2O+O1D_CB4','N2O+O1D_CB4_a','NO+HO2','O3+NO','O+NO2','O3+NO2','NO3+HO2','NO3+NO2','N2O5','OH+NO2','OH+HNO3','NO3+NO' & ,'HO2+NO2','OH+HO2NO2','HO2NO2','N2O5+M','NO3','NO2','CH4+OH','CH4+O1D_CB4','CH3O2+NO','CH3O2+CH3O2','CH3O2+CH3O2_a' & ,'CH3O2+HO2','CH3OOH+OH','CH2O+NO3','CH2O+OH','CO+OH','C2H4+OH','C2H4+O3','SO2+OH','GLYOXAL+OH','EO2+NO','EO+M','EO' & ,'C2H6+OH','C2H5O2+NO','C2H5O2+HO2','C2H5O2+CH3O2','C2H5OOH+OH','C3H6+OH','C3H6+O3','C3H6+NO3','PO2+NO','PO2+HO2','POOH+OH' & ,'CH3CHO+OH','CH3CHO+NO3','CH3CO3+NO','CH3CO3+NO2','CH3CO3+HO2','CH3CO3+CH3O2','CH3COOOH+OH','PAN','CH3CO3+CH3CO3','C3H8+OH' & ,'C3H7O2+NO','C3H7O2+HO2','C3H7O2+CH3O2','C3H7OOH+OH','CH3COCH3+OH','RO2+NO','RO2+HO2','RO2+CH3O2','ROOH+OH','BIGENE+OH' & ,'ENEO2+NO','BIGALK+OH','ALKO2+NO','ALKO2+HO2','ALKOOH+OH','ONIT+OH','MEK+OH','MEKO2+NO','MEKO2+HO2','MEKOOH+OH','TOLO2+HO2' & ,'TOLOOH+OH','ISOP+OH','ISOP+O3','ISOPO2+NO','ISOPO2+NO3','ISOPO2+HO2','ISOPOOH+OH','ISOPO2+CH3O2','ISOPO2+CH3CO3','MVK+OH' & ,'MVK+O3','MACR+OH','MACR+O3','MACRO2+NO','MACRO2+NO_a','MACRO2+NO3','MACRO2+HO2','MACRO2+CH3O2','MACRO2+CH3CO3','MACROOH+OH' & ,'MCO3+NO','MCO3+NO3','MCO3+HO2','MCO3+CH3O2','MCO3+CH3CO3','MCO3+MCO3','MCO3+NO2+M','MPAN+M','OH+BENZENE','OH+PHENOL' & ,'PHENO2+NO','PHENO2+HO2','OH+PHENOOH','PHENO+NO2','PHENO+O3','C6H5O2+NO','C6H5O2+HO2','OH+C6H5OOH','BENZO2+NO','BENZO2+HO2' & ,'OH+BENZOOH','MALO2+NO2','MALO2+NO','MALO2+HO2','OH+TOLUENE','OH+CRESOL','BZOO+HO2','OH+BZOOH','BZOO+NO','OH+BZALD' & ,'ACBZO2+NO2','PBZNIT','ACBZO2+NO','ACBZO2+HO2','TOLO2+NO','DICARBO2+HO2','DICARBO2+NO','MDIALO2+HO2','MDIALO2+NO' & ,'DICARBO2+NO2','MDIALO2+NO2','OH+XYLENES','OH+XYLOL','XYLOLO2+NO','XYLOLO2+HO2','OH+XYLOLOOH','XYLENO2+HO2','OH+XYLENOOH' & ,'XYLENO2+NO','APIN+OH','BPIN+OH','LIMON+OH','MYRC+OH','BCARY+OH','APIN+O3','BPIN+O3','LIMON+O3','MYRC+O3','BCARY+O3' & ,'LIMON+NO3','MYRC+NO3','BCARY+NO3','TERPO2+NO','TERPO2+HO2','TERPO2+CH3O2','TERPOOH+OH','TERP2OOH+OH','TERPROD1+OH' & ,'TERPROD1+NO3','TERP2O2+NO','TERP2O2+HO2','TERP2O2+CH3O2','TERPROD2+OH','NTERPO2+NO','NTERPO2+HO2','NTERPO2+CH3O2' & ,'NTERPO2+NO3','CH3COOH+OH','ISOP+NO3','ISOPNO3+NO','ISOPNO3+NO3','ISOPNO3+HO2','CH3COCHO+OH','CH3COCHO+NO3','ONITR+OH' & ,'ONITR+NO3','HYDRALD+OH','XO2+NO','XO2+NO3','XO2+HO2','XO2+CH3O2','XO2+CH3CO3','XOOH+OH','XOOH+OH_a','CH3OH+OH','C2H5OH+OH' & ,'MPAN+OH','PAN+OH','HYAC+OH','GLYALD+OH','DMS+OH','DMS+OH_a','DMS+NO3','NH3+OH','HO2','C2H5O2+C2H5O2','MBO+OH','MBOO2+NO' & ,'MBOO2+CH3O2','HMPROP+OH','HMPROPO2+NO','HMPROPO2+HO2','MBOO2+HO2','MBOOOH+OH','MBO+O3','MBO+NO3','MBONO3O2+HO2' & ,'MBONO3O2+NO','MBONO3O2+NO3','C2H2+OH','HCOOH+OH','CH2O+HO2','HOCH2OO','HOCH2OO+NO','HOCH2OO+HO2','VOCA+OH','VOCBB+OH' & ,'ISOP+OH_a','APIN+OH_a','BPIN+OH_a','LIMON+OH_a' /) rxtsym(:346,3) = (/ & 'M+HV','O3+HV','O3+HV_a','N2O+HV','NO2+HV','N2O5+HV','HNO3+HV','NO3+HV','HO2NO2+HV','CH3OOH+HV','CH2O+HV','CH2O+HV_a' & ,'H2O2+HV','CH3CHO+HV','POOH+HV','CH3COOOH+HV','PAN+HV','MPAN+HV','MACR+HV','MVK+HV','C2H5OOH+HV','C3H7OOH+HV','ROOH+HV' & ,'CH3COCH3+HV','CH3COCHO+HV','XOOH+HV','ONITR+HV','ISOPOOH+HV','HYAC+HV','GLYALD+HV','MEK+HV','BIGALD+HV','GLYOXAL+HV' & ,'ALKOOH+HV','MEKOOH+HV','TOLOOH+HV','BIGALD1+HV','BEPOMUC+HV','TEPOMUC+HV','BIGALD2+HV','BIGALD3+HV','BIGALD4+HV' & ,'MBOOOH+HV','HMPROP+HV','TERPROD1+HV','TERPROD2+HV','TERPOOH+HV','TERP2OOH+HV','HONO+HV','O+M','O+O3','O1D_CB4+M' & ,'O1D_CB4+H2O','O1D_CB4+H2','OH+H2','O+OH','O+HO2','OH+O3','HO2+O3','HO2+HO2+H2O','H2O2+OH','OH+HO2','OH+OH','OH+OH_a' & ,'N2O+O1D_CB4','N2O+O1D_CB4_a','NO+HO2','O3+NO','O+NO2','O3+NO2','NO3+HO2','NO3+NO2','N2O5','OH+NO2','OH+HNO3','NO3+NO' & ,'HO2+NO2','OH+HO2NO2','HO2NO2','N2O5+M','NO3','NO2','CH4+OH','CH4+O1D_CB4','CH3O2+NO','CH3O2+CH3O2','CH3O2+CH3O2_a' & ,'CH3O2+HO2','CH3OOH+OH','CH2O+NO3','CH2O+OH','CO+OH','C2H4+OH','C2H4+O3','SO2+OH','GLYOXAL+OH','EO2+NO','EO+M','EO' & ,'C2H6+OH','C2H5O2+NO','C2H5O2+HO2','C2H5O2+CH3O2','C2H5OOH+OH','C3H6+OH','C3H6+O3','C3H6+NO3','PO2+NO','PO2+HO2','POOH+OH' & ,'CH3CHO+OH','CH3CHO+NO3','CH3CO3+NO','CH3CO3+NO2','CH3CO3+HO2','CH3CO3+CH3O2','CH3COOOH+OH','PAN','CH3CO3+CH3CO3','C3H8+OH' & ,'C3H7O2+NO','C3H7O2+HO2','C3H7O2+CH3O2','C3H7OOH+OH','CH3COCH3+OH','RO2+NO','RO2+HO2','RO2+CH3O2','ROOH+OH','BIGENE+OH' & ,'BIGENE+OH_a','BIGENE+OH_b','BIGENE+OH_c','BIGENE+OH_d','ENEO2+NO','BIGALK+OH','BIGALK+OH_a','BIGALK+OH_b','BIGALK+OH_c' & ,'BIGALK+OH_d','ALKO2+NO','ALKO2+HO2','ALKOOH+OH','ONIT+OH','MEK+OH','MEKO2+NO','MEKO2+HO2','MEKOOH+OH','TOLO2+HO2' & ,'TOLOOH+OH','ISOP+OH','ISOP+OH_a','ISOP+OH_b','ISOP+OH_c','ISOP+OH_d','ISOP+O3','ISOP+O3_a','ISOP+O3_b','ISOP+O3_c' & ,'ISOP+O3_d','ISOPO2+NO','ISOPO2+NO3','ISOPO2+HO2','ISOPOOH+OH','ISOPO2+CH3O2','ISOPO2+CH3CO3','MVK+OH','MVK+O3','MACR+OH' & ,'MACR+O3','MACRO2+NO','MACRO2+NO_a','MACRO2+NO3','MACRO2+HO2','MACRO2+CH3O2','MACRO2+CH3CO3','MACROOH+OH','MCO3+NO' & ,'MCO3+NO3','MCO3+HO2','MCO3+CH3O2','MCO3+CH3CO3','MCO3+MCO3','MCO3+NO2+M','MPAN+M','OH+BENZENE','OH+BENZENE_a' & ,'OH+BENZENE_b','OH+BENZENE_c','OH+BENZENE_d','OH+PHENOL','PHENO2+NO','PHENO2+HO2','OH+PHENOOH','PHENO+NO2','PHENO+O3' & ,'C6H5O2+NO','C6H5O2+HO2','OH+C6H5OOH','BENZO2+NO','BENZO2+HO2','OH+BENZOOH','MALO2+NO2','MALO2+NO','MALO2+HO2','OH+TOLUENE' & ,'OH+TOLUENE_a','OH+TOLUENE_b','OH+TOLUENE_c','OH+TOLUENE_d','OH+CRESOL','BZOO+HO2','OH+BZOOH','BZOO+NO','OH+BZALD' & ,'ACBZO2+NO2','PBZNIT','ACBZO2+NO','ACBZO2+HO2','TOLO2+NO','DICARBO2+HO2','DICARBO2+NO','MDIALO2+HO2','MDIALO2+NO' & ,'DICARBO2+NO2','MDIALO2+NO2','OH+XYLENES','OH+XYLENES_a','OH+XYLENES_b','OH+XYLENES_c','OH+XYLENES_d','OH+XYLOL' & ,'XYLOLO2+NO','XYLOLO2+HO2','OH+XYLOLOOH','XYLENO2+HO2','OH+XYLENOOH','XYLENO2+NO','APIN+OH','APIN+OH_a','APIN+OH_b' & ,'APIN+OH_c','APIN+OH_d','BPIN+OH','BPIN+OH_a','BPIN+OH_b','BPIN+OH_c','BPIN+OH_d','LIMON+OH','LIMON+OH_a','LIMON+OH_b' & ,'LIMON+OH_c','LIMON+OH_d','MYRC+OH','BCARY+OH','APIN+O3','APIN+O3_a','APIN+O3_b','APIN+O3_c','APIN+O3_d','BPIN+O3' & ,'BPIN+O3_a','BPIN+O3_b','BPIN+O3_c','BPIN+O3_d','LIMON+O3','LIMON+O3_a','LIMON+O3_b','LIMON+O3_c','LIMON+O3_d','MYRC+O3' & ,'BCARY+O3','LIMON+NO3','MYRC+NO3','BCARY+NO3','TERPO2+NO','TERPO2+HO2','TERPO2+CH3O2','TERPOOH+OH','TERP2OOH+OH' & ,'TERPROD1+OH','TERPROD1+NO3','TERP2O2+NO','TERP2O2+HO2','TERP2O2+CH3O2','TERPROD2+OH','NTERPO2+NO','NTERPO2+HO2' & ,'NTERPO2+CH3O2','NTERPO2+NO3','CH3COOH+OH','ISOP+NO3','ISOPNO3+NO','ISOPNO3+NO3','ISOPNO3+HO2','CH3COCHO+OH','CH3COCHO+NO3' & ,'ONITR+OH','ONITR+NO3','HYDRALD+OH','XO2+NO','XO2+NO3','XO2+HO2','XO2+CH3O2','XO2+CH3CO3','XOOH+OH','XOOH+OH_a','CH3OH+OH' & ,'C2H5OH+OH','MPAN+OH','PAN+OH','HYAC+OH','GLYALD+OH','DMS+OH','DMS+OH_a','DMS+NO3','NH3+OH','HO2','C2H5O2+C2H5O2','MBO+OH' & ,'MBOO2+NO','MBOO2+CH3O2','HMPROP+OH','HMPROPO2+NO','HMPROPO2+HO2','MBOO2+HO2','MBOOOH+OH','MBO+O3','MBO+NO3','MBONO3O2+HO2' & ,'MBONO3O2+NO','MBONO3O2+NO3','C2H2+OH','HCOOH+OH','CH2O+HO2','HOCH2OO','HOCH2OO+NO','HOCH2OO+HO2','CVASOA4+OH','CVASOA3+OH' & ,'CVASOA2+OH','CVASOA1+OH','CVBSOA4+OH','CVBSOA3+OH','CVBSOA2+OH','CVBSOA1+OH' /) has_irr_diag: & IF( model_config_rec%irr_opt(idomain) == 1 ) THEN DO chm_opt_ndx = 1,nchm_opts IF( chem_opt == chm_opts_ndx(chm_opt_ndx) ) THEN EXIT ENDIF ENDDO IF( chm_opt_ndx > nchm_opts ) THEN write(err_mes,'(''IRR not supported for chem option '',i3.3)') chem_opt CALL wrf_error_fatal3("",174765,& trim(err_mes) ) ENDIF funit = get_funit() write(fname,'(''wrfinput_irr_diag_d'',i2.2)') idomain OPEN( unit = funit, file=trim(fname), iostat=istat ) IF( istat /= 0 ) THEN write(err_mes,'(''IRR failed to open '',a)') trim(fname) CALL wrf_error_fatal3("",174773,& trim(err_mes) ) ENDIF m = 0 DO read(funit,'(a)',iostat=istat) irr_rxt IF( istat /= 0 ) THEN EXIT ENDIF m = m + 1 ENDDO has_irr_input: & IF( m == 0 ) THEN CALL nl_set_irr_opt( idomain, 0 ) ELSE has_irr_input ALLOCATE( irr_lst(m),irr_msk(m),irr_ndx(m),stat=astat ) IF( astat /= 0 ) THEN write(err_mes,'(''IRR failed to allocate irr_lst .. irr_ndx; error = '',i8)') astat CALL wrf_error_fatal3("",174791,& trim(err_mes) ) ENDIF REWIND( funit ) irr_msk(:) = .false. irr_ndx(:) = 0 rxt_lst => rxtsym(:,chm_opt_ndx) input_irr_loop: & DO n = 1,m read(funit,'(a)',iostat=istat) irr_lst(n) IF( istat /= 0 ) THEN write(err_mes,'(''IRR failed to read '',a)') trim(fname) CALL wrf_error_fatal3("",174803,& trim(err_mes) ) ENDIF found = .false. rxt_loop: & DO l = 1,chm_opts_cnt(chm_opt_ndx) IF( trim(rxt_lst(l)) == trim(irr_lst(n)) ) THEN found = .true. irr_ndx(n) = l irr_msk(n) = .true. SELECT CASE( chm_opts_ndx(chm_opt_ndx) ) CASE( MOZCART_KPP ) irr_diag_mozcart_num_table(idomain) = irr_diag_mozcart_num_table(idomain) + 1 ndx = irr_diag_mozcart_num_table(idomain) irr_diag_mozcart_boundary_table(idomain,ndx) = .FALSE. irr_diag_mozcart_dname_table(idomain,ndx) = trim(rxt_lst(l) ) // '_IRR' irr_diag_mozcart_desc_table(idomain,ndx) = trim(rxt_lst(l) ) // ' Integrated Reaction Rate' irr_diag_mozcart_units_table(idomain,ndx) = 'molecules/cm^3/s' irr_diag_mozcart_streams_table(idomain,ndx)%stream(1) = 512 irr_diag_mozcart_streams_table(idomain,ndx)%stream(2) = 2097152 CASE( MOZART_MOSAIC_4BIN_KPP ) irr_diag_mozart_mosaic_4bin_num_table(idomain) = irr_diag_mozart_mosaic_4bin_num_table(idomain) + 1 ndx = irr_diag_mozcart_num_table(idomain) irr_diag_mozart_mosaic_4bin_boundary_table(idomain,ndx) = .FALSE. irr_diag_mozart_mosaic_4bin_dname_table(idomain,ndx) = trim(rxt_lst(l) ) // '_IRR' irr_diag_mozart_mosaic_4bin_desc_table(idomain,ndx) = trim(rxt_lst(l) ) // ' Integrated Reaction Rate' irr_diag_mozart_mosaic_4bin_units_table(idomain,ndx) = 'molecules/cm^3/s' irr_diag_mozart_mosaic_4bin_streams_table(idomain,ndx)%stream(1) = 512 irr_diag_mozart_mosaic_4bin_streams_table(idomain,ndx)%stream(2) = 2097152 CASE( MOZART_MOSAIC_4BIN_AQ_KPP ) irr_diag_mozart_mosaic_4bin_aq_num_table(idomain) = irr_diag_mozart_mosaic_4bin_aq_num_table(idomain) + 1 ndx = irr_diag_mozcart_num_table(idomain) irr_diag_mozart_mosaic_4bin_aq_boundary_table(idomain,ndx) = .FALSE. irr_diag_mozart_mosaic_4bin_aq_dname_table(idomain,ndx) = trim(rxt_lst(l) ) // '_IRR' irr_diag_mozart_mosaic_4bin_aq_desc_table(idomain,ndx) = trim(rxt_lst(l) ) // ' Integrated Reaction Rate' irr_diag_mozart_mosaic_4bin_aq_units_table(idomain,ndx) = 'molecules/cm^3/s' irr_diag_mozart_mosaic_4bin_aq_streams_table(idomain,ndx)%stream(1) = 512 irr_diag_mozart_mosaic_4bin_aq_streams_table(idomain,ndx)%stream(2) = 2097152 END SELECT EXIT rxt_loop ENDIF ENDDO rxt_loop ENDDO input_irr_loop ENDIF has_irr_input CLOSE( funit ) IF( ALLOCATED( irr_lst ) ) THEN DEALLOCATE( irr_lst ) ENDIF IF( ALLOCATED( irr_msk ) ) THEN DEALLOCATE( irr_msk ) ENDIF IF( ALLOCATED( irr_ndx ) ) THEN DEALLOCATE( irr_ndx ) ENDIF ENDIF has_irr_diag num_moist = moist_num_table( idomain ) num_dfi_moist = dfi_moist_num_table( idomain ) num_scalar = scalar_num_table( idomain ) num_dfi_scalar = dfi_scalar_num_table( idomain ) num_aerod = aerod_num_table( idomain ) num_ozmixm = ozmixm_num_table( idomain ) num_aerosolc = aerosolc_num_table( idomain ) num_fdda3d = fdda3d_num_table( idomain ) num_fdda2d = fdda2d_num_table( idomain ) num_advh_t = advh_t_num_table( idomain ) num_advz_t = advz_t_num_table( idomain ) num_emis_ant = emis_ant_num_table( idomain ) num_eghg_bio = eghg_bio_num_table( idomain ) num_emis_dust = emis_dust_num_table( idomain ) num_emis_seas = emis_seas_num_table( idomain ) num_emis_seas2 = emis_seas2_num_table( idomain ) num_emis_vol = emis_vol_num_table( idomain ) num_ebu = ebu_num_table( idomain ) num_ebu_in = ebu_in_num_table( idomain ) num_emis_aircraft = emis_aircraft_num_table( idomain ) num_ext_coef = ext_coef_num_table( idomain ) num_bscat_coef = bscat_coef_num_table( idomain ) num_asym_par = asym_par_num_table( idomain ) num_conv_ct = conv_ct_num_table( idomain ) num_chem_ct = chem_ct_num_table( idomain ) num_vmix_ct = vmix_ct_num_table( idomain ) num_advh_ct = advh_ct_num_table( idomain ) num_advz_ct = advz_ct_num_table( idomain ) num_dvel = dvel_num_table( idomain ) num_vprm_in = vprm_in_num_table( idomain ) num_wet_in = wet_in_num_table( idomain ) num_chem = chem_num_table( idomain ) num_tracer = tracer_num_table( idomain ) num_nba_mij = nba_mij_num_table( idomain ) num_nba_rij = nba_rij_num_table( idomain ) num_irr_diag_mozcart = irr_diag_mozcart_num_table( idomain ) num_irr_diag_mozart_mosaic_4bin = irr_diag_mozart_mosaic_4bin_num_table( idomain ) num_irr_diag_mozart_mosaic_4bin_aq = irr_diag_mozart_mosaic_4bin_aq_num_table( idomain ) RETURN END SUBROUTINE set_scalar_indices_from_config